(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)
   (REXX-RUN-COMMAND REXX-SEND-COMMAND REXX-WAIT-SENT-COMMAND REXX-DO-COMMAND
    REXX-LOOP
  ))
#Y(#:TOP-LEVEL-FORM-3 #13Y(00 00 00 00 00 01 D8 37 02 30 E1 19 01) "SYSTEM")
#Y(#:TOP-LEVEL-FORM-4
   #20Y(00 00 00 00 00 01 D8 30 5B D9 8B 50 04 D9 62 30 53 C4 19 01)
   (SPECIAL *REXX-OUTMSG-LIST*) *REXX-OUTMSG-LIST*
  )
#Y(#:TOP-LEVEL-FORM-5 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   REXX-ADD-INDEX REMOVE-OLD-DEFINITIONS
   #Y(REXX-ADD-INDEX
      #18Y(01 00 01 00 00 08 3C 01 AC 9D 79 0E 00 5C 0F 00 19 03)
      *REXX-OUTMSG-LIST*
  )  )
#Y(#:TOP-LEVEL-FORM-6 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   REXX-FIND-INDEX REMOVE-OLD-DEFINITIONS
   #Y(REXX-FIND-INDEX #16Y(01 00 00 00 00 02 AB 6A 00 D9 37 02 30 BC 19 02)
      *REXX-OUTMSG-LIST* #.#'EQUAL
  )  )
#Y(#:TOP-LEVEL-FORM-7 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   REXX-DELETE-ENTRY REMOVE-OLD-DEFINITIONS
   #Y(REXX-DELETE-ENTRY
      #19Y(01 00 00 00 00 02 AB 6A 00 37 07 C4 F8 31 4F 0F 00 19 02)
      *REXX-OUTMSG-LIST* #.#'EQ
  )  )
#Y(#:TOP-LEVEL-FORM-8
   #22Y(00 00 00 00 00 01 D8 2E 01 D8 DA DB 2C 03 04 D8 DD 31 78 C3 19 01)
   REXX-SEND-COMMAND REMOVE-OLD-DEFINITIONS FUNCTION
   "Starts asynchronous execution of a rexx command." %SET-DOCUMENTATION
   #Y(REXX-SEND-COMMAND
      #28Y(01 00 00 00 81 00 05 00 00 00 98 05 B2 A3 76 01 91 00 03 00 19 09 14
           2E 06 15 19 08
          )
      :RESULT :STRING :TOKEN :ASYNC :IO %REXX-PUT REXX-ADD-INDEX
  )  )
#Y(#:TOP-LEVEL-FORM-9 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   REXX-NEXT-EVENT REMOVE-OLD-DEFINITIONS
   #Y(REXX-NEXT-EVENT
      #20Y(00 00 00 00 00 01 1A 04 16 01 2D 01 2D 00 14 92 00 76 19 02)
      %REXX-GET %REXX-WAIT-INPUT
  )  )
#Y(#:TOP-LEVEL-FORM-10
   #22Y(00 00 00 00 00 01 D8 2E 01 D8 DA DB 2C 03 04 D8 DD 31 78 C3 19 01)
   REXX-LOOP REMOVE-OLD-DEFINITIONS FUNCTION
   "Rexx driver loop. Optional message to wait for." %SET-DOCUMENTATION
   #Y(REXX-LOOP
      #28Y(00 00 01 00 00 07 00 2A 01 3A 02 01 00 0B 00 00 46 00 07 AD AD 6C 01
           02 30 56 19 03
          )
      REXX-LOOP
      #Y(LISP::REXX-LOOP-1
         #121Y(00 00 00 00 00 01 2D 02 14 9B 5B 77 8D 08 39 62 52 80 52 46 04
               80 4D 37 01 71 6D 52 18 AF 2B 05 01 10 06 A7 5B 77 37 05 70 80
               70 5C B0 30 86 11 AC 31 6E 3E 53 66 00 00 37 01 31 73 54 16 01
               FB 47 53 1A 21 9B 5B 48 01 93 00 6E 03 92 00 05 14 94 02 30 AC
               16 01 93 00 68 00 01 8D 02 66 00 19 02 CA 1A 0B 53 05 00 01 77
               05 00 00 1B 73 CB 14 66 00 00 2C 03 09 54 19 03
              )
         NIL NIL REXX-NEXT-EVENT REXX-FIND-INDEX TRY-REP
         #Y(LISP::REXX-LOOP-1-1 #9Y(00 00 00 00 01 16 00 48 00) NIL)
         *ERROR-HANDLER* 0. 5. %REXX-REPLY
  )  )  )
#Y(#:TOP-LEVEL-FORM-11
   #22Y(00 00 00 00 00 01 D8 2E 01 D8 DA DB 2C 03 04 D8 DD 31 78 C3 19 01)
   REXX-WAIT-SENT-COMMAND REMOVE-OLD-DEFINITIONS FUNCTION
   "Waits for command termination." %SET-DOCUMENTATION
   #Y(REXX-WAIT-SENT-COMMAND
      #41Y(01 00 00 00 00 02 1A 10 D9 DA DB DC 6D 03 05 AE 32 01 1F AC 2E 07 16
           01 AB 6E 00 92 00 6A 9B 5B 1C 71 AA 2E 06 9B 5B 19 03
          )
      REXX-FIND-INDEX ERROR "No waiting for ~S possible."
      "Kein Warten auf ~S möglich." "Pas d'attente de ~S possible." LANGUAGE
      REXX-DELETE-ENTRY REXX-LOOP
  )  )
#Y(#:TOP-LEVEL-FORM-12
   #22Y(00 00 00 00 00 01 D8 2E 01 D8 DA DB 2C 03 04 D8 DD 31 78 C3 19 01)
   REXX-DO-COMMAND REMOVE-OLD-DEFINITIONS FUNCTION
   "Executes command, waiting for result." %SET-DOCUMENTATION
   #Y(REXX-DO-COMMAND
      #27Y(01 00 00 00 C1 00 00 00 00 00 98 00 AD 9E 76 01 91 00 03 00 19 04 14
           2E 01 19 04
          )
      REXX-SEND-COMMAND REXX-WAIT-SENT-COMMAND
  )  )
#Y(#:TOP-LEVEL-FORM-13
   #22Y(00 00 00 00 00 01 D8 2E 01 D8 DA DB 2C 03 04 D8 DD 31 78 C3 19 01)
   REXX-RUN-COMMAND REMOVE-OLD-DEFINITIONS FUNCTION
   "Runs a rexx command asynchronously, no return code." %SET-DOCUMENTATION
   #Y(REXX-RUN-COMMAND
      #32Y(01 00 00 00 80 1C 02 00 00 00 3C 02 3C 01 AD D8 AE D9 AF DA 63 2C 07
           03 1B 03 00 19 04 02 19 04
          )
      :STRING :TOKEN :ASYNC REXX-DO-COMMAND
  )  )