5 &"DRILL AND PRACTICE IN ADDITION":&
10 INPUT "HOW MANY PROBLEMS DO YOU WANT TO DO";P
15 &:INPUT "HOW MANY DIGITS DO YOU WISH TO WORK WITH";N
20 IF N<5 THEN 22 ELSE &"THAT'S TOO MANY FOR MY TASTE.  WHY NOT TRY 4"
21 INPUT "OR FEWER, OKAY?  NOW THEN, HOW MANY DIGITS";N:GOTO 20
22 &:W=0
25 &:X=X+1:Q=0
27 LET Q=0
30 A=INT(10^N*RND):B=INT(10^N*RND)
40 & TAB(6-INT(LOG(A)/2.302585+1));A
50 & TAB(5-INT(LOG(B)/2.302585+1));"+";B
60 & "  -----":INPUT "  ";G
70 IF G=A+B THEN 140 ELSE IF Q<2 THEN 122
80 & "THAT'S THE THIRD TIME YOU MISSED THAT PROBLEM."
90 & "THE CORRECT ANSWER IS"A+B".":&:& "LET'S GO ON TO ANOTHER":GOTO 25
122 Q=Q+1:IF Q>1 THEN 128 ELSE W=W+1
128 &"WHAT?  TRY AGAIN...":&:GOTO 40
140 IF X=P THEN 155 ELSE Y=Y+1: IF Y<>1 THEN 145
143 &"VERY GOOD!":GOTO 25
145 IF Y<>2 THEN 148 ELSE &"CORRECT.  HERE'S ANOTHER.":GOTO 25
148 IF Y<>3 THEN 151 ELSE &"YOU'RE A REAL MATH GIANT!":GOTO 25
151 Y=0:&"SUPER !!":GOTO 25
155 &:&"YOU GOT"P-W"CORRECT THE FIRST TIME":IF W<=3 THEN 180
170 &"BUT YOU MISSED"W:GOTO 999
180 &"GOOD WORK !!":&CHR$(7); FOR I=1 TO 15
999 END