/***************************************************************************/
/* Beispiel 3 für zwei einfache Screens.                                   */
/* Geschrieben von Peter Fischer für das Diskettenmagazin GetIt.           */
/* Springe, 24.12.1988 ( Heiligabend !! )                                  */
/*                                                                         */
/* Es bestehen KEINE Copyrights, es darf also alles benutzt werden, was in */
/* diesem Sourcefile im weiteren folgt.                                    */
/***************************************************************************/

#include <intuition/intuition.h>
#include <intuition/screens.h>

struct Intuitionbase *IntuitionBase;

struct NewScreen NewScr1 =
{ 0,0,640,512,                             /* Größe des Screens */
  2,                                       /* Tiefe des Screens */
  0,1,                                     /* Farben */
  LACE | HIRES,                            /* besondere ViewModes */
  CUSTOMSCREEN,                            /* eigner Screen */
  NULL,                                    /* kein alternativer Font */
  "Dies ist ein großer Screen - WOW !",    /* Titelzeile */
  NULL,                                    /* keine Gadgets */
  NULL                                     /* keine eigenen BitMaps */
};

struct NewScreen NewScr2 =
{ 0,100,320,156,                           /* Größe des Screens */
  2,                                       /* Tiefe des Screens */
  0,1,                                     /* Farben */
  NULL,                                    /* keine besonderen ViewModes */
  CUSTOMSCREEN,                            /* eigner Screen */
  NULL,                                    /* kein alternativer Font */
  "Dies ist ein Mini-Screen - WOW !",      /* Titelzeile */
  NULL,                                    /* keine Gadgets */
  NULL                                     /* keine eigenen BitMaps */
};

struct Screen *Scr1;
struct Screen *Scr2;

main()
{ IntuitionBase = OpenLibrary ( "intuition.library",0 );
  if ( IntuitionBase == NULL )
  { printf ( "FATALER FEHLER : intuition.library läßt sich nicht öffnen !\n" );
    exit ( 20 );
  }

  Scr1 = OpenScreen ( &NewScr1 );     /* Öffnen des Screens ! */
  if ( Scr1 == NULL )
  { printf ( "FATALER FEHLER : Der Screen 1 läßt sich nicht öffnen !\n" );
    CloseLibrary ( IntuitionBase );
    exit ( 20 );
  }

  Delay ( 50 );

  Scr2 = OpenScreen ( &NewScr2 );     /* Öffnen des Screens ! */
  if ( Scr2 == NULL )
  { printf ( "FATALER FEHLER : Der Screen 2 läßt sich nicht öffnen !\n" );
    CloseScreen ( Scr1 );
    CloseLibrary ( IntuitionBase );
    exit ( 20 );
  }

  Delay ( 100 );
  CloseScreen ( Scr1 );
  Delay ( 100 );
  CloseScreen ( Scr2 );
  CloseLibrary ( IntuitionBase );
  printf ( "Das war's !\n\n" );
}