Graphics 800,600,32,1

punkte% = 0 ; soll einfach von anfang an so sein?!?!

Locate 10,10

Print "Hallo.Drücke eine Taste um fortzufahren"
WaitKey
Cls
Locate 10,10

Print "Gut du kannst tippen.Welch ein Wunder.Drücke erneut eine Taste"
WaitKey
Cls
Locate 10,10

Print "Okay mit der Zeit wirds langweilig.Drück einfach immer eine Taste um fortzufahren"
WaitKey
Cls
Locate 10,10
 
Print "Gut wir verstehen uns"
WaitKey
Cls
Locate 10,10
 
Print "Gehen wir zum quiz"
WaitKey
Print "Kann ich schon gut programmieren??"
 Print "a=ja , b= nein , c= ich lerne noch"
  antwort$ = Input ()
   If antwort$ = "a" Then Print "Bist du behindert?!!?"
    If antwort$ = "b" Then Print "Genau!"
     If antwort$ = "c" Then Print "Ja auch aber du hättest nein sagen sollen"
      If antwort$ = "b" Then punkte% + 1; ja hier hab ich eben keine ahnung was ich machen soll.....
      WaitKey
       Cls
Locate 10,10

Print "Kommen wir zur nächsten Frage"
 Print "ist michael ein genie?"
  Print "a= ja , b= ja , c= ja
   antwort$ = Input ()
    If antwort$ = "a" Then Print "Mehr als das, denn er mag Bärte"
     If antwort$ = "b" Then Print "Genau!Michael ist wahrhaftig ein Genie"
      If antwort$ = "c" Then Print "Jop, denn er bringt mir das proggen bei"
       WaitKey
        Cls
Locate 10,10

Print "Okay nun die letzte Frage"
Print "welche farbe hat meine unterhose?"
Print "a= schwarz , b= pink , c= grün"
antwort$ = Input ()
If antwort$ = "a" Then Print "Genau denn Schwarz ist stylisch"
If antwort$ = "b" Then Print "Ich bin doch nicht Schwul"
If antwort$ = "c" Then Print "Hm neh^^"
WaitKey
Cls
Locate 10,10
Print "Drücke eine taste um dieses sinnlose Quiz zu verlassen"
Locate 10,10
Print "und dich wieder deinem noch sinnloseren Leben zu widmen"
WaitKey
End

punkte = punkte + 1

If antwort$ = "b" Then Print "Genau!"

If antwort$ = "b" Then punkte% + 1;

If antwort$ = "b" Then
     Print "Genau!"
     punkte = punkte + 1
Endif

punkte = punkte +1