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.                                        }

{ MaxonPascal3-Anpassung / Test: Falk Zühlsdorff (PackMAN) 1994  }

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-Taste drücken / Ende=Return',Nil,100,100,640,256);
  Con:=OpenConsole(Window);
  REPEAT
   Sig:=Wait(-1);                   { warten auf beliebiges Ereignis }
   ein:=ReadCon(Con);               { Zeichen lesen                  }
   WriteCon(Con,ein);               { mit Console-device ausgeben    }
   IF ord(ein)<>0
    THEN Writeln(ein:3,ord(ein):4); { Ausgabe mit Ascii-Code         }
  UNTIL ein=chr($0d);               { Code: Return                   }
  CloseConsole(Con);
  Close_Window(Window);
  IF FromWB THEN close(input)
END.