Graphics 800,400,16,2
;Hier ist das Problem <----------
SetBuffer BackBuffer() 
h=LoadImage(\"\Bilder\Hintergrund\hinter.bmp\")
TileBlock h 
;Und hier endet es <-----------------
Global font1 = LoadFont(\"Ariel\", 30, 1, 1, 0) 
Color 255,0,0
SetFont font1 
Repeat 
Text 400,100,\"Spiel starten \",1,1 
Text 400,200,\"Steuerung\",1,1 
Text 400,300,\"Beenden\",1,1 
mausklick = MouseHit(1) 

If mausklick And Maus_Text_Kollision(400,100,\"Spiel starten\",1,1) Then Startegame () 
If mausklick And Maus_Text_Kollision(400,200,\"Steuerung\",1,1) Then Credits () 
If mausklick And Maus_Text_Kollision(400,300,\"Beenden\",1,1) Then Ende() 

Flip:Cls 
Until KeyHit(1) 
End 

Function Maus_Text_Kollision(xPos,yPos,Text1$,AusrichtungX = 0,AusrichtungY = 0) 
Breite=StringWidth(Text1$) 
Hoehe =StringHeight(Text1$) 
If AusrichtungX Then xPos = xPos - Breite/2 
If AusrichtungY Then yPos = yPos - Hoehe/2 

If RectsOverlap(xPos,yPos,Breite,Hoehe,MouseX(),MouseY(),1,1) Then 
Rect xPos,yPos,Breite,Hoehe,0; Rahmen zur kontrolle 
Return True 
End If 
Return False 
End Function 
Function Startegame () 
Cls 
Text 400,100,\"Spiel wird geladen!\",1,1 
Flip 
WaitKey 
End Function 
Function Credits () 
Cls 
Text 400,20,\"Steuerung\",1,1 
Text 400,100,\"Sprung - Leertaste\",1,1
Text 400,150,\"Nach Rechts Laufen - Pfeil Rechts\",1,1
Text 400,200,\"Nach Links Laufen - Pfeil Links\",1,1
Text 400,350,\"Taste zum Hauptmenü\",1,1
Flip 
WaitKey 
End Function 
Function ende () 
Flip 
End 
End Function

h=LoadImage(\"\Bilder\Hintergrund\hinter.bmp\") 

h=LoadImage(\"Bilder\Hintergrund\hinter.bmp\")