Index: main/cdk.lisp
===================================================================
--- main/cdk.lisp	(revision main,13)
+++ main/cdk.lisp	(revision main,15)
@@ -89,6 +89,27 @@
   (ch chtype))
 
+(defcfun "wbkgrnd" :int
+  (window :pointer)
+  (wch :pointer))
+
 (defcfun ("werase" c-erase-window) :int
   (window :pointer))
+
+(defcfun "getcury" :int
+  (window :pointer))
+
+(defcfun "getcurx" :int
+  (window :pointer))
+
+(defcfun "getmaxy" :int
+  (window :pointer))
+
+(defcfun "getmaxx" :int
+  (window :pointer))
+
+(defcfun "wmove" :int
+  (window :pointer)
+  (y :int)
+  (x :int))
 
 (defcfun ("mvwadd_wch" c-move-and-add-char) :int
@@ -118,5 +139,6 @@
                            (:h-line #\q)
                            (:v-line #\x)
-                           (:plus #\n)))))
+                           (:plus #\n)
+                           (:solid #\0)))))
     (inc-pointer nc-wacs (* (foreign-type-size 'cchar_t) code))))
 
Index: main/input.lisp
===================================================================
--- main/input.lisp	(revision main,14)
+++ main/input.lisp	(revision main,15)
@@ -1,8 +1,8 @@
 ;;;; TODO: Change all the keycode symbols to an enumeration so that
-;;;; Lisp will deetect typos, &c.
+;;;; Lisp will detect typos, &c.
 
 (defpackage #:input
   (:use #:cl #:cffi)
-  (:export))
+  (:export #:%wget-wch))
 
 (in-package #:input)