PROGRAM tausch;
USES CRT;

 PROCEDURE umschalten;      { Unterprogram }
 VAR
   c:CHAR;
  BEGIN
   READ(c);
    IF c <> CHR(13) THEN
     umschalten;
   WRITE(c);
  END;                       { Procedurende }

BEGIN                        { Hauptprogramm }
CLRSCR;
WRITELN(' Bitte Textzeile eingeben, Abschluá mit returntaste');
WRITELN;                      { Zeilenvorschub }
umschalten;                   { Procedur aufrufen }
READLN;                       { Auf bet„tigen der Returntaste warten }
END.                          { Programmende }