home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL3.DMS / in.adf / DEMOS-OS1.3 / Console.p < prev    next >
Encoding:
Text File  |  1994-07-23  |  1.1 KB  |  34 lines
  1. PROGRAM ConsoleTest;
  2.  
  3. { Demo für Benutzung des Console-devices.
  4.   Das Programm liest Zeichen von der Tastatur, gibt sie in einem
  5.   Intuition-Fenster aus und schreibt ihre Ascii-Codes in das
  6.   Standard-Ausgabefenster.                                        }
  7.  
  8. { MaxonPascal3-Anpassung / Test: Falk Zühlsdorff (PackMAN) 1994  }
  9.  
  10. VAR Window,Con:ptr;
  11.     Sig: Long;
  12.     ein:  char;
  13. BEGIN
  14.   IF FromWB THEN               { Start von Workbench? }
  15.     BEGIN
  16.       Assign(input,'Con:320/20/320/200/ConsoleTest');
  17.       reset(input);
  18.       output:=input
  19.     END;
  20.   Window:=Open_Window(0,20,640,200,1,$200,$100f,'Test-Taste drücken / Ende=Return',Nil,100,100,640,256);
  21.   Con:=OpenConsole(Window);
  22.   REPEAT
  23.    Sig:=Wait(-1);                   { warten auf beliebiges Ereignis }
  24.    ein:=ReadCon(Con);               { Zeichen lesen                  }
  25.    WriteCon(Con,ein);               { mit Console-device ausgeben    }
  26.    IF ord(ein)<>0
  27.     THEN Writeln(ein:3,ord(ein):4); { Ausgabe mit Ascii-Code         }
  28.   UNTIL ein=chr($0d);               { Code: Return                   }
  29.   CloseConsole(Con);
  30.   Close_Window(Window);
  31.   IF FromWB THEN close(input)
  32. END.
  33.  
  34.