Sorry your browser is not supported!

Set window size 500,500
Set text size 50
Hide mouse
score=0
Print " 2"
Print " X"
Print " 2"
Print "___"
Input answer$
If answer$="4" then Print "Correct" : score=score + 10 : Else Print "Wrong"
Cls

Print " 7"
Print " X"
Print " 5"
Print "___"
Input answer$
If answer$="35" then Print "Correct" : score=score + 10 : Else Print "Wrong"
Cls

Print " 9"
Print " X"
Print " 5"
Print "___"
Input answer$
If answer$="45" then Print "Correct" : score=score + 10 : Else Print "Wrong"
Cls

Print " 8"
Print " X"
Print " 9"
Print "___"
Input answer$
If answer$="72" then Print "Correct" : score=score + 10 : Else Print "Wrong"
Cls

Print " 7"
Print " X"
Print " 7"
Print "___"
Input answer$
If answer$="49" then Print "Correct" : score=score + 10 : Else Print "Wrong"
Cls

Print " 8"
Print " X"
Print " 6"
Print "___"
Input answer$
If answer$="48" then Print "Correct" : score=score + 10 : Else Print "Wrong"
Cls

Print " 9"
Print " X"
Print " 9"
Print "___"
Input answer$
If answer$="81" then Print "Correct" : score=score + 10 : Else Print "Wrong"
Cls

Print " 12"
Print " X"
Print " 5"
Print "___"
Input answer$
If answer$="60" then Print "Correct" : score=score + 10 : Else Print "Wrong"
Cls

Print " 11"
Print " X"
Print " 9"
Print "___"
Input answer$
If answer$="99" then Print "Correct" : score=score + 10 : Else Print "Wrong"
Cls

Print " 7"
Print " X"
Print " 9"
Print "___"
Input answer$
If answer$="63" then Print "Correct" : score=score + 10 : Else Print "Wrong"
Cls

Print "Score :"; score


Do
Loop

total = 0
correct = 0

repeat
   cls
   a = rnd(12)
   b = rnd(12)
   print a," x ",b," = ?"
   input answer$
   if answer$ <> "quit"
      inc total
      if answer$ = str$(a*b)
         print "correct"
         inc correct
      else
         print "wrong"
      endif
   endif
   wait 300
until answer$ = "quit"

cls
print "You're final score was: ",correct,"/",total

rem display final score until user hits spacebar
repeat:until spacekey()