(SYSTEM::VERSION '(19990501.))
#0Y UTF-8
#Y(#:TOP-LEVEL-FORM-1
   #19Y(00 00 00 00 00 00 00 00 00 01 DA 38 03 C6 F9 31 DE 19 01) "SCREEN"
   ("LISP")
  )
#Y(#:TOP-LEVEL-FORM-2 #17Y(00 00 00 00 00 00 00 00 00 01 DA 38 01 31 D5 19 01)
   (MAKE-WINDOW WINDOW-SIZE WINDOW-CURSOR-POSITION SET-WINDOW-CURSOR-POSITION
     CLEAR-WINDOW CLEAR-WINDOW-TO-EOT CLEAR-WINDOW-TO-EOL DELETE-WINDOW-LINE
     INSERT-WINDOW-LINE HIGHLIGHT-ON HIGHLIGHT-OFF WINDOW-CURSOR-ON
     WINDOW-CURSOR-OFF WITH-WINDOW *WINDOW* READ-KEYBOARD-CHAR *NEW-WINDOW*
  ))
#Y(#:TOP-LEVEL-FORM-3 #15Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 19 01)
   (SPECIAL *WINDOW*)
  )
#Y(#:TOP-LEVEL-FORM-4
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   READ-KEYBOARD-CHAR SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(READ-KEYBOARD-CHAR
      #18Y(00 00 00 00 01 00 00 00 00 02 6B 00 38 03 31 77 19 02)
      *KEYBOARD-INPUT*
  )  )
#Y(#:TOP-LEVEL-FORM-5
   #32Y(00 00 00 00 00 00 00 00 00 01 DA 8D 5D 0B 63 DA 71 4D 8C FE 04 DA DB 30
        02 DA 63 32 80 C5 19 01
       )
   *NEW-WINDOW* (DEFCONSTANT *NEW-WINDOW* NIL) SYSTEM::CONSTANT-WARNING
  )
#Y(#:TOP-LEVEL-FORM-6
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F C5 19 01)
   WITH-WINDOW SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
   #Y(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
          )
      LET ((*WINDOW* (MAKE-WINDOW))) UNWIND-PROTECT PROGN ((CLOSE *WINDOW*))
  )  )
