1 REM COPYRIGHT (C) LSR LEARNING ASSOCIATES INC., 1984. ALL RIGHTS RESERVED.(null)
2 POKE53281,1:POKE53280,1:PRINT"[144]":PRINT"":POKE53272,19
3 SP$="                                        "
4 ZQ$=""
5 SS$=""
6 ST$=""
7 BT$=""
8 PRINT"[147]"
9 DIMA$(340),L(24),L$(24):Y=0:FORX=1TO24:L(X)=X:NEXT
10 B$(1)="        [208][210][197][211][211][160][210][197][212][213][210][206][160][212][207][160][195][207][206][212][201][206][213][197]"
11 B$(2)="[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]"
12 B$(3)=""
13 PRINT"   [208][204][197][193][211][197][160][215][193][201][212]. [196][197][205][207][160][208][210][207][199][210][193][205][160][204][207][193][196][201][206][199]."
14 OPEN2,8,2,"PRECOPY/ASC,S,R"
15 FORX=0TO326:INPUT#2,A$(X):NEXT:CLOSE2
16 GOTO247
17 C=20:T1=0:T2=0
18 PRINT"[147]":GOTO34
19 T1=0:T2=0:FORX=1TO24:L$(X)="":NEXT
20 FORX=ATOB:READY:L=40-LEN(A$(X)):L1=INT(L/2):L$(Y)=LEFT$(SP$,L1)+A$(X)
21 NEXT
22 RETURN
23 SC=8:GOSUB212:L$(4)=B$(2):L$(3)=A$(54):X$=LEFT$(SP$,5)
24 L$(6)=X$+A$(55):L$(8)=X$+A$(56):L$(10)=X$+A$(57):L$(12)=X$+A$(58)
25 L$(16)=LEFT$(SP$,8)+A$(59):L$(15)=B$(2):RETURN
26 SC=9:GOSUB212:L$(3)=A$(75):L$(4)=B$(2)
27 L$(6)=LEFT$(SP$,5)+A$(76):L$(8)=LEFT$(SP$,5)+A$(77):X$=LEFT$(SP$,5)
28 L$(10)=X$+A$(78):L$(12)=X$+A$(79):L$(14)=X$+A$(80):L$(16)=X$+A$(81)
29 L$(20)=LEFT$(SP$,8)+A$(59):L$(19)=B$(2):RETURN
30 SC=15:GOSUB212:L$(3)=LEFT$(SP$,5)+A$(110):X$=LEFT$(SP$,10)
31 L$(6)=X$+A$(111):L$(7)=X$+A$(112):L$(8)=X$+A$(113):L$(9)=X$+A$(114):RETURN
32 SC=19:GOSUB212:L$(3)=LEFT$(SP$,5)+A$(110):X$=LEFT$(SP$,10)
33 L$(6)=X$+A$(132):L$(7)=X$+A$(133):L$(8)=X$+A$(134):L$(9)=X$+A$(135):RETURN
34 SC=55:A=0:B=7:GOSUB19:GOSUB155
35 A=8:B=14:GOSUB19:GOSUB155
36 A=15:B=20:GOSUB19:GOSUB155
37 A=21:B=28:GOSUB19:GOSUB155
38 A=29:B=36:GOSUB19:GOSUB155
39 A=37:B=46:GOSUB19:GOSUB155
40 A=47:B=53:GOSUB19:GOSUB155
41 GOSUB23:GOSUB155
42 IFF=2ORF=0THEN44
43 FORX=1TO4:READY:NEXT:GOTO45
44 SC=0:A=60:B=63:GOSUB19:FORX=1TO6:READY:NEXT:GOSUB155:GOTO46
45 SC=0:A=64:B=69:GOSUB19:GOSUB155
46 SC=0:A=70:B=74:GOSUB19:GOSUB155
47 GOSUB26:GOSUB155
48 IFF=3ORF=0THEN50
49 FORX=1TO5:READY:NEXT:GOTO51
50 SC=0:A=82:B=86:GOSUB19:FORX=1TO9:READY:NEXT:GOSUB155:GOTO52
51 A=87:B=95:GOSUB19:GOSUB155
52 SC=0:A=96:B=99:GOSUB19:GOSUB155
53 SC=0:A=100:B=106:GOSUB19:GOSUB155
54 SC=100:GOSUB181:GOSUB206
55 PRINT"[147]":FORX=1TO20:NEXT:PRINT""TAB(16)A$(109):FORX=1TO200:NEXT:PRINT"[147]"
56 GOSUB30:GOSUB155
57 IFF=2ORF=0THEN60
58 L$(3)=X$(2)
59 FORX=1TO7:READY:NEXT:GOTO61
60 SC=0:A=115:B=121:GOSUB19:FORX=1TO7:READY:NEXT:GOSUB155:GOTO62
61 A=122:B=128:GOSUB19:GOSUB155
62 SC=100:GOSUB181:GOSUB206
63 PRINT"[147]":FORX=1TO30:NEXT:PRINT""TAB(17)A$(130):FORX=1TO200:NEXT:PRINT"[147]"
64 GOSUB32:GOSUB155
65 IFF=4ORF=0THEN67
66 FORX=1TO8:READY:NEXT:GOTO68
67 SC=0:A=136:B=143:GOSUB19:FORX=1TO10:READY:NEXT:GOSUB155:GOTO69
68 SC=0:A=144:B=153:GOSUB19:GOSUB155
69 SC=100:GOSUB181:GOSUB206
70 PRINT"[147]":FORX=1TO30:NEXT:PRINT""TAB(4)A$(156):FORX=1TO600:NEXT:PRINT"[147]"
71 SC=0:A=157:B=160:GOSUB19:GOSUB155
72 SC=0:A=161:B=170:GOSUB19:GOSUB155
73 PRINT"[147]"
74 PA=15:PB=1:L=1:PD=1:PC=60:PE=2:PK=5
75 REM MOVING WINDOW
76 FORX=171TO177
77 FORY=1TOLEN(A$(X))-PA+1STEPPB
78 PRINT""LEFT$(ZQ$,L(L))TAB(Y-1)LEFT$(SP$,1)MID$(A$(X),Y,PA)
79 IFY=1THENFORZ=1TO250:NEXT
80 IFY=LEN(A$(X))-PA+1THENFORW=1TO250:NEXT
81 FORZ=1TOPC:NEXT
82 NEXT
83 PRINT"[147]":L=L+1:IFL=23THENL=1
84 NEXT
85 L=8:LM=1:Y=178:PC=400:PD=300
86 FORX=0TO20:IFA$(Y+X)="XXXXX"THEN89
87 IFLEFT$(A$(Y+X),7)="[198]INALLY"THEN108
88 NEXT
89 YY=Y+X+1:REM NEXT STARTING POINT IN ARRAY
90 REM SINGLE LINE EQUALS Y TO Y+X-1
91 FORLE=0TOX-1:LE(LE+1)=LEN(A$(Y+LE))+1:NEXT
92 REM LE ARRAY HOLDS LENGTH OF EACH PLUS ONE FOR SPACE
93 P1=L(L):PRINT""LEFT$(ZQ$,P1)A$(Y):P2=P1:LP=LM+LE(1)-1
94 FORDW=1TOPD:NEXT
95 REMIFK=1THENK=0:PRINT""LEFT$(ZQ$,P3)LEFT$(BT$,LO)E$
96 FORDW=1TOPC:NEXT
97 FORRD=1TOX-1
98 J=LP
99 PRINT""LEFT$(ZQ$,P1)LEFT$(BT$,LP)A$(Y+RD):FORDW=1TOPD:NEXT
102 FORDW=1TOPC:NEXT
103 LP=LP+LE(RD+1)
104 NEXT:FORT=1TO500:NEXT
105 K=1:L=L+1:Y=YY:LM=1:LP=1
106 GOTO86
107 FORDW=1TOPC:NEXT
108 PRINT"[147]":L=4:Y=210:PC=1400:PD=500:LM=1
109 FORX=YTOY+13
111 IFA$(X)="XXXXX"THEN122
115 P1=L(L)
117 PRINT""LEFT$(ZQ$,P1)A$(X)
118 FORT=1TOPC:NEXT:L=L+1
122 NEXT:FORT=1TOPD:NEXT
123 L$(10)=LEFT$(SP$,7)+"[197]VEN IN THAT SHORT READING"
124 L$(11)=LEFT$(SP$,6)+"SELECTION YOUR READING SPEED"
125 L$(12)=LEFT$(SP$,4)+"WAS INCREASED BY MORE THAN 10%."
126 FORX=1TO2500:NEXT:PRINT"[147]"
127 FORX=10TO12:PRINT""LEFT$(ZQ$,L(X))L$(X):NEXT
128 FORX=1TO200:NEXT:SC=0:GOSUB159
129 A=224:B=231:GOSUB19:GOSUB155
130 A=232:B=237:GOSUB19:GOSUB155
131 A=238:B=242:GOSUB19:GOSUB155
132 A=243:B=247:GOSUB19:GOSUB155
133 GOSUB212:X1$=LEFT$(BT$,13)
134 L$(1)=X1$+A$(248)
135 PRINT"[147]":GOSUB239:PRINT""LEFT$(ZQ$,L(1))""+L$(1)+"[146]";
136 PRINT""LEFT$(BT$,2)A$(249)
137 PRINT""LEFT$(BT$,9)A$(250)
138 PRINT""LEFT$(BT$,20)A$(251)
139 PRINT""LEFT$(BT$,29)A$(252)
140 L=6
141 FORX=253TO281STEP4
142 FORY=1TO4
143 PRINT""LEFT$(ZQ$,L(L))LEFT$(BT$,2)A$(X)
144 PRINT""LEFT$(ZQ$,L(L))LEFT$(BT$,12)A$(X+1)
145 PRINT""LEFT$(ZQ$,L(L))LEFT$(BT$,22)A$(X+2)
146 PRINT""LEFT$(ZQ$,L(L))LEFT$(BT$,33)A$(X+3)
147 NEXT
148 L=L+2
149 NEXT
150 GOSUB159
151 A=285:B=291:GOSUB19:GOSUB155
152 SC=51:A=292:B=298:GOSUB19:GOSUB155
153 RESTORE:PRINT"[147]":GOTO34
154 GETF$:IFF$=""THEN154
155 PRINT"[147]":FORQ=1TO22:PRINT""LEFT$(ZQ$,L(Q))L$(Q):NEXT
156 IFSC=55THENSC=0:GOTO162
157 IFSC=9ORSC=8ORSC=15ORSC=19THEN165
158 IFSC=51THENSC=0:GOTO161
159 PRINT""LEFT$(ZQ$,L(22))B$(2);:PRINT""LEFT$(ZQ$,L(23))B$(1)
160 PRINTB$(3);:GOTO165
161 PRINT""LEFT$(ZQ$,L(22))B$(2);:PRINT""LEFT$(ZQ$,L(23))TAB(3)A$(299);:GOTO165
162 PRINT""LEFT$(ZQ$,L(17))B$(2):PRINT""LEFT$(ZQ$,L(18))TAB(7)A$(7)
163 PRINTTAB(19)"OR"
164 PRINTTAB(7)"<*> FOR [197]NTRY [204]EVEL [211]URVEY";
165 REM
166 POKE198,1
167 GETF$:IFF$=""ORF$=CHR$(13)THEN168
168 GETF$:IFF$=""THEN178
169 IFSC=15THEN202
170 IFSC=9THEN202
171 IFSC=8THEN202
172 IFSC=19THEN202
173 IFASC(F$)=42THEN185
174 IFASC(F$)=27THENRESTORE:GOTO247
176 IFF$=CHR$(13)THENRETURN
177 GOTO168
178 REM
179 GOTO168
181 X$=LEFT$(B$(2),8):PRINT"[147]":PRINT""LEFT$(ZQ$,L(7))X$;A$(107);X$
182 PRINT""LEFT$(ZQ$,L(5))TAB(13)"[208]RESS <[210][197][212][213][210][206]>";:PRINT""LEFT$(ZQ$,L(6))TAB(18)"AND"
183 IFSC=100THENSC=0:RETURN
184 GETF$:IFF$=""THEN184
185 PRINT"[147]":GOSUB212
186 X=7:GOSUB201
187 L$(1)=S$+"[217]OU HAVE CHOSEN TO DO THE":X=10:GOSUB201
188 L$(3)=S$+"[197][206][212][210][217] [204][197][214][197][204] [211][213][210][214][197][217]."
189 X=11:GOSUB201:L$(5)=S$+"[201]T IS LOADING NOW.":X=1:GOSUB201
190 L$(7)=S$+"[212]HE [197]NTRY [204]EVEL [211]URVEY WILL TAKE ABOUT":X=4:GOSUB201
191 L$(8)=S$+"TEN MINUTES TO COMPLETE. [212]HEN IT":X=6:GOSUB201
192 L$(9)=S$+"WILL PRINT A REPORT FOR YOU."
193 X=3:GOSUB201:L$(11)=S$+"[212]HE REPORT WILL SHOW SOME OF YOUR":X=0
194 GOSUB201:L$(12)=S$+"PRESENT READING SKILLS AND WILL INDICATE"
195 X=6:GOSUB201:L$(13)=S$+"YOUR [208][207][212][197][206][212][201][193][204] READING SPEED"
196 X=12:GOSUB201:L$(14)=S$+"AFTER TRAINING."
197 X=6:GOSUB201:L$(16)=S$+"[208][204][197][193][211][197][160][215][193][201][212][160][198][207][210][160][201][206][211][212][210][213][195][212][201][207][206][211]"
198 FORX=1TO16:PRINT""LEFT$(ZQ$,L(X))L$(X):NEXT
199 PRINT"LOAD"CHR$(34)"PLACEMNT"CHR$(34)",8":POKE631,19:POKE632,13
200 POKE633,147:POKE634,13:POKE635,82:POKE636,213:POKE637,13:POKE198,7:END
201 S$=LEFT$(SP$,X):RETURN
202 F=VAL(F$):IFF<1ORF>4THEN167
203 IFF$=CHR$(13)THEN168
204 SC=0
205 RETURN
206 REM
207 GETF$:IFF$=""THEN207
208 IFF$=CHR$(13)THENRETURN
212 FORX=1TO16:L$(X)="":NEXT:RETURN
213 DATA2,4,6,8,10,12,14,18
214 DATA2,4,6,8,10,12,14
215 DATA2,4,6,8,10,12
216 DATA2,4,6,8,10,12,14,16
217 DATA2,4,6,8,10,12,14,16
218 DATA2,4,5,8,9,12,13,16,17,20
219 DATA2,4,6,8,10,12,14
220 DATA2,4,6,8
221 DATA2,4,6,8,10,12
222 DATA2,4,6,8,10
223 DATA2,4,6,8,10
224 DATA2,4,6,8,10,12,14,16,18
225 DATA6,8,10,12
226 DATA2,3,5,6,9,10,12
227 DATA2,4,6,8,10,12,14
228 DATA2,4,6,8,10,12,14
229 DATA2,4,6,8,10,12,14,16
230 DATA2,4,6,8,10,12,14,16,18,20
231 DATA4,6,8,10
232 DATA2,4,6,8,10,12,14,16,18,20
233 DATA2,4,6,8,10,12,14,16
234 DATA4,6,8,10,12,14
235 DATA4,6,8,10,12
236 DATA4,6,8,10,12
237 DATA2,4,6,8,10,12,14
238 DATA2,4,6,8,10,12,14
239 PRINT"[176][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][174]";
240 FORU=1TO8
241 PRINT"[221]      [221]          [221]         [221]          [221]";
242 PRINT"[171][192][192][192][192][192][192][219][192][192][192][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][192][192][192][179]";
243 NEXT
244 PRINT"[221]      [221]          [221]         [221]          [221]";
245 PRINT"[173][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][189]";
246 RETURN
247 REM MOVING WINDOW
248 PA=15:PB=1:L=1:PD=1:PC=25:PE=2:PK=5:TS=1064
249 PRINT"[147]"LEFT$(ZQ$,23)SPC(10)"[208][210][197][211][211] [198]1 [212][207] [211][197][197] [196][197][205][207]"
250 FORX=300TO326
251 FORY=1TOLEN(A$(X))-PA+1STEPPB
252 PRINT""LEFT$(ZQ$,L(L))SPC(Y-1)LEFT$(SP$,PB)MID$(A$(X),Y,PA)
253 GETF1$:IFF1$<>"[133]"THEN256
254 Y=LEN(A$(X))-PA+1:NEXT:X=340:NEXT
255 RESTORE:GOTO17
256 IFY=1THENFORZ=1TO250:NEXT
257 IFY=LEN(A$(X))-PA+1THENFORW=1TO250:NEXT
258 FORZ=1TOPC:NEXT
259 NEXT
260 PRINT""LEFT$(ZQ$,L(L))"                                        ";
261 L=L+1:IFL=15THENL=1:TS=1064
262 NEXT
263 GOTO247