Frage: [blah...]
Antwort1: ...
Antwort2: ...
Antwort3: ...
Antwort4: ...
...

For i = 1 To 4
   Fragentxt(i) = OpenFile("Data\Fragen"+i+".txt")
Next

For i = 1 To 4
   For j = 1 To Fragen_Anzahl(i)
      Fragenlinie$(i,j) = ReadLine(Fragentxt(i))
   Next
Next

Graphics 800,600,32,3
SetBuffer BackBuffer()

Global Buchstabe
Global Eingabe$
Global Fragereihe

Text 50,20, "Dies soll ein sehr simpler Code zum Zeigen einer möglichen Strukturierung eines Quizzes sein"
Text 50,35, "Jedoch würde dieses 'Quiz' schon nach einiger Zeit sehr langweilig werden, "
Text 50,50, "da es nur 2 Fragen gibt"

WaitKey
   Cls
Fragereihe = 1
Repeat
   While Fragereihe = 1
      Cls
      Buchstabe = GetKey() ; Getkey() gibt den ASCII Code wieder... gibt zwar noch bessere Lösungen,
      Frage1_Funktion      ; aber ich wollte jetzt auf die schnelle nicht noch einen Eingabealgorithmus
      Flip             ; aus dem Hut zaubern.
   Wend
   
   While Fragereihe = 2
      Cls
      Buchstabe = GetKey()
      Frage2_Funktion
      Flip
   Wend
until keyhit(1)
WaitKey


Function Frage1_Funktion()

Text 150,200, "Wer moderiert die Senundung 'Wer wird Millionär' ?"

Text 200,250, "A) Günter Jauch "
Text 200,300, "B) Florian Killo "
Text 200,350, "C) Thomas Strauch "

Eingabe_Funktion

If Eingabe = "A" Then
   Text 200,150, "RICHTIG! Sie sind eine Frage weiter"
   Fragereihe = 2
   Eingabe = " "
                waitkey
ElseIf Eingabe = "B" Or Eingabe = "C"
   Text 200,150, "FALSCH! Sie haben verloren!"
   Eingabe = " "
   WaitKey
   End
End If

End Function

Function Frage2_Funktion()

Text 150,200, "Welcher ist der größte Kontinent auf der Erde?"

Text 200,250, "A) Europa "
Text 200,300, "B) Asien "
Text 200,350, "C) Afrika "

Eingabe_Funktion

If Eingabe = "B" Then
   Text 200,150, "RICHTIG! Sie sind eine Frage weiter"
   Fragereihe = 3
   Eingabe = " "
                waitkey
ElseIf Eingabe = "A" Or Eingabe = "C"
   Text 200,150, "FALSCH! Sie haben verloren!"
   Eingabe = " "
   WaitKey
   End
End If

End Function


Function Eingabe_Funktion()

If Buchstabe = 65 Or Buchstabe = 97 Then ; 65 = A ; 97 = a
   Eingabe$ = "A"
End If
If Buchstabe = 66 Or Buchstabe = 98 Then ; 66 = B ; 98 = b
   Eingabe = "B"
End If
If Buchstabe = 67 Or Buchstabe = 99 Then ; 67 = C ; 99 = c
   Eingabe$ = "C"
End If

End Function

 ; freie Frage finden
 Repeat
  Frage = Rand(1,MaxFragen)
 Until Gestellt(Frage) = 0
 Gestellt(Frage) = 1


 ; Antworten mischen
 For J=0 To 4
  Antwort(J) = 0
 Next

 For J=1 To 4
  Repeat
   X = Rand(1,4)
  Until Antwort(X) = 0
  Antwort(X) = J
  If J=1 Then Antwort(0) = X
 Next