.label2

ende = input("type:")   ;neu für neustart und quit für beenden!   
select ende
                   
;neustart
case neu
cls
gosub label1  ;label 1 ist weiter oben!


;beenden
case quit
gosub endpunkt

;falsche eingabe
default
cls
gosub label2

end select


.endpunkt

end

.label2

ende$ = input("type:")   ;neu für neustart und quit für beenden!   
select ende$
                   
;neustart
case "neu"
cls
goto label1

;beenden
case "quit"
goto endpunkt

;falsche eingabe
default
cls
goto label2
end select

.endpunkt

end

Dim frage$(3),antwort$(3),gestellt(3)

frage(0)="Was kommt im Fernsehen?"
frage(1)="Wie ist das Wetter?"
frage(2)="Was machst Du gerade?"
frage(3)="Fällt Dir auch nichts mehr ein?"

antwort(0)="Nur Mist"
antwort(1)="Sonnig"
antwort(2)="Coden"
antwort(3)="Nö"

Repeat ; Alles wiederholen

 Repeat ; Hier solange wiederholen
  n=Rand(0,3)
 Until gestellt(n)=False ; bis Frage nicht gestellt wurde

 Print frage(n)
 ant$=Input$("-> ")
 If ant$=antwort(n)
  gestellt(n)=True
  Print "Schlaumann, hä?"
  zaehler=zaehler+1
 Else
  Print "Du Pflaume :P"
 EndIf
Until zaehler=4 Or KeyHit(1) ; bis 4 Fragen gekommen sind
; oder Esc gedrückt
End

if upper(antwort) = upper (eingabe) then.....

AppTitle("Matzes Quiz")


Graphics 900, 200 ,16,2  ;,2 für fenstermodus!
clscolor 92,0,0
cls
.start
      ; Die Musik
      doormusic = playmusic("door.mid")



      ; Die Schrift
      schrift = loadfont("Calligraphic",20,1,0,0)

      setfont schrift               ;Schrift setzten
      color 232,185,98        ;Schriftfarbe


Seedrnd Millisecs()            ; verändert den "Samen" für die Zufallsfunktion
                                          ; in Abhängigkeit von der Laufzeit des Rechners.
                                          ; Sollte für "echten" Zufall genügen.


;Fragen und Antworten
Dim frage$(3),antwort$(3),gestellt(3)

frage(0)="was heißt FTP? a) File Transfer Protocol b) Float Traffic Protocol c) FTP hat keine Bedeutung!"
frage(1)="Wovon ist Stockholm die Hauptstadt? a) Norwegen  b) Schweden oder c) Polen"
frage(2)="Wie lange dauerte der 100 jährige Krieg ? a) 323 Wochen b)52560000 Minuten  c) 365 Monate"
frage(3)="Wofür steht ALDI? a) Allgemeine durchschnitts Instanz  b) Allzweck-Discount c) Albrecht Discount"

antwort(0)="a"
antwort(1)="b"
antwort(2)="b"
antwort(3)="c"

Repeat                                  ; Alles wiederholen

 Repeat                               ; Hier solange wiederholen
  n=Rand(0,3)
 Until gestellt(n)=False       ; bis Frage nicht gestellt wurde

 print frage(n)
 ant$=Input$("a,b oder c?  Antwort:")          
 If ant$=antwort(n)                         
  gestellt(n)=True
  Print "Na geht doch!"
   Print()
   zaehler=zaehler+1
 Else
    gestellt(n)=True
    zaehlerfalsch=zaehlerfalsch+1
  Print "Altes Toastbrot! ...mehr Glück beim nächsten mal!"
   print()
 EndIf
Until zaehler=3 Or zaehlerfalsch=3 KeyHit(1) ; bis 3 Fragen gekommen sind oder Esc gedrückt



cls


text 0,0, "Du hast" text 80,0, zaehler text 100,0, "von 3 Fragen richtig beantwortet!"
text 0,30, "nochmal?"

.re1
text 0,60, "Fürs neustarten j eintippen"

locate 0,90
endmenu = Input("_")

Select endmenu
   case j
   cls
   goto start
   
   default
   cls
   gosub re1
End Select



;repeat
;Until Keyhit(1)

End