; Alle Fragen einlesen
Dim Frage$(3)
For i = 0 To 3
 Read Frage$(i)
Next

Data "Wie ist dein Name?", "Wie alt bist du?", "Welches Geschlecht hast du?", "Was ist dein Beruf?"


; Jede Antwort zu jeder Frage
Dim Antwort$(3,4)
For fr = 0 To 3
 For an = 0 To 1
  Read Antwort$(fr,an)
 Next
Next

Data "Mein Name ist Alfonso.", "Der geht dich gar nichts an."
Data "Ich werde übermorgen 12.", "Ich bin 32 Jahre alt."
Data "Ich bin männlich.", "Ich bin weiblich."
Data "Ich bin Arbeitslos.", "Ich bin Diplom Psychologe."


; Welche Antwort ist richtig / bzw führt zu welcher Aktion
Dim Richtig(3)
For i = 0 To 3
 Read Richtig(i)
Next

Data 0,1,0,1


; ---- Frage/Antwort Dialog ----
SeedRnd MilliSecs()

FrageNr = Rnd(3)

Print Frage$(FrageNr)
Print
Print "0) " + Antwort(FrageNr, 0)
Print "1) " + Antwort(FrageNr, 1)
Print

.rep
AntwortNr = Input("Ihre Antwort: ")
If AntwortNr <> 0 And AntwortNr <> 1 Then Goto rep

Print

If AntwortNr = Richtig(FrageNr) Then
 Print "Das war eine gute Antwort."
Else
 Print "Die Antwort war schlecht."
EndIf

Print
Print "Press any key to exit.

WaitKey
End