...
Text x,y,"Frage 1 : bla bla bla"
if richtig then Puntke = punkte +100
...
Text x,y,"Frage 2 : bla bla bla"
if richtig then Puntke = punkte +100

...
Dim Frage$(100) ;100 Fragen von 0-99
Dim fragepunkte(100) ;wie viel Punkte die Frage gibt
Dim fragerichtig(100) ;welche Antwort die richtige ist
Dim frageantwort$(100,4) ;die Antwortmöglichkeiten, maximal 4 stück
Dim usw
...

Frage(0)="Wie viele Sterne gibt es?"
fragepunkte(0)=10
fragerichtig(0)=2
frageantwort(0,0)="[0] einen"
frageantwort(0,1)="[1] drei Milliarden"
frageantwort(0,2)="[2] kann man nicht genau sagen"


For n=1 To 30 ;30 Fragen in einer Schleife stellen

   m=Rand(0,99) ;zufällige Frage wird ausgewählt (M erhält ne Nummer zwischen 0 und 99)

   Text x,y,frage$(m) ;Frage wird ausgegeben

   Text x,y+10,frageantwort(m,0) ;Antwort 1 wird ausgegeben
   Text x,y+20,frageantwort(m,1) ;Antwort 2 wird ausgegeben

   ;wenn die folgenden Antworten gegeben sind werden sie auch bereit gestellt:

   If frageantwort(m,2)<>"" Then Text x,y+30,frageantwort(m,2)
   If frageantwort(m,3)<>"" Then Text x,y+40,frageantwort(m,3)
   
   lese=(eingabe wie auch immer)
   
   ;nun kommt die kontrolle. stimmt die eingegebene Antwortnummer mit der gespeicherten richtigen
   ;überein? wenn ja dann die entsprechende Pnktezahl die die Frage gibt dazu addieren.
   If lese=fragerichtig(m) Then punkte=punkte+fragepunkte(m)

Next

; Graphikmodus

Global xmax=1024,ymax=768
Graphics xmax,ymax,32,1


Color 220,20,60 Text 440,220,"1. Länder Quiz "

Color 255,165,0  Locate 300, 380 taste$=Input$(" Wähle ein Quiz aus und drücke die Zahl um zu starten ? ")

If taste$=1 Then L


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

; Hauptprogramm Blitz Quiz 2010

Function L()     
   Flip   
End Function       


; Länder Quiz

Color 30,144,255 Text 420,20,"Aufgabe Länder Quiz"
Color 220,20,60 Text 220,120,"Im Länder Quiz werden dir 200 Fragen über alle möglichen Länder der Welt gestellt,"
Color 220,20,60 Text 220,140,"deine Aufgabe ist es nun möglichst viele richtige Antworten zu geben."
Color 220,20,60 Text 220,160,"Bist du bereit dann drücke eine Taste!"

WaitKey
Cls

; Modul Frankreich
; Frankreichs Hauptstadt Paris

Color 30,144,255 Text 0,10,"Punkte: "
Color 30,144,255 Text 320,60,"Wie heisst die Hauptstadt von Frankreich ?"


Color 220,20,60 Text 320,120,"1. Bordeaux "
Color 220,20,60 Text 320,140,"2. Dax "
Color 220,20,60 Text 320,160,"3. Paris "
Color 220,20,60 Text 320,180,"4. Tours "

Color 255,165,0 Locate 320, 240 name$=Input$(" Wie lautet deine Antwort ? ")

Color 255,0,0 Locate 320, 300 If name$="1" Then Print "Leider falsch"
Color 255,0,0 Locate 320, 300 If name$="2" Then Print "Leider falsch"
Color 255,0,0 Locate 320, 300 If name$="4" Then Print "Leider falsch"
Color 50,205,50 Locate 320, 300 If name$="3" Then Print "Paris ist richtig. Du erhälst 10 Punkte !"
If Input$=(3) Then Puntke = punkte +10

WaitKey
Cls

; Wahrzeichen Frankreich

Color 30,144,255 Text 0,10,"Punkte: "
Color 30,144,255 Text 320,60,"Welcher Turm ist das Wahrzeichen von Paris ?"


Color 220,20,60 Text 320,120,"1. Canton Tower "
Color 220,20,60 Text 320,140,"2. Schiefe Turm von Pisa "
Color 220,20,60 Text 320,160,"3. Eifelturm "
Color 220,20,60 Text 320,180,"4. CN Tower "

Color 255,165,0 Locate 320, 240 name$=Input$(" Wie lautet deine Antwort, 1, 2,3 oder 4 ? ")

Color 255,0,0 Locate 320, 300 If name$="1" Then Print "Leider falsch"
Color 255,0,0 Locate 320, 300 If name$="2" Then Print "Leider falsch"
Color 255,0,0 Locate 320, 300 If name$="4" Then Print "Leider falsch"
Color 50,205,50 Locate 320, 300 If name$="3" Then Print "Eifelturm ist richtig, du erhälst 10 Punkte!"
If name$=3 Then Puntke = punkte +10

WaitKey
Cls

Color 30,144,255: Text 0,10,"Punkte: " +punkte

Color 50,205,50
Locate 320, 300
If name$="3" Then
     Print "Paris ist richtig. Du erhälst 10 Punkte !"
     Punkte = Punkte + 10
Endif