anchor.diff:    (with-screen (scr :input-echoing nil :cursor-visible t :enable-colors t :enable-function-keys t :input-blocking t)
       (let ((msgbox (make-instance 'msgbox :title "This is a msgbox dialog" :message *t16k-message*
                                            :center t :height 10 :width 50 :style *t16k1-style*)))
  +      ;; chars will be added in the fg style of the form window
  +      (add-char (sub-window msgbox) #\x :y 0 :x 1)
  +      (add-char msgbox #\x :y 4 :x 0)
  +
         (setf (cursor-visible-p scr) nil)
         (edit msgbox)
         (setf (cursor-visible-p scr) t)
  
positive.code:         (setf (callback button3) 'accept)
  
          (if (edit form)
              (setq value (pairlis (list (title field1) (title field2))
                                   (list (value field1) (value field2))))
              (setq value nil))
          (close form)))
  
      ;; return the input values
      value))
  
  (defun t16j ()
    "Perform long-running calculations in worker threads to prevent freezing the ncurses UI."
    (with-screen (scr :input-echoing nil :cursor-visible t :enable-colors t :enable-function-keys t :input-blocking nil)
      (let* ((field1 (make-instance 'field :name :f1 :title "Forename" :position (list 3 20) :width 15))
             (field2 (make-instance 'field :name :f2 :title "Surname"  :position (list 5 20) :width 15))
             (field3 (make-instance 'field :name :f3 :title "Nickname" :position (list 7 20) :width 15))
  
negative.code:                                 :max-item-length 12
                                  :current-item-mark "> "
                                  :color-pair (list :yellow :red)
  
                                  ;; width and height will be automatically calculated if they are not given here
                                  ;;:width 68
                                  ;;:dimensions '(10 80)
  
                                  :border border
                                  :enable-function-keys t
  
                                  :name :t19f
                                  ;; if the title is given as a string, it overrides the default title = name
                                  ;; :title "this is a selection dialog"
                                  :title t
  
                                  :message-height 2
                                  :message-text "Press <- or -> to choose. Enter to confirm choice.~%Press q to exit.")))
  
  