(defun prev-window (mode focus wins)
  (if (equal mode "NORMAL")
      (if (= focus 0)
          (setf focus (1- (length wins)))
          (setf focus (1- focus)))))

(defun events (scr focus wins mode)
  (loop (let ((event (crt:get-event scr)))
          (when event
            (case event
              
              (#\q (return))
              
              (#\tab (if (equal mode "NORMAL")
                         (if (= (+ focus 1) (length wins))
                             (setf focus 0)
                             (setf focus (1+ focus)))))
              
;;              (:btab (if (equal mode "NORMAL")
;;                         (if (= focus 0)
;;                             (setf focus (1- (length wins)))
;;                             (setf focus (1- focus)))))
              (:btab (prev-window mode focus wins))

              (#\i (setf mode "INPUT"))
              
              (#\escape (setf mode "NORMAL")))

            (crt:clear scr)
            (crt:box scr)
            (crt:move scr 1 1)
            (princ (list mode focus (length wins) (= focus (length wins))) scr)))))