10 POKE649,1
20 PRINT"[147][144]":POKE53281,1:POKE53280,1:PRINT""
30 PRINT"[197][206][212][197][210] [212][207][196][193][217]'[211] [196][193][212][197]":PRINT"([197][216]: 07/01/86 )"
40 INPUT"";DT$
41 IFLEN(DT$)<>8THEN10
42 D1$=LEFT$(DT$,2):D2$=MID$(DT$,4,2):D3$=MID$(DT$,7,2)
43 IFVAL(D1$)>0ANDVAL(D1$)<13THEN45
44 GOTO10
45 IFVAL(D2$)>0ANDVAL(D2$)<32THEN47
46 GOTO10
47 IFVAL(D3$)>85THEN49
48 GOTO10
49 IFMID$(DT$,3,1)<>"/"ORMID$(DT$,6,1)<>"/"THEN10
70 UL$="[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
80 PE$="......................................."
90 SP$="                                                  "
100 ZQ$=""
110 PRINT"[147]":WT=0:LX=40:DIMA$(24),L(24),B$(24),CN(220),A(24):L(1)=0:FORX=1TO23
120 L(X+1)=L(X)+1:NEXT:K=0:GOSUB3250
130 DIMH(22):OPEN2,8,2,"COPYRITE,S,R"
140 X=2:GOSUB3000:X=3:GOSUB3000:X=7:GOSUB3000:X=8:GOSUB3000:X=9:GOSUB3000
150 X=14:GOSUB3000:X=16:GOSUB3000:X=21:GOSUB3000:X=22:GOSUB3000:PRINT"[147]"
160 GOSUB3060:GOSUB3040:GOSUB3140
170 GOSUB3250
180 X$=LEFT$(DT$,2):CN(10)=VAL(X$):X$=MID$(DT$,4,2):CN(11)=VAL(X$)
190 X$=RIGHT$(DT$,2):CN(12)=VAL(X$)
200 A$(1)="       [197][206][212][197][210] [211][212][213][196][197][206][212][160][201][206][198][207][210][205][193][212][201][207][206]"
210 FORX=3TO12:INPUT#2,A$(X):NEXT:Y=0:FORX=3TO12:IFLEN(A$(X))>YTHENY=LEN(A$(X))
220 NEXT:Y=Y+1:A$(12)=A$(12)+" "
230 FORX=3TO12:FORXX=1TOY-LEN(A$(X)):Z$=Z$+" ":NEXT:A$(X)=Z$+A$(X):Z$="":NEXT
240 YY=Y+2:B$(3)=DT$
250 FORX=4TO10:INPUT#2,S$:NEXT
260 FORX=4TO12:READY:B$(X)=LEFT$(PE$,Y):A(X)=Y
267 NEXT:PRINT"[147]"
270 DATA10,15,1,20,15,2,5,0,2
280 GOSUB1380:PRINT"":GOSUB10000
530 IFB$(6)="M"ORB$(6)="F"THENB$(6)=CHR$(ASC(B$(6))+128)
540 IFB$(6)=""THENB$(6)="[205]"
550 IFB$(11)="A"THENB$(11)="[193]"
560 PRINT""LEFT$(ZQ$,14)UL$:PRINTTAB(15)"[195][207][210][210][197][195][212][201][207][206][211]"
570 PRINT"[193]. [208]RESS NUMBER OF ITEM TO BE CORRECTED."
580 PRINT"[194]. [208]RESS <[216]> IF NO CORRECTIONS ARE         NECESSARY."
590 IFB$(6)="M"ORB$(6)="F"THENB$(6)=CHR$(ASC(B$(6))+128)
600 IFB$(6)=""THENB$(6)="[205]"
610 IFB$(6)<>"[205]"ANDB$(6)<>"[198]"THENB$(6)="[205]"
620 PRINT""LEFT$(ZQ$,4)A$(3);"       ";B$(3):FORX=4TO12:LH=X:Y=X-3:Y$=STR$(Y)
625 IFX=11THEN640
627 IFX=12THENLH=11:Y=Y-1:Y$=STR$(Y)
630 Y$=RIGHT$(Y$,LEN(Y$)-1):PRINT""LEFT$(ZQ$,L(X+2))A$(X);"   <";Y$;"> ";B$(LH);
635 NEXT:GOTO650
640 Y$=RIGHT$(Y$,LEN(Y$)-1):PRINT""LEFT$(ZQ$,L(LH+2))A$(LH);:NEXT
650 GETX$:IFX$=""THEN650
655 IFX$="[216]"ORX$="X"THEN740
660 IFVAL(X$)<1ORVAL(X$)>8THEN650
670 FORX=14TO21:PRINT""LEFT$(ZQ$,L(X+2))LEFT$(SP$,45);:NEXT:X=VAL(X$)+3:LH=X
680 PRINT""LEFT$(ZQ$,16)"      [212]YPE NEW ENTRY FOR [201]TEM #";X$;":";:IFX=11THENLH=12
690 Z=(34-A(X))/2:PRINT""LEFT$(ZQ$,18)SPC(Z)LEFT$(PE$,A(LH))"  ([197]NTER)"
695 :P9=Z+40*18:WT=9:W=X:J=18:R4=Z:GOSUB10010
700 REMPRINT""LEFT$(ZQ$,18)SPC(Z)"";:B$(X)="":WT=9:LH=16:GOSUB330
710 PRINT"[147]":FORX=1TO3:PRINT""LEFT$(ZQ$,L(X+2))A$(X);:NEXT:GOTO560
740 FORX=9TO17:INPUT#2,X$:NEXT
770 B$(2)="9":GOTO850
780 RETURN:GOSUB3255
800 PRINT"[147]"LEFT$(ZQ$,12)"[208]LEASE MAKE A NOTE OF IT. [201]T WILL SAVE  TIME LATER.";
810 PRINT""LEFT$(ZQ$,8)"[211]TUDENT NUMBER:"
830 SN=1003:PRINT""LEFT$(ZQ$,8)TAB(15)SN:FORU=1TO1500:NEXT
840 CN(9)=SN:GOSUB3255:RETURN
850 IFB$(11)="[193]"THENGS$=" "+B$(11)+B$(6):GOTO880
860 G=VAL(B$(11)):G$=STR$(G):G$=RIGHT$(G$,LEN(G$)-1):GS$=G$+B$(6)
870 IFLEN(GS$)<3THENGS$="0"+GS$
880 B$(16)=GS$:B=VAL(B$(2))+64:IA$=STR$(B):IA$=RIGHT$(IA$,2):B$(15)=IA$
890 AD$=LEFT$(B$(3),2)+MID$(B$(3),4,2)+RIGHT$(B$(3),2):B$(14)=AD$:GOTO1090
900 GOSUB780
901 SA$=B$(4):SB$=B$(5):SC$=B$(7):SD$=B$(8)+B$(9)+B$(10):SG$=B$(14)
910 SH$=B$(15):SI$="000":SJ$="000":SE$="[193][193]0000000000001":SF$=B$(16)
920 H(1)=10:H(2)=15:H(3)=20:H(4)=30:H(5)=15:H(6)=3:H(7)=6:H(8)=2:H(9)=3:H(10)=3
930 RETURN
1090 FORX=1TO24:A$(X)="":NEXT
1100 XS=6:GOSUB3040:FORX=6TO11:GOSUB3050:NEXT
1110 FORX=13TO15:GOSUB3050:NEXT
1120 X=17:GOSUB3050:GOSUB3060
1130 GOSUB3040:XS=3:FORX=5TO9:GOSUB3050:NEXT:FORX=11TO14:GOSUB3050:NEXT:X=15
1140 GOSUB3050:GOSUB3130:PRINT"[147]":GOSUB3060:GOSUB3130:GOSUB3250
1150 JX=0:GOSUB3570:JX=OD
1160 REM********** TACHISTOSCOPE
1170 SS=0:L=1:C=0:WW=215:PT=150:NW=1:K=13
1180 GOTO1400
1190 SL=0
1200 FORW=2TO5
1210 IFT$(W)=T$(1)THENT$(6)=STR$(W-1)
1220 IFLEN(T$(W))>SLTHENSL=LEN(T$(W))
1230 NEXT
1240 IFT$(6)=""THENSTOP
1250 PRINT"[147]"LEFT$(ZQ$,10)"[192][192][192][192][192][192][192][192][192] [215]ATCH HERE FOR FLASH [192][192][192][192][192][192][192][192][192]";:GOSUB3180
1260 PRINT"[147]":FORY=1TO50:NEXT
1270 AA=(LX-LEN(T$(1)))/2
1280 PRINT""LEFT$(ZQ$,10)TAB(AA)T$(1):FORY=0TOPT:NEXT:PRINT"[147]"
1290 PRINT""LEFT$(ZQ$,8)TAB(11)"[211]ELECT THE WORD(S)"
1295 PRINTTAB(9)"THAT MATCHED THE FLASH."
1300 PRINT""LEFT$(ZQ$,4)"[198]LASHWORD #"RIGHT$(STR$(X),LEN(STR$(X))-1)":"
1310 SL=((LX-SL)/2)-3:MN=2
1311 IFSL<0THENSL=0
1320 FORW=2TO5:PRINT""LEFT$(ZQ$,8+MN+W)TAB(SL)STR$(W-1);"."T$(W):MN=MN+1:NEXT
1325 GOSUB5700
1330 GOSUB3190:GOSUB3250
1340 CN(K)=PT:K=K+1:CN(K)=NW:K=K+1:CN(K)=F:K=K+1:IFF=VAL(T$(6))THENCN(K)=1
1350 IFF=VAL(T$(6))THENC=C+1:KI=KI+1:K=K+1:GOTO1370
1360 CN(K)=0:K=K+1
1370 GOTO1620
1380 FORXX=1TO12:PRINT""LEFT$(ZQ$,L(XX+2))A$(XX)"  "B$(XX):NEXT:RETURN
1390 REM********** GETTING LIST OF FIVE
1400 FORX=1TO20
1410 FORY=1TO5:INPUT#2,T$(Y):NEXT
1420 XY$=LEFT$(T$(1),1):XY=VAL(XY$):YX=LEN(T$(1)):T$(1)=RIGHT$(T$(1),YX-1)
1430 FORY=1TO5
1440 A(1)=1:A(6)=LEN(T$(Y))+2
1450 FORZ=2TO5
1460 FORKK=A(Z-1)TOLEN(T$(Y)):IFMID$(T$(Y),KK,1)=" "THENGOSUB1480
1470 NEXT:GOTO1490
1480 A(Z)=KK+1:KK=LEN(T$(Y)):RETURN
1490 NEXT
1500 ONNWGOTO1510,1520,1530,1550,1560
1510 T$(Y)=MID$(T$(Y),A(XY),A(XY+1)-A(XY)+1-2):GOTO1560
1520 T$(Y)=MID$(T$(Y),A(XY),A(XY+2)-A(XY)-1):GOTO1560
1530 IFXY>2THENT$(Y)=MID$(T$(Y),A(3),A(6)-2):GOTO1560
1540 T$(Y)=MID$(T$(Y),A(1),A(4)-2):GOTO1560
1550 T$(Y)=MID$(T$(Y),A(2),A(6)-A(2))
1560 NEXT
1570 GOSUB1190
1580 NEXT
1590 CN(WW)=CN(WW)+1000
1600 GOSUB3360:GOSUB5260:PRINT"[147]":GOSUB3060
1610 GOSUB1800:GOSUB3130:GOSUB3280:GOTO1780
1620 IFC=3THEN1645
1630 IFCN(K-1)=1THEN1710
1640 GOTO1720
1645 IFNW<=5THENCN(WW)=PT
1650 IFCN(K-1)=1THENIFCN(K-5)=1THENIFCN(K-9)=1THENC=0:GOTO1680
1660 IFCN(K-1)=1THENC=1:GOTO1710
1670 C=0:GOTO1720
1680 NW=NW+1:CN(NW)=PT:WW=WW+1
1690 IFNW>5THENNW=5:WW=220:GOTO1710
1700 PT=100+NW*30:RETURN
1710 FC=.1:PT=PT-INT(PT*FC):RETURN
1720 FC=.4:PT=PT+INT(PT*FC):RETURN
1780 REM***** LOAD FIRST STORY ON SCREEN
1790 SZ=1:GOTO1850:REM:FIRST STORY
1800 FORX=1TO24
1820 INPUT#2,A$(X)
1830 NEXT
1840 RETURN
1850 PRINT"[147]":GOSUB3060:GOSUB3570:QS=OD
1860 IFSZ=3THENGOSUB2830:GOTO1930
1870 IFSZ=2THEN1890
1880 GOSUB2010
1890 GETF$:IFF$=""THEN1890
1920 PRINT"[147]":IFSZ=2THENGOSUB3250
1930 GOSUB3570:QT=(OD-QS)
1940 IFQT=0THEN1890
1950 QT=QT/60
1960 WM=INT(139/QT):WW$=STR$(WM):WW$=RIGHT$(WW$,LEN(WW$)-1):CN(K)=WM:K=K+1
1970 GOSUB5190
1980 IFSZ=2THENGOSUB3560:GOTO2510
1990 IFSZ=3THEN2710
2000 GOTO2030
2010 GOSUB3040:FORX=1TO4:GOSUB3050:NEXT:FORX=6TO8:GOSUB3050:NEXT
2015 FORX=10TO13:GOSUB3050:NEXT
2020 RETURN
2030 A$(5)=WW$+" WORDS PER MINUTE. [212]HAT'S "+WM$
2040 PRINT"[147]":GOSUB3080:GOSUB3130:GOSUB3250
2050 FORX=1TO10
2060 GOSUB5250:U=0
2070 PRINT"[147]":A$(1)="[209]UESTION #"+RIGHT$(STR$(X),LEN(STR$(X))-1)+":":PRINT""A$(1)
2080 Z=0:FORY=2TO5:IFLEN(CC$(Y))>ZTHENZ=LEN(CC$(Y))
2090 NEXT:Z=Z+3:IFZ>40THENZ=40
2100 PP=(INT(LX-Z)/2):P=(INT(LX-LEN(CC$(1)))/2)
2120 IFP<0THENP=1
2130 IFPP<0THENPP=1
2140 PRINT""LEFT$(ZQ$,4)TAB(P)CC$(1);:BC=7
2150 FORY=7TO10:PRINT""LEFT$(ZQ$,BC)TAB(PP)STR$(Y-6);". ";CC$(Y-5);
2155 BC=BC+2:IFLEN(CC$(Y-5))>40THENBC=BC+1
2160 NEXT:GOSUB3240:PRINT"[147]"
2170 CN(K)=F:K=K+1:CN(K)=0
2180 A$(0)=A$(0)+F$
2190 IFF<>CCTHENK=K+1:GOTO2210
2200 CN(K)=1:K=K+1
2210 CN(K)=ASC(CC$):K=K+1
2220 NEXT
2230 GOSUB3250:GOSUB2370
2240 IFSZ=2THENGOSUB2270:K=K+3:GOTO2590
2250 IFSZ=3THENGOSUB2270:GOTO2760
2260 TC=CN(K-4)*10:TC$=STR$(TC)+"%":IFSZ>1THENRETURN
2270 GOSUB3560:A$(1)=STR$(SZ):A$(2)=STR$(CN(K-4)*10)+"%":A$(3)=STR$(CN(K-3))
2280 A$(4)=STR$(CN(K-2)):A$(5)="[195]ORRECT":IFCN(K-1)=0THENA$(5)="[201]NCORRECT"
2290 GOSUB3440:A$(0)=A$(8):IFCN(K-4)<7THENA$(0)=A$(9)
2300 PRINT"[147]":GOSUB3460
2310 IFSZ<2THENGOSUB2350
2320 GOSUB3130
2330 IFSZ=2ORSZ=3THENRETURN
2340 GOTO2360
2350 GOSUB3040:FORX=7TO11:GOSUB3050:NEXT:RETURN
2360 PRINT"[147]":GOSUB3060:GOSUB2460:GOSUB3130:GOSUB3280:GOTO2450
2370 Q=0:FORX=K-2TOK-29STEP-3:Q=Q+CN(X):NEXT:CN(K)=Q:K=K+1
2380 FORX=K-1TOK-30STEP-1
2390 IFCN(X)=67THENIFCN(X-1)=1THENCN(K)=CN(K)+1
2400 IFCN(X)=68THENIFCN(X-1)=1THENCN(K+1)=CN(K+1)+1
2410 IFCN(X)=77THENIFCN(X-1)=1THENCN(K+2)=CN(K+2)+1
2420 NEXT
2430 K=K+3
2440 RETURN
2450 SZ=2:GOTO2500
2460 GOSUB3040:IU=22:IFSZ=1THENIU=23
2465 FORX=1TOIU
2470 INPUT#2,A$(X)
2480 NEXT:GOTO2490
2490 RETURN
2500 PRINT"[147]":GOTO1850
2510 FORX=5TO6:GOSUB3050:NEXT:FORX=10TO15:GOSUB3050:NEXT:FORX=17TO18:GOSUB3050:NEXT
2520 VA$=" CONSIDERABLY   FASTER THAN"
2525 VB$=VA$+" YOUR SPEED ON THE FIRST     SELECTION."
2530 IFCN(128)>CN(93)-10ANDCN(128)<CN(93)+10THENVA$=" ABOUT THE SAME AS":GOTO2535
2531 GOTO2540
2535 VB$=VA$+" YOUR SPEED ON THE FIRST SELECTION.":GOTO2550
2540 IFCN(128)<CN(93)-10THENVA$=" A BIT SLOWER   THAN":GOTO2545
2541 GOTO2550
2545 VB$=VA$+" YOUR SPEED ON THE FIRST SELECTION."
2550 A$(8)="[212]HIS TIME YOUR READING SPEED WAS "+WW$+"    WORDS PER MINUTE. [212]HAT'S"
2560 A$(8)=A$(8)+VB$
2570 PRINT"[147]":GOSUB3110:GOSUB3130
2580 GOTO2050
2590 GOSUB3250
2600 TC$=" HIGHER THAN ":TA$="[217]OU SEEM":TB$="TO BE A FAST    LEARNER."
2610 IFCN(159)<CN(124)THENTC$=" LOWER THAN  ":TA$="[217]OU WILL"
2620 IFCN(159)<CN(124)THENTB$="REALLY BENEFIT  FROM THE READING PROGRAM.":GOTO2650
2630 IFCN(159)=CN(124)THENTC$=" THE SAME AS ":TA$="[201]T WILL"
2640 IFCN(159)=CN(124)THENTB$="TAKE TIME TO     DEVELOP YOUR READING ABILITIES."
2650 REMIFWT=9THENRETURN
2660 GOSUB3040:A$(2)="[217]OUR SECOND TEST SCORE IS"+TC$+"  THE FIRST ONE. "+TA$
2670 A$(3)=TB$
2680 FORX=4TO8:GOSUB3050:NEXT:FORX=10TO16:GOSUB3050:NEXT:FORX=18TO20:GOSUB3050:NEXT
2690 SZ=3:GOSUB3120:GOSUB2750:GOSUB2730:GOSUB3260:GOSUB3130
2700 GOSUB2830
2710 A$(2)="[217]OU READ THE THIRD STORY AT"+STR$(CN(165))+" WORDS   PER MINUTE"
2720 A$(2)=A$(2)+". ":PRINT"[147]":GOSUB3110:GOSUB3130:GOTO2050
2730 GOSUB3040
2735 FORX=5TO8:GOSUB3050:NEXT:FORX=10TO14:GOSUB3050:NEXT:FORX=16TO20:GOSUB3050:NEXT
2736 FORX=22TO23:GOSUB3050:NEXT
2740 RETURN
2750 DIMCR$(24):FORX=1TO23:INPUT#2,CR$(X):NEXT:RETURN
2760 GOSUB3250:CN(207)=82:CN(208)=69:CN(209)=65:CN(210)=68
2770 CN(211)=VAL(B$(2))+64:CN(212)=0:CN(213)=0:IFB$(12)="A"THENCN(214)=90
2780 GOTO2800
2790 CN(214)=64+VAL(B$(12))
2800 CN(201)=CN(165):CN(202)=PC:CN(220)=PA:CN(8)=80
2820 GOSUB900:GOTO3590
2830 PA=18:PD=0:L=1:PB=1:PC=25
2840 GOSUB3570:QS=OD:PRINT"[147]"
2850 FORX=1TO23
2860 FORY=1TOLEN(CR$(X))-PA+2STEPPB
2870 PRINT""LEFT$(ZQ$,L)TAB(Y+PD)LEFT$(SP$,PB);MID$(CR$(X),Y,PA);
2880 IFY=1THENFORZ=1TO200:NEXT
2890 FORZ=1TOPC:NEXT
2900 NEXT
2910 FORZ=1TO100:NEXT
2920 PRINT"[147]":L=L+1
2930 NEXT
2940 GOSUB3570:QT=(OD-QS)/60
2950 WM=INT(139/QT):WW$=STR$(WM):WW$=RIGHT$(WW$,LEN(WW$)-1):CN(165)=WM
2960 NS=CN(93):IFCN(165)>CN(93)THENNS=CN(165)
2970 LS=INT(NS+(NS*.05)):LS$=STR$(LS):WW$=RIGHT$(LS$,LEN(LS$)-1):S(3)=LS
2980 CN(164)=PA:CN(163)=(PC*10)+PB
2990 RETURN
3000 INPUT#2,A$(X)
3010 IFLEN(A$(X))>40THENRETURN
3020 L=LX-LEN(A$(X)):LL=INT(L/2)
3030 A$(X)=LEFT$(SP$,LL)+A$(X):RETURN
3040 FORX=1TO24:A$(X)="":NEXT:RETURN
3050 INPUT#2,A$(X):RETURN
3060 PRINT"[147]":FORX=1TO24:PRINT""LEFT$(ZQ$,X)A$(X);:NEXT:RETURN
3070 PRINT"[147]":FORX=1TO20:PRINTA$(X)" ":NEXT:RETURN
3080 PRINT"[147]":FORT=1TO3:PRINTA$(T):NEXT:PRINTA$(4);" ";A$(5):FORT=6TO20:PRINTA$(T):NEXT:RETURN
3090 PRINT"[147]":PRINTA$(1);" ";A$(2):FORT=3TO16:PRINT""LEFT$(ZQ$,T)A$(T):NEXT
3100 RETURN
3110 PRINT"[147]":PRINTA$(2);" ":FORT=4TO22:PRINTA$(T):NEXT:RETURN
3120 PRINT"[147]":PRINTA$(2);" ";A$(3):FORT=4TO20:PRINT""LEFT$(ZQ$,T+1)A$(T):NEXT
3130 PRINT""LEFT$(ZQ$,23)"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
3135 PRINT""SPC(7)LEFT$(ZQ$,24)"[208][210][197][211][211] [193][206][217] [203][197][217] [212][207] [195][207][206][212][201][206][213][197]";
3140 GOSUB3570:REMH1=OD
3150 GETF$:IFF$=""THEN3150
3155 IFLK=1ANDF$=CHR$(13)THEN3160
3156 IFLK=1ANDF$<>CHR$(13)THEN3150
3160 REMGOSUB3570:H2=OD-H1:IFH2<1THEN3150
3170 PRINT"[147]":LK=0:RETURN
3180 PRINT""LEFT$(ZQ$,23)"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
3185 PRINT""LEFT$(ZQ$,24)SPC(8)"[208][210][197][211][211] <[210][197][212][213][210][206]> [198][207][210] [198][204][193][211][200]";:LK=1:GOTO3140
3190 GOSUB3570:REMH1=OD
3200 GETF$:IFF$=""THEN3200
3210 REMGOSUB3570:H2=OD-H1:IFH2<1THEN3190
3220 F=VAL(F$):IFF<1ORF>4THEN3190
3230 RETURN
3240 PRINT""LEFT$(ZQ$,23)"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
3245 PRINT""LEFT$(ZQ$,24)SPC(9)"[211][197][204][197][195][212] [212][200][197] [194][197][211][212] [193][206][211][215][197][210]";:GOTO3190
3250 PRINT"[147]":PRINT""TAB(10)LEFT$(ZQ$,10)"[208][204][197][193][211][197] [215][193][201][212] [193] [205][207][205][197][206][212]":RETURN
3255 PRINT""LEFT$(ZQ$,23)"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
3256 PRINT""TAB(10)LEFT$(ZQ$,24)"[208][204][197][193][211][197] [215][193][201][212] [193] [205][207][205][197][206][212]";:RETURN
3260 PRINT"[147]"LEFT$(ZQ$,7)"        [212]HE STORY WILL NOT STOP."
3261 PRINT"          [212]RY TO STAY WITH IT."
3270 RETURN
3280 PRINT"[147]"LEFT$(ZQ$,8)TAB(8)"[210]EMEMBER, PRESS ANY KEY"
3281 PRINTTAB(14)"[201][205][205][197][196][201][193][212][197][204][217]"
3282 PRINTTAB(12)"WHEN FINISHED."
3290 GOSUB3130:RETURN
3300 FORX=215TO219
3310 IFCN(X)>999THEN3330
3320 NEXT
3330 WW=X-1:CN(200)=CN(WW-214):CN(203)=INT(CN(WW)*2):CN(204)=WW-214
3340 IFCN(204)>3THENCN(204)=3
3350 RETURN
3360 FORX=1TO5
3370 IFCN(X)=0THEN3420
3380 IFCN(X)>999THEN3420
3390 YY=CN(X)
3420 NEXT:RETURN
3440 A$(16)=LEFT$(SP$,16):A$(15)="   ":A$(14)="      ":A$(8)="[214][193][204][201][196]."
3450 A$(9)="[206][207][212] [214][193][204][201][196].":A$(10)=STR$(WM)+" WORDS PER MINUTE ":RETURN
3460 PRINT""LEFT$(ZQ$,3)TAB(4)"[211][195][207][210][197][211][160][207][206][160][195][207][205][208][210][197][200][197][206][211][201][207][206][160][212][197][211][212][160]#";A$(1)
3465 PRINT""LEFT$(ZQ$,3)TAB(4)"[211][195][207][210][197][211][160][207][206][160][195][207][205][208][210][197][200][197][206][211][201][207][206][160][212][197][211][212][160]#";A$(1)
3470 PRINT""LEFT$(ZQ$,5)TAB(4)"[207]VERALL [195]OMPREHENSION [211]CORE -"A$(2)
3480 PRINT""LEFT$(ZQ$,7)TAB(11)"[198]URTHER BREAKDOWN:"
3490 PRINT""LEFT$(ZQ$,9)TAB(5)"[199]ENERAL COMPREHENSION QUESTIONS"
3500 PRINTTAB(15)A$(3)" OUT OF 6"
3510 PRINT""LEFT$(ZQ$,12)TAB(10)"[196]ETAIL TYPE QUESTIONS"
3520 PRINTTAB(15)A$(4)" OUT OF 3"
3530 PRINT""LEFT$(ZQ$,15)TAB(3)"[199]ENERALIZATION/[205]AIN [201]DEA QUESTION"
3535 PRINTTAB((40-LEN(A$(5)))/2)A$(5)
3540 PRINT""LEFT$(ZQ$,18)TAB(12)"[210]EADING SPEED OF:"
3545 PRINTTAB(INT(40-(LEN(A$(10))+LEN(A$(0))+3))/2);A$(10);"IS ";A$(0)
3550 RETURN
3560 FORX=0TO24:A$(X)="":NEXT:RETURN
3570 OA=VAL(LEFT$(TI$,2)):OB=VAL(MID$(TI$,3,2)):OC=VAL(RIGHT$(TI$,2))
3580 OD=(OA*3600)+(OB*60)+OC:RETURN
3590 DIMP$(56),SP$(70):LL=1:PP=1:GOSUB3570:JX=OD-JX
3600 P$(1)="[210][197][208][207][210][212] [207][198] [197][206][212][210][217] [204][197][214][197][204] [211][213][210][214][197][217]":P$(2)=""
3605 SP$(1)="       [210][197][208][207][210][212] [207][198] [197][206][212][210][217] [204][197][214][197][204] [211][213][210][214][197][217]":SP$(2)=""
3610 XJ=JX/60:XJ$=(STR$(XJ)):XJ$=LEFT$(XJ$,4)
3620 IFRIGHT$(XJ$,1)="."THENXJ$=LEFT$(XJ$,LEN(XJ$)-1)
3630 P$(4)="[211]URVEY [196]ATE: "+DT$+LEFT$(SP$,10)+"[197]LAPSED TIME: "+XJ$+" MINUTES"
3635 SP$(3)="[196]ATE: "+DT$+"      [212]IME:"+XJ$+" MIN"
3640 SX$="[205]R. ":IFB$(6)="[198]"THENSX$="[205]S."
3650 P$(6)=SX$+B$(4)+" "+B$(5)+LEFT$(SP$,10)
3652 SP$(6)="     "+SX$+B$(4)+" "+B$(5)+LEFT$(SP$,10)
3655 SP$(5)=""
3660 P$(7)=B$(7)
3665 SP$(7)="     "+B$(7)
3670 P$(8)=B$(8)+" "+B$(9)+" "+B$(10)
3675 SP$(8)="     "+B$(8)+" "+B$(9)+" "+B$(10)
3680 P$(9)="":P$(10)="[198][204][193][211][200][215][207][210][196] [197][216][197][210][195][201][211][197]:"
3685 SP$(9)="":SP$(10)="[198][204][193][211][200][215][207][210][196] [197][216][197][210][195][201][211][197]:"
3720 P$(11)="[198]ASTEST SPEED WAS "+V5$+"."
3725 SP$(11)="[198]ASTEST SPEED - "+V5$
3740 P$(12)="[217]OU DID NOT SUCCESSFULLY SEE WORD GROUPS OF MORE THAN"+STR$(O8)
3741 P$(12)=P$(12)+" WORD(S)."
3745 SP$(12)="[204]ARGEST GROUP SEEN -"+STR$(O8)+" WORD(S)"
3750 P$(13)="":P$(14)="[208]OTENTIAL SPEED ([198]LASHWORD SCORES) IS"+V7$
3755 SP$(13)="":SP$(14)="[208]OTENTIAL ([198]LASHWORD SCORES):"+V7$
3760 P$(14)=P$(14)+" WORDS PER MINUTE."
3765 SP$(14)=SP$(14)+" [215][208][205]"
3770 GOSUB5490:RS=RS*3
3780 P$(15)="[208]OTENTIAL SPEED ([210]EADING SCORES) IS"+STR$(RS)+" WORDS PER MINUTE."
3785 SP$(15)="[208]OTENTIAL ([210]EADING SCORES):"+STR$(RS)+" [215][208][205]"
3790 P$(16)="[215]ITH TRAINING, YOUR SPEED SHOULD BE IN THIS RANGE."
3795 SP$(16)="[215]ITH TRAINING, YOUR SPEED SHOULD BE IN":SP$(17)="THIS RANGE."
3800 P$(18)="[210][197][193][196][201][206][199] [197][216][197][210][195][201][211][197]:"
3805 SP$(19)="[210][197][193][196][201][206][199] [197][216][197][210][195][201][211][197]:":SP$(18)=""
3810 P$(19)="[211]TORY #1 - "
3815 SP$(20)="[211]TORY #1 - "
3820 TA$="[210]EADING [211]PEED - ":TB$=" WORDS PER MINUTE."
3830 TC$="[195]OMPREHENSION [212]EST, [212]OTAL [211]CORE -"
3840 TD$="[193]TTENTION TO [196]ETAIL [209]UESTIONS -"
3850 TE$="[199]ENERAL COMPREHENSION QUESTIONS -":TF$="[205]AIN [201]DEA QUESTION - "
3860 TG$="  [214][193][204][201][196]":TH$="  [201][206][214][193][204][201][196]"
3870 P$(20)=TA$+STR$(CN(93))+TB$+TG$
3875 SP$(21)=TA$+STR$(CN(93))+" [215][208][205]"+TG$
3880 IFCN(124)<7THENP$(20)=TA$+STR$(CN(93))+TB$+TH$:GOTO3885
3881 GOTO3890
3885 SP$(21)=TA$+STR$(CN(93))+" [215][208][205]"+TH$
3890 CT=CN(124)*10:CT$=STR$(CT)+"%":P$(21)=TC$+CT$:SP$(22)=P$(21)
3900 P$(22)=TD$+STR$(CN(126))+" OUT OF THREE"
3905 SP$(23)="[196]ETAIL [209]UESTIONS -"+STR$(CN(126))+" OUT OF 3"
3910 P$(23)=TE$+STR$(CN(125))+" OUT OF SIX"
3915 SP$(24)="[195]OMPREHENSION [209]UESTIONS -"+STR$(CN(125))+" OUT OF 6"
3920 CT$="INCORRECT":IFCN(127)=1THENCT$="[195]ORRECT"
3930 P$(24)=TF$+CT$:SP$(25)=P$(24)
3940 P$(25)="":P$(26)="[211]TORY #2 - "
3945 SP$(26)="":SP$(27)="[211]TORY #2 - "
3960 CT=CN(159):CT=CT*10:CT$=STR$(CT)+"%"
3970 P$(27)=TA$+STR$(CN(128))+TB$+TG$
3975 SP$(28)=TA$+STR$(CN(128))+" [215][208][205]"+TG$
3980 IFCN(159)<7THENP$(27)=TA$+STR$(CN(128))+TB$+TH$:GOTO3985
3981 GOTO3990
3985 SP$(28)=TA$+STR$(CN(128))+" [215][208][205]"+TH$
3990 P$(28)=TC$+CT$:SP$(29)=P$(28)
4000 P$(30)=TE$+STR$(CN(160))+" OUT OF SIX"
4005 SP$(31)="[195]OMPREHENSION [209]UESTIONS -"+STR$(CN(160))+" OUT OF 6"
4010 P$(29)=TD$+STR$(CN(161))+" OUT OF THREE"
4015 SP$(30)="[196]ETAIL [209]UESTIONS -"+STR$(CN(161))+" OUT OF 3"
4020 CT$="[201]NCORRECT":IFCN(162)=1THENCT$="[195]ORRECT"
4030 P$(31)=TF$+CT$:P$(32)=""
4035 SP$(32)=TF$+CT$:SP$(33)=""
4040 P$(33)="[211]TORY #3 - "
4045 SP$(34)="[211]TORY #3 - "
4050 CT=CN(196):CT=CT*10:CT$=STR$(CT)+"%":P$(35)=TC$+CT$:SP$(36)=P$(35)
4060 P$(34)=TA$+STR$(CN(165))+TB$+TG$
4061 SP$(35)=TA$+STR$(CN(165))+" [215][208][205]"+TG$
4065 IFCN(196)<7THENP$(34)=TA$+STR$(CN(165))+TB$+TH$:GOTO4067
4066 GOTO4070
4067 SP$(35)=TA$+STR$(CN(165))+" [215][208][205]"+TH$
4070 P$(36)=TD$+STR$(CN(198))+" OUT OF THREE"
4075 SP$(37)="[196]ETAIL [209]UESTIONS -"+STR$(CN(198))+" OUT OF 3"
4080 P$(37)=TE$+STR$(CN(197))+" OUT OF SIX"
4085 SP$(38)="[195]OMPREHENSION [209]UESTIONS -"+STR$(CN(197))+" OUT OF 6"
4090 CT$="[201]NCORRECT":IFCN(199)=1THENCT$="[195]ORRECT"
4100 P$(38)=TF$+CT$:SP$(39)=P$(38)
4110 P$(39)="":SP$(40)=P$(39)
4120 P$(40)="[193]VERAGE READING SPEED IN THIS COUNTRY IS 200-250 WORDS/MINUTE."
4125 SP$(41)="[193]VERAGE READING SPEED IN THIS COUNTRY"
4126 SP$(42)="IS 200-250 WORDS/MINUTE."
4130 GOSUB5490:WM=RS:GOSUB5190
4140 IFRS=0THEN4160
4150 GOTO4200
4160 P$(42)="[217]OU SCORED LESS THAN 70% ON ALL THREE COMPREHENSION TESTS."
4165 SP$(43)="[217]OU SCORED LESS THAN 70% ON ALL THREE"
4166 SP$(44)="COMPREHENSION TESTS."
4170 P$(43)="[212]HAT'S JUST COMPUTER DISTRACTION. [201]MPROVEMENT WILL BE RAPID."
4175 SP$(45)="[212]HAT'S JUST COMPUTER DISTRACTION."
4176 SP$(46)="[201]MPROVEMENT WILL BE RAPID."
4180 P$(44)="[211]PEED [210]EADING [208][204][213][211] WILL START YOU AT 180 WORDS PER MINUTE."
4185 SP$(47)="[211]PEED [210]EADING [208][204][213][211] WILL START YOU AT"
4186 SP$(48)="180 WORDS PER MINUTE."
4190 P$(45)="":SP$(49)="":GOTO4230
4200 P$(41)="[212]HE READING SPEED IS VALID ONLY IF COMPREHENSION IS 70% OR MORE."
4205 SP$(43)="[212]HE READING SPEED IS VALID ONLY IF"
4206 SP$(44)="COMPREHENSION IS 70% OR MORE."
4210 GOSUB5490:P$(42)=RA$:P$(43)="[212]HIS IS "+WM$:P$(45)=""
4215 SP$(45)=JA$:SP$(46)="[212]HIS IS "+WK$
4220 P$(44)="[217]OU CAN PROBABLY DOUBLE YOUR SPEED IN EIGHT - TEN LESSONS."
4225 SP$(47)="[217]OU CAN PROBABLY DOUBLE YOUR SPEED IN"
4226 SP$(48)="EIGHT - TEN LESSONS."
4230 WT=9:GOSUB5900:WT=0:P$(46)="[217]OUR SECOND TEST SCORE IS"+TC$+"THE FIRST ONE."
4235 WT=9:SP$(50)="[217]OUR SECOND TEST SCORE IS"+TF$+"THE FIRST ONE."
4240 P$(47)=TA$+" "+TB$:P$(48)=""
4245 SP$(51)=TD$+" "+TE$:P$(48)="":SP$(52)=""
4250 P$(49)="[193]T LOW SPEED, LEFT-TO-RIGHT EYE MOVEMENT ABILITY SEEMS ADEQUATE."
4255 SP$(53)="[193]T LOW SPEED, LEFT-TO-RIGHT EYE"
4256 SP$(54)="MOVEMENT ABILITY SEEMS ADEQUATE."
4260 IFCN(196)<7THEN4280
4270 GOTO4290
4280 P$(49)="[217]OU SEEM TO HAVE TROUBLE WITH SMOOTH LEFT-TO-RIGHT EYE MOVEMENT."
4285 SP$(53)="[217]OU SEEM TO HAVE TROUBLE WITH SMOOTH"
4286 SP$(54)="LEFT-TO-RIGHT EYE MOVEMENT."
4290 P$(50)="[212]HIS MUST BE DEVELOPED TO ACHIEVE SUCCESSFUL RAPID READING."
4295 SP$(55)="[212]HIS MUST BE DEVELOPED TO ACHIEVE"
4296 SP$(56)="SUCCESSFUL RAPID READING."
4300 P$(52)="[198]OR FURTHER INFORMATION ABOUT [211]PEED [210]EADING [208][204][213][211],"
4305 SP$(58)="[198]OR FURTHER INFORMATION ABOUT [211]PEED"
4306 SP$(59)="[210]EADING [208][204][213][211], PLEASE CONTACT [204][207][193][196][211][212][193][210],"
4310 P$(51)="":SP$(57)=""
4320 P$(53)="PLEASE CONTACT [204][207][193][196][211][212][193][210], [212]OLL [198]REE, AT 1-800-831-2694, 8[193][205]-5[208][205]"
4321 P$(53)=P$(53)+"[195]ENTRAL [212]IME"
4325 SP$(60)="AT 1-800-831-2694 8[193][205]-5[208][205] [195]ENTRAL [212]IME"
4326 SP$(61)="OR WRITE TO US AT"
4330 P$(54)="OR WRITE TO US AT [208].[207]. [194]OX 30007,[211]HREVEPORT, [204][193]  71130."
4335 SP$(62)="[208].[207]. [194]OX 30007,"
4336 SP$(63)="[211]HREVEPORT, [204][193]  71130."
4340 P$(55)="":SP$(64)=""
4350 P$(56)="[210]EADING IS IMPORTANT TO YOU. [211]TART USING [211]PEED [210]EADING [208][204][213][211] NOW!"
4355 SP$(65)="[210]EADING IS IMPORTANT TO YOU. [211]TART"
4356 SP$(66)="USING [211]PEED [210]EADING [208][204][213][211] NOW!":XC=17:QW=1:OS=0
4360 PRINT"[147]":FORX=1TOXC:PRINTSP$(X+OS):NEXT:GOSUB4760
4370 GOSUB4620:GOTO4650:CLOSE2:CLOSE1
4380 PRINT"[147]":FORX=1TOXC:PRINTSP$(X+OS):NEXT:GOSUB4620:GOSUB4650
4390 PRINT"[147]"LEFT$(ZQ$,7)"[198]OR A PRINTOUT OF YOUR SCORES, PRESS <[208]>"
4400 PRINT""LEFT$(ZQ$,9)TAB(19)"[207][210]"
4410 PRINT""LEFT$(ZQ$,11)TAB(4)"[208]RESS <[211]> TO GO TO START DEMO."
4420 GETF$:IFF$=""THEN4420
4430 IFF$="[208]"ORF$="P"THEN4450
4431 IFF$="S"ORF$="[211]"THEN4490
4440 GOTO4390
4450 PRINT"[147]"LEFT$(ZQ$,7)TAB(2)"[193][196][202][213][211][212] [208][210][201][206][212][197][210]. [212][200][197][206] [208][210][197][211][211] [193][206][217] [203][197][217]."
4460 GETF$:IFF$=""THEN4460
4470 OPEN4,4,7:CMD4:FORX=1TO56:PRINT#4,"     ";P$(X):NEXT:CLOSE4:FORY=1TO500:NEXT
4490 PRINT"[147]":CLOSE2
4500 PRINT"LOAD"CHR$(34)"LSRMENU"CHR$(34)",8"
4510 POKE198,5:POKE631,19:POKE632,13:POKE633,82:POKE634,213:POKE635,13:END
4520 GETF$:IFF$=""THEN4520
4530 IFF$="[209]"ORF$="Q"THEN4550
4540 GOTO4520
4550 OPEN4,4,4:CMD4:FORX=1TO10:PRINT#4," ":NEXT:FORX=1TO55:PRINT#4,X;" ";
4560 PRINT#4,CN(X);SPC(15);X+55;" ";CN(X+55);SPC(30);X+110;" ";CN(X+110);
4570 PRINT#4,SPC(45);X+165;" ";CN(X+165):NEXT
4580 GOTO4480
4590 LO$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
4600 PRINT""LEFT$(ZQ$,23)LO$;
4610 PRINT"[208]LEASE WAIT. [211]CORES ARE BEING RECORDED.";:RETURN
4620 REM
4630 PRINT""LEFT$(ZQ$,23)UL$;
4635 PRINT""LEFT$(ZQ$,24)"[213]P/[196]OWN ARROWS TURN PAGES  -  [197] TO END.";
4640 RETURN
4650 GETF$:IFF$=""THEN4650
4660 IFF$=CHR$(17)THEN4700
4670 IFF$=CHR$(145)THEN4720
4680 IFF$=CHR$(69)ORF$=CHR$(197)THEN4390
4690 GOTO4650
4700 QW=QW+1
4701 IFQW=2THENOS=17:XC=22:GOTO4710
4702 IFQW=3THENOS=39:XC=17:GOTO4710
4703 IFQW=4THENOS=56:XC=10:GOTO4710
4704 IFQW>4THENQW=1:OS=0:XC=17
4710 GOTO4380
4720 QW=QW-1
4721 IFQW<1THENQW=1:OS=0:XC=17:GOTO4730
4722 IFQW=2THENOS=17:XC=22:GOTO4730
4723 IFQW=3THENOS=39:XC=17:GOTO4730
4724 IFQW=4THENOS=56:XC=10
4730 GOTO4380
4760 JA$=STR$(CN(9)):JB$="0":JC$="0":JD$="[208][204][193][195]":JF$=STR$(KI)
4770 JE$="[208][204][193][195]"
4780 FORX=215TO219:IFCN(X)<999THENNEXT
4790 JG$=STR$(CN(X-1)):JI$="1":JN$=STR$(CN(206)):X=0
4800 X=165:IFCN(124)>6THENX=93
4810 IFCN(159)>6THENX=128
4820 JH$=STR$(CN(X)):JU$=JH$:JV$="??"
4830 IFX=93THENX=125
4840 IFX=128THENX=160
4850 FORY=1TO3:A(Y)=CN(X):X=X+1:NEXT
4860 FORY=1TO3:A$(Y)=STR$(A(Y)):NEXT
4870 FORY=1TO3:A$(Y)=RIGHT$(A$(Y),1):NEXT:X=X-31:B$=""
4875 FORZ=XTOX+28STEP3:X$=STR$(CN(Z)):B$=B$+RIGHT$(X$,1):NEXT
4880 JJ$=A$(1)+A$(2)+A$(3)+B$
4890 JK$="00":JL$="00"
4900 JM$=LEFT$(DT$,2)+MID$(DT$,4,2)+RIGHT$(DT$,2)
4910 JO$="1":JP$=STR$(JX)
4920 JQ$="00":JR$="00"
4930 JS$="000000000000000000000000":JT$="000000000000000000000000"
4940 H(1)=2:H(2)=3:H(3)=3:H(4)=4:H(5)=4:H(6)=2:H(7)=2:H(8)=2:H(9)=2:H(10)=13
4950 H(11)=2:H(12)=2:H(13)=6:H(14)=2:H(15)=3:H(16)=3:H(17)=3:H(18)=18:H(19)=18
4960 H(20)=3:H(21)=3:RETURN
5190 IFWM>175ANDWM<200THENWM$="A BIT LOWER THAN AVERAGE."
5195 IFWM>175ANDWM<200THENWK$="A BIT LOWER THAN AVERAGE.":RETURN
5200 IFWM<176THENWM$="SOMEWHAT LOWER THAN AVERAGE."
5205 IFWM<176THENWK$="SOMEWHAT LOWER THAN AVERAGE.":RETURN
5210 IFWM>199ANDWM<251THENWM$="ABOUT ON AVERAGE LEVEL."
5215 IFWM>199ANDWM<251THENWK$="ABOUT ON AVERAGE LEVEL.":RETURN
5220 IFWM>250ANDWM<499THENWM$="SOMEWHAT HIGHER THAN AVERAGE."
5225 IFWM>250ANDWM<499THENWK$="SOMEWHAT HIGHER THAN AVERAGE.":RETURN
5230 IFWM>499THENWM$="CONSIDERABLY ABOVE AVERAGE LEVEL."
5235 IFWM>499THENWK$="CONSIDERABLY ABOVE AVERAGE.":RETURN
5240 RETURN
5250 INPUT#2,CC$:INPUT#2,XX$:CC=VAL(XX$):FORY=1TO5:INPUT#2,CC$(Y):NEXT:RETURN
5260 WT=9:X=WW:GOSUB3360:IFNW=1THENYY=CN(K-4)
5270 Z9=YY:Z8=0:Z7=0:CN(205)=YY:O8=CN(K-3)
5271 Z9=Z9-925:IFZ9<0THEN5274
5272 IFZ9=0THENZ8=Z8+1:GOTO5274
5273 Z8=Z8+1:GOTO5271
5274 Z9=Z9+925:Z7=Z9/925:Z6=Z8+Z7:Z6$=STR$(Z6):Z6$=RIGHT$(Z6$,LEN(Z6$)-1)
5275 Z6$=LEFT$(Z6$,4)
5276 IFZ8=0THENZ6$="0"+Z6$:Z6$=LEFT$(Z6$,5)
5277 IFZ7=0THENZ6$=STR$(Z8)+".000":Z6$=LEFT$(Z6$,4)
5278 FS$=LEFT$(Z6$,4):V5$=FS$+" SEC."
5280 FG$="GROUPS OF    "+STR$(O8)+" WORDS ":CN(206)=WW-214
5290 IFWW-214=1ORWW-214=0THENFG$="SINGLE WORDS  "
5295 R5=INT(O8/Z6*60):IFR5>400THENR5=INT(R5-R5*.2)
5300 T1$=STR$(R5):IFR5<180THENT1$="180"
5305 V7$=T1$:V6$=FG$:CN(200)=VAL(T1$)
5310 PRINT"[147]"LEFT$(ZQ$,1)"   [212]HAT COMPLETES THE [198]LASHWORD [212]EST FOR";:PRINTB$(4);
5320 PRINT" ";B$(5)".":PRINT:PRINT"   [215]E NOW KNOW YOUR VISUAL SPEED - HOW  FAST ";
5330 PRINT"YOU CAN SEE WORD GROUPS."
5340 PRINT:PRINT"   [212]HE TEST SUGGESTS THAT YOU HAVE THE";
5350 PRINT"  PERCEPTUAL ABILITY TO SEE ";FG$;"AT THE VISUAL";
5360 PRINT" SPEED OF ";FS$;" SEC."
5370 PRINT"   [194]ASED ON THIS SCORE, YOU SHOULD"
5380 PRINT"EVENTUALLY BE ABLE TO REACH A MINIMUM"
5381 PRINT"READING SPEED OF";T1$;" WORDS PER MINUTE"
5382 PRINT"IF YOUR OTHER READING SKILLS ARE"
5383 PRINT"DEVELOPED TO THIS LEVEL."
5400 PRINT"   [199]OOD VISUAL SPEED IS BASIC TO RAPID  READING.";
5410 PRINT" [201]T CAN BE IMPROVED WITH PROPER TRAINING. [193]S YOUR BASIC VISUAL";
5420 PRINT" SPEED    IMPROVES, YOUR POTENTIAL READING SPEED";
5430 PRINT"  WILL INCREASE EVEN MORE."
5440 GOSUB5450:GOSUB3130:RETURN
5450 GOSUB3040:XS=0:FORX=3TO6:GOSUB3050:NEXT:FORX=8TO10:GOSUB3050:NEXT
5460 FORX=12TO14:GOSUB3050:NEXT:FORX=16TO20:GOSUB3050:NEXT
5470 IFCN(1)=0THENCN(1)=220:CN(215)=5:CN(216)=1000:CN(206)=1:CN(200)=220
5480 RETURN
5490 RS=INT(CN(200)/2)
5500 IFCN(124)>6THENRS=CN(93)
5510 IFCN(159)>6THENRS=CN(128)
5520 IFCN(124)>6THENIFCN(159)>6THENIFCN(93)>CN(128)THENRS=CN(93)
5530 IFRS>0THEN5550
5540 GOTO5560
5550 RA$="[217]OUR READING SPEED OF"+STR$(RS)+" WORDS PER MINUTE IS VALID."
5555 JA$="[217]OUR READING SPEED OF"+STR$(RS)+" [215][208][205] IS VALID.":RETURN
5560 IFCN(196)>6THENRS=CN(165):GOTO5580
5570 RETURN
5580 RA$="[217]OUR READING SPEED IS [197][211][212][201][205][193][212][197][196] AT"+STR$(RS)+" WORDS PER MINUTE."
5585 JA$="[217]OUR READING SPEED IS [197][211][212][201][205][193][212][197][196] AT"+STR$(RS)+" [215][208][205].":RETURN
5700 PRINT""LEFT$(ZQ$,23)"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
5710 PRINT""LEFT$(ZQ$,24)SPC(9)"[211]ELECT THE BEST CHOICE";:RETURN
5900 TC$=" HIGHER THAN ":TA$="[217]OU SEEM":TB$="TO BE A FAST LEARNER."
5905 TF$=" HIGHER THAN   ":TD$="[217]OU SEEM":TE$="TO BE A FAST LEARNER."
5910 IFCN(159)<CN(124)THENTC$=" LOWER THAN ":TA$="[217]OU WILL"
5915 IFCN(159)<CN(124)THENTF$=" LOWER THAN    ":TD$="[217]OU WILL"
5920 IFCN(159)<CN(124)THENTB$="REALLY BENEFIT FROM THE READING PROGRAM."
5925 IFCN(159)<CN(124)THENTE$="REALLY BENEFIT FROM THE READINGPROGRAM.":GOTO5950
5930 IFCN(159)=CN(124)THENTC$=" THE SAME AS ":TA$="[201]T WILL"
5935 IFCN(159)=CN(124)THENTF$=" THE SAME AS   ":TD$="[201]T WILL"
5940 IFCN(159)=CN(124)THENTB$="TAKE TIME TO DEVELOP YOUR READING ABILITIES."
5945 IFCN(159)=CN(124)THENTE$="TAKE TIME TO DEVELOP YOUR       READING ABILITIES."
5950 IFWT=9THENRETURN
7000 FS$="1.34":FG$="GROUPS OF 4   WORDS ":ZQ$=""
7001 GOTO5310
7002 FS$="1.34":FG$="SINGLE WORDS  ":ZQ$=""
7003 GOTO5310
10000 V5=1024:V6=55296:J=5
10001 R4=16:P9=40*J+R4:U=1
10002 LL(1)=10:LL(2)=15:LL(3)=1:LL(4)=20:LL(5)=15:LL(6)=2:LL(7)=5:LL(8)=2
10003 CH(1)=160:CH(2)=160:CH(3)=32:CH(4)=32
10005 FORW=4TO11
10010 POKEV5+P9,CH(U)OR32
10012 GETS$:IFS$=""THEN10040
10014 S=ASC(S$):IFS=13ORS=17THENWQ=0:GOTO10060
10020 IFS>192ANDS<219THENS=S-128:GOTO10029
10022 IF(S>64ANDS<91)OR(S>31ANDS<58)THEN10029
10023 IFS=20ORS=29THEN10026
10024 GOTO10027
10026 IFP9>40*J+R4THENP9=P9-1:POKEV5+P9+1,46:N$=LEFT$(N$,LEN(N$)-1):WQ=0:GOTO10040
10027 IFS=32THEN10029
10028 GOTO10010
10029 IFWQ<>1THENPOKEV5+P9,S:P9=P9+1:IFP9>J*40+LL(W-3)+R4THENP9=J*40+LL(W-3)+R4
10030 WQ=0:IFP9=J*40+LL(W-3)+R4THENPOKEV5+P9,32:WQ=1
10031 IFS>31ANDS<58THENN$=N$+CHR$(S):GOTO10036
10035 N$=N$+CHR$(SOR128)
10036 IFWQ=1THENN$=LEFT$(N$,LL(W-3))
10040 IFU=5THENU=1
10041 POKEV5+P9,CH(U)OR32:U=U+1:GOTO10010
10060 K=P9:J=J+1:P9=40*J+R4
10061 FORP3=KTOP9-17:POKEV5+P3,32:NEXT
10062 IFJ=12THENJ=13:P9=40*J+R4
10063 B$(W)=N$:N$=""
10064 IFWT=9THENWT=0:RETURN
10065 NEXT:RETURN