CLS
RANDOMIZE TIMER
5 GOSUB sub1
DIM c$(4)
c$(1) = "+": c$(2) = "-": c$(3) = "*": c$(4) = "/"
GOSUB sub2
GOSUB sub3
END
sub1: PRINT "Please pick a grade:"
PRINT "1:very easy."
PRINT "2:middle."
PRINT "3:difficult."
PRINT "4:very difficult."
10 PRINT "Please input 1 or 2 or 3 or 4";
INPUT a
IF a <> 1 AND a <> 2 AND a <> 3 AND a <> 4 THEN PRINT "error!": GOTO 10
RETURN
sub2: CLS
FOR i = 1 TO 10
DO
SELECT CASE a
CASE IS = 1
n = FIX(RND * 10)
m = FIX(RND * 9) + 1
CASE IS = 2
n = FIX(RND * 90) + 10
m = FIX(RND * 89) + 10
CASE IS = 3
n = FIX(RND * 400) + 100
m = FIX(RND * 399) + 100
CASE IS = 4
n = FIX(RND * 900) + 100
m = FIX(RND * 899) + 100
END SELECT
LOOP UNTIL n MOD m = 0 AND n > m
c = FIX(RND * 4) + 1
PRINT SPC(10); n; c$(c); m; "=";
INPUT d
IF c = 1 THEN IF n + m = d THEN GOSUB sub21
IF c = 2 THEN IF n - m = d THEN GOSUB sub21
IF c = 3 THEN IF n * m = d THEN GOSUB sub21
IF c = 4 THEN IF n / m = d THEN GOSUB sub21
PRINT
NEXT i
PRINT s
GOSUB sub22
RETURN
sub21: s = s + 10: PRINT SPC(5); "Good!"; SPC(2); s; : RETURN
sub22: IF s <= 20 THEN PRINT "very bad!"
IF s > 20 AND s <= 50 THEN PRINT "bad!"
IF s > 50 AND s <= 70 THEN PRINT "not bad."
IF s = 80 THEN PRINT "good!"
IF s > 80 THEN PRINT "very good!"
s = 0: n = 0: m = 0: c = 0: a = 0: b = 0
RETURN
sub3: PRINT "do you want again?";
PRINT "1:yes.2:no"
20 INPUT b
IF b = 1 THEN CLS : GOTO 5
IF b = 2 THEN END
IF b <> 1 AND b <> 2 THEN PRINT "error!": GOTO 20
RETURN