Sample UEB06A

Sample

Input: Eingabe am Bildschirm verlangen (PARSE EXTERNAL)                                 
(nicht vergessen dem Benutzer darüber zu "informieren"
Process: Eingaben verlangen, bis der Benutzer keine Angaben
(Enter ohne Daten) mehr macht.
Eingegebene Informationen wiederholen
Am Ende der Eingabe informieren.
Output: "Echo" (Ausgabe) der angegebenen Daten in der Form
Eingabe: ... eingegebene Text ...
Eingabe beendet!

/* REXX UEB06A Copyright YCOS Yves Colliard Software 1990-2009 */
/* TRACE ?R  */
  /* einschalten des interaktiven Trace Modus */
  /* */
DO UNTIL inp=""
  /* */
   SAY "Bitte Text eingeben:"
   PARSE EXTERNAL inp
   SAY "Eingabe:" inp
  /* */
END
SAY "Eingabe beendet!"