anchor.diff:        (move scr 22 1)
         (add scr str :n -1))
       ;; extract the first line as a simple string, then reprint it at line 23
  -    (let ((str (extract-string scr :y 0 :x 0 :n 4)))
  +    (let ((str (extract-string scr :y 0 :x 0 :n 5)))
         (move scr 23 1)
         (add scr str))
       (refresh scr)
  
positive.code:       (get-char scr) )))
  
  ;; Display misc system information
  (defun t18 ()
    (with-screen (scr)
      (format scr "Lisp implementation type:    ~A~%" (lisp-implementation-type))
      (format scr "Lisp implementation version: ~A~%" (lisp-implementation-version))
      (format scr "Ncurses version:             ~A~%" (de.anvi.ncurses:%curses-version))
      (format scr "Terminal:                    ~A~%" (%termname))
      (format scr "Colors supported:            ~A~%" (%has-colors))
  
negative.code:     (let* ((field1 (make-instance 'field :position (list 3 20) :width 20))
             (field2 (make-instance 'field :position (list 5 20) :width 20))
             (field3 (make-instance 'field :position (list 7 20) :width 20))
             (form   (make-instance 'form :fields (list field1 field2 field3))))
  
        ;; pressing ^A (for "accept") exits the edit mode
        ;; TAB cycles the fields
        (edit scr form)
        (clear scr)
  
        ;; display the contents of the input buffer of all fields of the form
  