PROGRAM PF_SYS_D;
USES Port_Sys,Bios;
BEGIN
 ClrScr;
 BWriteLN('Drcken Sie eine Taste.');
 Window(WhereX,WhereY,40,8);
 {Nur zur demo WhereX,WhereY,Window()}
 REPEAT
  BWrite('Wo bleibt die Taste?  ');
 UNTIL KeyPressed;
 IF ReadKey=#27 THEN Halt;
 MakeErrWind('Und nochmal ne Taste');
 Gotoxy(1,1);
 REPEAT
  BWrite('Drcken Sie nochmal eine Taste.  ');
 UNTIL KeyPressed;
 IF ReadKey=#27 THEN Halt;
 CLearErrWind;
 BWriteLN('');
 BWrite('Und nun das letzte mal. ');
 IF ReadKey=#27 THEN Halt;{und nochmal damit das Bild bleibt}
 MakeSysWind;
 ClrScr;
 BWriteLN('Bis bald,');
 BWriteLN('Ralf Amandi.');
END.