/* Mini-REXXTRY mit Fehlerbehandlung */
SIGNAL ON SYNTAX;
Abarbeitungsschleife:
DO WHILE eingabe <> 'exit'
PARSE PULL eingabe;
INTERPRET eingabe;
END
EXIT 0;
SYNTAX:
SAY 'Fehler: ' ErrorText(rc);
SIGNAL Abarbeitungsschleife;