© serviceprofessionalgmbh

Here REXX commands and functions can be input directly. The program interprets and executes them one by one.

/* REXX

   Routine für Tests beliebiger REXX-Commands und -Funktionen
   noch besser ist REXXTRY  =>  Nachbildung aus OS/2
   */
DMY = msg("OFF")
parse source . TYP NAME .
say "Start" NAME
DATUM = datum()
do forever
   say;say address()"> Eingabe (ENTER = ENDE)" DATUM "/" time()
   parse external CMD
   if CMD = "" then leave
   interpret CMD
end
trace
say "Bye, bye..."
exit