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
