(SYSTEM::VERSION '(20020129.))
#0Y UTF-8
#Y(#:TOP-LEVEL-FORM-1-1
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 01 02 38 01 31 DD 3E 19 01) "SCREEN")
#Y(#:TOP-LEVEL-FORM-1-2
   #17Y(00 00 00 00 00 00 00 00 00 01 DA DB 31 DA 3E 19 01)
   ("COMMON-LISP" "EXT") "SCREEN")
#Y(#:TOP-LEVEL-FORM-1-3 #15Y(00 00 00 00 00 00 00 00 00 01 DA 31 CA 19 01)
   "SCREEN")
#Y(#:TOP-LEVEL-FORM-2 #17Y(00 00 00 00 00 00 00 00 00 01 DA 31 E2 0F 01 19 01)
   "SCREEN" COMMON-LISP::*PACKAGE*)
#Y(#:TOP-LEVEL-FORM-3 #17Y(00 00 00 00 00 00 00 00 00 01 DA 38 01 31 D5 19 01)
   (SCREEN::MAKE-WINDOW SCREEN::WINDOW-SIZE SCREEN::WINDOW-CURSOR-POSITION
    SCREEN::SET-WINDOW-CURSOR-POSITION SCREEN::CLEAR-WINDOW
    SCREEN::CLEAR-WINDOW-TO-EOT SCREEN::CLEAR-WINDOW-TO-EOL
    SCREEN::DELETE-WINDOW-LINE SCREEN::INSERT-WINDOW-LINE SCREEN::HIGHLIGHT-ON
    SCREEN::HIGHLIGHT-OFF SCREEN::WINDOW-CURSOR-ON SCREEN::WINDOW-CURSOR-OFF
    SCREEN::WITH-WINDOW SCREEN::*WINDOW* SCREEN::READ-KEYBOARD-CHAR
    SCREEN::*NEW-WINDOW*))
#Y(#:TOP-LEVEL-FORM-4 #15Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 19 01)
   (COMMON-LISP::SPECIAL SCREEN::*WINDOW*))
#Y(#:TOP-LEVEL-FORM-5
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SCREEN::READ-KEYBOARD-CHAR SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SCREEN::READ-KEYBOARD-CHAR
      #18Y(00 00 00 00 01 00 00 00 00 02 6B 00 38 03 31 77 19 02)
      EXT::*KEYBOARD-INPUT*))
#Y(#:TOP-LEVEL-FORM-6
   #34Y(00 00 00 00 00 00 00 00 00 01 DA 38 01 8D 5D 0B 63 DA 71 4D 8C FF 04 DA
        DB 30 02 DA 63 32 81 C5 19 01)
   SCREEN::*NEW-WINDOW*
   (COMMON-LISP::DEFCONSTANT SCREEN::*NEW-WINDOW* COMMON-LISP::NIL)
   SYSTEM::CONSTANT-WARNING)
#Y(#:TOP-LEVEL-FORM-7
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 6F 03 32 80 C5 19 01)
   SCREEN::WITH-WINDOW SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SCREEN::WITH-WINDOW
      #25Y(00 00 00 00 01 00 01 00 00 08 95 02 DA DB DC DD A1 7A C9 7C 02 61 03
           19 04)
      COMMON-LISP::LET ((SCREEN::*WINDOW* (SCREEN::MAKE-WINDOW)))
      COMMON-LISP::UNWIND-PROTECT COMMON-LISP::PROGN
      ((COMMON-LISP::CLOSE SCREEN::*WINDOW*)))
   SYSTEM::MAKE-MACRO)
