anchor.diff:          (#\q (return-from event-case)))
         (close menu))))
   
  -;; A one-line menu without a title and border resembling a menu bar
   (defun t19e ()
  +  "A one-line menu without a title and border resembling a menu bar."
     (with-screen (scr :input-echoing nil :input-blocking t :cursor-visibility nil :enable-colors t)
       (let* ((items '("Item 0" "Item 1" "Item 2" "Item 3" "Item 4" "Item 5" "Item 6" "Item 7" "Item 8" "Item 9"))
              (menu (make-instance 'menu-window :input-blocking t :items items :position (list 0 0)
  
positive.code:          (add-char scr event :y 1 :x 78 :color-pair (list :white :black))
           (setf n (- (char-code event) 48)))
          ;; to raise a window to the top of the stack
          (#\r
           (raise (nth n winlst))
           (refresh-stack))
          ;; type v to toggle window visibility         
          (#\v
  
negative.code:           ((:up :down :left :right #\tab) (setf i (mod (1+ i) n)) (draw-menu scr choices i))
            (#\newline (return-from event-case (cdr (nth i choices)))))))))
  
  (defun t19b ()
    "Use the menu class, draw-menu and select-item functions."
    (with-screen (scr :input-echoing nil :input-blocking t :cursor-visibility nil :enable-colors t)
      (let* ((choices '("Choice 0" "Choice 11" "Choice 222" "Choice 3333" "Choice 44444" "Choice 555555" "Choice 6666666"))
             (menu (make-instance 'menu-window :items choices :position (list 0 20) :title "t19b" :border t :enable-fkeys t)))
  