Program IntMsgDemo; { erste Version }

{$incl 'intuition.lib' }

Var
 Win: ^Window;
 Msg: ^IntuiMessage;

Begin
  Win:=Open_Window(20,10, 200,80, 1, _CLOSEWINDOW,
             ACTIVATE or WINDOWCLOSE or WINDOWDEPTH or WINDOWDRAG,
             'Schließ mich!', Nil, 100, 20, 640, 256);
  Repeat

    Repeat       { auf Message warten }
      Msg:= Get_Msg(Win^.UserPort)
    Until Msg<> Nil;

  Until Msg^.Class = _CLOSEWINDOW;
  Close_Window(Win)
End.