Sample UEB06C

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:  Eingabe beendet!
Ausgabe aller Eingaben erst nach Beendigung der Eingabe
Eingabe n: ... eingegebene Text ...

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