1 ! PROGRAM NAME --> C O U N T  -- BY BOB HUNTSMAN
5 DIM Q$(1%):Q$(0)="BEFORE":Q$(1%)="AFTER"
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
175 INPUT "HARD PROBLEM";A$
200 GOTO 1300 IF X%<X1%:X%=0%:GOTO 130
700 DEF FNP(R%,D1%)
705 V9$=SYS(CHR$(3%))
710 PRINT "WHAT NUMBER IS RIGHT ";Q$((D1%+2%)/2%);:
	A$=NUM$(R%):PRINT LEFT(A$,LEN(A$)-1%);"? ";:GOSUB 900
720 FNP=P%:PRINT TAB(37%);
730 FNEND
800 X%(B%+3%)=X%(B%+3%)+1%:X%(B%)=X%(B%)+1% IF E%=3%:X%=X%+1%:
       RETURN
900 P1%=INT(LOG10(R1%+Q%))+1%:P%=0%
910 GOSUB 29000:M%=ASCII(M4$)-48%:GOTO 910 IF M%<0% OR M%>9%:
	PRINT M4$;:P%=P%*10%+M%:P1%=P1%-1%:RETURN IF P1%=0%:GOTO 910
1000 DEF FNG(V,V1%)
1005 V%=V
1010 V3=0:FOR V2%=1% TO V%:PRINT CHR$(13%);:
       PRINT SPACE$(V1%-V2%+1%);
1020 GOSUB 900:IF Z%>0% GOTO 1035 
       ELSE V3=V3+10^(V2%-1%)*VAL(A$)
1030 NEXT V2%
1035 PRINT:FNG=V3:V3=0
1040 FNEND
1042 DEF FNR%(V3%)
1044 V4%=INT(1000%*RND(0%)):V4%=V4%-(V4%/V3%)*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
1300 R1%=FNR1%(B%):Q%=FNR%(2%):Q%=-1% IF Q%=2%
1310 A=FNP(R1%,Q%):C=R1%+Q%:IF A=C THEN PRINT "";
       FOR K%=1% TO 15%:PRINT "CORRECT!!!":E%=3%:GOSUB 800:
       GOTO 200
1320 PRINT "NO, TRY AGAIN!":A=FNP(R1%,Q%):IF A=C THEN PRINT "";
       FORK%=1%TO10%:PRINT "CORRECT!!":E%=2%:GOSUB 800:GOTO 200
1330 PRINT "WRONG AGAIN -- TRY IT ONCE MORE!!!":A=FNP(R1%,Q%)
1335 IF A=C THEN PRINT "";FOR K%=1% TO 5%:PRINT "CORRECT!!":
       E%=1%:GOSUB 800:GOTO 200
1340 PRINT "I'M SORRY, ";N$;", BUT YOU":
	PRINT "ARE STILL INCORRECT.  THE CORRECT ANSWER IS";
	R1%+Q%;".":PRINT:E%=0%:GOSUB 800:GOTO 200
1345 PRINT "ANSWER IS";R1%+Q%;".":PRINT:E%=0%:GOSUB 800:
       GOTO 200
1360 DEF FNR1%(V5%)
1370 V4%=INT((10^V5%)*RND(0%))
1371 GOTO 1370 IF V4%<2%
1372 GOTO 1370 IF V4%<10^(V5%-1%)
1375 FNR1%=V4%
1380 FNEND
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