1 ! PROGRAM NAME --> S U B  -- BY BOB HUNTSMAN
2 DIM A8%(13%):D%=7%:D2%=2%
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 RANDOMIZE
130 PRINT:PRINT "WHAT KIND OF PROBLEM? ";:GOSUB 29000:PRINT M4$;:A$=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
700 DEF FNP(D1%,T1%)
702 A8=A8%(1%)+A8%(2%)
706 PRINT:PRINT
707 C9%=INT(LOG10(A8))+1%:U$=SPACE$(T1%)+FNC$("#",C9%)
708 PRINT "SUBTRACT!":PRINT
710 PRINT USING U$,A8,A8%(2%)
715 D5%=INT(LOG10(A8))+1%:PRINT SPACE$(T1%)+FNC$("-",D5%)
735 FNP=FNG(INT(LOG10(A8%(1%)))+1%,T1%+D5%-1%):
       PRINT
740 FNEND
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 DEF FNG(V,V1%):V%=V
1010 V3=0:FOR  V2%=1% TO V%:PRINT CHR$(13%);CHR$(0%);SPACE$(V1%-V2%+1%);
1020 GOSUB 900:IF Z%>0% GOTO 1035 ELSE V3=V3+10^(V2%-1%)*VAL(M4$)
1030 NEXT V2%
1035 PRINT:FNG=V3:Z%=0%:FNEND
1042 DEF FNR%(V3%)
1044 V4%=INT((10^V3%)*RND(0%))
1046 GOTO 1044 IF V4%<10^(V3%-1%)
1048 FNR%=V4%
1050 FNEND
1060 DEF FND%(X,X%)
1070 X1=X/10^(X%-1%)
1080 FND%=X1-INT(X1/10)*10%
1090 FNEND
1100 DEF FNC$(X$,X1%)
1110 X1$="":X1$=X1$+X$ FOR K1%=1% TO X1%
1120 FNC$=X1$
1130 FNEND
1200 PRINT:PRINT "NO, ";N$;
       ", THAT'S NOT QUITE RIGHT.  HERE IS A CLUE:":PRINT
1210 PRINT "THE ANSWER IS ";:PRINT USING "#",INT(LOG10(C))+1%;
1215 PRINT " DIGIT";:PRINT "S";IF INT(LOG10(C))>0%
1220 PRINT " LONG!!"
1225 RETURN
1230 PRINT:PRINT "NO, ";N$;
       ", YOU ARE STILL NOT QUITE RIGHT.  HERE IS ANOTHER CLUE:":
       PRINT
1235 PRINT "THE ANSWER IS BETWEEN ";
1237 A1%=FNR%(1%):B1%=FNR%(1%)
1240 A$=FNC$("#",INT(LOG10(C+A1%))+1%)
1242 GOTO 1237 IF B1%>C:Y=C:Z=0%
1245 PRINTUSING A$,C-B1%;:PRINT " AND ";:PRINTUSING A$,C+A1%;:RETURN
1260 PRINT "SORRY, ";N$;
       ",BUT YOU STILL ARE INCORRECT.  THE CORRECT ANSWER IS";
       A8%(1%);".":RETURN
1300 A8%(K%)=FNR%(B%) FOR K%=1% TO 2%:C=A8%(1%)
1302 A=FNP(B%,10%)
1305 IF C=A THEN E%=3%:PRINT "CORRECT!!":
       GOSUB 800:GOTO 200
1310 GOSUB 1200:A=FNP(B%,10%):IF C=A THEN PRINT "CORRECT!":
       E%=2%:GOSUB 800:GOTO 200
1320 GOSUB 1230:A=FNP(B%,10%):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