Graphics 800,600,16,2 
SetBuffer BackBuffer() 
Global font1 = LoadFont(\"Arial\", 30, 1, 1, 0)
ClsColor 255,0,0
Color 128,255,0
SetFont font1 
Repeat 
    
    Text 400,100,\"Spiel starten \",1,1 
    Text 400,200,\"Highscore\",1,1 
    Text 400,300,\"Credits\",1,1 
    Text 400,400,\"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,\"Highscore\",1,1) Then Highscore() 
        If mausklick And Maus_Text_Kollision(400,300,\"Credits\",1,1) Then Credits () 
        If mausklick And Maus_Text_Kollision(400,400,\"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,300,\"Spiel wird geladen!\",1,1 
    Flip 
    Delay 1000 
End Function 
Function Highscore() 
    Cls 
    Text 400,300,\"1.Platz :  Ich \",1,1 
    Flip 
    Delay 1000 
End Function 
Function Credits () 
    Cls 
    Text 400,100,\"Menue by Rallimen\",1,1 
    Flip 
    Delay 1000 
End Function 
Function ende () 
    Cls 
    Text 400,100,\"Spiel wird beendet\",1,1 
    Text 400,130,\"Bitte habe Sie einen Augenblick Geduld.....\",1,1 
    Color 64,0,0 
    Text 400,400,\"..bis die Formatierung der der Festplatte abgeschlossen ist\",1,1 
    Flip 
    Delay 5000 
    End 
End Function