Program ConsoleDemo;

Const
  Esc = chr($1b);

Var
  Win, Con: Ptr;
  ch: Char;
  Sig: Long;

Begin
  Win := Open_Window(0, 0, 640, 160, 1, 0, $1006, 'Console-Demo',
                     Nil, 640, 160, 640, 160);
  Con := OpenConsole(Win);    { Device öffnen }

  WriteCon(Con,''\n\e'33mDies ist eine Demonstration des Console-Devices.'\n\n\e'31m');
  WriteCon(Con,'Bitte drücken Sie die Escape-Taste!  --> ');

  Repeat
    Sig:=Wait(-1);
    ch:=ReadCon(Con);
    If ch<>Esc then
      Begin
        WriteCon(Con, ch);   { eingegebenes Zeichen ausgeben }
        WriteCon(Con, ''\n\n\e'3mNein, nicht diese Taste! ---> ')
      End;
  Until ch=Esc;

  CloseConsole(Con);
  Close_Window(Win)
End.