While Not KeyHit(1)
Repeat
Cls
kh=KeyDown(208) And KeyDown(200)
Locate 0,0
Text 0,0, "Pfeil tasten um zu navigieren, Rauf und runter"
Text 0,20, "beide drücken = auswählen"
Text 160,140, "Spiel Starten"
Text 160,160, "Highscore"
Text 160,180, "Spiel Beenden"
If KeyHit (208)
counter =counter + 1
EndIf
If KeyHit (200)
counter =counter - 1
EndIf
If counter >3 Then counter = 1
If counter <1 Then counter = 3
If counter = 2 And kh Then game= 1 ;;; game starten
If counter = 3 And kh Then Ende=1;;; game beenden
If counter = 1 And kh Then  viewhiscore=1;;; Highscoore zeigen
Select counter
Case 1
Text 140,140, ">" 
Case 2
Text 140,160, ">"
Case 3
Text 140,180, ">"
End Select
Flip 120
Until Ende=1
End
End

If MouseX()>button_x and MouseX()<button_x+200 and MouseY()>button_y and MouseY()<button_y+50 and Mousehit(1)
       TuIrgendWas()
EndIf