{ Erstellt mit KICK PASCAL 2.0 von MAXON }
Program Pal_Ntsc ;

{$incl "intuition.lib"} ;
{$incl "graphics.lib"} ;
{$link "pascal:include/pal.obj"} ;

Type BorDatTyp    = Array [1..10] Of Integer ;
     ImageDatTyp  = Array [1..11] Of Word ;

Var Fenster         : ^Window ;
    IMsg            : ^IntuiMessage ;
    Txt1,Txt2,Txt3  : IntuiText ;
    Txt4,Txt5,Txt6  : IntuiText ;
    Gad1,Gad2,Gad3  : Gadget ;
    Bor1,Bor2,Bor3  : Border ;
    BDt1,Bdt2       : BorDatTyp ;
    Ende            : Boolean ;
    AktGadget       : ^Gadget ;
    MyImage         : Image ;
    MyImageDat      : ^ImageDatTyp ;


Procedure Pal Import ;

Procedure Ntsc Import ;


Begin;
  Ende := False ;
  OpenLib(IntBase,"intuition.library",0) ;
  OpenLib(GfxBase,"graphics.library",0) ;
  MyImageDat := Ptr(Alloc_Mem(SizeOf(ImageDatTyp),2)) ;
  Fenster := open_window(20,20,192,90,1,$0060,$1000,Nil,Nil,192,90,192,90);

  gad1     := Gadget(Nil,10,20,80,12,0,RelVerify,boolgadget,^Bor1,nil,^Txt1,0,nil,1,0) ;
  Txt1     := IntuiText(1,0,0,24,3,Nil,"NTSC",Nil) ;
  Bor1     := Border(0,0,3,0,0,5,^BDt1,Nil) ;
  BDt1     := BorDatTyp(-2,-2, 82,-2, 82,13, -2,13, -2,-2) ;

  gad2     := Gadget(Nil,100,20,80,12,0,RelVerify,boolgadget,^Bor2,nil,^Txt2,0,nil,2,0) ;
  Txt2     := IntuiText(1,0,0,32,3,Nil,"Pal",Nil) ;
  Bor2     := Border(0,0,3,0,0,5,^BDt1,Nil) ;

  gad3     := Gadget(Nil,52,40,80,12,0,RelVerify,boolgadget,^Bor3,nil,^Txt3,0,nil,3,0) ;
  Txt3     := IntuiText(1,0,0,24,3,Nil,"Ende",Nil) ;
  Bor3     := Border(0,0,3,0,0,5,^BDt1,Nil) ;

  MyImageDat^ := ImageDatTyp(%000000110000000,
                             %000001101100000,
                             %000011000110000,
                             %000110000001000,
                             %001100000000000,
                             %011000000000000,
                             %001100000000000,
                             %000110000001000,
                             %000011000110000,
                             %000001101100000,
                             %000000110000000) ;

  Txt4     := IntuiText(1,0,0,0,0,Nil,"PAL / NTSC Umschaltung",Nil) ;
  Txt5     := IntuiText(1,0,0,0,0,Nil,"Wittemann Manfred",Nil) ;
  Txt6     := IntuiText(1,0,0,0,0,Nil,"Version 1.0",Nil) ;

  MyImage  := Image(0,0,16,11,1,MyImageDat,1,3,Nil) ;

  SetRast(Fenster^.RPort,6) ;

  AddGadget(Fenster,^Gad1,Nil) ;
  AddGadget(Fenster,^Gad2,Nil) ;
  AddGadget(Fenster,^Gad3,Nil) ;

  PrintIText(Fenster^.RPort,^Txt4,8,5) ;
  PrintIText(Fenster^.RPort,^Txt6,49,62) ;
  PrintIText(Fenster^.RPort,^Txt5,30,78) ;

  DrawImage(Fenster^.RPort,^MyImage,7,76) ;

  RefreshGadgets(Fenster^.FirstGadget,Fenster,Nil)
  Repeat
    IMsg := Wait_Port(Fenster^.UserPort) ;
    IMsg := Get_Msg(Fenster^.UserPort) ;
    Case IMsg^.Class Of
      GadgetUp,GadgetDown : Begin
                              AktGadget := IMsg^.IAddress ;
                              Case AktGadget^.GadgetId  Of
                                1 : NTSC ;
                                2 : PAL ;
                                3 : Ende := True ;
                                Otherwise ;
                              End ;     { Case }
                            End ;       { Begin }
      Otherwise ;
    End ;   { Case }
  Until Ende ;
  Close_Window(Fenster) ;
  Free_Mem(Long(MyImageDat),SizeOf(ImageDatTyp)) ;
  CloseLib(IntBase) ;
  CloseLib(GfxBase) ;
end.