anchor.diff:                  :background (:simple-char #\. :fgcolor :black :bgcolor :white)))
   
           (setf (background scr) (make-instance 'complex-char :simple-char :board :fgcolor :cyan))
  -        (clear scr)
           (refresh scr)
  -        (clear win)
           (move win 1 1) (add-string win "hello there")
           ;; since a panel is a window, it can be used with stream output functions
           (move win 3 3) (format win "dear john")
  
positive.code:              ;; form element default styles
               (style4 (list 'field style1 'button style2 'label style3))
  
               (label1 (make-instance 'label :name :l1 :reference :f1 :width 20 :position (list 2 1)))
               (field1 (make-instance 'field :name :f1 :title "Forename" :position (list 2 22) :width 20 :max-buffer-length 25))
  
               (label2 (make-instance 'label :name :l2 :reference :f2 :width 20 :position (list 4 1)))
               (field2 (make-instance 'field :name :f2 :title "Surname" :position (list 4 22) :width 20 :max-buffer-length 25))
  
               (button1 (make-instance 'button :name :b3 :title "Reset"  :position (list 6 15)))
               (button2 (make-instance 'button :name :b2 :title "Cancel" :position (list 6 25)))
  
negative.code:   '(button   (:selected-foreground (:fgcolor :white :bgcolor :blue))
      textarea (:foreground (:fgcolor :blue :bgcolor :white)
                :background (:fgcolor :blue :bgcolor :green :simple-char #\.))
      ;; but since it is also a form-window, it has additional properties that can be styled
      :title (:fgcolor :black :bgcolor :yellow :attributes (:bold))
      :foreground (:fgcolor :red :bgcolor :yellow)
      :background (:fgcolor :white :bgcolor :black :simple-char #\*)))
  
  (defun t16k1 ()
  