home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 29 / 029.d81 / preview (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  7KB  |  249 lines
  1. 1 rem copyright (c) lsr learning associates inc., 1984. all rights reserved.(NULL)
  2. 2 poke53281,1:poke53280,1:print"[144]":print"":poke53272,19
  3. 3 sp$="                                        "
  4. 4 zq$=""
  5. 5 ss$=""
  6. 6 st$=""
  7. 7 bt$=""
  8. 8 print"[147]"
  9. 9 dima$(340),l(24),l$(24):y=0:forx=1to24:l(x)=x:next
  10. 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. 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. 12 b$(3)=""
  13. 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. 14 open2,8,2,"precopy/asc,s,r"
  15. 15 forx=0to326:input#2,a$(x):next:close2
  16. 16 goto247
  17. 17 c=20:t1=0:t2=0
  18. 18 print"[147]":goto34
  19. 19 t1=0:t2=0:forx=1to24:l$(x)="":next
  20. 20 forx=atob:ready:l=40-len(a$(x)):l1=int(l/2):l$(y)=left$(sp$,l1)+a$(x)
  21. 21 next
  22. 22 return
  23. 23 sc=8:gosub212:l$(4)=b$(2):l$(3)=a$(54):x$=left$(sp$,5)
  24. 24 l$(6)=x$+a$(55):l$(8)=x$+a$(56):l$(10)=x$+a$(57):l$(12)=x$+a$(58)
  25. 25 l$(16)=left$(sp$,8)+a$(59):l$(15)=b$(2):return
  26. 26 sc=9:gosub212:l$(3)=a$(75):l$(4)=b$(2)
  27. 27 l$(6)=left$(sp$,5)+a$(76):l$(8)=left$(sp$,5)+a$(77):x$=left$(sp$,5)
  28. 28 l$(10)=x$+a$(78):l$(12)=x$+a$(79):l$(14)=x$+a$(80):l$(16)=x$+a$(81)
  29. 29 l$(20)=left$(sp$,8)+a$(59):l$(19)=b$(2):return
  30. 30 sc=15:gosub212:l$(3)=left$(sp$,5)+a$(110):x$=left$(sp$,10)
  31. 31 l$(6)=x$+a$(111):l$(7)=x$+a$(112):l$(8)=x$+a$(113):l$(9)=x$+a$(114):return
  32. 32 sc=19:gosub212:l$(3)=left$(sp$,5)+a$(110):x$=left$(sp$,10)
  33. 33 l$(6)=x$+a$(132):l$(7)=x$+a$(133):l$(8)=x$+a$(134):l$(9)=x$+a$(135):return
  34. 34 sc=55:a=0:b=7:gosub19:gosub155
  35. 35 a=8:b=14:gosub19:gosub155
  36. 36 a=15:b=20:gosub19:gosub155
  37. 37 a=21:b=28:gosub19:gosub155
  38. 38 a=29:b=36:gosub19:gosub155
  39. 39 a=37:b=46:gosub19:gosub155
  40. 40 a=47:b=53:gosub19:gosub155
  41. 41 gosub23:gosub155
  42. 42 iff=2orf=0then44
  43. 43 forx=1to4:ready:next:goto45
  44. 44 sc=0:a=60:b=63:gosub19:forx=1to6:ready:next:gosub155:goto46
  45. 45 sc=0:a=64:b=69:gosub19:gosub155
  46. 46 sc=0:a=70:b=74:gosub19:gosub155
  47. 47 gosub26:gosub155
  48. 48 iff=3orf=0then50
  49. 49 forx=1to5:ready:next:goto51
  50. 50 sc=0:a=82:b=86:gosub19:forx=1to9:ready:next:gosub155:goto52
  51. 51 a=87:b=95:gosub19:gosub155
  52. 52 sc=0:a=96:b=99:gosub19:gosub155
  53. 53 sc=0:a=100:b=106:gosub19:gosub155
  54. 54 sc=100:gosub181:gosub206
  55. 55 print"[147]":forx=1to20:next:print""tab(16)a$(109):forx=1to200:next:print"[147]"
  56. 56 gosub30:gosub155
  57. 57 iff=2orf=0then60
  58. 58 l$(3)=x$(2)
  59. 59 forx=1to7:ready:next:goto61
  60. 60 sc=0:a=115:b=121:gosub19:forx=1to7:ready:next:gosub155:goto62
  61. 61 a=122:b=128:gosub19:gosub155
  62. 62 sc=100:gosub181:gosub206
  63. 63 print"[147]":forx=1to30:next:print""tab(17)a$(130):forx=1to200:next:print"[147]"
  64. 64 gosub32:gosub155
  65. 65 iff=4orf=0then67
  66. 66 forx=1to8:ready:next:goto68
  67. 67 sc=0:a=136:b=143:gosub19:forx=1to10:ready:next:gosub155:goto69
  68. 68 sc=0:a=144:b=153:gosub19:gosub155
  69. 69 sc=100:gosub181:gosub206
  70. 70 print"[147]":forx=1to30:next:print""tab(4)a$(156):forx=1to600:next:print"[147]"
  71. 71 sc=0:a=157:b=160:gosub19:gosub155
  72. 72 sc=0:a=161:b=170:gosub19:gosub155
  73. 73 print"[147]"
  74. 74 pa=15:pb=1:l=1:pd=1:pc=60:pe=2:pk=5
  75. 75 rem moving window
  76. 76 forx=171to177
  77. 77 fory=1tolen(a$(x))-pa+1steppb
  78. 78 print""left$(zq$,l(l))tab(y-1)left$(sp$,1)mid$(a$(x),y,pa)
  79. 79 ify=1thenforz=1to250:next
  80. 80 ify=len(a$(x))-pa+1thenforw=1to250:next
  81. 81 forz=1topc:next
  82. 82 next
  83. 83 print"[147]":l=l+1:ifl=23thenl=1
  84. 84 next
  85. 85 l=8:lm=1:y=178:pc=400:pd=300
  86. 86 forx=0to20:ifa$(y+x)="xxxxx"then89
  87. 87 ifleft$(a$(y+x),7)="[198]inally"then108
  88. 88 next
  89. 89 yy=y+x+1:rem next starting point in array
  90. 90 rem single line equals y to y+x-1
  91. 91 forle=0tox-1:le(le+1)=len(a$(y+le))+1:next
  92. 92 rem le array holds length of each plus one for space
  93. 93 p1=l(l):print""left$(zq$,p1)a$(y):p2=p1:lp=lm+le(1)-1
  94. 94 fordw=1topd:next
  95. 95 remifk=1thenk=0:print""left$(zq$,p3)left$(bt$,lo)e$
  96. 96 fordw=1topc:next
  97. 97 forrd=1tox-1
  98. 98 j=lp
  99. 99 print""left$(zq$,p1)left$(bt$,lp)a$(y+rd):fordw=1topd:next
  100. 102 fordw=1topc:next
  101. 103 lp=lp+le(rd+1)
  102. 104 next:fort=1to500:next
  103. 105 k=1:l=l+1:y=yy:lm=1:lp=1
  104. 106 goto86
  105. 107 fordw=1topc:next
  106. 108 print"[147]":l=4:y=210:pc=1400:pd=500:lm=1
  107. 109 forx=ytoy+13
  108. 111 ifa$(x)="xxxxx"then122
  109. 115 p1=l(l)
  110. 117 print""left$(zq$,p1)a$(x)
  111. 118 fort=1topc:next:l=l+1
  112. 122 next:fort=1topd:next
  113. 123 l$(10)=left$(sp$,7)+"[197]ven in that short reading"
  114. 124 l$(11)=left$(sp$,6)+"selection your reading speed"
  115. 125 l$(12)=left$(sp$,4)+"was increased by more than 10%."
  116. 126 forx=1to2500:next:print"[147]"
  117. 127 forx=10to12:print""left$(zq$,l(x))l$(x):next
  118. 128 forx=1to200:next:sc=0:gosub159
  119. 129 a=224:b=231:gosub19:gosub155
  120. 130 a=232:b=237:gosub19:gosub155
  121. 131 a=238:b=242:gosub19:gosub155
  122. 132 a=243:b=247:gosub19:gosub155
  123. 133 gosub212:x1$=left$(bt$,13)
  124. 134 l$(1)=x1$+a$(248)
  125. 135 print"[147]":gosub239:print""left$(zq$,l(1))""+l$(1)+"[146]";
  126. 136 print""left$(bt$,2)a$(249)
  127. 137 print""left$(bt$,9)a$(250)
  128. 138 print""left$(bt$,20)a$(251)
  129. 139 print""left$(bt$,29)a$(252)
  130. 140 l=6
  131. 141 forx=253to281step4
  132. 142 fory=1to4
  133. 143 print""left$(zq$,l(l))left$(bt$,2)a$(x)
  134. 144 print""left$(zq$,l(l))left$(bt$,12)a$(x+1)
  135. 145 print""left$(zq$,l(l))left$(bt$,22)a$(x+2)
  136. 146 print""left$(zq$,l(l))left$(bt$,33)a$(x+3)
  137. 147 next
  138. 148 l=l+2
  139. 149 next
  140. 150 gosub159
  141. 151 a=285:b=291:gosub19:gosub155
  142. 152 sc=51:a=292:b=298:gosub19:gosub155
  143. 153 restore:print"[147]":goto34
  144. 154 getf$:iff$=""then154
  145. 155 print"[147]":forq=1to22:print""left$(zq$,l(q))l$(q):next
  146. 156 ifsc=55thensc=0:goto162
  147. 157 ifsc=9orsc=8orsc=15orsc=19then165
  148. 158 ifsc=51thensc=0:goto161
  149. 159 print""left$(zq$,l(22))b$(2);:print""left$(zq$,l(23))b$(1)
  150. 160 printb$(3);:goto165
  151. 161 print""left$(zq$,l(22))b$(2);:print""left$(zq$,l(23))tab(3)a$(299);:goto165
  152. 162 print""left$(zq$,l(17))b$(2):print""left$(zq$,l(18))tab(7)a$(7)
  153. 163 printtab(19)"or"
  154. 164 printtab(7)"<*> for [197]ntry [204]evel [211]urvey";
  155. 165 rem
  156. 166 poke198,1
  157. 167 getf$:iff$=""orf$=chr$(13)then168
  158. 168 getf$:iff$=""then178
  159. 169 ifsc=15then202
  160. 170 ifsc=9then202
  161. 171 ifsc=8then202
  162. 172 ifsc=19then202
  163. 173 ifasc(f$)=42then185
  164. 174 ifasc(f$)=27thenrestore:goto247
  165. 176 iff$=chr$(13)thenreturn
  166. 177 goto168
  167. 178 rem
  168. 179 goto168
  169. 181 x$=left$(b$(2),8):print"[147]":print""left$(zq$,l(7))x$;a$(107);x$
  170. 182 print""left$(zq$,l(5))tab(13)"[208]ress <[210][197][212][213][210][206]>";:print""left$(zq$,l(6))tab(18)"and"
  171. 183 ifsc=100thensc=0:return
  172. 184 getf$:iff$=""then184
  173. 185 print"[147]":gosub212
  174. 186 x=7:gosub201
  175. 187 l$(1)=s$+"[217]ou have chosen to do the":x=10:gosub201
  176. 188 l$(3)=s$+"[197][206][212][210][217] [204][197][214][197][204] [211][213][210][214][197][217]."
  177. 189 x=11:gosub201:l$(5)=s$+"[201]t is loading now.":x=1:gosub201
  178. 190 l$(7)=s$+"[212]he [197]ntry [204]evel [211]urvey will take about":x=4:gosub201
  179. 191 l$(8)=s$+"ten minutes to complete. [212]hen it":x=6:gosub201
  180. 192 l$(9)=s$+"will print a report for you."
  181. 193 x=3:gosub201:l$(11)=s$+"[212]he report will show some of your":x=0
  182. 194 gosub201:l$(12)=s$+"present reading skills and will indicate"
  183. 195 x=6:gosub201:l$(13)=s$+"your [208][207][212][197][206][212][201][193][204] reading speed"
  184. 196 x=12:gosub201:l$(14)=s$+"after training."
  185. 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]"
  186. 198 forx=1to16:print""left$(zq$,l(x))l$(x):next
  187. 199 print"load"chr$(34)"placemnt"chr$(34)",8":poke631,19:poke632,13
  188. 200 poke633,147:poke634,13:poke635,82:poke636,213:poke637,13:poke198,7:end
  189. 201 s$=left$(sp$,x):return
  190. 202 f=val(f$):iff<1orf>4then167
  191. 203 iff$=chr$(13)then168
  192. 204 sc=0
  193. 205 return
  194. 206 rem
  195. 207 getf$:iff$=""then207
  196. 208 iff$=chr$(13)thenreturn
  197. 212 forx=1to16:l$(x)="":next:return
  198. 213 data2,4,6,8,10,12,14,18
  199. 214 data2,4,6,8,10,12,14
  200. 215 data2,4,6,8,10,12
  201. 216 data2,4,6,8,10,12,14,16
  202. 217 data2,4,6,8,10,12,14,16
  203. 218 data2,4,5,8,9,12,13,16,17,20
  204. 219 data2,4,6,8,10,12,14
  205. 220 data2,4,6,8
  206. 221 data2,4,6,8,10,12
  207. 222 data2,4,6,8,10
  208. 223 data2,4,6,8,10
  209. 224 data2,4,6,8,10,12,14,16,18
  210. 225 data6,8,10,12
  211. 226 dat