anchor.diff:            ((: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)))))))))
   
  -;; use the menu class and draw-menu function.
   (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)))
  
positive.code:              (case event
                 (:resize (move scr 1 0)
                          (format scr "~A Y lines x ~A X columns." (.height scr) (.width scr))
                          (refresh scr))
                 (#\q (return)))
               (progn
  
negative.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
          (#\t
           (raise-to-top (nth n winlst))
           (refresh-stack))
          (#\r
           (raise (nth n winlst))
           (refresh-stack))
          (#\l
           (lower (nth n winlst))
           (refresh-stack))
          (#\b
           (lower-to-bottom (nth n winlst))
           (refresh-stack))
          ;; type v to toggle window visibility         
          (#\v
  