(SYSTEM::VERSION '(SYSTEM::CLISP2 6. LISP:NIL 101293.))
#Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D8 37 02 30 E1 19 01) "LISP")
#Y(#:TOP-LEVEL-FORM-2 #13Y(00 00 00 00 00 01 D8 37 01 30 D8 19 01)
   (EDITOR ED *USE-ED*)
  )
#Y(#:TOP-LEVEL-FORM-3 #17Y(00 00 00 00 00 01 D8 6A 01 37 03 30 B9 0F 01 19 01)
   EDITOR *FEATURES*
  )
#Y(#:TOP-LEVEL-FORM-4 #13Y(00 00 00 00 00 01 D8 37 02 30 E1 19 01) "EDITOR")
#Y(#:TOP-LEVEL-FORM-5 #12Y(00 00 00 00 00 01 D8 30 5B C4 19 01)
   (SPECIAL *WINDOW*) *WINDOW*
  )
#Y(#:TOP-LEVEL-FORM-6 #12Y(00 00 00 00 00 01 D8 30 5B C4 19 01)
   (SPECIAL GLOBAL-SCREEN-HEIGHT) GLOBAL-SCREEN-HEIGHT
  )
#Y(#:TOP-LEVEL-FORM-7 #12Y(00 00 00 00 00 01 D8 30 5B C4 19 01)
   (SPECIAL GLOBAL-SCREEN-WIDTH) GLOBAL-SCREEN-WIDTH
  )
#Y(#:TOP-LEVEL-FORM-8 #12Y(00 00 00 00 00 01 D8 30 5B C4 19 01)
   (SPECIAL BLANKS) BLANKS
  )
#Y(#:TOP-LEVEL-FORM-9
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 C3 19 01) WITH-WINDOW
   SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
   #Y(WITH-WINDOW
      #28Y(01 00 01 00 00 08 94 02 D8 D9 DA DB DC DD D8 DE A3 7B 02 7A 04 CA 7B
           02 60 03 19 04
          )
      LET ((*WINDOW* (SCREEN:MAKE-WINDOW))) UNWIND-PROTECT MULTIPLE-VALUE-BIND
      (GLOBAL-SCREEN-HEIGHT GLOBAL-SCREEN-WIDTH) (SCREEN:WINDOW-SIZE *WINDOW*)
      ((BLANKS (MAKE-STRING GLOBAL-SCREEN-WIDTH :INITIAL-ELEMENT #\Space)))
      ((CLOSE *WINDOW*))
  )  )
#Y(#:TOP-LEVEL-FORM-10
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 C3 19 01) BELL
   SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
   #Y(BELL
      #22Y(01 00 01 00 00 08 AC 71 45 D8 8F 01 30 03 C5 19 03 AC 2E 01 19 03)
      1. SYSTEM::MACRO-CALL-ERROR (WRITE-CHAR #\Bell *TERMINAL-IO*)
  )  )
#Y(#:TOP-LEVEL-FORM-11
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 C3 19 01)
   SCREEN-SET-CURSOR SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
   #Y(SCREEN-SET-CURSOR
      #34Y(01 00 01 00 00 08 AC 71 45 D8 8F 01 2E 0F 9D 5B 77 9E 5B 5B 77 DA DB
           AD AD 60 04 19 05 AC 2E 01 19 03
          )
      3. SYSTEM::MACRO-CALL-ERROR SCREEN:SET-WINDOW-CURSOR-POSITION *WINDOW*
  )  )
#Y(#:TOP-LEVEL-FORM-12
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 C3 19 01) SCREEN-HOME
   SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
   #Y(SCREEN-HOME
      #22Y(01 00 01 00 00 08 AC 71 45 D8 8F 01 30 03 C5 19 03 AC 2E 01 19 03)
      1. SYSTEM::MACRO-CALL-ERROR (SCREEN-SET-CURSOR 0. 0.)
  )  )
#Y(#:TOP-LEVEL-FORM-13
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 C3 19 01)
   SCREEN-CLEAR-SCREEN SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
   #Y(SCREEN-CLEAR-SCREEN
      #22Y(01 00 01 00 00 08 AC 71 45 D8 8F 01 30 03 C5 19 03 AC 2E 01 19 03)
      1. SYSTEM::MACRO-CALL-ERROR (SCREEN:CLEAR-WINDOW *WINDOW*)
  )  )
#Y(#:TOP-LEVEL-FORM-14
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 C3 19 01)
   SCREEN-CLEAR-END-OF-SCREEN SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
   #Y(SCREEN-CLEAR-END-OF-SCREEN
      #22Y(01 00 01 00 00 08 AC 71 45 D8 8F 01 30 03 C5 19 03 AC 2E 01 19 03)
      1. SYSTEM::MACRO-CALL-ERROR (SCREEN:CLEAR-WINDOW-TO-EOT *WINDOW*)
  )  )
#Y(#:TOP-LEVEL-FORM-15
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 C3 19 01)
   SCREEN-CLEAR-END-OF-LINE SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
   #Y(SCREEN-CLEAR-END-OF-LINE
      #22Y(01 00 01 00 00 08 AC 71 45 D8 8F 01 30 03 C5 19 03 AC 2E 01 19 03)
      1. SYSTEM::MACRO-CALL-ERROR (SCREEN:CLEAR-WINDOW-TO-EOL *WINDOW*)
  )  )
#Y(#:TOP-LEVEL-FORM-16
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 C3 19 01)
   SCREEN-INSERT-LINE SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
   #Y(SCREEN-INSERT-LINE
      #22Y(01 00 01 00 00 08 AC 71 45 D8 8F 01 30 03 C5 19 03 AC 2E 01 19 03)
      1. SYSTEM::MACRO-CALL-ERROR (SCREEN:INSERT-WINDOW-LINE *WINDOW*)
  )  )
#Y(#:TOP-LEVEL-FORM-17
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 C3 19 01)
   SCREEN-DELETE-LINE SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
   #Y(SCREEN-DELETE-LINE
      #22Y(01 00 01 00 00 08 AC 71 45 D8 8F 01 30 03 C5 19 03 AC 2E 01 19 03)
      1. SYSTEM::MACRO-CALL-ERROR (SCREEN:DELETE-WINDOW-LINE *WINDOW*)
  )  )
#Y(#:TOP-LEVEL-FORM-18
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 C3 19 01) SCREEN-CURSOR-ON
   SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
   #Y(SCREEN-CURSOR-ON
      #22Y(01 00 01 00 00 08 AC 71 45 D8 8F 01 30 03 C5 19 03 AC 2E 01 19 03)
      1. SYSTEM::MACRO-CALL-ERROR (SCREEN:WINDOW-CURSOR-ON *WINDOW*)
  )  )
#Y(#:TOP-LEVEL-FORM-19
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 C3 19 01)
   SCREEN-CURSOR-OFF SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
   #Y(SCREEN-CURSOR-OFF
      #22Y(01 00 01 00 00 08 AC 71 45 D8 8F 01 30 03 C5 19 03 AC 2E 01 19 03)
      1. SYSTEM::MACRO-CALL-ERROR (SCREEN:WINDOW-CURSOR-OFF *WINDOW*)
  )  )
#Y(#:TOP-LEVEL-FORM-20
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 C3 19 01)
   SCREEN-REVERSE-ON SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
   #Y(SCREEN-REVERSE-ON
      #22Y(01 00 01 00 00 08 AC 71 45 D8 8F 01 30 03 C5 19 03 AC 2E 01 19 03)
      1. SYSTEM::MACRO-CALL-ERROR (SCREEN:HIGHLIGHT-ON *WINDOW*)
  )  )
#Y(#:TOP-LEVEL-FORM-21
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 C3 19 01)
   SCREEN-REVERSE-OFF SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
   #Y(SCREEN-REVERSE-OFF
      #22Y(01 00 01 00 00 08 AC 71 45 D8 8F 01 30 03 C5 19 03 AC 2E 01 19 03)
      1. SYSTEM::MACRO-CALL-ERROR (SCREEN:HIGHLIGHT-OFF *WINDOW*)
  )  )
#Y(#:TOP-LEVEL-FORM-22 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   GET-NEW-LINE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(GET-NEW-LINE #18Y(01 00 00 00 00 02 AB 63 37 06 C3 FB A4 F8 30 19 19 02)
      STRING-CHAR
  )  )
#Y(#:TOP-LEVEL-FORM-23 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   MAKE-EMPTY-TEXT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(MAKE-EMPTY-TEXT
      #29Y(00 00 01 00 00 07 3A 01 03 0E 00 F7 AB 63 37 06 C4 F8 70 19 D9 6E 02
           AB 30 16 15 19 02
          )
      GLOBAL-SCREEN-HEIGHT 0. GET-NEW-LINE
  )  )
#Y(#:TOP-LEVEL-FORM-24
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 C3 19 01) MAKE-MARK
   SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
   #Y(MAKE-MARK
      #33Y(01 00 01 00 00 08 AC 71 45 D8 8F 01 2E 0E 9D 5B 77 9E 5B 5B 77 DA AC
           AC 60 03 19 05 AC 2E 01 19 03
          )
      3. SYSTEM::MACRO-CALL-ERROR CONS
  )  )
#Y(#:TOP-LEVEL-FORM-25
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 C3 19 01) MARK-LIN
   SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
   #Y(MARK-LIN
      #28Y(01 00 01 00 00 08 AC 71 45 D8 8F 01 2E 09 9D 5B 77 DA AB 60 02 19 04
           AC 2E 01 19 03
          )
      2. SYSTEM::MACRO-CALL-ERROR CAR
  )  )
#Y(#:TOP-LEVEL-FORM-26
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 C3 19 01) MARK-COL
   SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
   #Y(MARK-COL
      #28Y(01 00 01 00 00 08 AC 71 45 D8 8F 01 2E 09 9D 5B 77 DA AB 60 02 19 04
           AC 2E 01 19 03
          )
      2. SYSTEM::MACRO-CALL-ERROR CDR
  )  )
#Y(#:TOP-LEVEL-FORM-27
   #684Y(00 00 00 00 00 01 00 2A 04 C3 0B 00 00 C4 0B 00 01 C5 0B 00 02 C6 0B
         00 03 DC 2E 05 DC AB 6C 06 01 31 78 DF E0 E1 63 DC E2 67 06 00 67 07
         01 67 08 02 67 09 03 72 08 00 31 7E 16 01 DF 2E 0B E4 30 5B E5 2E 05
         E5 E6 E7 31 7E E5 E8 31 78 E9 30 5B EA 30 5B EB 2E 05 EB E6 EC 31 7E
         EB ED 31 78 EE 30 5B EF 30 5B F0 2E 05 F0 E6 F1 31 7E F0 F2 31 78 F3
         30 5B F4 30 5B F5 2E 05 F5 E6 64 1E 31 7E F5 64 1F 31 78 64 20 30 5B
         64 21 30 5B 64 22 2E 05 64 22 E6 64 23 31 7E 64 22 64 24 31 78 64 25
         30 5B 64 26 30 5B 64 27 2E 05 64 27 E6 64 28 31 7E 64 27 64 29 31 78
         64 2A 30 5B 64 2B 30 5B 64 2C 2E 05 64 2C E6 64 2D 31 7E 64 2C 64 2E
         31 78 64 2F 30 5B 64 30 30 5B 64 31 2E 05 64 31 E6 64 32 31 7E 64 31
         64 33 31 78 64 34 30 5B 64 35 30 5B 64 36 2E 05 64 36 E6 64 37 31 7E
         64 36 64 38 31 78 64 39 30 5B 64 3A 30 5B 64 3B 2E 05 64 3B E6 64 3C
         31 7E 64 3B 64 3D 31 78 64 3E 30 5B 64 3F 30 5B 64 40 2E 05 64 40 E6
         64 41 31 7E 64 40 64 42 31 78 64 43 30 5B 64 44 30 5B 64 45 2E 05 64
         45 E6 64 46 31 7E 64 45 64 47 31 78 64 48 30 5B 64 49 30 5B 64 4A 2E
         05 64 4A E6 64 4B 31 7E 64 4A 64 4C 31 78 64 4D 30 5B 64 4E 30 5B 64
         4F 2E 05 64 4F E6 64 50 31 7E 64 4F 64 51 31 78 64 52 30 5B 64 53 30
         5B 64 54 2E 05 64 54 E6 64 55 31 7E 64 54 64 56 31 78 EB 64 57 64 58
         03 59 79 31 7E EB 64 5A 62 2C 03 5B F0 64 57 64 58 03 5C 79 31 7E F0
         64 5A 62 2C 03 5B F5 64 57 64 58 03 5D 79 31 7E F5 64 5A 62 2C 03 5B
         64 22 64 57 64 58 03 5E 79 31 7E 64 22 64 5A 62 2C 03 5B 64 27 64 57
         64 58 03 5F 79 31 7E 64 27 64 5A 62 2C 03 5B 64 2C 64 57 64 58 03 60
         79 31 7E 64 2C 64 5A 62 2C 03 5B 64 31 64 57 64 58 03 61 79 31 7E 64
         31 64 5A 62 2C 03 5B 64 36 64 57 64 58 03 62 79 31 7E 64 36 64 5A 62
         2C 03 5B 64 3B 64 57 64 58 03 63 79 31 7E 64 3B 64 5A 62 2C 03 5B 64
         40 64 57 64 58 03 64 79 31 7E 64 40 64 5A 62 2C 03 5B 64 45 64 57 64
         58 03 65 79 31 7E 64 45 64 5A 62 2C 03 5B 64 4A 64 57 64 58 03 66 79
         31 7E 64 4A 64 5A 62 2C 03 5B 64 4F 64 57 64 58 03 67 79 31 7E 64 4F
         64 5A 62 2C 03 5B 64 54 64 57 64 58 03 68 79 31 7E 64 54 64 5A 62 2C
         03 5B DF 64 69 62 2C 03 5B DF 64 6A 31 7F CA 19 01
        )
   #Y(DEFAULT-TEXT #10Y(00 00 00 00 00 01 2D 00 19 01) MAKE-EMPTY-TEXT)
   #Y(DEFAULT-MARKS #18Y(00 00 00 00 00 01 D8 63 37 06 C3 F8 7C 04 30 19 19 01)
      12.
     )
   #Y(DEFAULT-HEIGHT #10Y(00 00 00 00 00 01 0E 00 19 01) GLOBAL-SCREEN-HEIGHT)
   #Y(DEFAULT-WIDTH #10Y(00 00 00 00 00 01 0E 00 19 01) GLOBAL-SCREEN-WIDTH)
   MK-SCREEN SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(MK-SCREEN
      #193Y(00 00 00 00 80 1B 0E 00 01 00 3A 0E 07 68 00 01 35 00 09 0E 3A 0D
            03 D2 09 0D 3A 0C 03 D2 09 0C 3A 0B 03 D2 09 0B 3A 0A 07 68 00 02
            35 00 09 0A 3A 09 06 68 00 03 35 00 FF 3A 08 06 68 00 04 35 00 FE
            3A 07 02 D2 FD 3A 06 02 D2 FC 3C 05 3A 04 02 7D 04 3A 03 02 D2 F9
            3A 02 02 D2 F8 3A 01 02 D3 F7 E9 EA 71 30 EB AB EC BC 31 2F EB AB
            ED BB 31 2F EB AB EE BA 31 2F EB AB EF B9 31 2F EB AB F0 B8 31 2F
            EB AB F1 B7 31 2F EB AB F2 B6 31 2F EB AB F3 B5 31 2F EB AB F4 B4
            31 2F EB AB F5 B3 31 2F EB AB 64 1E B2 31 2F EB AB 64 1F B1 31 2F
            EB AB 64 20 B0 31 2F EB AB 64 21 AF 31 2F 15 19 0F
           )
      NIL :TEXT :LIN :COL :SAVED-COL :MARKS :HEIGHT :WIDTH :TOP-LIN :LEFT-COL
      :VISIBILITY :FULL? :PHYS-LEFT-COL :PHYS-TOP-LIN :TITLE 0. #1=""
      #2=(SCREEN) 15. SCREEN 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14.
     )
   SCREEN SYSTEM::DEFSTRUCT-DESCRIPTION #2#
   ((TEXT 1. (SVREF (GET 'SCREEN . #3=('SYSTEM::DEFSTRUCT-DESCRIPTION)) 4.) T
     NIL
    )
    (LIN 2. 0. INTEGER NIL) (COL 3. 0. INTEGER NIL)
    (SAVED-COL 4. 0. INTEGER NIL)
    (MARKS 5. (SVREF (GET 'SCREEN . #3#) 5.) T NIL)
    (HEIGHT 6. (SVREF (GET 'SCREEN . #3#) 6.) INTEGER NIL)
    (WIDTH 7. (SVREF (GET 'SCREEN . #3#) 7.) INTEGER NIL)
    (TOP-LIN 8. 0. INTEGER NIL) (LEFT-COL 9. 0. INTEGER NIL)
    (VISIBILITY 10. NIL VECTOR NIL) (FULL? 11. T T NIL)
    (PHYS-LEFT-COL 12. 0. INTEGER NIL) (PHYS-TOP-LIN 13. 0. INTEGER NIL)
    (TITLE 14. #1# STRING NIL)
   )
   CLOS::DEFINE-STRUCTURE-CLASS (INLINE SCREEN-P) SCREEN-P
   SYSTEM::INLINE-EXPANSION
   ((SYSTEM::OBJECT) (DECLARE (SYSTEM::IN-DEFUN SCREEN-P))
    (BLOCK SCREEN-P (SYSTEM::%STRUCTURE-TYPE-P 'SCREEN SYSTEM::OBJECT))
   )
   #Y(SCREEN-P #12Y(01 00 00 00 00 02 D8 AC 31 32 19 02) SCREEN)
   (FUNCTION SCREEN-TEXT (SCREEN) T) (INLINE SCREEN-TEXT) SCREEN-TEXT
   (#4=(SYSTEM::OBJECT) (DECLARE (SYSTEM::IN-DEFUN SCREEN-TEXT))
    (BLOCK SCREEN-TEXT
     (THE T (SYSTEM::%STRUCTURE-REF 'SCREEN SYSTEM::OBJECT 1.))
   ))
   #Y(SCREEN-TEXT #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02) SCREEN 1.)
   (FUNCTION SCREEN-LIN (SCREEN) INTEGER) (INLINE SCREEN-LIN) SCREEN-LIN
   (#4# (DECLARE (SYSTEM::IN-DEFUN SCREEN-LIN))
    (BLOCK SCREEN-LIN
     (THE INTEGER (SYSTEM::%STRUCTURE-REF 'SCREEN SYSTEM::OBJECT 2.))
   ))
   #Y(SCREEN-LIN #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02) SCREEN 2.)
   (FUNCTION SCREEN-COL (SCREEN) INTEGER) (INLINE SCREEN-COL) SCREEN-COL
   (#4# (DECLARE (SYSTEM::IN-DEFUN SCREEN-COL))
    (BLOCK SCREEN-COL
     (THE INTEGER (SYSTEM::%STRUCTURE-REF 'SCREEN SYSTEM::OBJECT 3.))
   ))
   #Y(SCREEN-COL #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02) SCREEN 3.)
   (FUNCTION SCREEN-SAVED-COL (SCREEN) INTEGER) (INLINE SCREEN-SAVED-COL)
   SCREEN-SAVED-COL
   (#4# (DECLARE (SYSTEM::IN-DEFUN SCREEN-SAVED-COL))
    (BLOCK SCREEN-SAVED-COL
     (THE INTEGER (SYSTEM::%STRUCTURE-REF 'SCREEN SYSTEM::OBJECT 4.))
   ))
   #Y(SCREEN-SAVED-COL #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02) SCREEN 4.)
   (FUNCTION SCREEN-MARKS (SCREEN) T) (INLINE SCREEN-MARKS) SCREEN-MARKS
   (#4# (DECLARE (SYSTEM::IN-DEFUN SCREEN-MARKS))
    (BLOCK SCREEN-MARKS
     (THE T (SYSTEM::%STRUCTURE-REF 'SCREEN SYSTEM::OBJECT 5.))
   ))
   #Y(SCREEN-MARKS #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02) SCREEN 5.)
   (FUNCTION SCREEN-HEIGHT (SCREEN) INTEGER) (INLINE SCREEN-HEIGHT)
   SCREEN-HEIGHT
   (#4# (DECLARE (SYSTEM::IN-DEFUN SCREEN-HEIGHT))
    (BLOCK SCREEN-HEIGHT
     (THE INTEGER (SYSTEM::%STRUCTURE-REF 'SCREEN SYSTEM::OBJECT 6.))
   ))
   #Y(SCREEN-HEIGHT #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02) SCREEN 6.)
   (FUNCTION SCREEN-WIDTH (SCREEN) INTEGER) (INLINE SCREEN-WIDTH) SCREEN-WIDTH
   (#4# (DECLARE (SYSTEM::IN-DEFUN SCREEN-WIDTH))
    (BLOCK SCREEN-WIDTH
     (THE INTEGER (SYSTEM::%STRUCTURE-REF 'SCREEN SYSTEM::OBJECT 7.))
   ))
   #Y(SCREEN-WIDTH #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02) SCREEN 7.)
   (FUNCTION SCREEN-TOP-LIN (SCREEN) INTEGER) (INLINE SCREEN-TOP-LIN)
   SCREEN-TOP-LIN
   (#4# (DECLARE (SYSTEM::IN-DEFUN SCREEN-TOP-LIN))
    (BLOCK SCREEN-TOP-LIN
     (THE INTEGER (SYSTEM::%STRUCTURE-REF 'SCREEN SYSTEM::OBJECT 8.))
   ))
   #Y(SCREEN-TOP-LIN #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02) SCREEN 8.)
   (FUNCTION SCREEN-LEFT-COL (SCREEN) INTEGER) (INLINE SCREEN-LEFT-COL)
   SCREEN-LEFT-COL
   (#4# (DECLARE (SYSTEM::IN-DEFUN SCREEN-LEFT-COL))
    (BLOCK SCREEN-LEFT-COL
     (THE INTEGER (SYSTEM::%STRUCTURE-REF 'SCREEN SYSTEM::OBJECT 9.))
   ))
   #Y(SCREEN-LEFT-COL #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02) SCREEN 9.)
   (FUNCTION SCREEN-VISIBILITY (SCREEN) VECTOR) (INLINE SCREEN-VISIBILITY)
   SCREEN-VISIBILITY
   (#4# (DECLARE (SYSTEM::IN-DEFUN SCREEN-VISIBILITY))
    (BLOCK SCREEN-VISIBILITY
     (THE VECTOR (SYSTEM::%STRUCTURE-REF 'SCREEN SYSTEM::OBJECT 10.))
   ))
   #Y(SCREEN-VISIBILITY #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02) SCREEN 10.
     )
   (FUNCTION SCREEN-FULL? (SCREEN) T) (INLINE SCREEN-FULL?) SCREEN-FULL?
   (#4# (DECLARE (SYSTEM::IN-DEFUN SCREEN-FULL?))
    (BLOCK SCREEN-FULL?
     (THE T (SYSTEM::%STRUCTURE-REF 'SCREEN SYSTEM::OBJECT 11.))
   ))
   #Y(SCREEN-FULL? #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02) SCREEN 11.)
   (FUNCTION SCREEN-PHYS-LEFT-COL (SCREEN) INTEGER)
   (INLINE SCREEN-PHYS-LEFT-COL) SCREEN-PHYS-LEFT-COL
   (#4# (DECLARE (SYSTEM::IN-DEFUN SCREEN-PHYS-LEFT-COL))
    (BLOCK SCREEN-PHYS-LEFT-COL
     (THE INTEGER (SYSTEM::%STRUCTURE-REF 'SCREEN SYSTEM::OBJECT 12.))
   ))
   #Y(SCREEN-PHYS-LEFT-COL #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02) SCREEN
      12.
     )
   (FUNCTION SCREEN-PHYS-TOP-LIN (SCREEN) INTEGER) (INLINE SCREEN-PHYS-TOP-LIN)
   SCREEN-PHYS-TOP-LIN
   (#4# (DECLARE (SYSTEM::IN-DEFUN SCREEN-PHYS-TOP-LIN))
    (BLOCK SCREEN-PHYS-TOP-LIN
     (THE INTEGER (SYSTEM::%STRUCTURE-REF 'SCREEN SYSTEM::OBJECT 13.))
   ))
   #Y(SCREEN-PHYS-TOP-LIN #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02) SCREEN
      13.
     )
   (FUNCTION SCREEN-TITLE (SCREEN) STRING) (INLINE SCREEN-TITLE) SCREEN-TITLE
   (#4# (DECLARE (SYSTEM::IN-DEFUN SCREEN-TITLE))
    (BLOCK SCREEN-TITLE
     (THE STRING (SYSTEM::%STRUCTURE-REF 'SCREEN SYSTEM::OBJECT 14.))
   ))
   #Y(SCREEN-TITLE #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02) SCREEN 14.)
   SYSTEM::SETF-EXPANDER -1.
   #Y(SETF-SCREEN-TEXT
      #18Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SCREEN 1.
     )
   SETF SYSTEM::%SET-DOCUMENTATION
   #Y(SETF-SCREEN-LIN
      #22Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA DB DC B2 7A 03 60 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SCREEN 2. THE INTEGER
     )
   #Y(SETF-SCREEN-COL
      #22Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA DB DC B2 7A 03 60 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SCREEN 3. THE INTEGER
     )
   #Y(SETF-SCREEN-SAVED-COL
      #22Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA DB DC B2 7A 03 60 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SCREEN 4. THE INTEGER
     )
   #Y(SETF-SCREEN-MARKS
      #18Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SCREEN 5.
     )
   #Y(SETF-SCREEN-HEIGHT
      #22Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA DB DC B2 7A 03 60 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SCREEN 6. THE INTEGER
     )
   #Y(SETF-SCREEN-WIDTH
      #22Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA DB DC B2 7A 03 60 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SCREEN 7. THE INTEGER
     )
   #Y(SETF-SCREEN-TOP-LIN
      #22Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA DB DC B2 7A 03 60 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SCREEN 8. THE INTEGER
     )
   #Y(SETF-SCREEN-LEFT-COL
      #22Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA DB DC B2 7A 03 60 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SCREEN 9. THE INTEGER
     )
   #Y(SETF-SCREEN-VISIBILITY
      #22Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA DB DC B2 7A 03 60 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SCREEN 10. THE VECTOR
     )
   #Y(SETF-SCREEN-FULL?
      #18Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SCREEN 11.
     )
   #Y(SETF-SCREEN-PHYS-LEFT-COL
      #22Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA DB DC B2 7A 03 60 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SCREEN 12. THE INTEGER
     )
   #Y(SETF-SCREEN-PHYS-TOP-LIN
      #22Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA DB DC B2 7A 03 60 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SCREEN 13. THE INTEGER
     )
   #Y(SETF-SCREEN-TITLE
      #22Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA DB DC B2 7A 03 60 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SCREEN 14. THE STRING
     )
   STRUCTURE SYSTEM::STRUCTURE-PRINT
  )
#Y(#:TOP-LEVEL-FORM-28 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   MAKE-SCREEN SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(MAKE-SCREEN
      #270Y(00 00 00 00 80 1B 05 00 00 00 3C 05 3C 04 3C 03 3C 02 3A 01 80 D3
            7C 01 92 05 80 D1 DD 91 06 80 6F DE 6A 07 E0 72 02 37 37 01 71 AA
            32 02 35 14 81 01 33 05 E1 91 05 80 64 DE 6A 0A E3 71 C8 32 02 35
            14 81 01 33 04 91 02 80 5F DD 6A 07 B1 72 01 36 E3 71 C8 81 01 33
            02 91 03 80 6D DD 6A 0A B0 72 01 36 E3 71 C8 81 01 33 03 D8 B0 D9
            B1 E4 62 DC 91 08 01 D0 14 E6 B6 E7 B7 E8 BC 6E 11 EA EB BF 72 02
            35 37 07 7C 04 70 19 2C 10 14 19 06 14 DE 6A 07 72 02 35 32 01 34
            1A FF 92 14 DE 6A 0A 72 02 35 32 01 34 1A FF 98 DD AD 72 01 33 6A
            07 DD DD 72 02 36 81 01 34 02 AF 6A 07 DD AF 72 02 36 81 01 34 05
            92 03 FF 93 DD AE 72 01 33 6A 0A DD E1 72 02 36 81 01 34 03 AE 6A
            0A DD B0 72 02 36 81 01 34 04 1A FF 82 91 05 FF 2F 91 04 FF 2B 91
            03 FF 27 91 02 FF 23 91 01 FF 1F EA EB 6A 07 72 02 35 37 07 7C 04
            70 19 2F 14 19 06
           )
      :HEIGHT :WIDTH :LEFT-COL :TOP-LIN :TITLE 1. -2. GLOBAL-SCREEN-HEIGHT
      0.67s0 10. GLOBAL-SCREEN-WIDTH -1. :FULL? "" :PHYS-LEFT-COL :PHYS-TOP-LIN
      :TEXT MAKE-EMPTY-TEXT :VISIBILITY 2. MK-SCREEN
  )  )
#Y(#:TOP-LEVEL-FORM-29 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   RESIZE-ARRAY SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(RESIZE-ARRAY
      #40Y(02 00 01 00 00 09 3A 01 02 C3 F7 AD D9 70 04 AD 8F 01 32 0E AD AD AD
           72 02 35 37 06 A5 F8 30 1A 19 04 AD AD 30 15 19 04
          )
      10. 0.
  )  )
#Y(#:TOP-LEVEL-FORM-30 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   SHRINK-ARRAY SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SHRINK-ARRAY
      #46Y(02 00 00 00 00 03 AC 70 14 AA AD 72 01 36 AE AB 30 15 AE 70 02 02 21
           03 00 19 05 AA 1A 08 AF AB 62 32 01 02 84 00 AA AD 8E 01 73 00 19 06
  )  )    )
#Y(#:TOP-LEVEL-FORM-31 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   DISPLAY-BLANKS SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(DISPLAY-BLANKS
      #40Y(02 00 00 00 00 03 AB AD 72 01 36 AA D8 90 01 30 06 AC 6A 01 8D 01 0B
           6A 04 6A 02 37 01 AD 30 8B 19 04 6A 02 2E 03 19 04
          )
      3. GLOBAL-SCREEN-WIDTH *WINDOW* SCREEN:CLEAR-WINDOW-TO-EOL BLANKS
  )  )
#Y(#:TOP-LEVEL-FORM-32 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   DISPLAY-LINE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(DISPLAY-LINE
      #145Y(05 00 00 00 00 06 AF 71 45 AD 90 01 30 80 5E AF 71 45 AC 72 01 34
            92 05 80 5A 92 04 80 56 AE AE 8F 01 31 80 4F AF AB 8F 01 32 80 48
            AF AE 90 01 31 07 AA AF 8F 01 31 80 41 AF AE 81 01 33 05 AE AB 81
            01 34 04 B0 6A 01 AF B2 30 8B 6A 01 2E 02 B0 6A 01 B1 B1 30 8B 6A
            01 2E 03 B0 6A 01 A1 14 AD 30 8B AA B1 71 45 8D 01 21 00 19 07 AC
            AC 2F 00 00 19 06 B0 6A 01 A0 1A 65 6A 01 2E 02 B0 6A 01 AF AD 30
            8B 6A 01 2E 03 1A 58 AA AD 2F 00 19 07
           )
      DISPLAY-BLANKS *WINDOW* SCREEN:HIGHLIGHT-ON SCREEN:HIGHLIGHT-OFF
  )  )
#Y(#:TOP-LEVEL-FORM-33
   #19Y(00 00 00 00 00 01 D8 2E 01 D8 62 6C 02 01 31 78 C3 19 01)
   SHOW-SCREEN-LINE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SHOW-SCREEN-LINE
      #386Y(04 00 00 00 00 05 D9 AF DA 71 2E D9 B0 DB 71 2E D9 B1 DC 71 2E D9
            B2 DD 71 2E D9 B3 DE 8D 2E 80 BB B0 E0 81 01 33 06 AF AD 31 8D 14
            81 01 34 05 AF B1 90 01 30 81 48 D9 B3 DE 8D 2E 80 A9 E0 B2 AF 90
            02 31 81 39 6A 09 AB B3 72 02 35 AD B3 72 02 35 2C 03 0A B1 23 08
            80 A2 B1 AE 8D 01 80 C6 D9 B3 EA 71 2E B2 D9 B5 EB 71 2E 72 02 35
            D9 B5 EC 71 2E AB AD 71 45 8F 01 2F 80 CB 03 15 14 D9 B7 EE 71 2E
            AA DF 72 01 01 AB EA 72 01 01 B7 24 08 08 EF 6A 09 30 8A CA 09 0D
            AD 92 02 0F 77 B1 8D 01 80 AB 93 02 B1 8F 01 2F 80 A8 00 14 92 02
            0F 77 B2 8D 01 80 A1 93 02 B2 8F 01 30 80 9E 00 14 B1 BB 72 02 35
            B2 BB B9 72 01 34 72 02 35 2C 05 18 B6 95 0A 8D 01 80 8A 00 19 10
            B0 DF 81 01 33 06 AF 9E 1A FF 44 E0 B2 AF 90 02 2F 80 90 1A FF 54
            62 E5 B0 E6 AF 2C 05 0F 1A 15 D9 B3 E3 71 2E E4 70 4C AB 71 45 AF
            8F 01 2F 66 AB DF B0 31 43 14 E4 70 4C 72 03 13 AA 6A 09 95 0A 95
            0A 30 8B 19 0B 9E 1A 13 B0 24 08 07 E8 6A 09 30 8A CA FC DF B0 95
            04 8D 01 6B A1 14 B2 72 01 36 1A 31 E8 6A 09 30 8A 19 09 AC AC 32
            01 01 1A FF 2F 9D 5B 1A FF 59 CA 1A FF 55 9D 5B 1A FF 63 AF 31 45
            1A FF 5D EF 6A 09 30 8A 19 10 E9 6A 09 30 8A 84 01 AB AB 90 01 32
            73 16 02 AF 95 03 8D 01 41 00 19 09
           )
      NIL SCREEN 6. 7. 12. 13. 11. 0. -1. *WINDOW*
      SCREEN:SET-WINDOW-CURSOR-POSITION 14. #\# "~V,,0,V:@<~A~>" #\= FORMAT #\+
      #\- 1. 8. 9. "" 5. #\| DISPLAY-LINE
  )  )
#Y(#:TOP-LEVEL-FORM-34 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   SHOW-SCREEN-LINE-V SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SHOW-SCREEN-LINE-V
      #100Y(04 00 00 00 00 05 D8 AF D9 71 2E D8 B0 DA 71 2E D8 B1 DB 71 2E AF
            DC 81 01 33 05 AE AC 81 01 34 04 AF AF 90 01 2F 07 DD B1 AE 8F 02
            2F 03 00 19 08 AA 95 07 72 01 01 62 1A 23 86 01 00 78 B2 90 01 30
            18 93 00 B1 90 01 2F 11 B3 B3 B3 93 03 72 01 33 B3 94 04 72 01 34
            2C 04 06 82 01 AB 8C 94 59 00 19 0A
           )
      SCREEN 6. 7. 10. 0. -1. SHOW-SCREEN-LINE
  )  )
#Y(#:TOP-LEVEL-FORM-35 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   DISPLAY-SCREEN SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(DISPLAY-SCREEN
      #45Y(01 00 02 00 00 0D 3A 02 02 C3 F8 3A 01 06 D9 AE DA 80 2E 01 D9 AE DB
           71 2E AD 1A 09 AF AB D8 AE 2C 04 04 84 00 AA AE 8E 01 72 02 19 06
          )
      0. SCREEN 6. 7. SHOW-SCREEN-LINE-V
  )  )
#Y(#:TOP-LEVEL-FORM-36 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   UPDATE-VISIBILITY-LIST-1 SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(UPDATE-VISIBILITY-LIST-1
      #113Y(03 00 00 00 00 04 00 2A 02 7E 03 00 00 7E 02 00 01 AA 6C 00 01 AF
            37 05 80 50 04 AA 6C 01 01 AF 37 01 70 B6 AB 6C 02 01 B0 37 01 70
            B6 92 01 07 92 00 04 AB 9C 21 11 91 01 2C 92 00 06 77 67 03 01 30
            AA 16 02 9F 19 05 67 02 01 93 02 94 00 67 05 00 AC AB 30 AC 9C 16
            03 79 AA 9E 5B 79 AD AB 30 AC 16 02 1A 5D 77 67 03 00 30 AC 92 00
            54 1A 4C
           )
      #Y(UPDATE-VISIBILITY-LIST-1-1
         #28Y(01 00 00 00 00 02 68 00 01 93 02 32 01 31 1E 0A 94 01 68 00 02 32
              01 31 19 02 19 02
             )
         NIL
        )
      #Y(UPDATE-VISIBILITY-LIST-1-2
         #18Y(01 00 00 00 00 02 93 01 68 00 01 94 03 32 02 2F 19 02) NIL
        )
      #Y(UPDATE-VISIBILITY-LIST-1-3
         #18Y(01 00 00 00 00 02 93 01 68 00 02 94 03 32 02 2F 19 02) NIL
  )  )  )
#Y(#:TOP-LEVEL-FORM-37 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   UPDATE-VISIBILITY-LIST-2 SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(UPDATE-VISIBILITY-LIST-2
      #94Y(03 00 00 00 00 04 62 AE 92 00 14 AD 9C 5A 77 8F 01 31 0C AA 94 01 9C
           F9 9B F8 16 02 91 00 6C 92 00 21 AD 9C 5A 77 8F 01 2F 19 93 00 AF 30
           AA 92 01 19 9C 5A 78 AF 8D 01 16 AB 9C 14 30 AC 16 02 9E 19 04 AE 9F
           79 83 00 91 01 67 9B FB 1A 6F 9B 5A 78 93 02 AB 30 AC 16 01 AB 9C 5B
           1A 5D
  )  )    )
#Y(#:TOP-LEVEL-FORM-38 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   UPDATE-VISIBILITY SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(UPDATE-VISIBILITY
      #118Y(05 00 00 00 00 06 D8 B0 D9 71 2E D8 B1 DA 71 2E D8 B2 DB 71 2E DC
            B2 AE 72 01 36 72 01 33 D8 B4 DD 71 2E 71 8D B2 AF 72 01 36 72 01
            34 DC B2 AF 72 01 36 72 01 33 D8 B6 DE 71 2E 71 8D B2 B0 72 01 36
            72 01 34 AC AE 90 01 30 06 AA AC 8F 01 30 03 00 19 0D 95 03 95 03
            1A 14 B0 AC 72 01 01 AE AE 6D 03 07 B1 AD AC 32 01 02 16 01 84 01
            AB AB 8E 01 67 00 19 0F
           )
      SCREEN 13. 12. 10. -1. 6. 7. UPDATE-VISIBILITY-LIST-1
  )  )
#Y(#:TOP-LEVEL-FORM-39 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   SHOW-NEWLY-VISIBLE-LINE-PARTS SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SHOW-NEWLY-VISIBLE-LINE-PARTS
      #161Y(04 00 00 00 00 05 91 04 80 4C 00 19 05 B1 B7 B0 B2 32 02 35 1A 80
            83 95 02 AE 95 04 72 01 01 DE AE 72 01 33 B2 AE 72 01 34 6D 03 08
            AF AC AC 32 01 02 16 02 AB DE 90 01 2F 07 B1 B7 B7 96 07 27 11 B2
            AD AD AD 2C 04 09 AA B0 8F 01 30 FF BE 00 19 0E 92 04 FF B4 93 04
            94 05 D8 AC D9 71 2E D8 AD DA 71 2E 71 8D D8 AE DB 71 2E D8 AF DC
            71 2E B3 D8 B1 DD 71 2E 72 01 36 B3 AD 72 01 36 B3 AE 72 01 36 DE
            AD B2 90 02 31 0D DF AB 90 01 31 07 AB B0 8F 01 2F FF 80 B1 B7 A8
            14 B7 28 04 12 FF B1
           )
      SCREEN 6. 7. 12. 10. 13. -1. 0. UPDATE-VISIBILITY-LIST-2 SHOW-SCREEN-LINE
  )  )
#Y(#:TOP-LEVEL-FORM-40
   #20Y(00 00 00 00 00 01 D8 30 5B D9 8B 50 04 D9 62 30 53 C4 19 01)
   (SPECIAL *SCREENS*) *SCREENS*
  )
#Y(#:TOP-LEVEL-FORM-41 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   SET-CURSOR SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SET-CURSOR
      #77Y(02 00 01 00 00 09 3B 01 14 3A 02 06 D8 AF D9 80 2E 02 D8 AF DA 71 2E
           AA 71 45 DB B0 96 02 72 01 34 81 01 33 05 DB AF AD B2 72 01 01 71 45
           72 01 34 81 01 33 04 D8 B1 DC B2 31 2F D8 B1 DD B1 31 2F 92 02 06 D8
           B1 D9 B1 31 2F 02 19 07
          )
      SCREEN 4. 1. 0. 2. 3.
  )  )
#Y(#:TOP-LEVEL-FORM-42 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   SCROLL-VERTICAL SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SCROLL-VERTICAL
      #184Y(02 00 01 00 00 09 3C 01 D8 AE D9 71 2E AA 71 45 D8 B0 DA 71 2E 92
            04 0C B0 D8 B2 DB 71 2E B1 72 02 35 2F 04 AA 72 00 36 B0 AD D9 AE
            72 02 36 72 01 34 81 01 33 05 AA B0 72 02 35 D8 B2 DA AD 31 2F 16
            01 AF 23 05 2A AF 71 95 DE 8F 01 30 25 D8 B1 DF 8E 2E 1F 0E 08 1C
            1B B0 0E 08 5A 22 15 AF 8D 89 16 6A 0A DD DD 2C 03 0B DD B0 72 00
            36 1A 34 A1 19 07 B0 2E 09 19 07 6A 0A DD DD 2C 03 0B DD 1A 06 6A
            0A 2E 0C 84 00 AA B1 90 01 32 74 16 01 B0 D8 B2 E5 71 2E B1 72 01
            36 2F 09 19 07 6A 0A 2E 0E 84 01 AB AB 90 01 32 74 16 02 B0 DD B1
            72 00 36 2C 03 09 19 07
           )
      SCREEN 1. 8. 2. SET-CURSOR 0. 10. 11. *SCREENS* DISPLAY-SCREEN *WINDOW*
      SCREEN:SET-WINDOW-CURSOR-POSITION SCREEN:DELETE-WINDOW-LINE 6.
      SCREEN:INSERT-WINDOW-LINE
  )  )
#Y(#:TOP-LEVEL-FORM-43 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   SCROLL-HORIZONTAL SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SCROLL-HORIZONTAL
      #49Y(02 00 00 00 00 03 D8 AD D9 71 2E AA AD 72 02 35 8E 8A 05 AA 81 00 36
           02 AC 23 02 12 AA AD 72 02 35 D8 AF D9 AD 31 2F 16 01 AD 2E 03 19 04
           9E 19 04
          )
      SCREEN 9. 0. DISPLAY-SCREEN
  )  )
#Y(#:TOP-LEVEL-FORM-44 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   SET-CURSOR-VISIBLE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SET-CURSOR-VISIBLE
      #301Y(01 00 01 00 00 08 3C 01 D8 AD D9 71 2E D8 AE DA 71 2E D8 AF DB 71
            2E D8 B0 DC 71 2E D8 B1 DD 71 2E D8 B2 DE 71 2E AC 23 07 33 AC 31
            8D 14 AF E0 AF AE 72 03 35 90 02 31 80 71 AF AE 8F 01 2F 26 AF AE
            AD 72 02 35 90 01 32 80 A0 B2 B0 E1 B0 91 0B 21 A0 14 32 03 36 14
            2F 0A 1A 80 8E CA 1A 4D AE E1 31 C8 1A 07 B2 B0 AF 91 0A 74 CA 14
            32 02 36 1A 64 AF E1 31 C8 1A 5A AD E1 31 C8 1A 1A E4 AE 32 02 35
            1A 13 B2 AF AE 91 0A 6D AD E3 8F 01 2F 67 B1 B0 8F 01 31 67 D0 14
            72 02 36 2F 0E 1A 80 49 CA 1A 28 AB E1 31 C8 1A 1E AD B0 E1 B0 AF
            72 03 35 8F 02 31 4F AE 96 01 8F 01 2F 64 AE 91 08 63 AB E3 8F 01
            2F 5D D0 14 32 01 36 14 DF B1 AE E1 71 C8 72 01 36 72 01 33 D8 B5
            DC AE 31 2F D8 B5 DB AD 31 2F B4 2E 0F 16 02 16 06 0E 10 1C 39 AC
            0E 10 5A 22 33 6A 11 D8 AE D9 71 2E D8 AF DB 71 2E 72 01 36 D8 AF
            EA 71 2E 72 02 35 D8 AF DA 71 2E D8 B0 DC 71 2E 72 01 36 D8 B0 EB
            71 2E 72 02 35 2C 03 14 6A 11 2E 15 02 19 03
           )
      SCREEN 2. 3. 8. 9. 6. 7. 0. -2. -1. SCROLL-VERTICAL 40. -20. 20.
      SCROLL-HORIZONTAL DISPLAY-SCREEN *SCREENS* *WINDOW* 13. 12.
      SCREEN:SET-WINDOW-CURSOR-POSITION SCREEN:WINDOW-CURSOR-ON
  )  )
#Y(#:TOP-LEVEL-FORM-45 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   REFRESH-LINE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(REFRESH-LINE
      #36Y(03 00 00 00 00 04 AD AD D8 B0 D9 71 2E 72 01 36 AD D8 B1 DA 71 2E 72
           01 36 D8 B1 DB 71 2E 2C 04 04 02 19 04
          )
      SCREEN 8. 9. 7. SHOW-SCREEN-LINE-V
  )  )
#Y(#:TOP-LEVEL-FORM-46 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   REFRESH-SCREEN SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(REFRESH-SCREEN
      #259Y(03 00 01 00 00 0A 3A 01 02 C3 F7 D9 AF DA 71 2E D9 B0 DB 71 2E AB
            AB 72 02 35 B0 8F 01 31 22 AE AC 8F 01 31 1F AD 71 95 DC 8F 01 30
            11 D9 B1 DD 8E 2E 0B 0E 06 1C 07 B0 0E 06 5A 21 80 8B B0 2E 07 02
            19 07 AB AE 72 02 35 D9 B2 DA AD 31 2F 16 01 1A 6E 6A 08 AB D8 2C
            03 09 D8 AF 72 00 36 1A 06 6A 08 2E 0A 84 01 AB AB 90 01 32 74 16
            03 1A 80 6E AE AC AF 72 01 36 81 01 33 04 14 AE 72 02 35 AC 72 01
            36 AA AF 72 01 36 AC 8F 01 2F 44 16 01 1A 80 4C B1 9C 1A 28 AA AF
            72 02 35 AC 8F 01 32 72 6A 08 AB D8 2C 03 09 D8 1A 06 6A 08 2E 0B
            84 00 AA B0 90 01 32 74 16 01 B1 AC B0 32 01 36 14 AD 2C 03 07 16
            01 1A 17 AD 8D 8A FF A4 AD 8E 89 0E AE AC 72 01 36 AA AC 8F 01 2F
            FF BA 16 01 D8 B0 AD 72 01 36 72 01 33 AF AD 72 01 36 AC 72 01 34
            AB AB 90 01 2F 06 B2 AC AC 2C 03 07 16 04 02 19 05
           )
      0. SCREEN 8. 6. 10. 11. *SCREENS* DISPLAY-SCREEN *WINDOW*
      SCREEN:SET-WINDOW-CURSOR-POSITION SCREEN:INSERT-WINDOW-LINE
      SCREEN:DELETE-WINDOW-LINE
  )  )
#Y(#:TOP-LEVEL-FORM-47 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   HIDE-SCREEN SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(HIDE-SCREEN
      #117Y(01 00 00 00 00 02 D8 D9 AD DA 71 2E 72 02 35 D9 AD DB 71 2E D9 AE
            DC 71 2E D9 AF DD 71 2E AF 6A 06 DF 37 02 70 B5 92 00 80 46 E0 96
            04 1A 2F AD AC 72 01 01 62 1A 17 86 01 00 94 04 AD B2 93 03 72 02
            35 B3 94 04 72 02 35 2C 04 09 82 01 AB 8C 94 65 16 02 AD AC 62 32
            01 02 84 01 84 00 AB B1 8E 01 4C 16 02 B0 6A 06 37 07 CA F8 31 4F
            0F 06 0E 06 5A 19 07
           )
      2. SCREEN 6. 13. 12. 10. *SCREENS* #.#'EQ 0.
      SHOW-NEWLY-VISIBLE-LINE-PARTS
  )  )
#Y(#:TOP-LEVEL-FORM-48 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   ACTIVATE-SCREEN SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(ACTIVATE-SCREEN
      #220Y(01 00 00 00 00 02 D8 AC D9 71 2E D8 AD DA 71 2E D8 AE DB 71 2E D8
            AF DC 71 2E AB AE 72 02 35 AB AE 72 02 35 D8 B2 DD 71 2E DE B0 0E
            07 1C 07 B4 0E 07 5A 21 80 A1 D8 B5 E0 8D 2E 0C 85 06 84 04 85 05
            84 03 85 01 84 00 6A 07 92 00 13 93 00 A7 21 0E 93 00 B2 B1 B3 B2
            2C 05 09 82 00 91 00 6D 16 01 B4 B5 6A 07 37 07 CD F8 31 4F 5C 0F
            07 D8 B5 E0 8D 2E 09 DE E4 B4 72 02 35 1A 80 51 DE 1A 24 AC 9D 79
            7A 01 AE 95 02 72 01 01 AB 8D 02 11 95 01 AF AB AD 32 01 02 16 01
            B6 AC AF AF 2C 04 0B 16 01 84 00 AA B4 90 01 32 56 16 01 1A 28 AD
            9E 79 7A 01 AF AD 72 01 01 AB 8D 02 0E AF AD AC 32 01 02 B7 96 03
            B0 B0 2C 04 0B 16 01 84 01 AB AB 90 01 32 5A 16 02 16 09 02 19 02
           )
      SCREEN 6. 7. 13. 12. 10. 0. *SCREENS* 11. UPDATE-VISIBILITY #.#'EQ
      SHOW-SCREEN-LINE 2.
  )  )
#Y(#:TOP-LEVEL-FORM-49 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   UPDATE-MARKS SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(UPDATE-MARKS
      #160Y(05 00 00 00 00 06 00 2A 04 7E 05 00 00 7E 04 00 01 7E 03 00 02 7E
            02 00 03 AA 6C 00 01 D9 B2 DA 71 2E D9 B3 DB 71 2E AB 67 04 00 8E
            01 07 AA 67 04 01 8D 01 22 AB AB 9F 33 41 02 D9 B6 DA AE 31 2F D9
            B6 DB AD 31 2F 16 02 16 02 D9 B2 DD 71 2E DE AB 71 45 1A 80 40 67
            03 02 D9 B5 DA AD 31 2F 16 01 67 03 03 D9 B5 DB AD 31 2F 16 01 67
            03 03 D9 B5 DC AD 31 2F 16 01 1A 4F AC AC 72 01 01 92 00 11 77 94
            01 A1 33 41 02 AC AC 30 AA AC AB 30 AC 16 02 16 01 84 01 AB AB 90
            01 32 5D 00 19 0B
           )
      #Y(UPDATE-MARKS-NEW-LIN-COL
         #200Y(02 00 00 00 00 03 68 00 01 68 00 03 8D 01 37 68 00 01 68 00 03
               8F 01 30 38 AC 68 00 01 8D 01 80 81 68 00 01 AD 90 01 2F 80 96
               AC 68 00 03 68 00 01 72 01 36 32 02 35 1A 80 87 68 00 02 AC 90
               01 2F 16 9D 1A 80 67 AC 68 00 01 8D 01 6D 9D 1A 80 70 AC 68 00
               03 8E 01 2C AC AC 68 00 04 32 01 34 1A 80 60 68 00 03 AC 68 00
               04 68 00 02 72 01 36 72 02 35 68 00 04 32 01 33 1A 80 47 68 00
               03 07 00 04 1A 3F AC 68 00 01 8D 01 58 68 00 03 AD 68 00 01 8F
               02 2F 66 68 00 01 AD 8F 01 2F FF 8B 9D 1A 1F AB 68 00 02 90 01
               30 13 07 00 03 14 AC 68 00 04 68 00 02 72 01 36 32 02 35 1A 06
               9D 1A 01 9D 14 9D 14 3F 02 19 03
              )
         NIL
        )
      SCREEN 2. 3. 4. 5. 0.
  )  )
#Y(#:TOP-LEVEL-FORM-50 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   SCROLL-SCREEN SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SCROLL-SCREEN #15Y(02 00 00 00 00 03 AC AC 63 2C 03 00 02 19 03)
      SCROLL-VERTICAL
  )  )
#Y(#:TOP-LEVEL-FORM-51
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 C3 19 01) DEFUN-DOC
   SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
   #Y(DEFUN-DOC
      #62Y(01 00 01 00 00 08 AC 71 45 D8 8F 01 2F 2B 9D 5B 77 9E 5B 5B 77 9F 5B
           5B 5B 77 A0 5B 5B 5B 78 DA DB DC DD B1 7A 02 C9 7B 02 DD AF 7A 02 7A
           03 DF B0 B0 A0 7B 03 60 03 19 07 AC 2E 01 19 03
          )
      4. SYSTEM::MACRO-CALL-ERROR PROGN SETF DOCUMENTATION QUOTE ('FUNCTION)
      DEFUN
  )  )
#Y(#:TOP-LEVEL-FORM-52
   #20Y(00 00 00 00 00 01 D8 30 5B D9 8B 50 04 D9 62 30 53 C4 19 01)
   (SPECIAL *UNDO*) *UNDO*
  )
#Y(#:TOP-LEVEL-FORM-53 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   UNDO1 SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(UNDO1 #9Y(01 00 00 00 00 02 00 19 02))
  )
#Y(#:TOP-LEVEL-FORM-54 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   UNDO2 SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(UNDO2 #9Y(01 00 00 00 00 02 00 19 02))
  )
#Y(#:TOP-LEVEL-FORM-55 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   UNDO3 SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(UNDO3 #9Y(01 00 00 00 00 02 00 19 02))
  )
#Y(#:TOP-LEVEL-FORM-56-1 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
   CURSOR-UP FUNCTION
   (DEUTSCH "Cursor nach oben" ENGLISH "cursor up" FRANCAIS
    "curseur vers le haut"
   )
   SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-56-2 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   CURSOR-UP SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(CURSOR-UP
      #28Y(01 00 00 00 00 02 D8 AC D9 71 2E AA 31 89 1E 0A AC 2E 02 AC 96 01 2F
           03 19 03 19 03
          )
      SCREEN 2. UNDO3 SET-CURSOR
  )  )
#Y(#:TOP-LEVEL-FORM-57-1 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
   CURSOR-DOWN FUNCTION
   (DEUTSCH "Cursor nach unten" ENGLISH "cursor down" FRANCAIS
    "curseur vers le bas"
   )
   SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-57-2 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   CURSOR-DOWN SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(CURSOR-DOWN
      #38Y(01 00 00 00 00 02 D8 AC D9 71 2E AA D8 AE DA 71 2E 71 45 71 8E 32 01
           2F 1E 0A AC 2E 03 AC 95 01 2F 04 19 03 19 03
          )
      SCREEN 2. 1. UNDO3 SET-CURSOR
  )  )
#Y(#:TOP-LEVEL-FORM-58-1 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
   CURSOR-LEFT FUNCTION
   (DEUTSCH "Cursor nach links" ENGLISH "cursor left" FRANCAIS
    "curseur à gauche"
   )
   SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-58-2 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   CURSOR-LEFT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(CURSOR-LEFT
      #56Y(01 00 00 00 00 02 D8 AC D9 71 2E D8 AD DA 71 2E AA 8D 89 1D AB 8E 89
           1D 85 01 D8 AE DB 71 2E AC 72 01 01 80 45 00 AD 2E 04 AD AC AC 2C 03
           05 19 04 85 00 1A 71 00 19 04
          )
      SCREEN 2. 3. 1. UNDO3 SET-CURSOR
  )  )
#Y(#:TOP-LEVEL-FORM-59-1 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
   CURSOR-RIGHT FUNCTION
   (DEUTSCH "Cursor nach rechts" ENGLISH "cursor right" FRANCAIS
    "curseur à droite"
   )
   SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-59-2 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   CURSOR-RIGHT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(CURSOR-RIGHT
      #65Y(01 00 00 00 00 02 D8 AC D9 71 2E D8 AD DA 71 2E D8 AE DB 71 2E AA AD
           AD 72 01 01 71 45 8F 01 2F 19 AB AD 71 45 71 8E 90 01 2F 13 84 01 C7
           F6 AE 2E 05 AE AC AC 2C 03 06 19 05 84 00 1A 71 00 19 05
          )
      SCREEN 1. 2. 3. 0. UNDO3 SET-CURSOR
  )  )
#Y(#:TOP-LEVEL-FORM-60-1 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
   CURSOR-TO-START-OF-LINE FUNCTION
   (DEUTSCH "Cursor an den Zeilenanfang" ENGLISH "cursor to start of line"
    FRANCAIS "curseur au début de la ligne"
   )
   SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-60-2 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   CURSOR-TO-START-OF-LINE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(CURSOR-TO-START-OF-LINE
      #22Y(01 00 00 00 00 02 D8 AC D9 71 2E AC 2E 02 AC AB DB 2C 03 04 19 03)
      SCREEN 2. UNDO3 0. SET-CURSOR
  )  )
#Y(#:TOP-LEVEL-FORM-61-1 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
   CURSOR-TO-END-OF-LINE FUNCTION
   (DEUTSCH "Cursor ans Zeilenende" ENGLISH "cursor to end of line" FRANCAIS
    "curseur à la fin de la ligne"
   )
   SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-61-2 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   CURSOR-TO-END-OF-LINE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(CURSOR-TO-END-OF-LINE
      #32Y(01 00 00 00 00 02 D8 AC D9 71 2E AC 2E 02 AC AB D8 AF DB 71 2E AD 72
           01 01 71 45 2C 03 04 19 03
          )
      SCREEN 2. UNDO3 1. SET-CURSOR
  )  )
#Y(#:TOP-LEVEL-FORM-62-1 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
   CURSOR-TO-START-OF-TEXT FUNCTION
   (DEUTSCH "Cursor an den Textanfang" ENGLISH "cursor to start of text"
    FRANCAIS "curseur au début du texte"
   )
   SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-62-2 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   CURSOR-TO-START-OF-TEXT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(CURSOR-TO-START-OF-TEXT
      #17Y(01 00 00 00 00 02 AB 2E 00 AB D9 D9 2C 03 02 19 02) UNDO3 0.
      SET-CURSOR
  )  )
#Y(#:TOP-LEVEL-FORM-63-1 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
   CURSOR-TO-END-OF-TEXT FUNCTION
   (DEUTSCH "Cursor ans Textende" ENGLISH "cursor to end of text" FRANCAIS
    "curseur à la fin du texte"
   )
   SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-63-2 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   CURSOR-TO-END-OF-TEXT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(CURSOR-TO-END-OF-TEXT
      #33Y(01 00 00 00 00 02 AB 2E 00 D9 AC DA 71 2E AA 71 45 71 8E AD AB AD AD
           72 01 01 71 45 2C 03 03 19 04
          )
      UNDO3 SCREEN 1. SET-CURSOR
  )  )
#Y(#:TOP-LEVEL-FORM-64-1 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
   PAGE-UP FUNCTION
   (DEUTSCH "Seite nach oben" ENGLISH "page up" FRANCAIS "une page plus haut")
   SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-64-2 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   PAGE-UP SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(PAGE-UP
      #23Y(01 00 00 00 00 02 AB 2E 00 AB D9 DA AE DB 71 2E 72 01 36 2F 04 19 02
          )
      UNDO3 1. SCREEN 6. SCROLL-SCREEN
  )  )
#Y(#:TOP-LEVEL-FORM-65-1 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
   PAGE-DOWN FUNCTION
   (DEUTSCH "Seite nach unten" ENGLISH "page down" FRANCAIS "une page plus bas"
   )
   SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-65-2 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   PAGE-DOWN SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(PAGE-DOWN
      #21Y(01 00 00 00 00 02 AB 2E 00 AB D9 AD DA 71 2E 71 8E 2F 03 19 02)
      UNDO3 SCREEN 6. SCROLL-SCREEN
  )  )
#Y(#:TOP-LEVEL-FORM-66-1 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
   LINE-UP FUNCTION
   (DEUTSCH "Zeile nach oben" ENGLISH "line up" FRANCAIS "une ligne plus haut")
   SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-66-2 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   LINE-UP SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(LINE-UP #15Y(01 00 00 00 00 02 AB 2E 00 AB D9 2F 02 19 02) UNDO3 -1.
      SCROLL-SCREEN
  )  )
#Y(#:TOP-LEVEL-FORM-67-1 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
   LINE-DOWN FUNCTION
   (DEUTSCH "Zeile nach unten" ENGLISH "line down" FRANCAIS
    "une ligne plus bas"
   )
   SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-67-2 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   LINE-DOWN SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(LINE-DOWN #15Y(01 00 00 00 00 02 AB 2E 00 AB D9 2F 02 19 02) UNDO3 1.
      SCROLL-SCREEN
  )  )
#Y(#:TOP-LEVEL-FORM-68 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   SET-MARK-FN SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SET-MARK-FN
      #29Y(01 00 00 00 00 02 00 2A 01 D8 AD 32 02 35 0B 00 00 9B 2A 01 AA 2B 01
           01 0B 00 00 19 04
          )
      2.
      #Y(SET-MARK-FN-SET-MARK
         #110Y(01 00 02 00 00 0D 29 2A 01 7E 04 00 00 3A 03 0B 67 00 00 D9 AB
               DA 31 2E 16 01 F9 3A 02 0B 67 00 00 D9 AB DB 31 2E 16 01 F8 67
               00 00 D9 AB DC 80 2E 00 68 01 01 72 01 01 91 00 2D 9C 2A 02 9C
               5A 0B 00 00 9C 5B 0B 00 01 AA 2B 06 01 16 01 F6 2E 07 67 00 00
               D9 AB DC 80 2E 00 68 01 01 AF A0 79 AC AC AC 32 01 02 19 08 AB
               2B 05 01 1A 60
              )
         NIL SCREEN 2. 3. 5.
         #Y(SET-MARK-FN-SET-MARK-1
            #26Y(00 00 00 00 00 01 68 00 01 D9 AB DA 80 2E 00 68 02 01 AB AB 62
                 32 01 02 19 03
                )
            NIL SCREEN 5.
           )
         #Y(SET-MARK-FN-SET-MARK-2
            #21Y(00 00 00 00 00 01 68 01 01 68 00 01 68 00 02 07 02 01 33 19 01
                )
            NIL
           )
         UNDO2
  )  )  )
#Y(#:TOP-LEVEL-FORM-69 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   SET-MARK-DOC SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SET-MARK-DOC
      #19Y(01 00 00 00 00 02 62 D8 D9 DA 6D 03 03 AD 2C 03 04 19 02)
      "set mark ~D" "Marke ~D setzen" "placer la marque ~D" SYSTEM::LANGUAGE
      FORMAT
  )  )
#Y(#:TOP-LEVEL-FORM-70 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   CURSOR-TO-MARK-FN SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(CURSOR-TO-MARK-FN
      #23Y(01 00 00 00 00 02 00 2A 01 D8 AD 32 02 35 0B 00 00 AA 2B 01 01 19 03
          )
      2.
      #Y(CURSOR-TO-MARK-FN-1
         #35Y(01 00 00 00 00 02 AB 2E 01 DA AC DB 71 2E 68 00 01 72 01 01 9B 1E
              0A AC 93 01 94 02 2C 03 04 19 03 19 03
             )
         NIL UNDO3 SCREEN 5. SET-CURSOR
  )  )  )
#Y(#:TOP-LEVEL-FORM-71 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   CURSOR-TO-MARK-DOC SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(CURSOR-TO-MARK-DOC
      #19Y(01 00 00 00 00 02 62 D8 D9 DA 6D 03 03 AD 2C 03 04 19 02)
      "cursor to mark ~D" "Cursor zu Marke ~D" "curseur à la marque ~D"
      SYSTEM::LANGUAGE FORMAT
  )  )
#Y(#:TOP-LEVEL-FORM-72
   #41Y(00 00 00 00 00 01 D8 70 4C D9 8C 5F 15 AA D9 70 4F 8D 01 0E DA DB DC 6D
        03 05 DE D9 D9 70 4F 2C 04 07 D9 AB 31 79 C4 19 02
       )
   #\Newline NEWLINE-AS-STRING
   "~S redefines the constant ~S. Its old value was ~S."
   "In ~S wird die Konstante ~S umdefiniert. Ihr alter Wert war ~S."
   "~S redéfinit la constante ~S. Son ancienne valeur était ~S."
   SYSTEM::LANGUAGE (DEFCONSTANT NEWLINE-AS-STRING (STRING #\Newline)) WARN
  )
#Y(#:TOP-LEVEL-FORM-73 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   REGION-TO-LINELIST SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(REGION-TO-LINELIST
      #73Y(05 00 00 00 00 06 D8 B0 D9 71 2E 62 B0 AF 8D 01 10 AB B1 72 01 01 B0
           37 01 71 43 83 00 95 06 1A 13 AB B1 72 01 01 A1 1A 18 AC AB 72 01 01
           71 44 83 01 84 00 AA B0 8E 01 70 16 01 AB AF 72 01 01 C5 14 AF 71 43
           9C 5C 19 08
          )
      SCREEN 1. 0.
  )  )
#Y(#:TOP-LEVEL-FORM-74 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   STRING-TO-LINELIST SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(STRING-TO-LINELIST
      #85Y(01 00 00 00 00 02 D8 AC 37 06 71 5D 92 00 0D AA 37 05 C4 F9 B2 DA 70
           19 7A 01 1A 16 AC 60 01 19 03 AC AB 72 01 36 37 05 C4 F9 B4 B1 70 19
           83 01 16 01 95 01 D8 AF 37 06 A3 FA 80 5D 02 1B 62 AE 71 45 AB 72 01
           36 37 05 C4 F9 B4 B1 70 19 83 01 16 01 15 19 03
          )
      #\Newline STRING-CHAR 0.
  )  )
#Y(#:TOP-LEVEL-FORM-75-1 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
   DELETE-CHAR FUNCTION
   (DEUTSCH "Zeichen unter dem Cursor löschen" ENGLISH
    "delete character at cursor" FRANCAIS
    "effacer le caractère sous le curseur"
   )
   SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-75-2 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   DELETE-CHAR SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(DELETE-CHAR
      #115Y(01 00 00 00 00 02 00 2A 01 7E 02 00 00 14 D8 AB D9 80 2E 00 67 01
            00 D8 AB DA 80 2E 00 67 02 00 D8 AB DB 80 2E 00 AC AC 72 01 01 AA
            71 45 AC AB 8D 01 3D A0 2A 01 AC AE 32 01 01 0B 00 00 AA 2B 04 01
            F6 2E 05 AB AC AE 37 03 B2 80 8D 01 31 4B AB 70 14 71 8E AC AB 30
            15 16 01 67 05 00 AE 95 04 B0 B0 2C 05 06 67 05 00 AE AE 2C 03 07
            19 08 00 19 08
           )
      SCREEN 1. 2. 3.
      #Y(DELETE-CHAR-1
         #21Y(00 00 00 00 00 01 68 01 01 68 00 01 2F 01 68 01 01 2E 02 19 01)
         NIL INSERT-CHAR CURSOR-LEFT
        )
      UNDO2 UPDATE-MARKS REFRESH-LINE
  )  )
#Y(#:TOP-LEVEL-FORM-76-1 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
   COMBINE-LINES FUNCTION
   (DEUTSCH "Cursorzeile mit der nächsten vereinigen" ENGLISH
    "combine two lines" FRANCAIS "joindre la ligne du curseur à la suivante"
   )
   SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-76-2 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   COMBINE-LINES SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMBINE-LINES
      #158Y(01 00 00 00 00 02 00 2A 01 7E 02 00 00 9B 2A 02 67 01 00 D8 AB D9
            80 2E 00 67 02 00 D8 AB DA 31 2E 16 01 0B 01 00 14 71 8D AB 67 03
            00 72 01 01 AA 31 45 0B 03 01 AB AD 71 45 8D 01 80 5D 9E 2A 01 67
            05 00 D8 AB DB 31 2E 16 01 0B 00 00 AA 2B 04 01 F6 2E 05 AC AC 72
            01 01 AB 67 05 01 AC 71 45 72 02 35 2F 06 AB AB 67 06 01 37 03 31
            4B 16 01 AC AD AD 37 03 B1 80 8D 01 31 4B AC D9 2F 07 67 04 00 AC
            E0 67 06 00 67 07 01 2C 05 09 67 04 00 67 04 00 AD D9 2C 04 0A 19
            07 00 19 07
           )
      SCREEN 1. 2. 3.
      #Y(COMBINE-LINES-1
         #37Y(00 00 00 00 00 01 68 02 01 68 01 01 68 01 02 2C 03 01 68 02 01 2E
              02 68 02 01 68 01 01 68 00 01 2C 03 01 19 01
             )
         NIL SET-CURSOR INSERT-LINE
        )
      UNDO2 RESIZE-ARRAY SHRINK-ARRAY 0. UPDATE-MARKS REFRESH-SCREEN
  )  )
#Y(#:TOP-LEVEL-FORM-77-1 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
   DELETE-CHAR-1 FUNCTION
   (DEUTSCH "Zeichen unter dem Cursor löschen, zeilenübergreifend" ENGLISH
    "delete character at cursor, across lines" FRANCAIS
    "effacer le caractère sous le curseur, à travers lignes"
   )
   SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-77-2 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   DELETE-CHAR-1 SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(DELETE-CHAR-1 #18Y(01 00 00 00 00 02 AB 2E 00 1D 05 AB 2E 01 19 02 19 02)
      DELETE-CHAR COMBINE-LINES
  )  )
#Y(#:TOP-LEVEL-FORM-78-1 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
   BACKSPACE FUNCTION
   (DEUTSCH "Zeichen links vom Cursor löschen" ENGLISH
    "delete character before cursor" FRANCAIS
    "effacer le caractère avant le curseur"
   )
   SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-78-2 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   BACKSPACE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(BACKSPACE
      #27Y(01 00 00 00 00 02 D8 AC D9 71 2E 31 89 1E 0A AB 2E 02 1E 05 AB 2E 03
           19 02 19 02
          )
      SCREEN 3. CURSOR-LEFT DELETE-CHAR
  )  )
#Y(#:TOP-LEVEL-FORM-79-1 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
   BACKSPACE-1 FUNCTION
   (DEUTSCH "Zeichen links vom Cursor löschen, zeilenübergreifend" ENGLISH
    "delete character before cursor, across lines" FRANCAIS
    "effacer le caractère avant le curseur, à travers lignes"
   )
   SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-79-2 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   BACKSPACE-1 SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(BACKSPACE-1 #18Y(01 00 00 00 00 02 AB 2E 00 1E 05 AB 2E 01 19 02 19 02)
      CURSOR-LEFT DELETE-CHAR-1
  )  )
#Y(#:TOP-LEVEL-FORM-80 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   DELETE-REGION SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(DELETE-REGION
      #237Y(05 00 00 00 00 06 00 2A 03 7E 06 00 00 7E 05 00 01 7E 04 00 02 67
            00 00 D8 AB D9 80 2E 00 67 01 00 2E 02 9C 2A 01 67 02 00 67 03 01
            67 04 02 B2 B2 2C 05 03 0B 00 00 AA 2B 04 01 F6 2E 05 67 01 01 AF
            8D 01 80 66 AA 67 02 01 72 01 01 AB B0 72 01 01 67 03 02 AB 71 45
            B1 72 01 36 72 02 35 AC AB 2F 08 AC AC 67 06 02 37 03 A7 F7 31 4B
            AD AE 67 06 01 71 8D 37 03 B7 80 8D 01 31 4B AD B2 67 06 01 72 01
            36 2F 09 67 04 00 B2 B2 67 07 01 67 08 02 2C 05 06 67 04 00 67 05
            01 67 06 01 71 8D B4 67 08 01 72 01 36 2C 04 0A 19 0B AA 67 02 01
            72 01 01 AA AB 67 04 02 37 03 A5 F7 31 4B AA 70 14 AF 67 04 02 72
            01 36 72 01 36 AB AB 30 15 16 01 67 02 00 B0 B0 67 05 01 67 06 02
            2C 05 06 67 02 00 67 03 01 67 04 02 2C 03 07 19 09
           )
      SCREEN 1. UNDO3 REGION-TO-LINELIST
      #Y(DELETE-REGION-1
         #28Y(00 00 00 00 00 01 68 01 01 68 01 02 68 01 03 2C 03 01 68 01 01 68
              00 01 2F 02 19 01
             )
         NIL SET-CURSOR INSERT-LINELIST
        )
      UNDO2 UPDATE-MARKS REFRESH-LINE RESIZE-ARRAY SHRINK-ARRAY REFRESH-SCREEN
  )  )
#Y(#:TOP-LEVEL-FORM-81-1 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
   DELETE-LINE FUNCTION
   (DEUTSCH "Zeile löschen" ENGLISH "delete line" FRANCAIS "effacer la ligne")
   SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-81-2 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   DELETE-LINE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(DELETE-LINE
      #50Y(01 00 00 00 00 02 D8 AC D9 71 2E D8 AD DA 71 2E AA AC 71 45 71 8E 8D
           01 0C AD AB DB 95 03 C6 14 2C 05 04 19 04 AD AB DB AD AF AF 72 01 01
           31 45 1A 6D
          )
      SCREEN 1. 2. 0. DELETE-REGION
  )  )
#Y(#:TOP-LEVEL-FORM-82-1 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
   CLEAR-START-OF-LINE FUNCTION
   (DEUTSCH "Vom Zeilenanfang bis Cursorposition löschen" ENGLISH
    "delete part of line left to the cursor" FRANCAIS
    "effacer la partie de la ligne avant le curseur"
   )
   SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-82-2 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   CLEAR-START-OF-LINE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(CLEAR-START-OF-LINE
      #26Y(01 00 00 00 00 02 D8 AC D9 71 2E D8 AD DA 71 2E AD AC DB AE AE 2C 05
           04 19 04
          )
      SCREEN 2. 3. 0. DELETE-REGION
  )  )
#Y(#:TOP-LEVEL-FORM-83-1 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
   CLEAR-END-OF-LINE FUNCTION
   (DEUTSCH "Bis zum Zeilenende löschen" ENGLISH "delete up to end of line"
    FRANCAIS "effacer la partie de la ligne à partir du curseur"
   )
   SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-83-2 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   CLEAR-END-OF-LINE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(CLEAR-END-OF-LINE
      #37Y(01 00 00 00 00 02 D8 AC D9 71 2E D8 AD DA 71 2E D8 AE DB 71 2E AE AC
           AC AE B0 B0 72 01 01 71 45 2C 05 04 19 05
          )
      SCREEN 1. 2. 3. DELETE-REGION
  )  )
#Y(#:TOP-LEVEL-FORM-84 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   INSERT-CHAR SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(INSERT-CHAR
      #94Y(02 00 00 00 00 03 00 2A 01 7E 03 00 00 14 D8 AB D9 80 2E 00 67 01 00
           D8 AB DA 80 2E 00 67 02 00 D8 AB DB 80 2E 00 AC AC 72 01 01 AA 71 45
           AF 6C 04 01 2E 05 AB 95 01 2F 06 AB AC 95 04 37 03 A3 F7 31 4B AB AD
           B3 32 01 02 67 05 00 AE AE B0 95 06 2C 05 07 67 05 00 AE AE 2C 03 08
           19 09
          )
      SCREEN 1. 2. 3.
      #Y(INSERT-CHAR-1 #13Y(00 00 00 00 00 01 68 00 01 2E 01 19 01) NIL
         BACKSPACE
        )
      UNDO2 RESIZE-ARRAY UPDATE-MARKS REFRESH-LINE
  )  )
#Y(#:TOP-LEVEL-FORM-85-1 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
   INSERT-LINE FUNCTION
   (DEUTSCH "Zeilenumbruch einfügen" ENGLISH "begin new line at cursor"
    FRANCAIS "casser la ligne en deux"
   )
   SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-85-2 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   INSERT-LINE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(INSERT-LINE
      #120Y(01 00 00 00 00 02 00 2A 01 7E 02 00 00 14 D8 AB D9 80 2E 00 67 01
            00 D8 AB DA 80 2E 00 95 00 67 03 00 D8 AB DB 80 2E 00 AD AD 72 01
            01 AF 6C 04 01 2E 05 AA 71 45 AC 72 01 36 6E 06 AA AC 37 04 A3 F7
            31 4B AB AD 30 15 AF B0 71 45 71 8D 2F 07 AF B0 95 05 37 03 A4 F7
            31 4B AF AE AC 32 01 02 16 01 67 05 00 AE AD AF E0 2C 05 09 67 05
            00 AE 95 04 E2 2C 04 0B 19 08
           )
      SCREEN 1. 2. 3.
      #Y(INSERT-LINE-1 #13Y(00 00 00 00 00 01 68 00 01 2E 01 19 01) NIL
         BACKSPACE-1
        )
      UNDO2 GET-NEW-LINE RESIZE-ARRAY 0. UPDATE-MARKS -1. REFRESH-SCREEN
  )  )
#Y(#:TOP-LEVEL-FORM-86 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   INSERT-LINELIST SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(INSERT-LINELIST
      #369Y(02 00 00 00 00 03 00 2A 01 7E 03 00 00 9B 2A 02 67 01 00 D8 AB D9
            80 2E 00 67 02 00 D8 AB DA 31 2E 16 01 0B 01 00 67 02 00 D8 AB DB
            31 2E 16 01 0B 01 01 92 04 80 76 9F 5B 1C 80 74 9C 2A 01 AF 71 45
            71 8E 67 03 00 AB 32 02 35 0B 01 00 AC AD 71 45 AC 72 02 35 2F 04
            AC AD 67 03 00 71 8D 37 03 67 09 00 80 8D 01 31 4B 9C 2A 01 AD 67
            05 00 72 01 01 67 03 00 93 09 82 0A AA 31 45 0B 03 00 14 AD 71 45
            67 09 01 72 01 36 72 02 35 6E 09 AA AC 37 04 31 4B AA AE 67 06 00
            37 03 06 0E 01 F7 31 4B B1 AD AC 32 01 02 16 01 1A 80 7B 02 19 06
            9C 2A 01 AB 67 03 00 72 01 01 93 06 AA 71 45 67 05 01 AB 32 02 35
            0B 03 00 AC AD 71 45 AC 72 02 35 2F 04 AC AD 67 05 00 37 03 06 0B
            01 F7 31 4B AC AC 67 07 01 37 03 31 4B 67 06 00 67 06 00 67 07 01
            67 08 00 67 07 00 2C 05 05 AD 6C 06 01 2E 07 67 06 00 67 06 00 67
            07 01 2C 03 08 19 0A 85 01 93 0A 82 0B AA 71 45 6E 09 AA AC 37 04
            31 4B B2 AE AC 32 01 02 16 02 A5 5B 1B 63 93 0A AD 67 09 01 AC 71
            45 72 02 35 2F 04 AD AB 67 0A 01 37 03 31 4B 16 01 67 08 00 67 08
            00 67 09 01 67 08 00 67 07 00 2C 05 05 AD 6C 0A 01 2E 07 67 08 00
            67 08 00 67 07 00 71 8D B1 72 00 36 2C 04 0B 19 0C
           )
      SCREEN 1. 2. 3. RESIZE-ARRAY UPDATE-MARKS
      #Y(INSERT-LINELIST-1
         #26Y(00 00 00 00 00 01 68 02 01 68 01 01 68 01 02 68 01 01 68 00 01 2C
              05 01 19 01
             )
         NIL DELETE-REGION
        )
      UNDO2 REFRESH-LINE GET-NEW-LINE
      #Y(INSERT-LINELIST-2
         #26Y(00 00 00 00 00 01 68 03 01 68 02 01 68 02 02 68 01 01 68 00 01 2C
              05 01 19 01
             )
         NIL DELETE-REGION
        )
      REFRESH-SCREEN
  )  )
#Y(#:TOP-LEVEL-FORM-87 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   INSERT-STRING SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(INSERT-STRING #14Y(02 00 00 00 00 03 AC AC 6E 00 2F 01 19 03)
      STRING-TO-LINELIST INSERT-LINELIST
  )  )
#Y(#:TOP-LEVEL-FORM-88 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   WRITE-REGION SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(WRITE-REGION
      #75Y(06 00 00 00 00 00 D8 B1 D9 71 2E B0 AF 8D 01 0F AA B1 72 01 01 AD B1
           37 01 30 8C 95 06 1A 15 AA B1 72 01 01 AD B1 1A 1B AB AB 72 01 01 AE
           37 02 30 8C 84 00 AA B0 8E 01 6F 16 01 AA AF 72 01 01 AD 37 01 B0 30
           8B 16 01 02 19 07
          )
      SCREEN 1.
  )  )
#Y(#:TOP-LEVEL-FORM-89 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   INSERT-STREAM SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(INSERT-STREAM
      #40Y(02 00 00 00 00 03 AC 62 AD 62 D8 37 01 30 79 41 02 AB 24 00 09 D9 83
           02 16 02 2F 02 19 03 AB 83 02 91 00 74 16 02 1A 60
          )
      "EOF" "" INSERT-LINELIST
  )  )
#Y(#:TOP-LEVEL-FORM-90-1 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
   CURSOR-TO-START-OF-BLOCK FUNCTION
   (DEUTSCH "Cursor zum Blockanfang" ENGLISH "cursor to start of block"
    FRANCAIS "curseur au début du bloc"
   )
   SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-90-2 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   CURSOR-TO-START-OF-BLOCK SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(CURSOR-TO-START-OF-BLOCK
      #42Y(01 00 00 00 00 02 D8 AC D9 71 2E AA DA 72 01 01 AB DB 72 01 01 9C 1E
           10 9B 1E 0D AE 2E 04 AE 93 02 94 03 2C 03 05 19 05 19 05
          )
      SCREEN 5. 0. 1. UNDO3 SET-CURSOR
  )  )
#Y(#:TOP-LEVEL-FORM-91-1 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
   CURSOR-TO-END-OF-BLOCK FUNCTION
   (DEUTSCH "Cursor zum Blockende" ENGLISH "cursor to end of block" FRANCAIS
    "curseur à la fin du bloc"
   )
   SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-91-2 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   CURSOR-TO-END-OF-BLOCK SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(CURSOR-TO-END-OF-BLOCK
      #42Y(01 00 00 00 00 02 D8 AC D9 71 2E AA DA 72 01 01 AB DB 72 01 01 9C 1E
           10 9B 1E 0D AE 2E 04 AE 93 01 94 02 2C 03 05 19 05 19 05
          )
      SCREEN 5. 0. 1. UNDO3 SET-CURSOR
  )  )
#Y(#:TOP-LEVEL-FORM-92-1 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
   SET-BLOCK-START FUNCTION
   (DEUTSCH "Blockanfang setzen" ENGLISH "set block start" FRANCAIS
    "placer le début du bloc"
   )
   SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-92-2 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   SET-BLOCK-START SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SET-BLOCK-START
      #137Y(01 00 02 00 00 0D 3A 02 06 D8 AE D9 80 2E 02 3A 01 06 D8 AE DA 80
            2E 01 AD 2E 03 D8 AE DC 71 2E AA DD 72 01 01 AB DE 72 01 01 92 00
            01 5A 14 92 01 01 5B 14 91 03 80 49 A2 14 92 03 12 AC B3 8F 01 30
            2A AC B3 90 01 2D 06 AB B2 8F 01 32 1E D8 B4 DE 71 2E AA 71 45 80
            8E 03 AA AE 72 01 01 80 45 02 AD 9E 79 B1 DE AC 32 01 02 16 02 B2
            A3 79 B0 DD AC 32 01 02 16 01 B3 AB 95 04 2C 03 07 19 0A 77 B2 32
            01 34 1A FF B0
           )
      SCREEN 2. 3. UNDO-BLOCKMARKS 5. 0. 1. REFRESH-SCREEN
  )  )
#Y(#:TOP-LEVEL-FORM-93-1 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
   SET-BLOCK-END FUNCTION
   (DEUTSCH "Blockende setzen" ENGLISH "set block end" FRANCAIS
    "placer la fin du bloc"
   )
   SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-93-2 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   SET-BLOCK-END SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SET-BLOCK-END
      #119Y(01 00 02 00 00 0D 3A 02 06 D8 AE D9 80 2E 02 3A 01 06 D8 AE DA 80
            2E 01 AD 2E 03 D8 AE DC 71 2E AA DD 72 01 01 AB DE 72 01 01 92 01
            01 5A 14 92 02 01 5B 14 91 02 39 A2 14 92 04 12 AC B3 8F 01 2F 1A
            AC B3 90 01 2D 06 AB B2 8F 01 31 0E C8 F8 F7 14 9D 79 B0 DD AC 32
            01 02 16 01 B2 A3 79 B0 DE AC 32 01 02 16 01 B3 AD 95 02 2C 03 07
            19 0A 77 B2 32 01 33 1A 41
           )
      SCREEN 2. 3. UNDO-BLOCKMARKS 5. 0. 1. REFRESH-SCREEN
  )  )
#Y(#:TOP-LEVEL-FORM-94-1 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
   HIDE-BLOCK FUNCTION
   (DEUTSCH "Block demarkieren" ENGLISH "remove block marks" FRANCAIS
    "enlever les marques du bloc"
   )
   SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-94-2 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   HIDE-BLOCK SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(HIDE-BLOCK
      #56Y(01 00 00 00 00 02 AB 2E 00 D9 AC DA 71 2E AA DB 72 01 01 AB DC 72 01
           01 AC DB 62 32 01 02 AC DC 62 32 01 02 9C 1E 0F 9B 1E 0C AE 93 02 93
           02 71 8D 2C 03 05 19 05 19 05
          )
      UNDO-BLOCKMARKS SCREEN 5. 0. 1. REFRESH-SCREEN
  )  )
#Y(#:TOP-LEVEL-FORM-95 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   UNDO-BLOCKMARKS SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(UNDO-BLOCKMARKS
      #89Y(01 00 00 00 00 02 00 2A 01 7E 02 00 00 14 D8 AB D9 80 2E 00 AA DA 72
           01 01 AB DB 72 01 01 91 00 1F 92 01 14 9E 2A 02 9D 5A 0B 00 00 9D 5B
           0B 00 01 AA 2B 06 01 F6 2E 05 AD 6C 07 01 2E 05 19 06 9E 2A 02 9C 5A
           0B 00 00 9C 5B 0B 00 01 AA 2B 04 01 F6 2E 05 92 01 61 1A 4B
          )
      SCREEN 5. 0. 1.
      #Y(UNDO-BLOCKMARKS-1
         #20Y(00 00 00 00 00 01 68 01 01 68 00 01 68 00 02 2C 03 01 19 01) NIL
         SET-BLOCK-END
        )
      UNDO2
      #Y(UNDO-BLOCKMARKS-2
         #20Y(00 00 00 00 00 01 68 01 01 68 00 01 68 00 02 2C 03 01 19 01) NIL
         SET-BLOCK-START
        )
      #Y(UNDO-BLOCKMARKS-3 #13Y(00 00 00 00 00 01 68 00 01 2E 01 19 01) NIL
         HIDE-BLOCK
  )  )  )
#Y(#:TOP-LEVEL-FORM-96 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   MARK-REGION SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(MARK-REGION
      #78Y(05 00 00 00 00 06 9F 1E 80 42 D8 B0 D9 71 2E AA DA 72 01 01 AB DB 72
           01 01 B1 A2 79 AD DA AC 32 01 02 16 01 AF A0 79 AD DB AC 32 01 02 16
           01 92 01 11 92 00 0E B1 93 02 81 01 34 07 AF 93 01 81 01 33 05 B2 B2
           95 07 2C 03 04 19 09 19 06
          )
      SCREEN 5. 0. 1. REFRESH-SCREEN
  )  )
#Y(#:TOP-LEVEL-FORM-97 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   GET-BLOCK SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(GET-BLOCK
      #45Y(01 00 00 00 00 02 D8 AC D9 71 2E AA DA 72 01 01 AB DB 72 01 01 92 01
           03 91 00 08 01 03 00 14 3F 04 19 05 93 01 94 02 93 02 9E 5B 1A 71
          )
      SCREEN 5. 0. 1.
  )  )
#Y(#:TOP-LEVEL-FORM-98-1 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
   DELETE-BLOCK FUNCTION
   (DEUTSCH "Block löschen" ENGLISH "delete block" FRANCAIS "effacer le bloc")
   SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-98-2 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   DELETE-BLOCK SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(DELETE-BLOCK
      #59Y(01 00 00 00 00 02 D8 AC D9 71 2E AA DA 72 01 01 AB DB 72 01 01 92 01
           20 92 00 1D AE 2E 04 AC DA 62 32 01 02 AC DB 62 32 01 02 AE 93 02 94
           03 93 03 94 04 2C 05 05 19 05 00 19 05
          )
      SCREEN 5. 0. 1. UNDO-BLOCKMARKS DELETE-REGION
  )  )
#Y(#:TOP-LEVEL-FORM-99-1 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
   MOVE-BLOCK FUNCTION
   (DEUTSCH "Block an Cursorposition verschieben" ENGLISH
    "move block to cursor position" FRANCAIS
    "transporter le bloc à la position du curseur"
   )
   SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-99-2 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   MOVE-BLOCK SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(MOVE-BLOCK
      #108Y(01 00 00 00 00 02 D8 AC D9 71 2E AA DA 72 01 01 AB DB 72 01 01 92
            01 80 50 92 00 80 4C 93 01 94 02 93 02 94 03 B2 AE AE AE AE 6D 05
            04 B3 AF AF AF AF 2C 05 05 D8 B4 DE 71 2E D8 B5 DF 71 2E B5 AD 2F
            08 B2 AC 30 AA B2 AB 30 AC B1 D8 B7 DE 71 2E 30 AA B1 D8 B7 DF 71
            2E 30 AC B5 AC D8 B8 DE 71 2E 71 8D 2C 03 09 19 0C 00 19 05
           )
      SCREEN 5. 0. 1. REGION-TO-LINELIST DELETE-REGION 2. 3. INSERT-LINELIST
      REFRESH-SCREEN
  )  )
#Y(#:TOP-LEVEL-FORM-100-1 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
   COPY-BLOCK FUNCTION
   (DEUTSCH "Block an Cursorposition kopieren" ENGLISH
    "copy block to cursor position" FRANCAIS
    "placer une copie du bloc à la position du curseur"
   )
   SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-100-2 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   COPY-BLOCK SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COPY-BLOCK
      #29Y(01 00 00 00 00 02 AB 2E 00 41 04 9E 1E 0D AF B0 AF AF AF AF 6D 05 01
           2F 02 19 06 19 06
          )
      GET-BLOCK REGION-TO-LINELIST INSERT-LINELIST
  )  )
#Y(#:TOP-LEVEL-FORM-101
   #20Y(00 00 00 00 00 01 D8 30 5B D9 8B 50 04 D9 62 30 53 C4 19 01)
   (SPECIAL *CUT-AND-PASTE-BUFFER*) *CUT-AND-PASTE-BUFFER*
  )
#Y(#:TOP-LEVEL-FORM-102-1 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
   COPY-BLOCK-BUFFER FUNCTION
   (DEUTSCH "Block in Cut-and-Paste-Buffer übertragen" ENGLISH
    "copy block into cut-and-paste buffer" FRANCAIS
    "garder une copie du bloc en mémoire"
   )
   SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-102-2 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   COPY-BLOCK-BUFFER SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COPY-BLOCK-BUFFER
      #29Y(01 00 00 00 00 02 AB 2E 00 41 04 9E 1E 0D AF AE AE AE AE 2C 05 01 0F
           02 02 19 06 19 06
          )
      GET-BLOCK REGION-TO-LINELIST *CUT-AND-PASTE-BUFFER*
  )  )
#Y(#:TOP-LEVEL-FORM-103-1 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
   DELETE-BLOCK-BUFFER FUNCTION
   (DEUTSCH "Block löschen und in Cut-and-Paste-Buffer übertragen" ENGLISH
    "yank block into cut-and-paste buffer" FRANCAIS
    "effacer le bloc, mais le garder en mémoire"
   )
   SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-103-2 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   DELETE-BLOCK-BUFFER SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(DELETE-BLOCK-BUFFER
      #69Y(01 00 00 00 00 02 D8 AC D9 71 2E AA DA 72 01 01 AB DB 72 01 01 9C 1E
           2B 9B 1E 28 AC DA 62 32 01 02 AC DB 62 32 01 02 93 01 94 02 93 02 94
           03 B2 AE AE AE AE 2C 05 04 0F 05 B2 AE AE AE AE 2C 05 06 19 09 19 05
          )
      SCREEN 5. 0. 1. REGION-TO-LINELIST *CUT-AND-PASTE-BUFFER* DELETE-REGION
  )  )
#Y(#:TOP-LEVEL-FORM-104-1 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
   PASTE-BUFFER FUNCTION
   (DEUTSCH "Inhalt des Cut-and-Paste-Buffer einfügen" ENGLISH
    "insert cut-and-paste buffer contents" FRANCAIS
    "ajouter le bloc en mémoire dans le texte"
   )
   SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-104-2 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   PASTE-BUFFER SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(PASTE-BUFFER #13Y(01 00 00 00 00 02 AB 6A 00 2F 01 19 02)
      *CUT-AND-PASTE-BUFFER* INSERT-LINELIST
  )  )
#Y(#:TOP-LEVEL-FORM-105
   #38Y(00 00 00 00 00 01 D8 8C 5F 15 D9 D8 70 4F 8D 01 0E DA DB DC 6D 03 05 DE
        D8 D8 70 4F 2C 04 07 D8 D9 31 79 C3 19 01
       )
   ERRORVAL #1="ERROR" "~S redefines the constant ~S. Its old value was ~S."
   "In ~S wird die Konstante ~S umdefiniert. Ihr alter Wert war ~S."
   "~S redéfinit la constante ~S. Son ancienne valeur était ~S."
   SYSTEM::LANGUAGE (DEFCONSTANT ERRORVAL #1#) WARN
  )
#Y(#:TOP-LEVEL-FORM-106
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 C3 19 01)
   WITH-IGNORED-ERRORS SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
   #Y(WITH-IGNORED-ERRORS
      #40Y(01 00 01 00 00 08 94 02 37 01 71 86 D8 AB D9 DA DB DC DD DE DF B3 CB
           7B 02 7A 04 7A 02 7A 02 7A 01 A0 7B 02 60 03 19 05
          )
      BLOCK LET *ERROR-HANDLER* FUNCTION LAMBDA (&REST ARGS)
      (DECLARE (IGNORE ARGS)) RETURN-FROM (ERRORVAL)
  )  )
#Y(#:TOP-LEVEL-FORM-107
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 C3 19 01)
   WITH-TRAPPED-ERRORS SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
   #Y(WITH-TRAPPED-ERRORS
      #42Y(01 00 01 00 00 08 94 02 37 01 71 86 D8 AB D9 DA DB DC DD DE DF E0 E1
           B5 CD 7B 02 7A 06 7A 02 7A 02 7A 01 A0 7B 02 60 03 19 05
          )
      BLOCK LET *ERROR-HANDLER* FUNCTION LAMBDA (CONTINUE ERRSTR &REST ARGS)
      (DECLARE (IGNORE CONTINUE)) (FRESH-LINE *ERROR-OUTPUT*)
      (APPLY #'FORMAT *ERROR-OUTPUT* ERRSTR ARGS) RETURN-FROM (ERRORVAL)
  )  )
#Y(#:TOP-LEVEL-FORM-108
   #44Y(00 00 00 00 00 01 37 05 C3 F9 70 64 D9 8C 5F 15 AA D9 70 4F 8D 01 0E DA
        DB DC 6D 03 05 DE D9 D9 70 4F 2C 04 07 D9 AB 31 79 C4 19 02
       )
   #.#'EQL FULL-TABLE "~S redefines the constant ~S. Its old value was ~S."
   "In ~S wird die Konstante ~S umdefiniert. Ihr alter Wert war ~S."
   "~S redéfinit la constante ~S. Son ancienne valeur était ~S."
   SYSTEM::LANGUAGE (DEFCONSTANT FULL-TABLE (MAKE-HASH-TABLE :TEST #'EQL)) WARN
  )
#Y(#:TOP-LEVEL-FORM-109
   #44Y(00 00 00 00 00 01 37 05 C3 F9 70 64 D9 8C 5F 15 AA D9 70 4F 8D 01 0E DA
        DB DC 6D 03 05 DE D9 D9 70 4F 2C 04 07 D9 AB 31 79 C4 19 02
       )
   #.#'EQL HALF-TABLE "~S redefines the constant ~S. Its old value was ~S."
   "In ~S wird die Konstante ~S umdefiniert. Ihr alter Wert war ~S."
   "~S redéfinit la constante ~S. Son ancienne valeur était ~S."
   SYSTEM::LANGUAGE (DEFCONSTANT HALF-TABLE (MAKE-HASH-TABLE :TEST #'EQL)) WARN
  )
#Y(#:TOP-LEVEL-FORM-110
   #44Y(00 00 00 00 00 01 37 05 C3 F9 70 64 D9 8C 5F 15 AA D9 70 4F 8D 01 0E DA
        DB DC 6D 03 05 DE D9 D9 70 4F 2C 04 07 D9 AB 31 79 C4 19 02
       )
   #.#'EQL LINE-EDIT-TABLE
   "~S redefines the constant ~S. Its old value was ~S."
   "In ~S wird die Konstante ~S umdefiniert. Ihr alter Wert war ~S."
   "~S redéfinit la constante ~S. Son ancienne valeur était ~S."
   SYSTEM::LANGUAGE (DEFCONSTANT LINE-EDIT-TABLE (MAKE-HASH-TABLE :TEST #'EQL))
   WARN
  )
#Y(#:TOP-LEVEL-FORM-111
   #44Y(00 00 00 00 00 01 37 05 C3 F9 70 64 D9 8C 5F 15 AA D9 70 4F 8D 01 0E DA
        DB DC 6D 03 05 DE D9 D9 70 4F 2C 04 07 D9 AB 31 79 C4 19 02
       )
   #.#'EQL NULL-TABLE "~S redefines the constant ~S. Its old value was ~S."
   "In ~S wird die Konstante ~S umdefiniert. Ihr alter Wert war ~S."
   "~S redéfinit la constante ~S. Son ancienne valeur était ~S."
   SYSTEM::LANGUAGE (DEFCONSTANT NULL-TABLE (MAKE-HASH-TABLE :TEST #'EQL)) WARN
  )
#Y(#:TOP-LEVEL-FORM-112 #15Y(00 00 00 00 00 01 6A 00 D9 AB DA 30 66 19 02)
   NULL-TABLE #\Escape (:LEAVE)
  )
#Y(#:TOP-LEVEL-FORM-113
   #44Y(00 00 00 00 00 01 37 05 C3 F9 70 64 D9 8C 5F 15 AA D9 70 4F 8D 01 0E DA
        DB DC 6D 03 05 DE D9 D9 70 4F 2C 04 07 D9 AB 31 79 C4 19 02
       )
   #.#'EQL CONTROL-TABLE "~S redefines the constant ~S. Its old value was ~S."
   "In ~S wird die Konstante ~S umdefiniert. Ihr alter Wert war ~S."
   "~S redéfinit la constante ~S. Son ancienne valeur était ~S."
   SYSTEM::LANGUAGE (DEFCONSTANT CONTROL-TABLE (MAKE-HASH-TABLE :TEST #'EQL))
   WARN
  )
#Y(#:TOP-LEVEL-FORM-114
   #44Y(00 00 00 00 00 01 37 05 C3 F9 70 64 D9 8C 5F 15 AA D9 70 4F 8D 01 0E DA
        DB DC 6D 03 05 DE D9 D9 70 4F 2C 04 07 D9 AB 31 79 C4 19 02
       )
   #.#'EQL DOCSTRINGS-TABLE
   "~S redefines the constant ~S. Its old value was ~S."
   "In ~S wird die Konstante ~S umdefiniert. Ihr alter Wert war ~S."
   "~S redéfinit la constante ~S. Son ancienne valeur était ~S."
   SYSTEM::LANGUAGE
   (DEFCONSTANT DOCSTRINGS-TABLE (MAKE-HASH-TABLE :TEST #'EQL)) WARN
  )
#Y(#:TOP-LEVEL-FORM-115 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   BIND-KEY SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(BIND-KEY
      #128Y(03 00 01 00 00 0A 3C 01 AE 8D 0B 04 AE 60 01 FA AC 8E 06 0E 92 02
            0B 91 01 05 AC D8 2F 01 F7 9D 5D F8 9E 25 02 28 0E 03 1A 1F 6A 04
            6A 05 6A 06 60 03 1A 1B 6A 04 0E 06 1A 04 6A 04 0E 05 14 60 02 1A
            0C 0E 04 1A 02 0E 06 14 60 01 1A 01 00 14 AF 62 1A 25 86 01 00 AC
            62 1A 0A 86 01 00 AC AB B3 30 66 82 01 AB 8C 94 72 16 02 92 04 09
            6A 07 AB AB B1 30 66 16 01 82 01 AB 8C 94 57 00 19 08
           )
      FUNCTION DOCUMENTATION
      #S(HASH-TABLE EQ (:AND-WRITABLE-NOT-MULTILINE . 34.)
         (:AND-WRITABLE-MULTILINE . 30.) (:MULTILINE . 21.) (:WRITABLE . 15.)
         (:ALL . 5.) (:CONTROL . 1.)
        )
      CONTROL-TABLE FULL-TABLE HALF-TABLE LINE-EDIT-TABLE DOCSTRINGS-TABLE
  )  )
#Y(#:TOP-LEVEL-FORM-116
   #20Y(00 00 00 00 00 01 D8 30 5B D9 8B 50 04 D9 62 30 53 C4 19 01)
   (SPECIAL *EDITOR-ACTIVE*) *EDITOR-ACTIVE*
  )
#Y(#:TOP-LEVEL-FORM-117
   #26Y(00 00 00 00 00 01 D8 30 5B D9 8B 50 0A D9 DA 37 07 7C 04 70 19 30 53 C4
        19 01
       )
   (SPECIAL *EDIT-SCREENS*) *EDIT-SCREENS* 13.
  )
#Y(#:TOP-LEVEL-FORM-118
   #26Y(00 00 00 00 00 01 D8 30 5B D9 8B 50 0A D9 DA 37 07 7C 04 70 19 30 53 C4
        19 01
       )
   (SPECIAL *SCREEN-PATHS*) *SCREEN-PATHS* 13.
  )
#Y(#:TOP-LEVEL-FORM-119 #12Y(00 00 00 00 00 01 D8 30 5B C4 19 01)
   (SPECIAL *ACTIVE-SCREEN*) *ACTIVE-SCREEN*
  )
#Y(#:TOP-LEVEL-FORM-120 #12Y(00 00 00 00 00 01 D8 30 5B C4 19 01)
   (SPECIAL ERROR-SCREEN) ERROR-SCREEN
  )
#Y(#:TOP-LEVEL-FORM-121 #12Y(00 00 00 00 00 01 D8 30 5B C4 19 01)
   (SPECIAL TRACE-SCREEN) TRACE-SCREEN
  )
#Y(#:TOP-LEVEL-FORM-122 #12Y(00 00 00 00 00 01 D8 30 5B C4 19 01)
   (SPECIAL HELP-SCREEN) HELP-SCREEN
  )
#Y(#:TOP-LEVEL-FORM-123 #12Y(00 00 00 00 00 01 D8 30 5B C4 19 01)
   (SPECIAL MAIN-SCREEN) MAIN-SCREEN
  )
#Y(#:TOP-LEVEL-FORM-124 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   EDIT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(EDIT
      #330Y(00 00 01 00 00 07 3A 01 0E 7C 01 0E 00 1C 0C D9 9D 51 0E 31 1A 80
            F8 0E 00 1B 74 52 81 24 6A 02 63 2F 03 2D 04 10 05 52 81 0F 6A 05
            2E 06 41 02 9C 10 07 9E 10 08 6A 08 E1 30 44 10 0A E3 8B 50 0F 6A
            0C 2D 0D 0F 0B 14 AB E6 AC 32 01 02 16 02 E7 8B 50 1F 6A 0C E8 E9
            EA EB EC ED EE EF F0 F1 6A 08 72 02 35 2C 0A 0D 0F 0F 14 AB EB AC
            32 01 02 16 02 F2 8B 50 1D 6A 0C E8 F3 EA F4 EC F5 EE 64 1E F0 64
            1F 2C 0A 0D 0F 1A 14 AB 64 20 AC 32 01 02 16 02 64 21 8B 50 80 48
            6A 0C E8 64 22 64 23 64 24 6D 03 25 EA F4 EC 64 26 2C 06 0D 0F 21
            14 AB 64 27 AC 32 01 02 16 02 6A 21 64 28 71 46 2F 29 6A 21 00 2A
            01 00 0B 00 00 AA 6C 2A 01 6A 2B 30 68 06 00 00 F6 71 46 2F 29 6A
            21 E6 E6 2C 03 2C 64 2D 8B 50 03 D1 0F 2D 52 38 46 2E 34 AC 6C 2F
            01 C4 4F 29 02 10 00 91 1F 17 6A 0C 6A 2D 72 01 01 6A 30 6A 2D EB
            8F 01 2F FF 05 0E 32 14 2C 03 33 39 01 00 A3 33 00 11 50 09 19 1A
            54 09 19 1A 50 53 6A 0C 62 64 34 AC 32 00 26 16 01 6A 05 2E 35 54
            12 03 16 02 53 6A 05 37 01 31 73 54 11 53 6A 02 62 2F 03 54 19 02
           )
      *EDITOR-ACTIVE* EDITOR-ACTIVE *TERMINAL-IO* SYSTEM::TERMINAL-RAW
      SCREEN:MAKE-WINDOW *WINDOW* SCREEN:WINDOW-SIZE GLOBAL-SCREEN-HEIGHT
      GLOBAL-SCREEN-WIDTH #\Space BLANKS MAIN-SCREEN *EDIT-SCREENS* MAKE-SCREEN
      0. ERROR-SCREEN :TITLE " Errors: " :HEIGHT 10. :WIDTH 50. :TOP-LIN 2.
      :LEFT-COL -53. TRACE-SCREEN " Trace: " 15. 70. 8. 3. 11. HELP-SCREEN
      " Key bindings " " Tastenzuordnung " " Associations des touches "
      SYSTEM::LANGUAGE 78. 12.
      (" ==========================================================================="
       (DEUTSCH "                         T A S T E N B E L E G U N G" ENGLISH
        "                           K E Y   B I N D I N G S" FRANCAIS
        "               A S S O C I A T I O N S   D E S   T O U C H E S"
       )
       " ==========================================================================="
       "" ""
      )
      INSERT-LINELIST
      #Y(EDIT-1
         #24Y(02 00 00 00 00 03 62 D9 AE AE 70 5C 6D 04 02 07 00 01 5C 0C 00 01
              19 03
             )
         NIL "~:@C~25T --> ~A" FORMAT
        )
      DOCSTRINGS-TABLE SET-CURSOR *ACTIVE-SCREEN* EDITOR
      #Y(EDIT-HANDLE-COMMAND
         #444Y(01 00 00 00 01 17 C4 4F 81 B0 A0 25 02 81 A3 00 48 00 C6 0F 04
               1A 81 9F C8 0F 04 1A 81 99 C9 0F 04 1A 81 93 6A 07 93 05 90 01
               01 81 85 9F 5A 0F 04 1A 81 83 6A 07 93 05 90 01 01 81 75 6A 07
               93 05 72 01 01 6E 0A 92 00 0A AA 6A 07 37 06 CE F7 8D 5D 32 CF
               1A 2F 6A 07 6A 04 72 01 01 6E 0A 6A 07 6A 04 AB AB 62 32 01 02
               16 02 6A 0D 6A 04 AB AB 62 32 01 02 16 02 92 00 0A AA 6A 07 37
               06 CE F7 8D 5D 01 CF 0F 04 16 01 1A 81 2B AB AB 2F 0F 16 02 1A
               81 22 6A 0D 6A 04 8F 01 01 0F 6A 0D 6A 04 2D 0E 14 AC AC AC 32
               01 02 16 03 6A 07 6A 04 72 01 01 6A 0D 6A 04 72 01 01 9B 1F 4F
               AB E4 E4 6D 03 10 93 01 94 02 9C 10 11 1A 08 AA 01 02 B1 30 5D
               16 01 AF 62 EA 37 01 70 76 AA EA 8E 01 6C 00 16 01 11 16 05 1A
               80 CE 6A 07 6A 04 72 01 01 2D 0E 14 2F 0F 1A 80 BF 5A 1A 15 E0
               6A 09 30 8A 16 02 1A 80 B2 91 05 70 EB EC ED 6D 03 16 2E 17 14
               46 18 0B AC 2B 19 01 10 1A B0 30 E7 11 47 F6 14 23 1B 57 6A 07
               AB AD 6F 1C AB AE AC 32 01 02 16 02 6A 0D AA AD AD 32 01 02 16
               01 1A 80 63 62 6A 07 37 06 71 5D 91 00 FF BB E0 6A 09 30 8A 16
               01 1A 80 63 62 6A 07 37 06 71 5D 92 00 6C F5 62 64 1E 93 08 6D
               03 1F 64 20 AD 64 21 64 22 64 23 64 24 6D 08 25 AA A2 5B 5B 5B
               77 2F 26 AA 2E 27 AA E4 E4 2C 03 28 6A 07 AA AD AD 32 01 02 16
               01 6A 0D A2 5B 77 A3 5B 5B 5A 79 AB AE AC 32 01 02 16 02 9C 0F
               04 16 02 1A 0E E4 6A 04 DB 8F 02 2F FE A4 E0 6A 09 30 8A 50 19
               03 19 03
              )
         NIL HANDLE-COMMAND
         #S(HASH-TABLE EQ (:FORM . 327.) (:LOAD . 306.) (:SAVE-AS . 220.)
            (:SAVE . 136.) (:DELETE . 412.) (:HIDE . 39.) (:TOP . 23.)
            (:HELP . 17.) (:TRACE . 11.) (:ERROR . 5.) (:LEAVE . 2.)
           )
         10. *ACTIVE-SCREEN* 11. 12. *EDIT-SCREENS* #\Bell *TERMINAL-IO*
         HIDE-SCREEN #.#'EQ 0. *SCREEN-PATHS* GET-SAVE-PATH SCREEN-TO-FILE
         MAKE-READ-FROM-SCREEN-STREAM *PACKAGE* "EOF" " File to load: "
         " Lade: " " Fichier à charger: " SYSTEM::LANGUAGE LINE-EDIT NIL
         #Y(EDIT-HANDLE-COMMAND-1 #9Y(00 00 00 00 01 16 C4 48 00) NIL
            #.ERRORVAL
           )
         *ERROR-HANDLER* #.ERRORVAL FILE-TO-SCREEN :TITLE " ~A " FORMAT
         :TOP-LIN :WIDTH 78. :HEIGHT 13. MAKE-SCREEN INSERT-STRING INSERT-LINE
         SET-CURSOR
        )
      CONTROL-TABLE FULL-TABLE HALF-TABLE EDIT1
      #Y(EDIT-2 #15Y(01 00 00 00 00 02 92 01 03 AB 2E 00 00 19 02) HIDE-SCREEN)
      SCREEN:CLEAR-WINDOW
  )  )
#Y(#:TOP-LEVEL-FORM-125 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   RETURN-NIL SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(RETURN-NIL #9Y(00 00 00 00 01 16 00 19 02))
  )
#Y(#:TOP-LEVEL-FORM-126 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   EDIT1 SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(EDIT1
      #45Y(03 00 00 00 00 04 00 2A 03 7E 04 00 00 7E 03 00 01 7E 02 00 02 67 00
           00 2E 00 C4 4F 0E AD 6C 02 01 AE 6C 03 01 9C 73 9C 33 1A 7A 19 05
          )
      ACTIVATE-SCREEN EDIT
      #Y(EDIT1-READ-EDIT-COMMAND
         #24Y(00 00 00 00 00 01 68 00 01 2E 01 6A 02 37 03 70 7A 6A 03 2E 04 15
              19 01
             )
         NIL SET-CURSOR-VISIBLE *KEYBOARD-INPUT* *WINDOW*
         SCREEN:WINDOW-CURSOR-OFF
        )
      #Y(EDIT1-EXECUTE-EDIT-COMMAND
         #96Y(01 00 00 00 00 02 C4 4F 80 54 AE 8C 1D 0C AE DA 90 01 0C 06 AE DB
              90 01 07 25 AE 68 00 02 37 01 30 65 41 02 91 00 2F B0 68 00 03 98
              05 70 65 68 00 01 35 01 1D 23 DE 6A 07 30 8A 16 02 1A 1C DC 68 00
              03 98 05 70 65 68 00 01 B0 35 02 1D 0C DE 6A 07 30 8A 1A 05 E0 9D
              51 16 02 50 19 02 19 02
             )
         NIL HANDLE-COMMAND #\Space #\Rubout :STRING-CHAR RETURN-NIL #\Bell
         *TERMINAL-IO* EDIT
  )  )  )
#Y(#:TOP-LEVEL-FORM-127 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   GET-SAVE-PATH SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(GET-SAVE-PATH
      #45Y(00 00 00 00 00 01 62 1A 05 E1 6A 0A 30 8A D8 D9 DA 6D 03 03 2E 04 F6
           46 05 0B AC 2B 06 01 10 07 B0 30 E7 11 47 F6 14 23 08 5F 15 19 01
          )
      " Save as: " " Abspeichern als: " " Garder sous le nom: "
      SYSTEM::LANGUAGE LINE-EDIT NIL
      #Y(GET-SAVE-PATH-1 #9Y(00 00 00 00 01 16 C4 48 00) NIL #.ERRORVAL)
      *ERROR-HANDLER* #.ERRORVAL #\Bell *TERMINAL-IO*
  )  )
#Y(#:TOP-LEVEL-FORM-128 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   LINE-EDIT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(LINE-EDIT
      #56Y(01 00 01 00 00 08 3A 01 02 C3 F7 D9 DA DB DC DD B1 6D 06 06 AA AD 2F
           07 AA 6A 08 6A 09 6D 03 0A AB 2E 0B 93 00 23 0C 0D E6 AC DA 71 2E E7
           72 01 01 31 44 19 05 E5 00 51
          )
      "" :HEIGHT 1. :WIDTH 40. :TITLE MAKE-SCREEN INSERT-STRING NULL-TABLE
      LINE-EDIT-TABLE EDIT1 HIDE-SCREEN :LEAVE HANDLE-COMMAND SCREEN 0.
  )  )
#Y(#:TOP-LEVEL-FORM-129 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   FILE-TO-SCREEN SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(FILE-TO-SCREEN
      #80Y(02 00 00 00 00 03 D8 62 D9 AF 37 01 70 F2 6D 03 02 DB AE DC DD DE DF
           6D 08 08 AD 8C F6 2F AD E1 37 03 70 F9 52 15 AD AD 2F 0A 92 02 05 14
           37 01 31 73 3D 53 05 00 00 1C 0B 1A 05 05 00 00 1C 04 14 63 31 73 54
           16 01 AA E3 E3 2C 03 0C 15 19 03
          )
      :TITLE " ~A " FORMAT :TOP-LIN :WIDTH 78. :HEIGHT 13. MAKE-SCREEN :INPUT
      INSERT-STREAM 0. SET-CURSOR
  )  )
#Y(#:TOP-LEVEL-FORM-130 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   SCREEN-TO-FILE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SCREEN-TO-FILE
      #73Y(02 00 00 00 00 03 D8 AD D9 71 2E AA 71 45 71 8E AD DA 37 03 C6 F7 70
           F9 52 20 B1 DC DC B0 B2 B2 72 01 01 71 45 B1 2C 06 05 92 02 05 14 37
           01 31 73 3D 53 05 00 00 1C 0B 1A 05 05 00 00 1C 04 14 63 31 73 54 16
           03 02 19 03
          )
      SCREEN 1. :OUTPUT :RENAME 0. WRITE-REGION
  )  )
#Y(#:TOP-LEVEL-FORM-131 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   FINISH SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(FINISH #9Y(01 00 00 00 00 02 D8 C4 51) EDIT (:FINISH))
  )
#Y(#:TOP-LEVEL-FORM-132 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   MAKE-READ-FROM-SCREEN-STREAM SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(MAKE-READ-FROM-SCREEN-STREAM
      #112Y(03 00 02 00 00 0F 00 2A 04 7E 05 00 00 7E 04 00 01 3A 03 01 00 0B
            00 02 3A 02 01 00 0B 00 03 9B 2A 01 D8 B2 D9 31 2E 0B 00 00 06 01
            02 1C 30 06 01 03 1B 0E 67 00 00 67 02 02 72 01 01 31 45 0B 01 03
            9B 2A 03 00 0B 00 00 0B 00 01 AA 6C 02 01 62 2F 03 0B 00 02 14 AB
            6C 04 01 3F 02 19 09 67 00 00 71 45 31 8E 0B 01 02 06 01 03 1C 46
            1A 52
           )
      SCREEN 1.
      #Y(MAKE-READ-FROM-SCREEN-STREAM-1
         #102Y(00 00 00 00 00 01 68 02 01 68 02 03 8F 01 30 80 40 68 02 01 68
               02 03 90 01 2D 0A 68 02 02 68 02 04 8F 01 32 2C 68 01 01 68 02
               01 72 01 01 07 02 01 0C 00 01 07 02 02 0C 00 02 14 AB 71 45 8F
               01 32 12 AA 68 02 02 AC 31 45 0C 02 02 14 3F 03 19 02 00 19 01
               68 02 01 31 8D 0C 02 01 C4 0C 02 02 6A 02 D9 C6 1A 66
              )
         NIL 0. NEWLINE-AS-STRING 1.
        )
      MAKE-BUFFERED-INPUT-STREAM
      #Y(MAKE-READ-FROM-SCREEN-STREAM-2
         #38Y(00 00 00 00 00 01 68 00 03 6E 01 AA 23 02 0F 68 02 01 AB 68 02 02
              32 01 34 14 3F 02 19 02 68 00 01 07 00 02 1A 73
             )
         NIL SYSTEM::BUFFERED-INPUT-STREAM-INDEX 0.
  )  )  )
#Y(#:TOP-LEVEL-FORM-133 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   MAKE-WRITE-TO-SCREEN-STREAM SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(MAKE-WRITE-TO-SCREEN-STREAM
      #30Y(01 00 00 00 00 02 00 2A 01 7E 02 00 00 AA 6C 00 01 67 01 00 D9 AB DA
           80 2E 00 2F 03 19 03
          )
      #Y(MAKE-WRITE-TO-SCREEN-STREAM-1
         #14Y(01 00 00 00 00 02 68 00 01 AC 2F 01 19 02) NIL INSERT-STRING
        )
      SCREEN 3. MAKE-BUFFERED-OUTPUT-STREAM
  )  )
#Y(#:TOP-LEVEL-FORM-134
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 C3 19 01)
   MAKE-WRITE-TO-SCREEN-STREAM-WITH-FLAG SYSTEM::REMOVE-OLD-DEFINITIONS
   SYSTEM::MACRO
   #Y(MAKE-WRITE-TO-SCREEN-STREAM-WITH-FLAG
      #86Y(01 00 01 00 00 08 AC 71 45 D8 8F 01 2E 80 42 9D 5B 77 9E 5B 5B 77 37
           01 71 86 37 01 71 86 DA AB AF 7A 02 7A 01 DB AD 7A 02 DC DD DE B1 7A
           01 DF B2 B4 7A 03 E0 E1 E2 B6 7A 02 7A 02 E3 B7 CF 7B 02 7A 03 7A 04
           7A 02 E5 B0 7A 02 7A 03 60 04 19 07 AC 2E 01 19 03
          )
      3. SYSTEM::MACRO-CALL-ERROR LET CURSOR-TO-END-OF-TEXT
      MAKE-BUFFERED-OUTPUT-STREAM FUNCTION LAMBDA INSERT-STRING WHEN PLUSP
      LENGTH SETQ (T) SCREEN-COL
  )  )
#Y(#:TOP-LEVEL-FORM-135 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   EVAL-REGION SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(EVAL-REGION
      #207Y(05 00 00 00 00 06 92 04 80 7B 00 2A 02 00 0B 00 00 0B 00 01 B0 B0
            B0 B0 B0 6D 05 00 6A 01 2E 02 10 03 9F 2A 01 0E 04 0B 00 00 14 2E
            05 AA 6C 06 01 67 01 00 DF AB E0 80 2E 00 2F 09 16 01 10 0A A2 2A
            01 0E 0B 0B 00 00 14 2E 05 AA 6C 0C 01 67 01 00 DF AB E0 80 2E 00
            2F 09 16 01 10 0D 46 0E 0F AC 2B 0F 01 10 10 B9 37 03 70 76 30 5C
            11 47 42 14 B4 37 01 31 73 92 00 2E 06 0B 00 1B 29 37 01 30 8E 1A
            18 00 19 06 EB D7 51 EB 03 15 51 E9 37 01 30 8A EA 37 01 30 8A 37
            01 30 8D 93 00 82 01 37 01 30 83 91 00 67 37 01 30 8E 6A 03 37 01
            31 73 6A 0A 37 01 31 73 6A 0D 37 01 31 73 06 0B 00 1B 45 06 0B 01
            1B 43 02 16 01 12 03 19 08
           )
      MAKE-READ-FROM-SCREEN-STREAM MAIN-SCREEN MAKE-WRITE-TO-SCREEN-STREAM
      *STANDARD-OUTPUT* ERROR-SCREEN CURSOR-TO-END-OF-TEXT
      #Y(EVAL-REGION-1
         #27Y(01 00 00 00 00 02 68 00 01 AC 2F 01 AB 71 45 8D 89 03 00 19 02 02
              0C 01 01 19 02
             )
         NIL INSERT-STRING
        )
      SCREEN 3. MAKE-BUFFERED-OUTPUT-STREAM *ERROR-OUTPUT* TRACE-SCREEN
      #Y(EVAL-REGION-2
         #27Y(01 00 00 00 00 02 68 00 01 AC 2F 01 AB 71 45 8D 89 03 00 19 02 02
              0C 01 02 19 02
             )
         NIL INSERT-STRING
        )
      *TRACE-OUTPUT* NIL
      #Y(EVAL-REGION-3
         #21Y(02 00 00 00 01 18 6A 01 30 8E 98 02 6A 01 AE 9F 36 02 C6 48 00)
         NIL *ERROR-OUTPUT* FORMAT #.ERRORVAL
        )
      *ERROR-HANDLER* #\Space #\; EDIT (:ERROR) (:TRACE)
  )  )
#Y(#:TOP-LEVEL-FORM-136-1 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
   EVAL-BLOCK FUNCTION
   (DEUTSCH "Block-Inhalt auswerten" ENGLISH "evaluate block contents" FRANCAIS
    "évaluer le contenu du bloc"
   )
   SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-136-2 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   EVAL-BLOCK SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(EVAL-BLOCK #19Y(01 00 00 00 00 02 97 00 44 AC 66 00 01 2E 01 40 45 19 02)
      EVAL-REGION GET-BLOCK
  )  )
#Y(#:TOP-LEVEL-FORM-137 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   GET-WHITESPACE-RIGHT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(GET-WHITESPACE-RIGHT
      #79Y(01 00 02 00 00 0D 3A 02 06 D8 AE D9 80 2E 02 3A 01 06 D8 AE DA 80 2E
           01 D8 AE DB 71 2E AA 71 45 71 8E AB AF 72 01 01 DC AB 37 05 A6 F9 DD
           71 5D 91 00 13 16 01 AF AC 8D 01 12 84 05 C9 FA AC B0 81 01 01 00 1A
           61 B0 AB 3F 02 19 08 00 19 07
          )
      SCREEN 2. 3. 1. #\Space #.#'EQL 0.
  )  )
#Y(#:TOP-LEVEL-FORM-138-1 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
   SKIP-WHITESPACE-RIGHT FUNCTION
   (DEUTSCH "Whitespace nach rechts überspringen" ENGLISH
    "skip whitespace right" FRANCAIS "sauter le blanc à droite"
   )
   SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-138-2 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   SKIP-WHITESPACE-RIGHT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SKIP-WHITESPACE-RIGHT
      #24Y(01 00 00 00 00 02 AB 2E 00 41 02 9C 1E 08 AD AC AC 2C 03 01 19 04 19
           04
          )
      GET-WHITESPACE-RIGHT SET-CURSOR
  )  )
#Y(#:TOP-LEVEL-FORM-139 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   MODIFIED-READTABLE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(MODIFIED-READTABLE
      #19Y(00 00 00 00 00 01 37 02 70 6F D8 D9 62 AD 30 71 15 19 01) #\|
      #Y(MODIFIED-READTABLE-1
         #33Y(02 00 00 00 00 03 62 AD 62 37 02 70 7C 23 00 03 00 19 03 D9 DA AE
              DB DC DD 6D 03 06 DF B1 32 04 1F
             )
         #\# STREAM-ERROR :STREAM "~S from ~S: |# is legal only after #|"
         "~S von ~S: |# ist nur nach #| zulässig."
         "~S de ~S : |# est permis qu'après #|" SYSTEM::LANGUAGE READ
  )  )  )
#Y(#:TOP-LEVEL-FORM-140 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   GET-NEXT-OBJECT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(GET-NEXT-OBJECT
      #120Y(01 00 03 00 00 11 3A 03 06 D8 AF D9 80 2E 03 3A 02 06 D8 AF DA 80
            2E 02 3A 01 03 2D 03 F7 AE AE AE 2C 03 04 41 02 91 01 0D 01 04 3F
            04 19 07 01 04 3F 04 53 1A 38 B0 AC AC 2C 03 05 41 02 52 2E 46 06
            19 AC 2B 07 01 10 08 02 10 09 CD 10 0B 04 13 10 0C BC 63 62 63 30
            77 12 04 47 14 23 0D 4F D1 44 B0 66 00 04 66 00 02 35 00 40 45 53
            66 00 01 37 01 31 73 54 19 09
           )
      SCREEN 2. 3. MODIFIED-READTABLE GET-WHITESPACE-RIGHT
      MAKE-READ-FROM-SCREEN-STREAM NIL
      #Y(GET-NEXT-OBJECT-1 #9Y(00 00 00 00 01 16 C4 48 00) NIL #.ERRORVAL)
      *ERROR-HANDLER* *READ-SUPPRESS* #.MOST-POSITIVE-FIXNUM
      SYSTEM::*BACKQUOTE-LEVEL* *READTABLE* #.ERRORVAL #.#'VALUES
  )  )
#Y(#:TOP-LEVEL-FORM-141-1 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
   MARK-NEXT-OBJECT FUNCTION
   (DEUTSCH "Nächstes LISP-Objekt markieren" ENGLISH "mark next Lisp object"
    FRANCAIS "marquer le prochain objet Lisp"
   )
   SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-141-2 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   MARK-NEXT-OBJECT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(MARK-NEXT-OBJECT
      #19Y(01 00 00 00 00 02 97 00 44 AC 66 00 01 2E 01 40 45 19 02)
      MARK-REGION GET-NEXT-OBJECT
  )  )
#Y(#:TOP-LEVEL-FORM-142 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   GET-TOPLEVEL-FORM SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(GET-TOPLEVEL-FORM
      #203Y(01 00 00 00 00 02 D8 AC D9 71 2E D8 AD DA 71 2E D8 AE DB 71 2E AC
            AC 72 01 01 1A 16 14 80 8D 02 16 01 1A 23 85 03 AE AE 81 01 01 01
            14 80 45 02 16 01 DC AB 63 37 04 A3 F8 DD 71 5D 91 00 5D AD 24 06
            61 C9 F8 16 01 16 01 2D 07 14 AC 62 E0 1A 13 AD AD AD AD 7A 04 83
            07 16 04 1A 80 5C 5A 43 19 09 85 02 B0 AD 72 01 01 DC AB 37 05 DD
            71 5D 92 00 80 46 AB AB 70 32 E1 37 03 8B B5 3C AA AD 90 01 31 36
            9B F8 B4 AF AC B2 2C 04 0A 41 04 92 03 26 14 B6 8F 01 2F 0C AD B6
            90 01 2D 1A AC B5 90 01 31 14 B5 AC 8F 01 2F FF A6 B5 AC 90 01 2D
            07 B4 AB 8F 01 31 FF 99 16 04 16 02 AC 24 06 FF A1 91 01 FF 99 01
            04 3F 04 19 09
           )
      SCREEN 1. 2. 3. #\Space #.#'EQL 0. MODIFIED-READTABLE
      #.MOST-POSITIVE-FIXNUM (#\; #\)) GET-NEXT-OBJECT
  )  )
#Y(#:TOP-LEVEL-FORM-143-1 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
   MARK-TOPLEVEL-FORM FUNCTION
   (DEUTSCH "Toplevel-Form markieren" ENGLISH "mark surrounding top level form"
    FRANCAIS "marquer la forme entourante extérieure"
   )
   SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-143-2 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   MARK-TOPLEVEL-FORM SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(MARK-TOPLEVEL-FORM
      #19Y(01 00 00 00 00 02 97 00 44 AC 66 00 01 2E 01 40 45 19 02)
      MARK-REGION GET-TOPLEVEL-FORM
  )  )
#Y(#:TOP-LEVEL-FORM-144-1 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
   EVAL-TOPLEVEL-FORM FUNCTION
   (DEUTSCH "Toplevel-Form auswerten" ENGLISH
    "evaluate surrounding top level form" FRANCAIS
    "évaluer la forme entourante extérieure"
   )
   SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-144-2 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   EVAL-TOPLEVEL-FORM SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(EVAL-TOPLEVEL-FORM
      #19Y(01 00 00 00 00 02 97 00 44 AC 66 00 01 2E 01 40 45 19 02)
      EVAL-REGION GET-TOPLEVEL-FORM
  )  )
#Y(#:TOP-LEVEL-FORM-145 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   GET-NEXT-TAB-POS SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(GET-NEXT-TAB-POS
      #93Y(03 00 00 00 00 04 D8 AE D9 71 2E AA AE 72 01 01 AA 71 45 AE AB 8F 01
           32 12 AB AF 70 32 24 02 19 DA AC 37 05 A6 F9 DB 31 5D 1D 30 15 19 06
           DD AF 72 02 35 AB 32 01 34 19 07 AB AF 70 32 23 04 6E DA AC 37 06 A7
           FA 71 5D 92 00 0B DA AD 37 05 A2 F9 DB 31 5D 1D 03 9C 19 08 19 08 19
           07
          )
      SCREEN 1. #\Space #.#'EQL #\( 2.
  )  )
#Y(#:TOP-LEVEL-FORM-146 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   CURSOR-TO-COL SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(CURSOR-TO-COL
      #55Y(02 00 00 00 00 03 D8 AD D9 71 2E D8 AE DA 71 2E AB AB 72 01 01 AA 71
           45 AF AB 90 01 30 11 AB B0 2F 03 AB DC AC 37 01 31 4A B0 AD AC 2C 03
           05 B0 AD B1 2C 03 06 19 07
          )
      SCREEN 1. 2. RESIZE-ARRAY #\Space REFRESH-LINE SET-CURSOR
  )  )
#Y(#:TOP-LEVEL-FORM-147-1 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
   NEXT-INDENT FUNCTION
   (DEUTSCH "Leerstellen bis zur nächsten Einrückung" ENGLISH
    "insert spaces up to next tab stop" FRANCAIS
    "ajouter des espaces jusqu'au prochain tabulateur"
   )
   SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-147-2 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   NEXT-INDENT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(NEXT-INDENT
      #41Y(01 00 00 00 00 02 D8 AC D9 71 2E D8 AD DA 71 2E AB 23 03 0D AD AE 96
           03 AD 2C 03 05 14 2F 04 19 04 AD D9 AC 32 02 35 1A 73
          )
      SCREEN 2. 3. 0. CURSOR-TO-COL GET-NEXT-TAB-POS
  )  )
#Y(#:TOP-LEVEL-FORM-148
   #20Y(00 00 00 00 00 01 D8 30 5B D9 8B 50 04 D9 DA 30 53 C4 19 01)
   (SPECIAL *SEARCH-STRING*) *SEARCH-STRING* ""
  )
#Y(#:TOP-LEVEL-FORM-149-1 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
   SEARCH-FIRST FUNCTION
   (DEUTSCH "Nach Textstück Suchen" ENGLISH "search for a string" FRANCAIS
    "chercher une chaîne"
   )
   SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-149-2 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   SEARCH-FIRST SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SEARCH-FIRST
      #23Y(01 00 00 00 00 02 D8 D9 DA 6D 03 03 6A 04 2F 05 0F 04 AB 2E 06 19 02
          )
      " Search: " " Suche: " " Chercher: " SYSTEM::LANGUAGE *SEARCH-STRING*
      LINE-EDIT SEARCH-NEXT
  )  )
#Y(#:TOP-LEVEL-FORM-150-1 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
   SEARCH-NEXT FUNCTION
   (DEUTSCH "Weitersuchen" ENGLISH "continue searching" FRANCAIS
    "continuer à chercher"
   )
   SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-150-2 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   SEARCH-NEXT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SEARCH-NEXT
      #90Y(01 00 00 00 00 02 D8 AC D9 71 2E D8 AD DA 71 2E D8 AE DB 71 2E AC 71
           45 AB AE AE 72 01 01 71 45 8F 01 2F 22 00 14 91 00 15 84 03 14 AC 8D
           01 27 6A 04 AF AF 72 01 01 37 08 80 64 00 1C 6B B0 AE AC 2C 03 05 19
           07 6A 04 AE AE 72 01 01 37 08 B5 80 8D 05 31 64 1A 4E 00 19 07
          )
      SCREEN 1. 2. 3. *SEARCH-STRING* SET-CURSOR
  )  )
#Y(#:TOP-LEVEL-FORM-151-1 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 3D 19 01)
   C-H-DOC SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(C-H-DOC #20Y(01 00 00 00 00 02 62 D8 D9 DA 6D 03 03 95 03 2C 03 04 19 02)
      "show window ~D" "Fenster Nr. ~D nach oben bringen"
      "montrer la fenêtre ~D" SYSTEM::LANGUAGE FORMAT
  )  )
#Y(#:TOP-LEVEL-FORM-151-2 #16Y(00 00 00 00 00 01 D8 D9 DA DB 2C 04 04 3D 19 01)
   #\HYPER-A :CONTROL (:TOP 0.) (C-H-DOC 0.) BIND-KEY
  )
#Y(#:TOP-LEVEL-FORM-151-3 #16Y(00 00 00 00 00 01 D8 D9 DA DB 2C 04 04 3D 19 01)
   #\HYPER-B :CONTROL (:TOP 1.) (C-H-DOC 1.) BIND-KEY
  )
#Y(#:TOP-LEVEL-FORM-151-4 #16Y(00 00 00 00 00 01 D8 D9 DA DB 2C 04 04 3D 19 01)
   #\HYPER-C :CONTROL (:TOP 2.) (C-H-DOC 2.) BIND-KEY
  )
#Y(#:TOP-LEVEL-FORM-151-5 #16Y(00 00 00 00 00 01 D8 D9 DA DB 2C 04 04 3D 19 01)
   #\HYPER-D :CONTROL (:TOP 3.) (C-H-DOC 3.) BIND-KEY
  )
#Y(#:TOP-LEVEL-FORM-151-6 #16Y(00 00 00 00 00 01 D8 D9 DA DB 2C 04 04 3D 19 01)
   #\HYPER-E :CONTROL (:TOP 4.) (C-H-DOC 4.) BIND-KEY
  )
#Y(#:TOP-LEVEL-FORM-151-7 #16Y(00 00 00 00 00 01 D8 D9 DA DB 2C 04 04 3D 19 01)
   #\HYPER-F :CONTROL (:TOP 5.) (C-H-DOC 5.) BIND-KEY
  )
#Y(#:TOP-LEVEL-FORM-151-8 #16Y(00 00 00 00 00 01 D8 D9 DA DB 2C 04 04 3D 19 01)
   #\HYPER-G :CONTROL (:TOP 6.) (C-H-DOC 6.) BIND-KEY
  )
#Y(#:TOP-LEVEL-FORM-151-9 #16Y(00 00 00 00 00 01 D8 D9 DA DB 2C 04 04 3D 19 01)
   #\HYPER-H :CONTROL (:TOP 7.) (C-H-DOC 7.) BIND-KEY
  )
#Y(#:TOP-LEVEL-FORM-151-10
   #16Y(00 00 00 00 00 01 D8 D9 DA DB 2C 04 04 3D 19 01) #\HYPER-I :CONTROL
   (:TOP 8.) (C-H-DOC 8.) BIND-KEY
  )
#Y(#:TOP-LEVEL-FORM-151-11
   #16Y(00 00 00 00 00 01 D8 D9 DA DB 2C 04 04 3D 19 01) #\HYPER-J :CONTROL
   (:TOP 9.) (C-H-DOC 9.) BIND-KEY
  )
#Y(#:TOP-LEVEL-FORM-151-12
   #16Y(00 00 00 00 00 01 D8 D9 DA DB 2C 04 04 3D 19 01) #\CONTROL-G :CONTROL
   (:HELP)
   (DEUTSCH "Hilfefenster (diesen Text) nach oben bringen" ENGLISH
    "show help window (this text)" FRANCAIS
    "montrer la fenêtre d'aide (celle-ci)"
   )
   BIND-KEY
  )
#Y(#:TOP-LEVEL-FORM-151-13
   #16Y(00 00 00 00 00 01 D8 D9 DA DB 2C 04 04 3D 19 01) #\CONTROL-E :CONTROL
   (:ERROR)
   (DEUTSCH "Errorfenster nach oben bringen" ENGLISH "show error window"
    FRANCAIS "montrer la fenêtre des erreurs"
   )
   BIND-KEY
  )
#Y(#:TOP-LEVEL-FORM-151-14
   #16Y(00 00 00 00 00 01 D8 D9 DA DB 2C 04 04 3D 19 01) #\CONTROL-T :CONTROL
   (:TRACE)
   (DEUTSCH "Tracefenster nach oben bringen" ENGLISH "show trace window"
    FRANCAIS "montrer la fenêtre des traces"
   )
   BIND-KEY
  )
#Y(#:TOP-LEVEL-FORM-151-15
   #16Y(00 00 00 00 00 01 D8 D9 DA DB 2C 04 04 3D 19 01) #\CONTROL-Q :CONTROL
   (:DELETE)
   (DEUTSCH "oberes Fenster wegwerfen" ENGLISH "delete current window" FRANCAIS
    "enlever la fenêtre courante"
   )
   BIND-KEY
  )
#Y(#:TOP-LEVEL-FORM-151-16
   #16Y(00 00 00 00 00 01 D8 D9 DA DB 2C 04 04 3D 19 01) #\CONTROL-X :CONTROL
   (:LOAD)
   (DEUTSCH "File laden" ENGLISH "load file" FRANCAIS "charger fichier")
   BIND-KEY
  )
#Y(#:TOP-LEVEL-FORM-151-17
   #16Y(00 00 00 00 00 01 D8 D9 DA DB 2C 04 04 3D 19 01) #\CONTROL-W :CONTROL
   (:SAVE-AS)
   (DEUTSCH "oberes Fenster als neues File abspeichern" ENGLISH
    "store to new file" FRANCAIS "placer le contenu dans un nouveau fichier"
   )
   BIND-KEY
  )
#Y(#:TOP-LEVEL-FORM-151-18
   #16Y(00 00 00 00 00 01 D8 D9 DA DB 2C 04 04 3D 19 01) #\Escape :CONTROL
   (:LEAVE)
   (DEUTSCH "Editor verlassen" ENGLISH "quit editor" FRANCAIS
    "quitter l'éditeur"
   )
   BIND-KEY
  )
#Y(#:TOP-LEVEL-FORM-151-19
   #16Y(00 00 00 00 00 01 D8 D9 98 02 2C 03 03 3D 19 01) :STRING-CHAR :WRITABLE
   INSERT-CHAR BIND-KEY
  )
#Y(#:TOP-LEVEL-FORM-151-20 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
   #\HYPER-Can :MULTILINE CURSOR-UP BIND-KEY
  )
#Y(#:TOP-LEVEL-FORM-151-21 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
   #\HYPER-Dc2 :MULTILINE CURSOR-DOWN BIND-KEY
  )
#Y(#:TOP-LEVEL-FORM-151-22 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
   #\HYPER-Dc4 :ALL CURSOR-LEFT BIND-KEY
  )
#Y(#:TOP-LEVEL-FORM-151-23 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
   #\HYPER-Syn :ALL CURSOR-RIGHT BIND-KEY
  )
#Y(#:TOP-LEVEL-FORM-151-24 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
   #\HYPER-Em :MULTILINE PAGE-UP BIND-KEY
  )
#Y(#:TOP-LEVEL-FORM-151-25 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
   #\HYPER-Dc3 :MULTILINE PAGE-DOWN BIND-KEY
  )
#Y(#:TOP-LEVEL-FORM-151-26 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
   #\CONTROL-P :MULTILINE CURSOR-UP BIND-KEY
  )
#Y(#:TOP-LEVEL-FORM-151-27 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
   #\CONTROL-N :MULTILINE CURSOR-DOWN BIND-KEY
  )
#Y(#:TOP-LEVEL-FORM-151-28 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
   #\CONTROL-S :ALL CURSOR-LEFT BIND-KEY
  )
#Y(#:TOP-LEVEL-FORM-151-29 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
   #\CONTROL-D :ALL CURSOR-RIGHT BIND-KEY
  )
#Y(#:TOP-LEVEL-FORM-151-30 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
   #\CONTROL-A :ALL CURSOR-TO-START-OF-LINE BIND-KEY
  )
#Y(#:TOP-LEVEL-FORM-151-31 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
   #\CONTROL-F :ALL CURSOR-TO-END-OF-LINE BIND-KEY
  )
#Y(#:TOP-LEVEL-FORM-151-32 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
   #\CONTROL-B :ALL SET-BLOCK-START BIND-KEY
  )
#Y(#:TOP-LEVEL-FORM-151-33 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
   #\CONTROL-K :ALL SET-BLOCK-END BIND-KEY
  )
#Y(#:TOP-LEVEL-FORM-151-34 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
   #\CONTROL-U :ALL HIDE-BLOCK BIND-KEY
  )
#Y(#:TOP-LEVEL-FORM-151-35 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
   #\Return :AND-WRITABLE-MULTILINE INSERT-LINE BIND-KEY
  )
#Y(#:TOP-LEVEL-FORM-151-36 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
   #\Return :AND-WRITABLE-NOT-MULTILINE FINISH BIND-KEY
  )
#Y(#:TOP-LEVEL-FORM-151-37 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
   #\CONTROL-Y :AND-WRITABLE-MULTILINE DELETE-LINE BIND-KEY
  )
#Y(#:TOP-LEVEL-FORM-151-38 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
   #\CONTROL-J :AND-WRITABLE-MULTILINE COMBINE-LINES BIND-KEY
  )
#Y(#:TOP-LEVEL-FORM-151-39 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
   (#\Backspace #\Rubout) :WRITABLE BACKSPACE BIND-KEY
  )
#Y(#:TOP-LEVEL-FORM-151-40 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
   #\CONTROL-V :ALL SKIP-WHITESPACE-RIGHT BIND-KEY
  )
#Y(#:TOP-LEVEL-FORM-151-41 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
   #\CONTROL-R :ALL MARK-NEXT-OBJECT BIND-KEY
  )
#Y(#:TOP-LEVEL-FORM-151-42 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
   (#\CONTROL-O #\HYPER-K) :ALL MARK-TOPLEVEL-FORM BIND-KEY
  )
#Y(#:TOP-LEVEL-FORM-151-43 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
   (#\CONTROL-L #\HYPER-L) :AND-WRITABLE-MULTILINE EVAL-TOPLEVEL-FORM BIND-KEY
  )
#Y(#:TOP-LEVEL-FORM-151-44 #14Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 19 01)
   #\Tab :WRITABLE NEXT-INDENT BIND-KEY
  )
#Y(#:TOP-LEVEL-FORM-152 #16Y(00 00 00 00 00 01 D8 30 5B D9 63 30 53 C4 19 01)
   (SPECIAL *USE-ED*) *USE-ED*
  )
#Y(#:TOP-LEVEL-FORM-153 #11Y(00 00 00 00 00 01 D8 30 55 19 01) ED)
#Y(#:TOP-LEVEL-FORM-154 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   ED SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(ED
      #308Y(00 00 01 00 00 07 3C 01 01 04 92 05 17 AF 8D 1A 05 AF 8E 07 80 DE
            0E 00 1B 11 A0 14 2E 03 19 06 2D 01 19 06 0E 00 1B 78 C5 1A 70 DC
            B0 70 F4 7A 02 2E 01 19 06 AF 8E 1C 80 EF AF DE 80 2B 03 14 88 05
            80 E5 1A 80 B4 E6 AE 6A 0F AD AF 37 0C 7D 07 F8 70 87 7A 05 2E 01
            1A 80 96 AB E1 71 2B AC E2 71 2B AD E3 71 2B AE E4 71 2B AF E5 71
            2B 72 05 00 0E 00 1B 51 2D 10 14 AA E9 37 03 70 F9 52 1B AF AD 30
            85 AC 30 8D AC 30 8D 92 02 05 14 37 01 31 73 3D 53 05 00 00 1C 0B
            1A 05 05 00 00 1C 04 14 63 31 73 54 16 01 AA 2E 03 AA EA 37 03 70
            F9 52 32 0E 0F 10 0F 1A 0C AA 01 02 B5 70 5D 37 01 30 84 16 01 AF
            62 EB 37 01 70 76 AA EB 8E 01 68 16 01 11 92 02 05 14 37 01 31 73
            3D 53 05 00 00 1C 0B 1A 05 05 00 00 1C 04 14 63 31 73 54 16 02 9F
            19 07 AF 88 05 FF 3C A0 F9 AD 2E 07 F8 14 8C 51 26 AC 7F 58 01 1B
            05 9D 5D F7 1C 1B AB 8E 1C 17 AB 8D 09 13 AF 87 05 05 AB B0 8E 01
            0A AC E0 37 01 80 7A 00 1B FF 32 EC ED EE EF 6D 03 18 B1 32 01 1F
           )
      *USE-ED* EDIT "" EDIT-FILE :LOAD SYSTEM::FUNCTION-NAME-P 0.
      SYSTEM::GET-FUNNAME-SYMBOL SYSTEM::DEFINITION 4. 5. 6. 7. 8. :FORM
      *PACKAGE* EDITOR-TEMPFILE :OUTPUT :INPUT "EOF" ERROR
      "~S cannot be edited." "~S ist nicht editierbar."
      "~S ne peut pas être édité." SYSTEM::LANGUAGE
  )  )