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

Program VanillaKey;
USES INTUITION;
Var
 Win: ^Window;
 Msg: ^IntuiMessage;
 Key: integer;


Begin
 Win:=Open_Window(0, 0, 250, 50, 1,IDCMP_VANILLAKEY,
                  ACTIVATE+WINDOWDEPTH+WINDOWDRAG,
                  'Vanillakey-Demo', Nil, 100, 50, 100, 50);
 Repeat
   Msg:=Wait_Port(Win^.UserPort);
   Msg:=Get_Msg(Win^.UserPort);
   Key:=Msg^.Code;
   writeln(Key:3, chr(Key):2);
 Until Key=13;      { Ascii-Code von Return }
 Close_Window(Win)
 CloseLib(IntuitionBase);
End.