MODULE repeat EXPORTS Main;
IMPORT IO, Fmt;

VAR
    error : BOOLEAN;
    zahl  : INTEGER;

BEGIN

    REPEAT
	error := FALSE;
	IO.Put("Bitte eine Zahl eingeben (Buchstabe zum abbrechen) : ");
	TRY
	    zahl := IO.GetInt();
	EXCEPT
	    IO.Error => IO.Put("abbruch ...\n"); 
			error := TRUE;
	END;
	IF NOT error THEN IO.Put("Sie haben " & Fmt.Int(zahl) & " eingegeben =)\n"); END;
    UNTIL error;
END repeat.