anchor.diff:      (define-function-key :shift-ctrl-alt-end (list #\esc #\[ #\1 #\; #\8 #\F))
       (define-function-key :shift-ctrl-alt-delete (list #\esc #\[ #\3 #\; #\8 #\~))
   
  -    ;; gnome-terminal, linux console
  -    (define-function-key :alt-1 (list #\esc #\1))
  -    (define-function-key :alt-n (list #\esc #\n))
  -
       (bind scr #\q 'exit-event-loop)
  -    (bind scr t (lambda (w e) (format w "Event: ~S~%" (event-key e))))
  -
  +    (bind scr t (lambda (w e) (format w "Event: ~A ~A~%" (event-key e) (event-code e))))
       (run-event-loop scr)))
   
   (defun t11 ()
  
positive.code:     ;; return nil explicitely, so it doesnt return the window list.
      nil))
  
  ;; port of kletva/test05.
  ;; print the screen size.
  ;; print the keys and key codes of any key pressed.
  ;; TODO: when we reach the end of the screen, the ~% doesnt print newlines any more and the screen doesnt scroll.
  ;; see scroll.lisp. a lot of window options, including scrolling, arent closified yet.
  ;; enable-function-keys t: fkeys have codes 255+
  ;; enable-function-keys nil: fkeys are multi-char escape codes.
  (defun t10 ()
  
negative.code:            (l1     (make-instance 'label  :name :l1 :reference :f1    :position (list 3 1)  :width 18))
             (l2     (make-instance 'label  :name :l2 :reference :f2    :position (list 5 1)  :width 18))
             (l3     (make-instance 'label  :name :l3 :reference :f3    :position (list 7 1)  :width 18))
             (b1     (make-instance 'button :name :b1 :title "Button1"  :position (list  9  1) :callback 'return-element-value :value 1))
             (b2     (make-instance 'button :name :b2 :title "Button2"  :position (list  9 20) :callback 'return-form-values   :value 2))
             (b3     (make-instance 'button :name :b3 :title "Cancel"   :position (list 11  1) :callback 'cancel))
             (b4     (make-instance 'button :name :b4 :title "Accept"   :position (list 11 20) :callback 'accept))
             (form   (make-instance 'form :window scr :elements (list field1 field2 field3 l1 l2 l3 b1 b2 b3 b4)
                                          :style '(field (:background (:attributes (:reverse))
                                                          :selected-background (:bgcolor :blue))
  