anchor.diff:  (defun t19b2 ()
     "Use the select function with independent windows and menus"
     (with-screen (scr :input-echoing nil :input-blocking t :cursor-visibility nil :enable-colors t)
  -    (let* ((items1 '("Choice 0" "Choice 11" "Choice 222" "Choice 3333" "Choice 44444" "Choice 555555"
  +    (let* ((items1 '("Choice 0" "Choice 11" :choice22 "Choice 3333" "Choice 44444" "Choice 555555"
                        "Choice 6666666" "Choice 7" "Choice 88" "Choice 999"))
              (menu1 (make-instance 'menu :items items1 :name "sub-menu 1" :max-item-length 50))
              (items2 (list "Item 0" menu1 "Item 1" "Item 2" "Item 3" "Item 4" "Item 5" "Item 6" "Item 7" "Item 8" "Item 9"))
  
positive.code:       
        (refresh scr)
        (loop named menu-case
           do
             (let ((result (select menu)))
               ;; TODO: returning an empty list exits the loop.
               (unless result (return-from menu-case))
               (format scr "You chose ~A~%"
                       (mapcar (lambda (x) (if x (.value x)))
                               result))
               (refresh scr)))
        (close menu))))
  
  ;; Passing the color attribute directly to a character.
  
negative.code:       
        (refresh scr)
        (loop named menu-case
           do (let ((result (select menu)))
                (unless result (return-from menu-case))
                (format scr "You chose ~A~%" result)
                (refresh scr)))
        (close menu))))
  
  (defun t19g ()
  