#include <intuition/intuition.h>
#include <exec/types.h>

extern long *OpenLibrary();
extern struct Screen *OpenScreen();
extern struct Window *OpenWindow();

struct IntuitionBase *IntuitionBase;

struct NewScreen NeuerScreen =
   {
   0,
   0,
   640,
   200,
   3,
   2,3,
   HIRES,
   CUSTOMSCREEN,
   NULL,
   "Pal-Test Vorführung",
   NULL,
   NULL
   };

struct NewWindow NeuesFenster =
{
  0,0,
  640,200,
  4,6,
  NULL,
  SMART_REFRESH | ACTIVATE | NOCAREREFRESH,
  NULL,
  NULL,
  "Dieser Screen hat die USA-Auflösung. Pal-Test müßte einen Alert erzeugen!",
  NULL,
  NULL,
  190, 20,
  640, 200,
  CUSTOMSCREEN
};


main()
   {
   
   struct Screen *Screen;
   struct Window *Window;

   LONG i;
   
   IntuitionBase = (struct IntuitionBase *)
     OpenLibrary("intuition.library",0);
   if(IntuitionBase==NULL) exit(FALSE);
   
   if((Screen = OpenScreen(&NeuerScreen))==NULL)
   exit(FALSE);

   NeuesFenster.Screen = Screen;

   if((Window=OpenWindow(&NeuesFenster)) == NULL)
   exit(FALSE);

   Delay(1000);

   CloseWindow(Window);
   CloseScreen(Screen);
   CloseLibrary(IntuitionBase);
   }