home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 29 / 029.d81 / placemnt (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  22.8 KB  |  652 lines
  1. 10 poke649,1
  2. 20 print"[147][144]":poke53281,1:poke53280,1:print""
  3. 30 print"[197][206][212][197][210] [212][207][196][193][217]'[211] [196][193][212][197]":print"([197][216]: 07/01/86 )"
  4. 40 input"";dt$
  5. 41 iflen(dt$)<>8then10
  6. 42 d1$=left$(dt$,2):d2$=mid$(dt$,4,2):d3$=mid$(dt$,7,2)
  7. 43 ifval(d1$)>0andval(d1$)<13then45
  8. 44 goto10
  9. 45 ifval(d2$)>0andval(d2$)<32then47
  10. 46 goto10
  11. 47 ifval(d3$)>85then49
  12. 48 goto10
  13. 49 ifmid$(dt$,3,1)<>"/"ormid$(dt$,6,1)<>"/"then10
  14. 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]"
  15. 80 pe$="......................................."
  16. 90 sp$="                                                  "
  17. 100 zq$=""
  18. 110 print"[147]":wt=0:lx=40:dima$(24),l(24),b$(24),cn(220),a(24):l(1)=0:forx=1to23
  19. 120 l(x+1)=l(x)+1:next:k=0:gosub3250
  20. 130 dimh(22):open2,8,2,"copyrite,s,r"
  21. 140 x=2:gosub3000:x=3:gosub3000:x=7:gosub3000:x=8:gosub3000:x=9:gosub3000
  22. 150 x=14:gosub3000:x=16:gosub3000:x=21:gosub3000:x=22:gosub3000:print"[147]"
  23. 160 gosub3060:gosub3040:gosub3140
  24. 170 gosub3250
  25. 180 x$=left$(dt$,2):cn(10)=val(x$):x$=mid$(dt$,4,2):cn(11)=val(x$)
  26. 190 x$=right$(dt$,2):cn(12)=val(x$)
  27. 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]"
  28. 210 forx=3to12:input#2,a$(x):next:y=0:forx=3to12:iflen(a$(x))>ytheny=len(a$(x))
  29. 220 next:y=y+1:a$(12)=a$(12)+" "
  30. 230 forx=3to12:forxx=1toy-len(a$(x)):z$=z$+" ":next:a$(x)=z$+a$(x):z$="":next
  31. 240 yy=y+2:b$(3)=dt$
  32. 250 forx=4to10:input#2,s$:next
  33. 260 forx=4to12:ready:b$(x)=left$(pe$,y):a(x)=y
  34. 267 next:print"[147]"
  35. 270 data10,15,1,20,15,2,5,0,2
  36. 280 gosub1380:print"":gosub10000
  37. 530 ifb$(6)="m"orb$(6)="f"thenb$(6)=chr$(asc(b$(6))+128)
  38. 540 ifb$(6)=""thenb$(6)="[205]"
  39. 550 ifb$(11)="a"thenb$(11)="[193]"
  40. 560 print""left$(zq$,14)ul$:printtab(15)"[195][207][210][210][197][195][212][201][207][206][211]"
  41. 570 print"[193]. [208]ress number of item to be corrected."
  42. 580 print"[194]. [208]ress <[216]> if no corrections are         necessary."
  43. 590 ifb$(6)="m"orb$(6)="f"thenb$(6)=chr$(asc(b$(6))+128)
  44. 600 ifb$(6)=""thenb$(6)="[205]"
  45. 610 ifb$(6)<>"[205]"andb$(6)<>"[198]"thenb$(6)="[205]"
  46. 620 print""left$(zq$,4)a$(3);"       ";b$(3):forx=4to12:lh=x:y=x-3:y$=str$(y)
  47. 625 ifx=11then640
  48. 627 ifx=12thenlh=11:y=y-1:y$=str$(y)
  49. 630 y$=right$(y$,len(y$)-1):print""left$(zq$,l(x+2))a$(x);"   <";y$;"> ";b$(lh);
  50. 635 next:goto650
  51. 640 y$=right$(y$,len(y$)-1):print""left$(zq$,l(lh+2))a$(lh);:next
  52. 650 getx$:ifx$=""then650
  53. 655 ifx$="[216]"orx$="x"then740
  54. 660 ifval(x$)<1orval(x$)>8then650
  55. 670 forx=14to21:print""left$(zq$,l(x+2))left$(sp$,45);:next:x=val(x$)+3:lh=x
  56. 680 print""left$(zq$,16)"      [212]ype new entry for [201]tem #";x$;":";:ifx=11thenlh=12
  57. 690 z=(34-a(x))/2:print""left$(zq$,18)spc(z)left$(pe$,a(lh))"  ([197]nter)"
  58. 695 :p9=z+40*18:wt=9:w=x:j=18:r4=z:gosub10010
  59. 700 remprint""left$(zq$,18)spc(z)"";:b$(x)="":wt=9:lh=16:gosub330
  60. 710 print"[147]":forx=1to3:print""left$(zq$,l(x+2))a$(x);:next:goto560
  61. 740 forx=9to17:input#2,x$:next
  62. 770 b$(2)="9":goto850
  63. 780 return:gosub3255
  64. 800 print"[147]"left$(zq$,12)"[208]lease make a note of it. [201]t will save  time later.";
  65. 810 print""left$(zq$,8)"[211]tudent number:"
  66. 830 sn=1003:print""left$(zq$,8)tab(15)sn:foru=1to1500:next
  67. 840 cn(9)=sn:gosub3255:return
  68. 850 ifb$(11)="[193]"thengs$=" "+b$(11)+b$(6):goto880
  69. 860 g=val(b$(11)):g$=str$(g):g$=right$(g$,len(g$)-1):gs$=g$+b$(6)
  70. 870 iflen(gs$)<3thengs$="0"+gs$
  71. 880 b$(16)=gs$:b=val(b$(2))+64:ia$=str$(b):ia$=right$(ia$,2):b$(15)=ia$
  72. 890 ad$=left$(b$(3),2)+mid$(b$(3),4,2)+right$(b$(3),2):b$(14)=ad$:goto1090
  73. 900 gosub780
  74. 901 sa$=b$(4):sb$=b$(5):sc$=b$(7):sd$=b$(8)+b$(9)+b$(10):sg$=b$(14)
  75. 910 sh$=b$(15):si$="000":sj$="000":se$="[193][193]0000000000001":sf$=b$(16)
  76. 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
  77. 930 return
  78. 1090 forx=1to24:a$(x)="":next
  79. 1100 xs=6:gosub3040:forx=6to11:gosub3050:next
  80. 1110 forx=13to15:gosub3050:next
  81. 1120 x=17:gosub3050:gosub3060
  82. 1130 gosub3040:xs=3:forx=5to9:gosub3050:next:forx=11to14:gosub3050:next:x=15
  83. 1140 gosub3050:gosub3130:print"[147]":gosub3060:gosub3130:gosub3250
  84. 1150 jx=0:gosub3570:jx=od
  85. 1160 rem********** tachistoscope
  86. 1170 ss=0:l=1:c=0:ww=215:pt=150:nw=1:k=13
  87. 1180 goto1400
  88. 1190 sl=0
  89. 1200 forw=2to5
  90. 1210 ift$(w)=t$(1)thent$(6)=str$(w-1)
  91. 1220 iflen(t$(w))>slthensl=len(t$(w))
  92. 1230 next
  93. 1240 ift$(6)=""thenstop
  94. 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
  95. 1260 print"[147]":fory=1to50:next
  96. 1270 aa=(lx-len(t$(1)))/2
  97. 1280 print""left$(zq$,10)tab(aa)t$(1):fory=0topt:next:print"[147]"
  98. 1290 print""left$(zq$,8)tab(11)"[211]elect the word(s)"
  99. 1295 printtab(9)"that matched the flash."
  100. 1300 print""left$(zq$,4)"[198]lashword #"right$(str$(x),len(str$(x))-1)":"
  101. 1310 sl=((lx-sl)/2)-3:mn=2
  102. 1311 ifsl<0thensl=0
  103. 1320 forw=2to5:print""left$(zq$,8+mn+w)tab(sl)str$(w-1);"."t$(w):mn=mn+1:next
  104. 1325 gosub5700
  105. 1330 gosub3190:gosub3250
  106. 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
  107. 1350 iff=val(t$(6))thenc=c+1:ki=ki+1:k=k+1:goto1370
  108. 1360 cn(k)=0:k=k+1
  109. 1370 goto1620
  110. 1380 forxx=1to12:print""left$(zq$,l(xx+2))a$(xx)"  "b$(xx):next:return
  111. 1390 rem********** getting list of five
  112. 1400 forx=1to20
  113. 1410 fory=1to5:input#2,t$(y):next
  114. 1420 xy$=left$(t$(1),1):xy=val(xy$):yx=len(t$(1)):t$(1)=right$(t$(1),yx-1)
  115. 1430 fory=1to5
  116. 1440 a(1)=1:a(6)=len(t$(y))+2
  117. 1450 forz=2to5
  118. 1460 forkk=a(z-1)tolen(t$(y)):ifmid$(t$(y),kk,1)=" "thengosub1480
  119. 1470 next:goto1490
  120. 1480 a(z)=kk+1:kk=len(t$(y)):return
  121. 1490 next
  122. 1500 onnwgoto1510,1520,1530,1550,1560
  123. 1510 t$(y)=mid$(t$(y),a(xy),a(xy+1)-a(xy)+1-2):goto1560
  124. 1520 t$(y)=mid$(t$(y),a(xy),a(xy+2)-a(xy)-1):goto1560
  125. 1530 ifxy>2thent$(y)=mid$(t$(y),a(3),a(6)-2):goto1560
  126. 1540 t$(y)=mid$(t$(y),a(1),a(4)-2):goto1560
  127. 1550 t$(y)=mid$(t$(y),a(2),a(6)-a(2))
  128. 1560 next
  129. 1570 gosub1190
  130. 1580 next
  131. 1590 cn(ww)=cn(ww)+1000
  132. 1600 gosub3360:gosub5260:print"[147]":gosub3060
  133. 1610 gosub1800:gosub3130:gosub3280:goto1780
  134. 1620 ifc=3then1645
  135. 1630 ifcn(k-1)=1then1710
  136. 1640 goto1720
  137. 1645 ifnw<=5thencn(ww)=pt
  138. 1650 ifcn(k-1)=1thenifcn(k-5)=1thenifcn(k-9)=1thenc=0:goto1680
  139. 1660 ifcn(k-1)=1thenc=1:goto1710
  140. 1670 c=0:goto1720
  141. 1680 nw=nw+1:cn(nw)=pt:ww=ww+1
  142. 1690 ifnw>5thennw=5:ww=220:goto1710
  143. 1700 pt=100+nw*30:return
  144. 1710 fc=.1:pt=pt-int(pt*fc):return
  145. 1720 fc=.4:pt=pt+int(pt*fc):return
  146. 1780 rem***** load first story on screen
  147. 1790 sz=1:goto1850:rem:first story
  148. 1800 forx=1to24
  149. 1820 input#2,a$(x)
  150. 1830 next
  151. 1840 return
  152. 1850 print"[147]":gosub3060:gosub3570:qs=od
  153. 1860 ifsz=3thengosub2830:goto1930
  154. 1870 ifsz=2then1890
  155. 1880 gosub2010
  156. 1890 getf$:iff$=""then1890
  157. 1920 print"[147]":ifsz=2thengosub3250
  158. 1930 gosub3570:qt=(od-qs)
  159. 1940 ifqt=0then1890
  160. 1950 qt=qt/60
  161. 1960 wm=int(139/qt):ww$=str$(wm):ww$=right$(ww$,len(ww$)-1):cn(k)=wm:k=k+1
  162. 1970 gosub5190
  163. 1980 ifsz=2thengosub3560:goto2510
  164. 1990 ifsz=3then2710
  165. 2000 goto2030
  166. 2010 gosub3040:forx=1to4:gosub3050:next:forx=6to8:gosub3050:next
  167. 2015 forx=10to13:gosub3050:next
  168. 2020 return
  169. 2030 a$(5)=ww$+" words per minute. [212]hat's "+wm$
  170. 2040 print"[147]":gosub3080:gosub3130:gosub3250
  171. 2050 forx=1to10
  172. 2060 gosub5250:u=0
  173. 2070 print"[147]":a$(1)="[209]uestion #"+right$(str$(x),len(str$(x))-1)+":":print""a$(1)
  174. 2080 z=0:fory=2to5:iflen(cc$(y))>zthenz=len(cc$(y))
  175. 2090 next:z=z+3:ifz>40thenz=40
  176. 2100 pp=(int(lx-z)/2):p=(int(lx-len(cc$(1)))/2)
  177. 2120 ifp<0thenp=1
  178. 2130 ifpp<0thenpp=1
  179. 2140 print""left$(zq$,4)tab(p)cc$(1);:bc=7
  180. 2150 fory=7to10:print""left$(zq$,bc)tab(pp)str$(y-6);". ";cc$(y-5);
  181. 2155 bc=bc+2:iflen(cc$(y-5))>40thenbc=bc+1
  182. 2160 next:gosub3240:print"[147]"
  183. 2170 cn(k)=f:k=k+1:cn(k)=0
  184. 2180 a$(0)=a$(0)+f$
  185. 2190 iff<>ccthenk=k+1:goto2210
  186. 2200 cn(k)=1:k=k+1
  187. 2210 cn(k)=asc(cc$):k=k+1
  188. 2220 next
  189. 2230 gosub3250:gosub2370
  190. 2240 ifsz=2thengosub2270:k=k+3:goto2590
  191. 2250 ifsz=3thengosub2270:goto2760
  192. 2260 tc=cn(k-4)*10:tc$=str$(tc)+"%":ifsz>1thenreturn
  193. 2270 gosub3560:a$(1)=str$(sz):a$(2)=str$(cn(k-4)*10)+"%":a$(3)=str$(cn(k-3))
  194. 2280 a$(4)=str$(cn(k-2)):a$(5)="[195]orrect":ifcn(k-1)=0thena$(5)="[201]ncorrect"
  195. 2290 gosub3440:a$(0)=a$(8):ifcn(k-4)<7thena$(0)=a$(9)
  196. 2300 print"[147]":gosub3460
  197. 2310 ifsz<2thengosub2350
  198. 2320 gosub3130
  199. 2330 ifsz=2orsz=3thenreturn
  200. 2340 goto2360
  201. 2350 gosub3040:forx=7to11:gosub3050:next:return
  202. 2360 print"[147]":gosub3060:gosub2460:gosub3130:gosub3280:goto2450
  203. 2370 q=0:forx=k-2tok-29step-3:q=q+cn(x):next:cn(k)=q:k=k+1
  204. 2380 forx=k-1tok-30step-1
  205. 2390 ifcn(x)=67thenifcn(x-1)=1thencn(k)=cn(k)+1
  206. 2400 ifcn(x)=68thenifcn(x-1)=1thencn(k+1)=cn(k+1)+1
  207. 2410 ifcn(x)=77thenifcn(x-1)=1thencn(k+2)=cn(k+2)+1
  208. 2420 next
  209. 2430 k=k+3
  210. 2440 return
  211. 2450 sz=2:goto2500
  212. 2460 gosub3040:iu=22:ifsz=1theniu=23
  213. 2465 forx=1toiu
  214. 2470 input#2,a$(x)
  215. 2480 next:goto2490
  216. 2490 return
  217. 2500 print"[147]":goto1850
  218. 2510 forx=5to6:gosub3050:next:forx=10to15:gosub3050:next:forx=17to18:gosub3050:next
  219. 2520 va$=" considerably   faster than"
  220. 2525 vb$=va$+" your speed on the first     selection."
  221. 2530 ifcn(128)>cn(93)-10andcn(128)<cn(93)+10thenva$=" about the same as":goto2535
  222. 2531 goto2540
  223. 2535 vb$=va$+" your speed on the first selection.":goto2550
  224. 2540 ifcn(128)<cn(93)-10thenva$=" a bit slower   than":goto2545
  225. 2541 goto2550
  226. 2545 vb$=va$+" your speed on the first selection."
  227. 2550 a$(8)="[212]his time your reading speed was "+ww$+"    words per minute. [212]hat's"
  228. 2560 a$(8)=a$(8)+vb$
  229. 2570 print"[147]":gosub3110:gosub3130
  230. 2580 goto2050
  231. 2590 gosub3250
  232. 2600 tc$=" higher than ":ta$="[217]ou seem":tb$="to be a fast    learner."
  233. 2610 ifcn(159)<cn(124)thentc$=" lower than  ":ta$="[217]ou will"
  234. 2620 ifcn(159)<cn(124)thentb$="really benefit  from the reading program.":goto2650
  235. 2630 ifcn(159)=cn(124)thentc$=" the same as ":ta$="[201]t will"
  236. 2640 ifcn(159)=cn(124)thentb$="take time to     develop your reading abilities."
  237. 2650 remifwt=9thenreturn
  238. 2660 gosub3040:a$(2)="[217]our second test score is"+tc$+"  the first one. "+ta$
  239. 2670 a$(3)=tb$
  240. 2680 forx=4to8:gosub3050:next:forx=10to16:gosub3050:next:forx=18to20:gosub3050:next
  241. 2690 sz=3:gosub3120:gosub2750:gosub2730:gosub3260:gosub3130
  242. 2700 gosub2830
  243. 2710 a$(2)="[217]ou read the third story at"+str$(cn(165))+" words   per minute"
  244. 2720 a$(2)=a$(2)+". ":print"[147]":gosub3110:gosub3130:goto2050
  245. 2730 gosub3040
  246. 2735 forx=5to8:gosub3050:next:forx=10to14:gosub3050:next:forx=16to20:gosub3050:next
  247. 2736 forx=22to23:gosub3050:next
  248. 2740 return
  249. 2750 dimcr$(24):forx=1to23:input#2,cr$(x):next:return
  250. 2760 gosub3250:cn(207)=82:cn(208)=69:cn(209)=65:cn(210)=68
  251. 2770 cn(211)=val(b$(2))+64:cn(212)=0:cn(213)=0:ifb$(12)="a"thencn(214)=90
  252. 2780 goto2800
  253. 2790 cn(214)=64+val(b$(12))
  254. 2800 cn(201)=cn(165):cn(202)=pc:cn(220)=pa:cn(8)=80
  255. 2820 gosub900:goto3590
  256. 2830 pa=18:pd=0:l=1:pb=1:pc=25
  257. 2840 gosub3570:qs=od:print"[147]"
  258. 2850 forx=1to23
  259. 2860 fory=1tolen(cr$(x))-pa+2steppb
  260. 2870 print""left$(zq$,l)tab(y+pd)left$(sp$,pb);mid$(cr$(x),y,pa);
  261. 2880 ify=1thenforz=1to200:next
  262. 2890 forz=1topc:next
  263. 2900 next
  264. 2910 forz=1to100:next
  265. 2920 print"[147]":l=l+1
  266. 2930 next
  267. 2940 gosub3570:qt=(od-qs)/60
  268. 2950 wm=int(139/qt):ww$=str$(wm):ww$=right$(ww$,len(ww$)-1):cn(165)=wm
  269. 2960 ns=cn(93):ifcn(165)>cn(93)thenns=cn(165)
  270. 2970 ls=int(ns+(ns*.05)):ls$=str$(ls):ww$=right$(ls$,len(ls$)-1):s(3)=ls
  271. 2980 cn(164)=pa:cn(163)=(pc*10)+pb
  272. 2990 return
  273. 3000 input#2,a$(x)
  274. 3010 iflen(a$(x))>40thenreturn
  275. 3020 l=lx-len(a$(x)):ll=int(l/2)
  276. 3030 a$(x)=left$(sp$,ll)+a$(x):return
  277. 3040 forx=1to24:a$(x)="":next:return
  278. 3050 input#2,a$(x):return
  279. 3060 print"[147]":forx=1to24:print""left$(zq$,x)a$(x);:next:return
  280. 3070 print"[147]":forx=1to20:printa$(x)" ":next:return
  281. 3080 print"[147]":fort=1to3:printa$(t):next:printa$(4);" ";a$(5):fort=6to20:printa$(t):next:return
  282. 3090 print"[147]":printa$(1);" ";a$(2):fort=3to16:print""left$(zq$,t)a$(t):next
  283. 3100 return
  284. 3110 print"[147]":printa$(2);" ":fort=4to22:printa$(t):next:return
  285. 3120 print"[147]":printa$(2);" ";a$(3):fort=4to20:print""left$(zq$,t+1)a$(t):next
  286. 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]";
  287. 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]";
  288. 3140 gosub3570:remh1=od
  289. 3150 getf$:iff$=""then3150
  290. 3155 iflk=1andf$=chr$(13)then3160
  291. 3156 iflk=1andf$<>chr$(13)then3150
  292. 3160 remgosub3570:h2=od-h1:ifh2<1then3150
  293. 3170 print"[147]":lk=0:return
  294. 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]";
  295. 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
  296. 3190 gosub3570:remh1=od
  297. 3200 getf$:iff$=""then3200
  298. 3210 remgosub3570:h2=od-h1:ifh2<1then3190
  299. 3220 f=val(f$):iff<1orf>4then3190
  300. 3230 return
  301. 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]";
  302. 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
  303. 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
  304. 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]";
  305. 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
  306. 3260 print"[147]"left$(zq$,7)"        [212]he story will not stop."
  307. 3261 print"          [212]ry to stay with it."
  308. 3270 return
  309. 3280 print"[147]"left$(zq$,8)tab(8)"[210]emember, press any key"
  310. 3281 printtab(14)"[201][205][205][197][196][201][193][212][197][204][217]"
  311. 3282 printtab(12)"when finished."
  312. 3290 gosub3130:return
  313. 3300 forx=215to219
  314. 3310 ifcn(x)>999then3330
  315. 3320 next
  316. 3330 ww=x-1:cn(200)=cn(ww-214):cn(203)=int(cn(ww)*2):cn(204)=ww-214
  317. 3340 ifcn(204)>3thencn(204)=3
  318. 3350 return
  319. 3360 forx=1to5
  320. 3370 ifcn(x)=0then3420
  321. 3380 ifcn(x)>999then3420
  322. 3390 yy=cn(x)
  323. 3420 next:return
  324. 3440 a$(16)=left$(sp$,16):a$(15)="   ":a$(14)="      ":a$(8)="[214][193][204][201][196]."
  325. 3450 a$(9)="[206][207][212] [214][193][204][201][196].":a$(10)=str$(wm)+" words per minute ":return
  326. 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)
  327. 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)
  328. 3470 print""left$(zq$,5)tab(4)"[207]verall [195]omprehension [211]core -"a$(2)
  329. 3480 print""left$(zq$,7)tab(11)"[198]urther breakdown:"
  330. 3490 print""left$(zq$,9)tab(5)"[199]eneral comprehension questions"
  331. 3500 printtab(15)a$(3)" out of 6"
  332. 3510 print""left$(zq$,12)tab(10)"[196]etail type questions"
  333. 3520 printtab(15)a$(4)" out of 3"
  334. 3530 print""left$(zq$,15)tab(3)"[199]eneralization/[205]ain [201]dea question"
  335. 3535 printtab((40-len(a$(5)))/2)a$(5)
  336. 3540 print""left$(zq$,18)tab(12)"[210]eading speed of:"
  337. 3545 printtab(int(40-(len(a$(10))+len(a$(0))+3))/2);a$(10);"is ";a$(0)
  338. 3550 return
  339. 3560 forx=0to24:a$(x)="":next:return
  340. 3570 oa=val(left$(ti$,2)):ob=val(mid$(ti$,3,2)):oc=val(right$(ti$,2))
  341. 3580 od=(oa*3600)+(ob*60)+oc:return
  342. 3590 dimp$(56),sp$(70):ll=1:pp=1:gosub3570:jx=od-jx
  343. 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)=""
  344. 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)=""
  345. 3610 xj=jx/60:xj$=(str$(xj)):xj$=left$(xj$,4)
  346. 3620 ifright$(xj$,1)="."thenxj$=left$(xj$,len(xj$)-1)
  347. 3630 p$(4)="[211]urvey [196]ate: "+dt$+left$(sp$,10)+"[197]lapsed time: "+xj$+" minutes"
  348. 3635 sp$(3)="[196]ate: "+dt$+"      [212]ime:"+xj$+" min"
  349. 3640 sx$="[205]r. ":ifb$(6)="[198]"thensx$="[205]s."
  350. 3650 p$(6)=sx$+b$(4)+" "+b$(5)+left$(sp$,10)
  351. 3652 sp$(6)="     "+sx$+b$(4)+" "+b$(5)+left$(sp$,10)
  352. 3655 sp$(5)=""
  353. 3660 p$(7)=b$(7)
  354. 3665 sp$(7)="     "+b$(7)
  355. 3670 p$(8)=b$(8)+" "+b$(9)+" "+b$(10)
  356. 3675 sp$(8)="     "+b$(8)+" "+b$(9)+" "+b$(10)
  357. 3680 p$(9)="":p$(10)="[198][204][193][211][200][215][207][210][196] [197][216][197][210][195][201][211][197]:"
  358. 3685 sp$(9)="":sp$(10)="[198][204][193][211][200][215][207][210][196] [197][216][197][210][195][201][211][197]:"
  359. 3720 p$(11)="[198]astest speed was "+v5$+"."
  360. 3725 sp$(11)="[198]astest speed - "+v5$
  361. 3740 p$(12)="[217]ou did not successfully see word groups of more than"+str$(o8)
  362. 3741 p$(12)=p$(12)+" word(s)."
  363. 3745 sp$(12)="[204]argest group seen -"+str$(o8)+" word(s)"
  364. 3750 p$(13)="":p$(14)="[208]otential speed ([198]lashword scores) is"+v7$
  365. 3755 sp$(13)="":sp$(14)="[208]otential ([198]lashword scores):"+v7$
  366. 3760 p$(14)=p$(14)+" words per minute."
  367. 3765 sp$(14)=sp$(14)+" [215][208][205]"
  368. 3770 gosub5490:rs=rs*3
  369. 3780 p$(15)="[208]otential speed ([210]eading scores) is"+str$(rs)+" words per minute."
  370. 3785 sp$(15)="[208]otential ([210]eading scores):"+str$(rs)+" [215][208][205]"
  371. 3790 p$(16)="[215]ith training, your speed should be in this range."
  372. 3795 sp$(16)="[215]ith training, your speed should be in":sp$(17)="this range."
  373. 3800 p$(18)="[210][197][193][196][201][206][199] [197][216][197][210][195][201][211][197]:"
  374. 3805 sp$(19)="[210][197][193][196][201][206][199] [197][216][197][210][195][201][211][197]:":sp$(18)=""
  375. 3810 p$(19)="[211]tory #1 - "
  376. 3815 sp$(20)="[211]tory #1 - "
  377. 3820 ta$="[210]eading [211]peed - ":tb$=" words per minute."
  378. 3830 tc$="[195]omprehension [212]est, [212]otal [211]core -"
  379. 3840 td$="[193]ttention to [196]etail [209]uestions -"
  380. 3850 te$="[199]eneral comprehension questions -":tf$="[205]ain [201]dea question - "
  381. 3860 tg$="  [214][193][204][201][196]":th$="  [201][206][214][193][204][201][196]"
  382. 3870 p$(20)=ta$+str$(cn(93))+tb$+tg$
  383. 3875 sp$(21)=ta$+str$(cn(93))+" [215][208][205]"+tg$
  384. 3880 ifcn(124)<7thenp$(20)=ta$+str$(cn(93))+tb$+th$:goto3885
  385. 3881 goto3890
  386. 3885 sp$(21)=ta$+str$(cn(93))+" [215][208][205]"+th$
  387. 3890 ct=cn(124)*10:ct$=str$(ct)+"%":p$(21)=tc$+ct$:sp$(22)=p$(21)
  388. 3900 p$(22)=td$+str$(cn(126))+" out of three"
  389. 3905 sp$(23)="[196]etail [209]uestions -"+str$(cn(126))+" out of 3"
  390. 3910 p$(23)=te$+str$(cn(125))+" out of six"
  391. 3915 sp$(24)="[195]omprehension [209]uestions -"+str$(cn(125))+" out of 6"
  392. 3920 ct$="incorrect":ifcn(127)=1thenct$="[195]orrect"
  393. 3930 p$(24)=tf$+ct$:sp$(25)=p$(24)
  394. 3940 p$(25)="":p$(26)="[211]tory #2 - "
  395. 3945 sp$(26)="":sp$(27)="[211]tory #2 - "
  396. 3960 ct=cn(159):ct=ct*10:ct$=str$(ct)+"%"
  397. 3970 p$(27)=ta$+str$(cn(128))+tb$+tg$
  398. 3975 sp$(28)=ta$+str$(cn(128))+" [215][208][205]"+tg$
  399. 3980 ifcn(159)<7thenp$(27)=ta$+str$(cn(128))+tb$+th$:goto3985
  400. 3981 goto3990
  401. 3985 sp$(28)=ta$+str$(cn(128))+" [215][208][205]"+th$
  402. 3990 p$(28)=tc$+ct$:sp$(29)=p$(28)
  403. 4000 p$(30)=te$+str$(cn(160))+" out of six"
  404. 4005 sp$(31)="[195]omprehension [209]uestions -"+str$(cn(160))+" out of 6"
  405. 4010 p$(29)=td$+str$(cn(161))+" out of three"
  406. 4015 sp$(30)="[196]etail [209]uestions -"+str$(cn(161))+" out of 3"
  407. 4020 ct$="[201]ncorrect":ifcn(162)=1thenct$="[195]orrect"
  408. 4030 p$(31)=tf$+ct$:p$(32)=""
  409. 4035 sp$(32)=tf$+ct$:sp$(33)=""
  410. 4040 p$(33)="[211]tory #3 - "
  411. 4045 sp$(34)="[211]tory #3 - "
  412. 4050 ct=cn(196):ct=ct*10:ct$=str$(ct)+"%":p$(35)=tc$+ct$:sp$(36)=p$(35)
  413. 4060 p$(34)=ta$+str$(cn(165))+tb$+tg$
  414. 4061 sp$(35)=ta$+str$(cn(165))+" [215][208][205]"+tg$
  415. 4065 ifcn(196)<7thenp$(34)=ta$+str$(cn(165))+tb$+th$:goto4067
  416. 4066 goto4070
  417. 4067 sp$(35)=ta$+str$(cn(165))+" [215][208][205]"+th$
  418. 4070 p$(36)=td$+str$(cn(198))+" out of three"
  419. 4075 sp$(37)="[196]etail [209]uestions -"+str$(cn(198))+" out of 3"
  420. 4080 p$(37)=te$+str$(cn(197))+" out of six"
  421. 4085 sp$(38)="[195]omprehension [209]uestions -"+str$(cn(197))+" out of 6"
  422. 4090 ct$="[201]ncorrect":ifcn(199)=1thenct$="[195]orrect"
  423. 4100 p$(38)=tf$+ct$:sp$(39)=p$(38)
  424. 4110 p$(39)="":sp$(40)=p$(39)
  425. 4120 p$(40)="[193]verage reading speed in this country is 200-250 words/minute."
  426. 4125 sp$(41)="[193]verage reading speed in this country"
  427. 4126 sp$(42)="is 200-250 words/minute."
  428. 4130 gosub5490:wm=rs:gosub5190
  429. 4140 ifrs=0then4160
  430. 4150 goto4200
  431. 4160 p$(42)="[217]ou scored less than 70% on all three comprehension tests."
  432. 4165 sp$(43)="[217]ou scored less than 70% on all three"
  433. 4166 sp$(44)="comprehension tests."
  434. 4170 p$(43)="[212]hat's just computer distraction. [201]mprovement will be rapid."
  435. 4175 sp$(45)="[212]hat's just computer distraction."
  436. 4176 sp$(46)="[201]mprovement will be rapid."
  437. 4180 p$(44)="[211]peed [210]eading [208][204][213][211] will start you at 180 words per minute."
  438. 4185 sp$(47)="[211]peed [210]eading [208][204][213][211] will start you at"
  439. 4186 sp$(48)="180 words per minute."
  440. 4190 p$(45)="":sp$(49)="":goto4230
  441. 4200 p$(41)="[212]he reading speed is valid only if comprehension is 70% or more."
  442. 4205 sp$(43)="[212]he reading speed is valid only if"
  443. 4206 sp$(44)="comprehension is 70% or more."
  444. 4210 gosub5490:p$(42)=ra$:p$(43)="[212]his is "+wm$:p$(45)=""
  445. 4215 sp$(45)=ja$:sp$(46)="[212]his is "+wk$
  446. 4220 p$(44)="[217]ou can probably double your speed in eight - ten lessons."
  447. 4225 sp$(47)="[217]ou can probably double your speed in"
  448. 4226 sp$(48)="eight - ten lessons."
  449. 4230 wt=9:gosub5900:wt=0:p$(46)="[217]our second test score is"+tc$+"the first one."
  450. 4235 wt=9:sp$(50)="[217]our second test score is"+tf$+"the first one."
  451. 4240 p$(47)=ta$+" "+tb$:p$(48)=""
  452. 4245 sp$(51)=td$+" "+te$:p$(48)="":sp$(52)=""
  453. 4250 p$(49)="[193]t low speed, left-to-right eye movement ability seems adequate."
  454. 4255 sp$(53)="[193]t low speed, left-to-right eye"
  455. 4256 sp$(54)="movement ability seems adequate."
  456. 4260 ifcn(196)<7then4280
  457. 4270 goto4290
  458. 4280 p$(49)="[217]ou seem to have trouble with smooth left-to-right eye movement."
  459. 4285 sp$(53)="[217]ou seem to have trouble with smooth"
  460. 4286 sp$(54)="left-to-right eye movement."
  461. 4290 p$(50)="[212]his must be developed to achieve successful rapid reading."
  462. 4295 sp$(55)="[212]his must be developed to achieve"
  463. 4296 sp$(56)="successful rapid reading."
  464. 4300 p$(52)="[198]or further information about [211]peed [210]eading [208][204][213][211],"
  465. 4305 sp$(58)="[198]or further information about [211]peed"
  466. 4306 sp$(59)="[210]eading [208][204][213][211], please contact [204][207][193][196][211][212][193][210],"
  467. 4310 p$(51)="":sp$(57)=""
  468. 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]"
  469. 4321 p$(53)=p$(53)+"[195]entral [212]ime"
  470. 4325 sp$(60)="at 1-800-831-2694 8[193][205]-5[208][205] [195]entral [212]ime"
  471. 4326 sp$(61)="or write to us at"
  472. 4330 p$(54)="or write to us at [208].[207]. [194]ox 30007,[211]hreveport, [204][193]  71130."
  473. 4335 sp$(62)="[208].[207]. [194]ox 30007,"
  474. 4336 sp$(63)="[211]hreveport, [204][193]  71130."
  475. 4340 p$(55)="":sp$(64)=""
  476. 4350 p$(56)="[210]eading is important to you. [211]tart using [211]peed [210]eading [208][204][213][211] now!"
  477. 4355 sp$(65)="[210]eading is important to you. [211]tart"
  478. 4356 sp$(66)="using [211]peed [210]eading [208][204][213][211] now!":xc=17:qw=1:os=0
  479. 4360 print"[147]":forx=1toxc:printsp$(x+os):next:gosub4760
  480. 4370 gosub4620:goto4650:close2:close1
  481. 4380 print"[147]":forx=1toxc:printsp$(x+os):next:gosub4620:gosub4650
  482. 4390 print"[147]"left$(zq$,7)"[198]or a printout of your scores, press <[208]>"
  483. 4400 print""left$(zq$,9)tab(19)"[207][210]"
  484. 4410 print""left$(zq$,11)tab(4)"[208]ress <[211]> to go to start demo."
  485. 4420 getf$:iff$=""then4420
  486. 4430 iff$="[208]"orf$="p"then4450
  487. 4431 iff$="s"orf$="[211]"then4490
  488. 4440 goto4390
  489. 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]."
  490. 4460 getf$:iff$=""then4460
  491. 4470 open4,4,7:cmd4:forx=1to56:print#4,"     ";p$(x):next:close4:fory=1to500:next
  492. 4490 print"[147]":close2
  493. 4500 print"load"chr$(34)"lsrmenu"chr$(34)",8"
  494. 4510 poke198,5:poke631,19:poke632,13:poke633,82:poke634,213:poke635,13:end
  495. 4520 getf$:iff$=""then4520
  496. 4530 iff$="[209]"orf$="q"then4550
  497. 4540 goto4520
  498. 4550 open4,4,4:cmd4:forx=1to10:print#4," ":next:forx=1to55:print#4,x;" ";
  499. 4560 print#4,cn(x);spc(15);x+55;" ";cn(x+55);spc(30);x+110;" ";cn(x+110);
  500. 4570 print#4,spc(45);x+165;" ";cn(x+165):next
  501. 4580 goto4480
  502. 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]"
  503. 4600 print""left$(zq$,23)lo$;
  504. 4610 print"[208]lease wait. [211]cores are being recorded.";:return
  505. 4620 rem
  506. 4630 print""left$(zq$,23)ul$;
  507. 4635 print""left$(zq$,24)"[213]p/[196]own arrows turn pages  -  [197] to end.";
  508. 4640 return
  509. 4650 getf$:iff$=""then4650
  510. 4660 iff$=chr$(17)then4700
  511. 4670 iff$=chr$(145)then4720
  512. 4680 iff$=chr$(69)orf$=chr$(197)then4390
  513. 4690 goto4650
  514. 4700 qw=qw+1
  515. 4701 ifqw=2thenos=17:xc=22:goto4710
  516. 4702 ifqw=3thenos=39:xc=17:goto4710
  517. 4703 ifqw=4thenos=56:xc=10:goto4710
  518. 4704 ifqw>4thenqw=1:os=0:xc=17
  519. 4710 goto4380
  520. 4720 qw=qw-1
  521. 4721 ifqw<1thenqw=1:os=0:xc=17:goto4730
  522. 4722 ifqw=2thenos=17:xc=22:goto4730
  523. 4723 ifqw=3thenos=39:xc=17:goto4730
  524. 4724 ifqw=4thenos=56:xc=10
  525. 4730 goto4380
  526. 4760 ja$=str$(cn(9)):jb$="0":jc$="0":jd$="[208][204][193][195]":jf$=str$(ki)
  527. 4770 je$="[208][204][193][195]"
  528. 4780 forx=215to219:ifcn(x)<999thennext
  529. 4790 jg$=str$(cn(x-1)):ji$="1":jn$=str$(cn(206)):x=0
  530. 4800 x=165:ifcn(124)>6thenx=93
  531. 4810 ifcn(159)>6thenx=128
  532. 4820 jh$=str$(cn(x)):ju$=jh$:jv$="??"
  533. 4830 ifx=93thenx=125
  534. 4840 ifx=128thenx=160
  535. 4850 fory=1to3:a(y)=cn(x):x=x+1:next
  536. 4860 fory=1to3:a$(y)=str$(a(y)):next
  537. 4870 fory=1to3:a$(y)=right$(a$(y),1):next:x=x-31:b$=""
  538. 4875 forz=xtox+28step3:x$=str$(cn(z)):b$=b$+right$(x$,1):next
  539. 4880 jj$=a$(1)+a$(2)+a$(3)+b$
  540. 4890 jk$="00":jl$="00"
  541. 4900 jm$=left$(dt$,2)+mid$(dt$,4,2)+right$(dt$,2)
  542. 4910 jo$="1":jp$=str$(jx)
  543. 4920 jq$="00":jr$="00"
  544. 4930 js$="000000000000000000000000":jt$="000000000000000000000000"
  545. 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
  546. 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
  547. 4960 h(20)=3:h(21)=3:return
  548. 5190 ifwm>175andwm<200thenwm$="a bit lower than average."
  549. 5195 ifwm>175andwm<200thenwk$="a bit lower than average.":return
  550. 5200 ifwm<176thenwm$="somewhat lower than average."
  551. 5205 ifwm<176thenwk$="somewhat lower than average.":return
  552. 5210 ifwm>199andwm<251thenwm$="about on average level."
  553. 5215 ifwm>199andwm<251thenwk$="about on average level.":return
  554. 5220 ifwm>250andwm<499thenwm$="somewhat higher than average."
  555. 5225 ifwm>250andwm<499thenwk$="somewhat higher than average.":return
  556. 5230 ifwm>499thenwm$="considerably above average level."
  557. 5235 ifwm>499thenwk$="considerably above average.":return
  558. 5240 return
  559. 5250 input#2,cc$:input#2,xx$:cc=val(xx$):fory=1to5:input#2,cc$(y):next:return
  560. 5260 wt=9:x=ww:gosub3360:ifnw=1thenyy=cn(k-4)
  561. 5270 z9=yy:z8=0:z7=0:cn(205)=yy:o8=cn(k-3)
  562. 5271 z9=z9-925:ifz9<0then5274
  563. 5272 ifz9=0thenz8=z8+1:goto5274
  564. 5273 z8=z8+1:goto5271
  565. 5274 z9=z9+925:z7=z9/925:z6=z8+z7:z6$=str$(z6):z6$=right$(z6$,len(z6$)-1)
  566. 5275 z6$=left$(z6$,4)
  567. 5276 ifz8=0thenz6$="0"+z6$:z6$=left$(z6$,5)
  568. 5277 ifz7=0thenz6$=str$(z8)+".000":z6$=left$(z6$,4)
  569. 5278 fs$=left$(z6$,4):v5$=fs$+" sec."
  570. 5280 fg$="groups of    "+str$(o8)+" words ":cn(206)=ww-214
  571. 5290 ifww-214=1orww-214=0thenfg$="single words  "
  572. 5295 r5=int(o8/z6*60):ifr5>400thenr5=int(r5-r5*.2)
  573. 5300 t1$=str$(r5):ifr5<180thent1$="180"
  574. 5305 v7$=t1$:v6$=fg$:cn(200)=val(t1$)
  575. 5310 print"[147]"left$(zq$,1)"   [212]hat completes the [198]lashword [212]est for";:printb$(4);
  576. 5320 print" ";b$(5)".":print:print"   [215]e now know your visual speed - how  fast ";
  577. 5330 print"you can see word groups."
  578. 5340 print:print"   [212]he test suggests that you have the";
  579. 5350 print"  perceptual ability to see ";fg$;"at the visual";
  580. 5360 print" speed of ";fs$;" sec."
  581. 5370 print"   [194]ased on this score, you should"
  582. 5380 print"eventually be able to reach a minimum"
  583. 5381 print"reading speed of";t1$;" words per minute"
  584. 5382 print"if your other reading skills are"
  585. 5383 print"developed to this level."
  586. 5400 print"   [199]ood visual speed is basic to rapid  reading.";
  587. 5410 print" [201]t can be improved with proper training. [193]s your basic visual";
  588. 5420 print" speed    improves, your potential reading speed";
  589. 5430 print"  will increase even more."
  590. 5440 gosub5450:gosub3130:return
  591. 5450 gosub3040:xs=0:forx=3to6:gosub3050:next:forx=8to10:gosub3050:next
  592. 5460 forx=12to14:gosub3050:next:forx=16to20:gosub3050:next
  593. 5470 ifcn(1)=0thencn(1)=220:cn(215)=5:cn(216)=1000:cn(206)=1:cn(200)=220
  594. 5480 return
  595. 5490 rs=int(cn(200)/2)
  596. 5500 ifcn(124)>6thenrs=cn(93)
  597. 5510 ifcn(159)>6thenrs=cn(128)
  598. 5520 ifcn(124)>6thenifcn(159)>6thenifcn(93)>cn(128)thenrs=cn(93)
  599. 5530 ifrs>0then5550
  600. 5540 goto5560
  601. 5550 ra$="[217]our reading speed of"+str$(rs)+" words per minute is valid."
  602. 5555 ja$="[217]our reading speed of"+str$(rs)+" [215][208][205] is valid.":return
  603. 5560 ifcn(196)>6thenrs=cn(165):goto5580
  604. 5570 return
  605. 5580 ra$="[217]our reading speed is [197][211][212][201][205][193][212][197][196] at"+str$(rs)+" words per minute."
  606. 5585 ja$="[217]our reading speed is [197][211][212][201][205][193][212][197][196] at"+str$(rs)+" [215][208][205].":return
  607. 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]";
  608. 5710 print""left$(zq$,24)spc(9)"[211]elect the best choice";:return
  609. 5900 tc$=" higher than ":ta$="[217]ou seem":tb$="to be a fast learner."
  610. 5905 tf$=" higher than   ":td$="[217]ou seem":te$="to be a fast learner."
  611. 5910 ifcn(159)<cn(124)thentc$=" lower than ":ta$="[217]ou will"
  612. 5915 ifcn(159)<cn(124)thentf$=" lower than    ":td$="[217]ou will"
  613. 5920 ifcn(159)<cn(124)thentb$="really benefit from the reading program."
  614. 5925 ifcn(159)<cn(124)thente$="really benefit from the readingprogram.":goto5950
  615. 5930 ifcn(159)=cn(124)thentc$=" the same as ":ta$="[201]t will"
  616. 5935 ifcn(159)=cn(124)thentf$=" the same as   ":td$="[201]t will"
  617. 5940 ifcn(159)=cn(124)thentb$="take time to develop your reading abilities."
  618. 5945 ifcn(159)=cn(124)thente$="take time to develop your       reading abilities."
  619. 5950 ifwt=9thenreturn
  620. 7000 fs$="1.34":fg$="groups of 4   words ":zq$=""
  621. 7001 goto5310
  622. 7002 fs$="1.34":fg$="single words  ":zq$=""
  623. 7003 goto5310
  624. 10000 v5=1024:v6=55296:j=5
  625. 10001 r4=16:p9=40*j+r4:u=1
  626. 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
  627. 10003 ch(1)=160:ch(2)=160:ch(3)=32:ch(4)=32
  628. 10005 forw=4to11
  629. 10010 pokev5+p9,ch(u)or32
  630. 10012 gets$:ifs$=""then10040
  631. 10014 s=asc(s$):ifs=13ors=17thenwq=0:goto10060
  632. 10020 ifs>192ands<219thens=s-128:goto10029
  633. 10022 if(s>64ands<91)or(s>31ands<58)then10029
  634. 10023 ifs=20ors=29then10026
  635. 10024 goto10027
  636. 10026 ifp9>40*j+r4thenp9=p9-1:pokev5+p9+1,46:n$=left$(n$,len(n$)-1):wq=0:goto10040
  637. 10027 ifs=32then10029
  638. 10028 goto10010
  639. 10029 ifwq<>1thenpokev5+p9,s:p9=p9+1:ifp9>j*40+ll(w-3)+r4thenp9=j*40+ll(w-3)+r4
  640. 10030 wq=0:ifp9=j*40+ll(w-3)+r4thenpokev5+p9,32:wq=1
  641. 10031 ifs>31ands<58thenn$=n$+chr$(s):goto10036
  642. 10035 n$=n$+chr$(sor128)
  643. 10036 ifwq=1thenn$=left$(n$,ll(w-3))
  644. 10040 ifu=5thenu=1
  645. 10041 pokev5+p9,ch(u)or32:u=u+1:goto10010
  646. 10060 k=p9:j=j+1:p9=40*j+r4
  647. 10061 forp3=ktop9-17:pokev5+p3,32:next
  648. 10062 ifj=12thenj=13:p9=40*j+r4
  649. 10063 b$(w)=n$:n$=""
  650. 10064 ifwt=9thenwt=0:return
  651. 10065 next:return
  652.