Program ConsoleTest;
{ Demo für Benutzung des Console-devices.
  Das Programm liest Zeichen von der Tastatur, gibt sie in einem
  Intuition-Fenster aus und schreibt ihre Ascii-Codes in das
  Standard-Ausgabefenster. }

Var Window,Con:ptr;
    Sig: Long;
    ein:char;
Begin
  If FromWB Then               { Start von Workbench? }
    Begin
      Assign(input,'Con:320/20/320/200/ConsoleTest');
      reset(input);
      output:=input
    End;
  Window:=Open_Window(0,20,640,200,1,$200,$100f,'Test',Nil,100,100,640,256);
  Con:=OpenConsole(Window);
  Repeat
    Sig:=Wait(-1);             { auf beliebiges Ereignis warten }
    ein:=ReadCon(Con);         { Zeichen lesen }
    WriteCon(Con,ein);         { mit Console-device ausgeben }
    Writeln(ein:3,ord(ein):4)  { Ausgabe mit Ascii-Code }
  Until ein=chr($0d);          { Ende bei Return-Taste }
  CloseConsole(Con);
  Close_Window(Window);
  If FromWB Then close(input)
End.