anchor.diff:        (get-char scr) )))
   
   ;; Display misc system information
  +;; https://github.com/rudolfochrist/dotfiles/blob/master/.rc.lisp
   (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 "Machine type (Arch)          ~A~%" (machine-type))
  +    (format scr "Machine version (CPU)        ~A~%" (machine-version))
  +    (format scr "Software type (OS)           ~A~%" (software-type))
  +    (format scr "Software version (OS)        ~A~%" (software-version))
  +    (format scr "Machine instance (hostname)  ~A~%" (machine-instance))
  +    (format scr "User HOME                    ~A~%" (user-homedir-pathname))
       (format scr "Ncurses version:             ~A~%" (de.anvi.ncurses:%curses-version))
       (format scr "Terminal:                    ~A~%" (%termname))
       (format scr "Colors supported:            ~A~%" (%has-colors))
  
positive.code:                                 :message-height 2
                                  :message-text "Press <- or -> to choose. Enter to confirm choice.~%Press q to exit.")))
  
        (setf (.background scr) (make-instance 'complex-char :simple-char #x2592 :color-pair (list :white :black)))
        
        (refresh scr)
  
negative.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 5)))
        (move scr 23 1)
        (add scr str))
      (refresh scr)
  