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