Graphics 1024,768,32,2
SetBuffer BackBuffer()
Local timer=CreateTimer(60)


Const Menue         = 1
Const Einstellungen = 2
Const Spiel         = 3
Global Status = Menue

;Lade hier diene Bilder

Repeat
	Select Status
		Case Menue
			Game_Menue()
			
		Case Einstellungen
			Game_Settings()
			
		Case Spiel
			Game_Play()
			
	End Select
	
	WaitTimer(timer)
	Flip(0):Cls()	
Forever

Function Game_Menue()
	Text 512,0,"Menü",1
	
	;mit Enter kommt man ins Spiel
	Text 0,50,"Mit Enter kommt man ins Spiel"
	If KeyHit(28) Then Status=Spiel
	
	;mit ESC beendet man das Spiel
	Text 0,100,"Mit ESC beendet man das Spiel"
	If KeyHit(1) Then End
	
	;mit der Leertaste kommt man in die Settings
	Text 0,150,"Mit der Leertaste kommt man zu den Einstellungen"
	If KeyHit(57) Then Status=Einstellungen
	
	
	;Hier der Code des Spieles ------------------------
End Function

Function Game_Settings()
	Text 512,0,"Settings",1
	
	;mit ESC kommt man ins Menue
	Text 0,50,"Mit ESC kommt man zurück ins Menue"
	If KeyHit(1) Then Status=Menue
	
	
	;Hier der Code der Einstellungen-------------------
End Function

Function Game_Play()
	Text 512,0,"Das Spiel",1
	
	;mit ESC kommt man ins Menue
	Text 0,50,"Mit ESC kommt man zurück ins Menue"
	If KeyHit(1) Then Status=Menue
	
	;Hier der Code des Spieles-------------------------
End Function