ANFANG:
Screen Open 1,640,256,16,Hires : Screen Close 0 : Colour 1,$0
Limit Mouse 130,44 To 447,297
Curs Off : Cls 0 : Flash Off 
Curs Off 
Menu$(1)="IFF-Master"
Menu$(1,1)="Über       "
Menu$(1,1,1)=" IFF-Master "
Menu$(1,1,2)="------------"
Menu$(1,1,3)="Version 1.0 "
Menu$(1,1,4)="            "
Menu$(1,1,5)="Programmiert"
Menu$(1,1,6)="    von:    "
Menu$(1,1,7)="            "
Menu$(1,1,8)=" Frank Otto "
Menu$(1,2)="Beenden    "
Menu$(2)=" Bild "
Menu$(2,1)="Laden  "
Menu$(3)=" Animation "
Menu$(3,1)="Laden      "
Menu$(4)=" Musik"
Menu$(4,1)="Soundtracker-Module laden"
Menu$(4,2)="Musik aus                "
Channel 0 To Screen Offset 1
Channel 1 To Screen Offset 1
Channel 2 To Screen Offset 1
Channel 3 To Screen Offset 1
Bar 0,1 To 639,10
Paper 2 : Pen 1 : Text 0,8,"IFF-Master V1.0        Programmiert von Frank Otto.       Wähle Menü-Option     "
Do 
If Key State(77) Then Amal On 0
If Key State(76) Then Amal On 1
If Key State(79) Then Amal On 2
If Key State(78) Then Amal On 3
Amal 1,"M 0,-10,0"
Amal 0,"M 0,10,0"
Amal 2,"M -10,0,0"
Amal 3,"M 10,0,0"
Menu On : Rem Menü einschalten 
On Menu Proc MENU1,MENU2,MENU3,MENU4 : Rem Menütiteln Prozeduren zuweisen 
On Menu On : Rem Abfragesystem einschalten
Loop 
Procedure MENU1
   Cls 0 : Locate 1,1 : Paper 0 : Pen Rnd(6)+1 : Rem Ausgabe löschen
   If Choice(2)=1 : Rem war es der erste Menüpunkt?
   Else 
      Fade 1 : Wait 15 : End 
   End If 
   On Menu On : Rem Abfragesystem wieder aktivieren!!
End Proc
Procedure MENU2
   Cls 0 : Locate 1,1 : Paper 0 : Pen Rnd(6)+1 : Rem Ausgabe löschen
   If Choice(2)=1 : Rem war es der erste Menüpunkt?
Colour 1,$0 : Curs Off : Flash Off 
F$=Fsel$("","","Low-Res, Hi-Res, Interlace, EHB oder HAM Bild laden")
If Exist(F$) : Load Iff F$,1 : End If 
   End If 
   On Menu On : Rem Abfragesystem wieder aktivieren!!
End Proc
Procedure MENU3
   Cls 0 : Locate 1,1 : Paper 0 : Pen Rnd(6)+1 : Rem Ausgabe löschen
   If Choice(2)=1 : Rem war es der erste Menüpunkt?
F$=Fsel$("","","IFF-Animation laden")
If Exist(F$) : Iff Anim F$ To 0,1 : Screen Close 0 : End If 
   End If 
   On Menu On : Rem Abfragesystem wieder aktivieren!!
End Proc
Procedure MENU4
   Cls 0 : Locate 1,1 : Paper 0 : Pen Rnd(6)+1 : Rem Ausgabe löschen
   If Choice(2)=1 : Rem war es der erste Menüpunkt?
F$=Fsel$("","","Soundtracker-Module laden")
If Exist(F$) : Track Load F$,5 : Track Play 5 : End If 
   Else 
   Track Stop 
   End If 
   On Menu On : Rem Abfragesystem wieder aktivieren!!
End Proc