/**************************************
 * 			 Pal-Test V1.0 			  *
 *------------------------------------*
 * Testet, ob die PAL-Norm aktiv ist! *
 * 	 Written by Markus Schmidt 	  *
 **************************************
 * (c) MAXON COMPUTER 1989 			  *
 * KICKSTART 1989 						  *
 **************************************/

/* Erstellt mit Aztec C V3.6a, Aufruf: cc Pal-Test +l
													ln Pal-Test.o -lc   */

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

extern long *OpenLibrary();  /* Wichtig für Aztec */
struct IntuitionBase *IntuitionBase = NULL;

UBYTE meldung[] = 		/* Textdefinition für den Alert */
{
  00,185,
  15,
  "!! Achtung !! Pal-Test Alert:",
  0xff,
  00,25,
  35,
  "Das Betriebssystem hat durch einen eigenen Fehler diesen PAL-Amiga",
  0xff,
  00,25,
  45,
  "auf NTSC-Norm geschaltet!!! Sie hätten so nur die USA-Auflösung.",
  0xff,
  00,25,
  55,
  "Bitte drücken Sie nun Control-Amiga-Amiga, um den Amiga zurückzusetzen!",
  0xff,
  00,25,
  65,
  "Nach dem Reset ist in der Regel die PAL-Norm wieder aktiv!",
  0
};


main()		/* Hier beginnt das eigentliche Programm */
{
  struct Screen *Screenzeiger; /* Deklaration des Zeigers auf die Screenstruktur */

  long yHoehe;

  IntuitionBase=(struct IntuitionBase *)	 /* Intuition Library öffnen */
	 OpenLibrary("intuition.library",0L);
  if(IntuitionBase == NULL) exit(FALSE);

	  Screenzeiger=IntuitionBase->ActiveScreen;	/* Zeiger auf aktuellen Screen holen */

	  yHoehe=Screenzeiger->Height;  /* Screen-Höhe holen */

	  if(yHoehe == 256)		/* Auf 256 Pixel (Pal-Norm) testen */
			 printf("\nPAL-Test V1.0:\nAlles OK! Die PAL-Norm ist aktiv!\n\n");	/* falls zutreffend */
	  else
			 DisplayAlert(DEADEND_ALERT,&meldung[0],80);  /* falls nicht zutreffend */

	  CloseLibrary(IntuitionBase);	 /* Intuition Library schließen */
}												 /* Ende des Programms */