10 REM**ADDITION DRILL
20 REM**JOHN L.EUBANKS,PH.D
30 REM**PINEVILLE,LA.71360
40 REM**LOAD"ADDITION",8
50 REM**02/07/84
60 REM**
70 PRINT"[147]"
80 REM**INSTRUCTIONS AND TITLE
90 PRINT"[147]":POKE53281,2
91 PRINT"[144]            ADDITION DRILL"
92 PRINT"                 BY[144]"
93 PRINT"            JOHN L EUBANKS[154]"
94 FORX=1TO2000:NEXTX:PRINT"[147]"
100 PRINT"PLEASE ADD THE TWO NUMBERS"
110 PRINT"AND TYPE YOUR ANSWER WHEN ASKED."
120 PRINT"YOU MAY WORK THE PROBLEM "
130 PRINT"ON PAPER IF YOU LIKE."
140 PRINT:PRINT
150 PRINT"IF YOU ARE READY FOR THE PROBLEM,"
160 PRINT"PRESS THE * KEY TO BEGIN."
170 GET A$
180 IF A$<>"*"THEN170
190 LET T=0
200 PRINT"[147]"
205 LET T=0
210 PRINT"            ***MENU***"
215 PRINT:PRINT
220 PRINT"CHOOSE ONE LEVEL OF DIFFICULTY"
230 PRINT:PRINT
240 PRINT" KEY # 1 FOR 0-5"
250 PRINT" KEY # 2 FOR 5-10"
260 PRINT" KEY # 3 FOR 0-10"
270 PRINT" KEY # 4 FOR 5-20"
280 PRINT" KEY # 5 TO EXIT THE PROGRAM"
290 PRINT:PRINT
300 PRINT"PRESS THE KEY # OF THE LEVEL YOU CHOOSE"
305 PRINT"THEN PRESS <RET>"
310 PRINT:PRINT
320 INPUT P:IFP<1ORP>5THEN200
330 ON P GOTO 1000,2000,3000,4000,5000
908 O RETURN
990 REM**RANDOM NUMBERS SUBROUTINE FOR           0-5 AND ANSWER CALCULATION
1000 N=INT(5*RND(0))
1020 M=INT(5*RND(0))
1040 A=N+M:GOSUB 9000
1050 GOTO1000
1060 REM
1190 REM**RANDOM NUMBERS SUBROUTINE FOR          5-10 AND ANSWER CALCULATION
2000 N=INT(5*RND(0)+5)
2020 M=INT(5*RND(0)+5)
2040 A=N+M:GOSUB 9000
2050 GOTO 2000
2060 REM
2990 REM**RANDOM NUMBERS SUBROUTINE FOR           0-10 AND ANSWER CALCULATION
3000 N=INT(10*RND(0))
3020 M=INT(10*RND(0))
3030 A=N+M:GOSUB 9000
3050 GOTO3000
3060 REM
3990 REM**RANDOM NUMBERS SUBROUTINE FOR           5-20 AND ANSWER CALCULATION
4000 N=INT(15*RND(0)+5)
4010 M=INT(15*RND(0)+5)
4040 A=N+M:GOSUB 9000
4050 GOTO4000
4060 REM
5000 PRINT"[147]"
5010 GOTO63000
8990 REM**PRINT ROUTINE AND ANSWER INPUT
9000 PRINT"[147]"
9010 PRINTN;"+";M;"= ?"
9020 PRINT
9030 INPUT"WHAT IS YOUR ANSWER";Y
9040 IF ABS(Y-A)<.001 THEN 9075
9050 PRINT"[147]":PRINT"SORRY,THATS NOT QUITE RIGHT. TRY AGAIN."
9060 FOR U=1TO1000:NEXTU
9070 GOTO9000
9075 GOSUB 9100
9080 PRINT"[147]":PRINT""
9082 REM**COUNTING AND LIMIT ROUTINE
9085 LET T=T+1
9087 IF T<5 THEN 10000
9090 IF T=5 THEN 9092
9092 PRINT"[147]":PRINT"FIVE CORRECT IS REALLLY NEAT!  CHOOSE     AGAIN!"
9095 FORI=1TO2000:NEXTI:GOTO200
9100 LET P=INT(10*RND(0)+1)
9105 ONP GOTO 9205,9206,9207,9208,9209,9210,9211,9212,9213,9214,9215
9110 RETURN
9205 PRINT"[156]   SUPERFINE!":FORX=1TO1200:NEXTX:GOTO9110
9206 PRINT"[158]   ARE YOU A MATH PRO ?":FORX=1TO1200:NEXTX:GOTO9110
9207 PRINT"******RIGHT AGAIN*****":FORX=1TO1200:NEXTX:GOTO9110
9208 PRINT"[144]  MAN, WHAT A JOB !!":FORX=1TO1200:NEXTX:GOTO9110
9209 PRINT"   GOOD JOB  [146]":FORX=1TO1200:NEXTX:GOTO9110
9210 PRINT"VERY[158] VERY[159] GOOD ":FORX=1TO1200:NEXTX:GOTO9110
9211 PRINT"[158]    SURE YOU'RE NOT A MATH PRO ? ":FORX=1TO1200:NEXTX:GOTO9110
9212 PRINT"   NICELY, NICELY":FORX=1TO1200:NEXTX:GOTO9110
9213 PRINT"   [158]WHEE  ":FORX=1TO1200:NEXTX:GOTO9110
9214 PRINT"   HOW ABOUT THAT   [146]":FORX=1TO1200:NEXTX:GOTO9110
9215 PRINT"[144] VERY GOOD":FORX=1TO1200:NEXTX:GOTO9110
10000 RETURN
63000 PRINT"[147]LOAD"CHR$(34)"PAYLOAD"CHR$(34)",8":PRINT"RUN"
63010 POKE631,13:POKE632,13:POKE198,2:END