{ MaxonPASCAL3-Anpassung / Test:  Falk Zühlsdorff (PackMAN) 1994 }
Program IntuitionWindow;
Var
  wh: Ptr;
Begin
  wh:=Open_Window(0,0,     { Position }
                  640,200, { Größe }
                  $0201,   { schwarze Schrift, weißer Rahmem }
                  $0200,   { IDMCP: nur _CLOSEWINDOW }
                  $100f,   { Fester aktiv und alle Gadgets }
                  'Intuitionwindow',    { Name }
                  Nil,     { auf Workbench-Screen }
                  200,40,  { Mindestgröße }
                  640,256);{ maximale Größe }
  Delay(3*50);             { 3 Sekunden warten }
  Close_Window(wh)         { Fenster schließen }
End.