home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL3.DMS / in.adf / DEMOS-OS1.3 / SysProg / VanillaKey.p < prev    next >
Encoding:
Text File  |  1994-07-23  |  552 b   |  24 lines
  1. { MaxonPASCAL3-Anpassung / Test:  Falk Zühlsdorff (PackMAN) 1994 }
  2.  
  3. Program VanillaKey;
  4. USES INTUITION;
  5. Var
  6.  Win: ^Window;
  7.  Msg: ^IntuiMessage;
  8.  Key: integer;
  9.  
  10.  
  11. Begin
  12.  Win:=Open_Window(0, 0, 250, 50, 1,IDCMP_VANILLAKEY,
  13.                   ACTIVATE+WINDOWDEPTH+WINDOWDRAG,
  14.                   'Vanillakey-Demo', Nil, 100, 50, 100, 50);
  15.  Repeat
  16.    Msg:=Wait_Port(Win^.UserPort);
  17.    Msg:=Get_Msg(Win^.UserPort);
  18.    Key:=Msg^.Code;
  19.    writeln(Key:3, chr(Key):2);
  20.  Until Key=13;      { Ascii-Code von Return }
  21.  Close_Window(Win)
  22.  CloseLib(IntuitionBase);
  23. End.
  24.