Math

Gallery

Source Code

   1 REM "MATH"
  10 RAND 
  20 SLOW 
  30 LET F=0
  40 LET A$="+-*/"
  50 CLS 
  60 PRINT "FUNCTION 1=+; 2=-; 3=*; 4=/"
  70 INPUT A
  80 PRINT ,,"LEVEL 1-3"
  90 INPUT B
 100 FOR N=1 TO 10
 110 CLS 
 120 PRINT "QUESTION ";N,F;" CORRECT"
 130 LET C=INT (10**B*RND)
 140 LET D=INT (10**B*RND)
 150 IF A>2 THEN LET D=INT (D/(10**(B-1)))+1
 160 LET B$=STR$ C+""+A$(A)+""+STR$ D
 170 PRINT ,,B$;"=";
 180 INPUT D
 190 PRINT D
 200 IF ABS (VAL B$-D)>0.01 THEN GOTO 240
 210 PRINT ,,"CORRECT PRESS N/L"
 220 LET F=F+1
 230 GOTO 250
 240 PRINT ,,"WRONG PRESS N/L"
 250 INPUT D$
 260 NEXT N
 270 PRINT ,,"SCORE ";F;" OUT OF 10"
 280 INPUT D$
 290 RUN 
 300 SAVE "1017%0"
 310 RUN