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:            (when (> n 0) ; only print when the line is not empty.
               (let* ((strin (extract-wide-string win :n n :y 0 :x 0)) 
                      (strout (eval (read-from-string strin))))
                 (print (length strin))
                 (princ strin)
                 (terpri)
                 (add-string wout (format nil "=> ~A~%~%" strout)))
  