anchor.diff:                    (let ((ch (get-char scr)))
                       ;; quit on q, print everything else including function keys.
                       (cond ((equal (code-char ch) #\q) (return))
  -                          (t (format scr "Char: ~A, Code: ~A~%" ch (code-char ch))))))))
  +                          (t (format scr "Code: ~A, Char: ~A~%" ch (code-char ch))))))))
         (close scr))))
   
   ;; cleaner key printing.
  
positive.code:       (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)))
        (move scr 23 1)
        (add scr str))
      (refresh scr)
  
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)))
  