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 UEB06B 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=1 to ind-1
/* */
SAY "Eingabe" loop":" inp.loop
/* */
END
/* */