home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL3.DMS / in.adf / DEMOS-OS1.3 / SysProg / ConsoleDemo.p < prev    next >
Encoding:
Text File  |  1994-07-23  |  765 b   |  34 lines
  1. { MAXONPascal3-Anpassung / Test:  Falk Zühlsdorff (PackMAN) 1994 }
  2.  
  3. Program ConsoleDemo;
  4.  
  5. Const
  6.   Esc = chr($1b);
  7.  
  8. Var
  9.   Win, Con: Ptr;
  10.   ch: Char;
  11.   Sig: Long;
  12.  
  13. Begin
  14.   Win := Open_Window(0, 0, 640, 160, 1, 0, $1006, 'Console-Demo',
  15.                      Nil, 640, 160, 640, 160);
  16.   Con := OpenConsole(Win);    { Device öffnen }
  17.  
  18.   WriteCon(Con,''\n\e'33mDies ist eine Demonstration des Console-Devices.'\n\n\e'31m');
  19.   WriteCon(Con,'Bitte drücken Sie die Escape-Taste!  --> ');
  20.  
  21.   Repeat
  22.     Sig:=Wait(-1);
  23.     ch:=ReadCon(Con);
  24.     If ch<>Esc then
  25.       Begin
  26.         WriteCon(Con, ch);   { eingegebenes Zeichen ausgeben }
  27.         WriteCon(Con, ''\n\n\e'3mNein, nicht diese Taste! ---> ')
  28.       End;
  29.   Until ch=Esc;
  30.  
  31.   CloseConsole(Con);
  32.   Close_Window(Win)
  33. End.
  34.