1 ! PROGRAM NAME --> A D D  -- BY BOB HUNTSMAN
10 DIM B$(5%):B$(1%)="EASY":B$(2%)="MEDIUM":B$(3%)="HARD":
       B$(4%)="WRONG":B$(5%)="RIGHT
12 OPEN "KB:" AS FILE 1%:FIELD #1%,K% AS Q$,1% AS M3$(K%) FOR K%=0% TO 10%
	:INPUT "NAME PLEASE";N$:V9$=SYS(CHR$(3%))
15 RANDOM:D2%=2%
130 PRINT:PRINT "WHAT KIND OF PROBLEM? ";:GOSUB 29000:PRINT M4$;:A$=M4$
132 IF A$>"1" AND A$<="9" THEN PRINT ",";:D2%=ASCII(A$)-48%:GOSUB 29000:
	A$=M4$:PRINT M4$;
135 GOTO 32000 IF A$="N":B%=1%:GOTO 170 IF A$="E":B%=2%:GOTO 170 
       IF A$="M":B%=3%:GOTO 170 IF A$="H"
140 PRINT:PRINT "'N' FOR NONE, 'E' FOR EASY, 'M' FOR MEDIUM,"
	+ " OR 'H' FOR HARD!":PRINT:GOTO 130
170 PRINT:PRINT "HOW MANY? ";:GOSUB 29000:GOTO 170 IF M4$<"1" OR M4$>"9"
	:X1%=ASCII(M4$)-48%:PRINT M4$:X%=0%:GOTO 1300
200 GOTO 1300 IF X%<X1%:X%=0%:GOTO 130
707 U$="     ":U$=U$+"#" FOR K%=1% TO B%:PRINT:PRINT "ADD!":PRINT
710 PRINT USING U$,A8%(K%) FOR K%=1% TO D2%:PRINT "     ";:
       PRINT "-";FOR K%=1% TO B%:PRINT
730 A8=0%:A8=A8+A8%(K%) FOR K%=1% TO D2%
735 GOSUB 1000:RETURN
800 X%(B%+3%)=X%(B%+3%)+1%:X%(B%)=X%(B%)+1% IF E%=3%:X%=X%+1%:
       RETURN
900 GOSUB 29000:M%=ASCII(M4$):IF M%=32% THEN Z%=1%:RETURN
910 GOTO 900 IF M%<48% OR M%>57%:PRINT M4$; IF M%<>32%:RETURN
1000 V%=INT(LOG10(C))+1%:V1%=B%+4%
1010 A=0:FOR V2%=1% TO V%:PRINT CHR$(13%)+CHR$(0%);:
	PRINT SPACE$(V1%-V2%+1%);
1020 GOSUB 900:IF Z%>0% GOTO 1035 ELSE A=A+10^(V2%-1%)*VAL(M4$)
1030 NEXT V2%
1035 PRINT:PRINT SPACE$(6%);"---> ";:Z%=0%:RETURN
1042 DEF FNR%(V3%)
1044 V4%=INT(10%^V3%*RND(0%)):GOTO 1044 IF V4%<10%^(V3%-1%):
       FNR%=V4%
1050 FNEND
1060 DEF FND%(X,X%)
1070 X1=X/10^(X%-1%):FND%=X1-INT(X1/10%)*10%
1090 FNEND
1200 E%=7%
1230 E%=E%+1%:PRINT "WRONG, ";N$;"!!  A CLUE--> ";
1235 PRINT "THE ANSWER IS BETWEEN":PRINT SPACE$(11%);
1237 A1%=FNR%(1%):B1%=FNR%(1%)
1240 A$="":A$=A$+"#" FOR K%=1% TO INT(LOG10(C+A1%)+1%):GOTO 1237 
       IF B1%>C
1245 PRINTUSING A$,C-B1%;:PRINT " AND ";:PRINTUSING A$,C+A1%:RETURN
1260 PRINT "NO!!  THE CORRECT ANSWER IS -->";C;"!!":PRINT
1270 RETURN
1300 A8%(K%)=FNR%(B%) FOR K%=1% TO D2%:C=0%:C=C+A8%(K%) 
       FOR K%=1% TO D2%:GOSUB 707
1305 IF C=A THEN E%=3%:PRINT "CORRECT!":GOSUB 800:GOTO 200
1310 GOSUB 1200:GOSUB 707:IF C=A THEN PRINT "CORRECT!":E%=2%:
	GOSUB 800:GOTO 200
1320 GOSUB 1230:GOSUB 707:IF C=A THEN PRINT "CORRECT!":E%=1%:
	GOSUB 800:GOTO 200
1330 GOSUB 1260:E%=0%:PRINT:GOSUB 800:GOTO 200
29000 GOTO 29100 IF M3%=Z3%:M4$=M3$(M3%):M3%=M3%+1%:RETURN
29100 M3%=0%:V9$=SYS(CHR$(4%)):GET #1%:Z3%=RECOUNT:GOTO 29000
32000 U$="\    \ - ## OUT OF ## ---> ###%":V9$=SYS(CHR$(2%)):PRINT
32007 PRINT:PRINT N$;" -- HERE ARE YOUR SCORES:":PRINT
32010 FOR K%=1% TO 3%:GOTO 32100 IF X%(K%+3%)=0%:PRINTUSING U$,
	B$(K%),X%(K%),X%(K%+3%),100%*X%(K%)/X%(K%+3%)
32100 NEXT K%
32220 B%=0%:B%=B%+X%(K%) FOR K%=4% TO 6%:A%=0%:A%=A%+X%(K%) 
       FOR K%=1% TO 3%:A%=100%*A%/B%
32230 B%=0%:B%=1% IF A%>60%:B%=2% IF A%>89%:DIM Z$(2%)
32240 Z$(0%)=", YOU DEFINITELY NEED MUCH MORE"
	+ " PRACTICE!!":Z$(1%)=", YOU DID ABOUT AVERAGE"
	+ " -- BUT YOU STILL NEED MORE PRACTICE!!"
32250 Z$(2%)=" -- GREAT -- YOU SEEM TO UNDERSTAND"
	+ " THESE PROBLEMS VERY WELL!!"
32260 A$=NUM$(A%):PRINT:PRINT "YOUR CUMULATIVE SCORE IS";
       LEFT(A$,LEN(A$)-1%);"%.":PRINT
32270 PRINT N$+Z$(B%):PRINT
32767 END