Graphics 800,600,32,1
SetBuffer BackBuffer()
Color 255,255,255
;Dieser Teil dort oben dürfte klar sein?

menue;Menü wird aufgerufen

Function menue()
Arial_gross = LoadFont("Arial",64,1);Schriftarten werden geladen
Arial_normal = LoadFont("Arial",48)

sterne=LoadImage("Sterne.bmp");Und ein paar Bilder
cursor=LoadImage("Cursor.bmp")
MaskImage cursor,0,0,255
PlayMusic("menue.mid");Die Musik wird gestartet

Repeat;Die Hauptschleife
Cls

x_star=x_star+1            ;Die Koordinaten für die vorbeiziehenden Sterne
If x_star>201 Then x_star=0

SetFont Arial_normal;Schriftart wird gesetzt

;Button 1
If button=1 Then Color 255,255,0;wenn die Maus darauf ist, leuchtet er (Wird unten ermittelt)
Line 200,150,600,150
Line 200,150,200,250
Line 200,250,600,250
Line 600,150,600,250
Text 400,200,"Funktion 1",1,1
Color 255,255,255;und für darauffolgende Grafiken wird die Farbe wieder zurückgesetzt

;Siehe Button 1
If button=2 Then Color 255,255,0
Line 200,300,600,300
Line 200,300,200,400
Line 200,400,600,400
Line 600,300,600,400
Text 400,350,"Funktion 2",1,1
Color 255,255,255

;Siehe Button 1
If button=3 Then Color 255,255,0
Line 200,450,600,450
Line 200,450,200,550
Line 200,550,600,550
Line 600,450,600,550
Text 400,500,"Beenden",1,1
Color 255,255,255

SetFont Arial_gross;Neue Schriftart
Text 400,75,"Überschrift",1,1;Überschrift

DrawImage Cursor,MouseX(), MouseY();Mauszeiger wird gezeichnet
TileImage sterne,x_star,0;Hintergrund

;Mausabfrage
button=0
If MouseX()>200 And MouseX()<600 And MouseY()>150 And MouseY()<250 Then button=1;Koordinaten des 1. Buttons
If MouseX()>200 And MouseX()<600 And MouseY()>300 And MouseY()<400 Then button=2;Koordinaten des 2. Buttons
If MouseX()>200 And MouseX()<600 And MouseY()>450 And MouseY()<550 Then button=3;Koordinaten des 3. Buttons

;Wird nun die linke Maustaste gedrückt, wird die dem Button entsprechende Funktion ausgeführt
If MouseHit(1) Then
If button=1 Then funktion1
If button=2 Then funktion2
If button=3 Then End
EndIf

If KeyHit(1) Then End;Auf Escape wird beendet

Flip
Forever
End Function

;*********************************Leere Funktionen
Function funktion1()
End Function

Function funktion2()
End Function