' Hauptschleife - Programm hat ein Menü und mehrere Tabs'

...
Repeat
  WaitEvent()
  Select EventID()

  	'  Hauptfenster Handling

	  Case EVENT_WINDOWCLOSE	
		End;

 	' Menübehandlung

    	Case EVENT_MENUACTION	 		
  		DoMenuAction()


 	' Tabbs Handling
	start = MilliSecs()
	map.windowclear()
	ms = MilliSecs() - start
   
        Case EVENT_MOUSEMOVE
         ' Map.MouseMapControl()

     Case EVENT_GADGETACTION					
		   Select EventData()
   			Case 0 DoCanvasSpiel()
			Case 1 HideGadget Game_DCanvas
     	         	Case 2 HideGadget Game_DCanvas
     	   	        Case 3 HideGadget Game_DCanvas
			Case 4 HideGadget Game_DCanvas
     	     	
		 End Select DoGadgetAction()
 	Case EVENT_MOUSEENTER
         '	HideMouse
           '    Map.MouseMapControl()
 	Case EVENT_GADGETPAINT
         RedrawGadget(Game_DCanvas)
   EndSelect
Until KeyDown(key_escape)
....

' Anmerkung nachfolgender Code ist ausgegliedert als Include - zwecks Übersicht und Handling des Menüs 
' soll nicht in die Hauptschleife 

...
Function DoMenuAction()
     Select EventData()
  	Case MENU_EXIT
 	End
        ...
	Case MENU_Schwierig MENU_Schwierig_()
        ...	
End Select
End Function
...

Function MENU_Schwierig_()

Local FWndow:TGadget=CreateWindow("Schwierigkeitsgrad",0,0,220,145,Null,WINDOW_TITLEBAR|
WINDOW_CENTER)

Local Leicht:TGadget=CreateButton("Leicht",10,15,60,30,Fwindow,BUTTON_PUSH)
Local Mittel:TGadget=CreateButton("Mittel",10,45,60,30,Fwindow,BUTTON_PUSH)
Local Schwierig:TGadget=CreateButton("Schwer",10,75,60,30,Fwindow,BUTTON_PUSH)

Dummy:Int = 0

While Dummy=1
	WaitEvent()
	Print CurrentEvent.ToString()
	Select EventID()
  	Case EVENT_WINDOWCLOSE
     End
     Case EVENT_GADGETACTION
      Select EventSource()
          Case Leicht
             Print "Leicht"
             Dummy=1               	 
             FreeGadget(Fwindow)
	  Case Mittel
             Print "Mittel"
             FreeGadget(Fwindow)
          Case Schwierig
            Print "Schwierig"
            FreeGadget(Fwindow)
        End Select
     End Select
Wend 
End Function 

While WaitEvent()
   Select EventID()
	   	Case EVENT_WINDOWCLOSE
				Select EventSource()
					Case HauptWindow Then
						ProgrammBeenden
					Case AuswahlWindow
						EnableGadget HauptWindow
						HideGadget AuswahlWindow
				EndSelect
		
	   	Case EVENT_APPTERMINATE
				ProgrammBeenden
		
		Case EVENT_GADGETACTION
				AlleEvents EventSource()
	EndSelect			
Wend





Function AlleEvents()
		Local tmpGadget:TGadget = TGadget(EventQuelle)
		If tmpGadget 
			Select tmpGadget
				Case AuswahlOK_Button
					EnableGadget HauptWindow
					HideGadget AuswahlWindow
				Case ....
				
			EndSelect
		EndIf
End