Math Test

Gallery

Source Code

   1 REM "TEST"
   5 RAND 
  10 LET S=0
  15 FOR I=1 TO 20
  20 CLS 
  25 LET M=7+INT (RND*11)
  30 LET N=5+INT (RND*11)
  35 PRINT "QUESTION ";I
  40 PRINT 
  45 PRINT M; " * "; N; "=";
  50 INPUT Q
  55 PRINT M*N
  60 IF Q=M*N THEN PRINT "WELL DONE"
  65 IF Q=M*N THEN LET S=S+1
  70 PAUSE 100
  75 NEXT I
  80 CLS 
  85 PRINT "SCORE "; S; " /20"
  90 SAVE "1022%1"
  95 RUN