GOSUB setup
WHILE a$ <> CHR$(27)
 GOSUB getkey
WEND
END

setup:
CLS : SCREEN 12
RETURN

getkey:
CLS
a$ = INKEY$
GOSUB title
RETURN

title:
GOTO 11
12 PRINT "Please use capital letters.": GOTO 13
11 CLS : PRINT "Welcome to Danny's deluxe math program!"
13 INPUT "Would you like it Easy(E), Medium(M), Hard(H), or quit(Q)?"; yn$
IF yn$ = "E" THEN GOSUB easy1
IF yn$ = "M" THEN GOSUB med1
IF yn$ = "H" THEN GOSUB hard1
IF yn$ = "Q" THEN END
GOTO 12
RETURN

easy1:
CLS
14 INPUT "Would you like addition(A), subtraction(S), or quit(Q)?"; yn$
IF yn$ = "S" THEN GOSUB easy1s
IF yn$ = "A" THEN GOSUB easy1a
IF yn$ = "Q" THEN END
PRINT "Please use capital letters.": GOTO 14
RETURN

easy1a:
15 PRINT "Here is your first problem."
INPUT "8+3"; yn$
IF yn$ = "11" THEN PRINT "Good Job!": GOSUB easy2a
IF a$ = "q" THEN END
IF a$ = "Q" THEN END
PRINT "Try again.": GOTO 15
RETURN

easy2a:
16 PRINT "Here is your second problem."
INPUT "9+12"; yn$
IF yn$ = "21" THEN PRINT "Good Job!": GOSUB easy3a
PRINT "Try again.": GOTO 16
RETURN

easy3a:
17 PRINT "Here is your third problem."
INPUT "6+15"; yn$
IF yn$ = "21" THEN PRINT "Good Job!": GOSUB finish
PRINT "Try again.": GOTO 17
RETURN

easy1s:
18 PRINT "Here is your first problem."
INPUT "8-2"; yn$
IF yn$ = "6" THEN PRINT "Good Job!": GOSUB easy2s
PRINT "Try again.": GOTO 18
RETURN

easy2s:
19 PRINT "Here is your second problem."
INPUT "10-6"; yn$
IF yn$ = "4" THEN PRINT "Good Job!": GOSUB easy3s
PRINT "Try again.": GOTO 19
RETURN

easy3s:
20 PRINT "Here is your third problem."
INPUT "10-9"; yn$
IF yn$ = "1" THEN PRINT "Good Job!": GOSUB finish
PRINT "Try again.": GOTO 20
RETURN

med1:
21 INPUT "Would you like addition(A), subtraction(S), or multiplication(M), or quit(Q)?"; yn$
IF yn$ = "A" THEN GOSUB med1a
IF yn$ = "S" THEN GOSUB med1s
IF yn$ = "M" THEN GOSUB med1m
IF yn$ = "Q" THEN END
PRINT "Please use capital letters.": GOTO 21
RETURN

med1a:
22 PRINT "Here is your first problem."
INPUT "50+43"; yn$
IF yn$ = "93" THEN PRINT "Good Job!": GOSUB med2a
PRINT "Try again.": GOTO 22
RETURN

med2a:
23 PRINT "Here is your second problem."
INPUT "67+23"; yn$
IF yn$ = "100" THEN PRINT "Good Job!": GOSUB med3a
PRINT "Try again.": GOTO 23
RETURN

med3a:
24 PRINT "Here is your third problem."
INPUT "127+97"; yn$
IF yn$ = "224" THEN PRINT "Good Job!": GOSUB finish
PRINT "Try again.": GOTO 24
RETURN

med1s:
25 PRINT "Here is your first problem."
INPUT "50-23"; yn$
IF yn$ = "27" THEN PRINT "Good Job!": GOSUB med2s
PRINT "Try again.": GOTO 25
RETURN

med2s:
26 PRINT "Here is your second problem."
INPUT "75-38"; yn$
IF yn$ = "37" THEN PRINT "Good Job!": GOSUB med3s
PRINT "Try again.": GOTO 26
RETURN

med3s:
27 PRINT "Here is your third problem."
INPUT "100-38"; yn$
IF yn$ = "62" THEN PRINT "Good Job!": GOSUB finish
PRINT "Try again.": GOTO 27
RETURN

med1m:
28 PRINT "Here is your first problem."
INPUT "6X6"; yn$
IF yn$ = "36" THEN PRINT "Good Job!": GOSUB med2m
PRINT "Try again.": GOTO 28
RETURN

med2m:
29 PRINT "Here is your second problem."
INPUT "3X18"; yn$
IF yn$ = "54" THEN PRINT "Good Job!": GOSUB med3m
PRINT "Try again.": GOTO 29
RETURN

med3m:
30 PRINT "Here is your third problem."
INPUT "2X51"; yn$
IF yn$ = "102" THEN PRINT "Good Job!": GOSUB finish
PRINT "Try again.": GOTO 30
RETURN

hard1:
31 INPUT "Would you like addition(A), subtraction(S), multiplication(M), division(D), or  quit(Q)?"; yn$
IF yn$ = "A" THEN GOSUB hard1a
IF yn$ = "S" THEN GOSUB hard1s
IF yn$ = "M" THEN GOSUB hard1m
IF yn$ = "D" THEN GOSUB hard1d
IF yn$ = "Q" THEN END
PRINT "Please use capital letters.": GOTO 31
RETURN

hard1a:
32 PRINT "Here is your first problem."
INPUT "340+67"; yn$
IF yn$ = "407" THEN PRINT "Good Job!": GOSUB hard2a
PRINT "Try again.": GOTO 32
RETURN

hard2a:
33 PRINT "Here is your second problem."
INPUT "448+285"; yn$
IF yn$ = "733" THEN PRINT "Good Job!": GOSUB hard3a
PRINT "Try again.": GOTO 33
RETURN

hard3a:
34 PRINT "Here is your third problem."
INPUT "638+673"; yn$
IF yn$ = "1311" THEN PRINT "Good Job!": GOSUB finish
PRINT "Try again.": GOTO 34
RETURN

hard1s:
35 PRINT "Here is your first problem."
INPUT "400-286"; yn$
IF yn$ = "124" THEN PRINT "Good Job!": GOSUB hard2s
PRINT "Try again.": GOTO 35
RETURN

hard2s:
36 PRINT "Here is your second problem."
INPUT "574-328"; yn$
IF yn$ = "246" THEN PRINT "Good Job!": GOSUB hard3s
PRINT "Try again.": GOTO 36
RETURN

hard3s:
37 PRINT "Here is your third problem."
INPUT "786-275"; yn$
IF yn$ = "511" THEN PRINT "Good Job!": GOSUB finish
PRINT "Try again.": GOTO 37
RETURN

hard1m:
38 PRINT "Here is your first problem"
INPUT "12X9"; yn$
IF yn$ = "108" THEN PRINT "Good Job!": GOSUB hard2m
PRINT "Try again.": GOTO 38
RETURN

hard2m:
39 PRINT "Here is your second problem."
INPUT "12X11"; yn$
IF yn$ = "132" THEN PRINT "Good Job!": GOSUB hard3m
PRINT "Try again.": GOTO 39
RETURN

hard3m:
40 PRINT "Here is your third problem."
INPUT "12X13"; yn$
IF yn$ = "156" THEN PRINT "Good Job!": GOSUB finish
PRINT "Try again.": GOTO 40
RETURN

hard1d:
41 PRINT "Here is your first problem."
INPUT "36/3"; yn$
IF yn$ = "12" THEN PRINT "Good Job!": GOSUB hard2d
PRINT "Try again.": GOTO 41
RETURN

hard2d:
42 PRINT "Here is your second problem."
INPUT "54/9"; yn$
IF yn$ = "6" THEN PRINT "Good Job!": GOSUB hard3d
PRINT "Try again.": GOTO 42
RETURN

hard3d:
43 PRINT "Here is your third problem."
INPUT "99/3"; yn$
IF yn$ = "33" THEN PRINT "Good Job!": GOSUB finish
PRINT "Try again.": GOTO 43
RETURN

finish:
PRINT "Congratulations! You have finished your problems!"
143 INPUT "Would you like to play again?"; yn$
IF yn$ = "YES" THEN GOSUB title
IF yn$ = "NO" THEN PRINT "Thanks for playing!": END
IF yn$ = "Y" THEN GOSUB title
IF yn$ = "N" THEN PRINT "Thanks for playing!": END
PRINT "Please answer yes or no.": GOTO 143
RETURN