while not keyhit(1)
  ...
  stuff
  ...
wend

clean_up()

end

repeat
 if keydown(1) then end
forever

Apptitle "O-Quiz"

Graphics 500, 500, 32, 2

Print "*********************************"
Print "O-Quiz - Copyright 2005 by Spike"
Print "*********************************"

Print

Print "Willkommen zum O-Quiz!"

;------------------------Namensabfrage------------------------------

Name$ = Input$("Wie heißen sie: ")
                                                            
Print "Hallo, " + Name$ + "!"

;-------------------------------------------------------------------

Print "Drücken sie eine beliebige Taste um mit dem Quiz zu beginnen"
Waitkey
Print

;-----------------------------Fragen--------------------------------

p = 0

;Frage 1
Print "Frage 1:"

Print "Welche Zahl kommt nach der Zahl 2 ?"

a1$ = Input$()

If a1$ = "3" Then
 Print "Richtig! (beliebige Taste drücken)"
 p = p + 1
 WaitKey
Else
 Print "Falsch (beliebige Taste drücken)"
 WaitKey
EndIf

Print

;Frage 2
Print "Frage 2:"

Print "Wie heißt die untere Zahl eines Bruches ?"

a2$ = Input$()

If LOWER$(a2$) = "nenner" Then
 Print "Richtig! (beliebige Taste drücken)"
 p = p + 1
 WaitKey
Else
 Print "Falsch (beliebige Taste drücken)"
 WaitKey
EndIf

Print

;Frage 3
Print "Frage 3:"

Print "Wieviel Euro sind 6 DM ?"

a3$ = Input$()

If a3$ = "3" Then
 Print "Richtig! (beliebige Taste drücken)"
 p = p + 1
 WaitKey
Else
 Print "Falsch (beliebige Taste drücken)"
 WaitKey
EndIf

Print

;Frage 4
Print "Frage 4:"

Print "Wie heißt die Programmiersprache mit der dieses Quiz"
Print "programmiert wurde ?"

a4$ = Input$()

If LOWER$(a4$) = "blitz basic" Or LOWER$(a4$) = "bb" Then
 Print "Richtig! (beliebige Taste drücken)"
 p = p + 1
 WaitKey
Else
 Print "Falsch (beliebige Taste drücken)"
 WaitKey
EndIf

Print

;Frage 5
Print "Frage 5:"

Print "Wie heißt das Herzstück eines Computer's ?"

a5$ = Input$()

If LOWER$(a5$) = "prozessor" Or LOWER$(a5$) = "cpu" Then
 Print "Richtig! (beliebige Taste drücken)"
 p = p + 1
 WaitKey
Else
 Print "Falsch (beliebige Taste drücken)"
 WaitKey
EndIf

Print

;-------------------------------------------------------------------

Print "Sie haben " + p + " Punkt(e) von möglichen 5 Punkten erreicht!"

Print

Print "Vielen Dank das sie O-Quiz gespielt haben!"

Waitkey

End