Index: main/curses.lisp
===================================================================
--- main/curses.lisp	(revision main,4)
+++ main/curses.lisp	(revision main,5)
@@ -14,4 +14,5 @@
 
 (defcfun initscr window*)
+(defcfun clear :int)
 (defcfun endwin :int)
 (defcfun refresh :int)
@@ -22,5 +23,7 @@
 (defcfun start-color :int)
 
-(defcvar stdscr :pointer :read-only t)
+(defcfun mvwaddstr :int (win :pointer) (y :int) (x :int) (str :string))
+
+(defcvar *stdscr* :pointer :read-only t)
 
 
@@ -58,8 +61,10 @@
 (defcdef req-left-char)
 (defcdef req-right-char)
+(defcdef o-active)
+(defcdef o-autoskip)
 
 (defcfun form2-create :int)
 (defcfun form2-add-field :int (form :int) (row :int) (col :int) (width :int)
-         (height :int) (data-height :int))
+         (height :int) (data-height :int) (opts-mask :int))
 (defcfun form2-destroy :int (form :int))
 (defcfun form2-post :int (form :int))
@@ -68,4 +73,5 @@
 (defcfun form2-field-len :int (form :int) (i :int))
 (defcfun form2-copy-field :int (form :int) (i :int) (buff :pointer) (len :int))
+(defcfun form2-set-field :int (form :int) (i :int) (buff :string))
 
 (defun form2-get-value (form i)
@@ -81,7 +87,8 @@
   (initscr)
   (start-color)
-  (keypad stdscr 1)
+  (keypad *stdscr* 1)
   (cbreak)
-  (noecho))
+  (noecho)
+  (clear))
 
 (defmacro ncase (keyform &rest clauses)