home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 45 / 045.d81 / vocab (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  7.0 KB  |  261 lines
  1. 0 gosub60100:clr
  2. 4 print"[147]"
  3. 6 dn$=""
  4. 8 open15,8,15
  5. 10 dim t$(99):dim d$(99):dimc$(99)
  6. 12 printtab(16)"[214][207][195][193][194]":gosub266
  7. 14 print"[154][212]his program will tutor you on"
  8. 16 print"vocabulary lists of your own making.":gosub266
  9. 18 print" [154][196]o you want to recall a special list?"
  10. 20 print"                [217][146]  [154]or  [206]":fori=1to25:t$(i)="":d$(i)="":next
  11. 22 print"                 [209]=[209][213][201][212][146]"
  12. 24 getrz$:ifrz$=""then24
  13. 26 ifrz$="n"then34
  14. 28 ifrz$="y"thenco=1:gosub248:goto34
  15. 30 ifrz$="q"thenclose15:goto60000
  16. 32 goto24
  17. 34 print"        [200]it any key to begin.          [146]"
  18. 35 print"[145]"tab(38)"[148] "
  19. 36 get r$:ifr$=""then36
  20. 38 ifco=1thenco=0:goto48
  21. 40 ifr$=chr$(32)then42
  22. 42 gosub98
  23. 44 print""
  24. 46 q=0:g=0
  25. 48 print"     [154][147][215][200][193][212][160][201][211][160][217][207][213][210][160][196][197][211][201][210][197] [198][207][210][160][204][201][211][212] # "ld$"?"
  26. 50 printtab(10)"  [198]7=[210][197][214][201][197][215]  ":gosub266:cl=0
  27. 54 print"        [158] [211][208][193][195][197][160][194][193][210] = [209][213][201][218] [146]"
  28. 56 gosub266:print"         [154]or[146]"
  29. 58 print"     1[154]) different list?":print"     2[154]) printed copy of list?"
  30. 60 print"     3[154]) write new list?"
  31. 62 print"[209]=[209][213][201][212][146]"
  32. 64 get ch$:ifch$=""then64
  33. 66 ifch$=chr$(136)then366
  34. 68 ifch$=chr$(32)thengosub162
  35. 70 ifch$="1"thenrq=0:gosub248:goto48
  36. 72 ifch$="2"then306
  37. 74 ifch$="3"then42
  38. 76 ifch$="q"thenclose15:goto60000
  39. 78 goto44
  40. 80 print"[147][217]ou have completed a round of list "ld:print:gosub266
  41. 82 print"[196]o you want to do more? (y/w/n)":ch$="":gosub266
  42. 84 print"[217] will continue with quiz[146]"
  43. 86 print"[215] will allow you to write a list[146]":print"[206] will end[146]"
  44. 88 gety$:ify$=""then88
  45. 90 ify$="w"then42
  46. 92 if y$="y"then 142
  47. 94 ify$="n"thenclose15:end
  48. 96 goto88
  49. 98 ent=1
  50. 100 print"[147]     [194][213][201][204][196][201][206][199][160][193][160][214][207][195][193][194][213][204][193][210][217][160][204][201][211][212]":gosub266
  51. 108 print"[197]nter up to 99 entries."
  52. 110 print"[208]ressing [210][197][212][213][210][206] alone exits!"
  53. 112 print"[154][212]erm #"ent"[157]:";
  54. 114 nu=1:al=1:le=35:gosub60500:t$(ent)=c$
  55. 116 ift$(ent)=""thenprint"[145]":goto 130
  56. 120 print"[154][196]efinition #"ent"[157]:":print"-->";
  57. 122 le=70:gosub60500:d$(ent)=c$
  58. 124 ifd$(ent)=""thenprint"[145]":goto100
  59. 128 ent=ent+1:goto100
  60. 130 ent=ent-1:w=ent
  61. 132 print"[154][196]o you want this saved?"
  62. 134 getrr$:ifrr$=""then134
  63. 136 ifrr$<>"n"andrr$<>"y"then134
  64. 138 if rr$="y"thengosub 238
  65. 140 return
  66. 142 print"[154][211]ame or [206]ew list?   [211][146] [154]or [206][146]?"
  67. 144 gets$:ifs$=""then144
  68. 146 ifs$="s"thenq=0:goto48
  69. 148 ifs$="n"thenq=0:r=0:ent=0:gosub248:goto48
  70. 150 ifs$<>"s"ors$<>"n"then144
  71. 152 ford=1to1000:next
  72. 154 g=0:q=q+1:c$(q)=d$(r)
  73. 156 ifq=wthen160
  74. 158 goto144
  75. 160 return
  76. 162 r=int(rnd(1)*w)+1
  77. 164 ifr=0then162
  78. 166 forp=1toq
  79. 168 ift$(r)=c$(p)then162
  80. 170 nextp
  81. 172 print"[147][160][160][160][160][160][160][160][160][160][160][160][160][154][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
  82. 174 print"            [154][212][200][201][211][160][201][211][160][193][160][209][213][201][218][146]"
  83. 175 printdn$"[175][175][175][175][175][175][175][175][175][175][175]"
  84. 176 printdn$" [198]1=[195][200][193][206][199][197] "
  85. 178 printdn$" [198]3=[196][197][204][197][212][197] "
  86. 180 printdn$" [198]5=[193]nswer ":printdn$"[153] [198]7=[204][201][211][212]   ":gosub266
  87. 182 printl$" [154][196]efinition: ":print:fori=1tolen(d$(r))
  88. 184 printmid$(d$(r),i,1);
  89. 186 ifpos(0)>28thenifmid$(d$(r),i,1)=" "thenprint:print
  90. 188 next
  91. 190 print" ":print"[154][212]erm: ";
  92. 192 a$="":t$="":x=0
  93. 194 gett$:printt$;:ift$=""then194
  94. 196 x=x+1:ift$=chr$(136)then268:rem f7
  95. 198 ift$=chr$(133)then48:rem f1
  96. 200 ift$=chr$(134)thenfore=1tox-1:printchr$(20);:nexte:x=0:goto192
  97. 202 ift$=chr$(135)then218:::rem f5
  98. 204 ift$=chr$(13)then x=0:goto210
  99. 206 a$=a$+t$
  100. 208 goto194
  101. 210 ifa$=t$(r)then224
  102. 212 g=g+1:ifg>2then218
  103. 214 print"[150]wrong!!  try again!!":cl=0
  104. 216 ford=1to1000:next:goto172
  105. 218 print"[154][193][206][211][215][197][210]:  "t$(r)
  106. 220 ford=1to1000:next
  107. 222 cl=0:g=0:goto172
  108. 224 cl=0:print"":gosub340
  109. 226 ford=1to1000:next
  110. 228 g=0:q=q+1:c$(q)=t$(r)
  111. 230 ifq=wthen80
  112. 232 goto162
  113. 234 return
  114. 236 end
  115. 238 print"[154][206]ame of file:";:al=1:nu=1:le=16:gosub60500:nf$=c$
  116. 240 open2,8,2,"0:"+nf$+",s,w":gosub356
  117. 242 r=int(rnd(1)*w)+1
  118. 244 fori=1to ent:print#2,t$(i):print#2,d$(i):next:close2
  119. 246 return
  120. 248 print"   [154][197]nter the list name:";
  121. 249 nu=1:al=1:le=16:gosub60500:ld$=c$:ld=val(c$)
  122. 250 ent=0:w=0:open2,8,2,"0:"+ld$+",s,r":gosub356
  123. 252 fori=1to25:d$(i)="":t$(i)="":next
  124. 254 fori=1to25
  125. 256 input#2,t$(i):input#2,d$(i)
  126. 258 ent=ent+1:w=w+1
  127. 260 ifst=64thenclose2:goto 264
  128. 262 next
  129. 264 return
  130. 266 print:fori=1to40:print"[164]";:next:print:fori=1to40:print"[163]";:next:return
  131. 268 print"[147]#"ld"        [160][201][206][160][212][200][201][211][160][204][201][211][212][160][193][210][197] [146]"
  132. 270 fori=1toent:printi"[157]) "t$(i):next
  133. 272 print"               f1 = help [146]"
  134. 274 print"               f7 [209][213][201][218]   [146]"
  135. 276 print"               f8[160][210][197][214][201][197][215] [146]"
  136. 278 getre$:ifre$=""then278
  137. 280 ifre$=chr$(133)then288
  138. 282 ifre$=chr$(140)then366
  139. 284 ifre$=chr$(136)thenre$="":cl=0:goto164
  140. 286 goto278
  141. 288 input"[197]nter requested # and  [210][197][212][213][210][206] [146]";rq:print:print
  142. 290 ifrq>entthen288
  143. 291 print"[147][212]erm:[146]  "t$(rq)
  144. 292 print"[196]efinition[146]:":print
  145. 293 fori=1tolen(d$(rq)):printmid$(d$(rq),i,1);
  146. 294 ll=ll+1
  147. 296 ifll>32andmid$(d$(rq),i,1)=" "thenprint:print:ll=0
  148. 298 next
  149. 299 print:print"     [208]ress [211][208][193][195][197][160][194][193][210] to continue[146]"
  150. 300 getre$:ifre$=""then300
  151. 302 ifre$<>chr$(32)then300
  152. 304 ll=0:goto268
  153. 306 print"[147][217]ou desire a printed list of:":gosub266
  154. 308 print"a) terms only"
  155. 310 print"b) definitions only"
  156. 312 print"c) both"
  157. 314 print"\) return to menu"
  158. 316 print"answer: ";
  159. 318 getan$:ifan$=""then318
  160. 320 printan$:fori=1to200:next
  161. 322 ifan$="a"then332
  162. 324 ifan$="b"then 334
  163. 326 ifan$="c"then336
  164. 328 ifan$="\"then48
  165. 330 goto318
  166. 332 open4,4,7:fori=1toen:print#4,i"  " t$(i):next:close4:goto338
  167. 334 open4,4,7:fori=1toen:print#4,i"  "d$(i):next:close4:goto338
  168. 336 open4,4,7:fori=1toen:print#4,i"  "t$(i);" - ";d$(i):next
  169. 337 close4:goto338
  170. 338 open4,4,4:print#4:print#4:close4:goto48
  171. 340 print"    [164][164]  [164][164][160][160][164][164]  [164][164][160][160][164][164][160][160][164][164][160][160][164][164]"
  172. 342 print"    [165]   [180][160][180][160][165] [165] [165][160][180][160][165][160][160][160][165]   [170] "
  173. 344 print"    [165]   [165][160][180][160][165]   [165][160][160][160][180]-  [180]   [170] "
  174. 346 print"    [165][160][160][160][165][160][180][160][165]   [165][160][160][160][165][160][160][160][165][160][160][160][167] "
  175. 348 print"    [163][163][160][160][163][163][160][160][160][160]    [160][160][163][163][160][160][163][163]    "
  176. 350 print"   [166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  177. 352 return
  178. 354 rem error channel
  179. 356 input#15,ch,b$,c,d
  180. 358 ifch=0thenreturn
  181. 360 print"[147]":print""b$"[146]":print#15,"i":close2
  182. 362 ifch=62thenfori=1to900:next:goto12
  183. 363 end
  184. 364 rem review
  185. 366 fori=1toent:print"[147]                     "
  186. 367 print" [215][207][210][196][160][194][217][160][215][207][210][196][160][210][197][214][201][197][215] [146]"
  187. 368 print" [211][208][193][195][197][160][212][207][160][193][196][214][193][206][195][197]    [146]":print" [198]7 = [204][201][211][212] & [209][213][201][218]    "
  188. 370 print" [198]8 =[160][210][197][214][197][210][211][197]        ":print"                     "
  189. 372 printi"[157]) "t$(i)":  ";
  190. 374 forj=1tolen(d$(i))
  191. 376 printmid$(d$(i),j,1);
  192. 378 ifpos(0)>28thenifmid$(d$(i),j,1)=" "thenprint:print
  193. 380 nextj
  194. 382 getr$:ifr$=""then382
  195. 384 ifi=entthenprint"[147]":goto366
  196. 386 ifr$=chr$(32)thennexti
  197. 388 ifr$=chr$(140)thenifi>1theni=i-2:nexti
  198. 390 ifr$=chr$(136)then268
  199. 392 goto382
  200. 458 fori=1to40:print"[163]";:next:return
  201. 60000 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  202. 60010 ifer<>63thenend
  203. 60020 load"hello connect",8
  204. 60100 pn$="[214][207][195][193][194]":an$="[194][217]:  [212][200][207][205][193][211] [206][207][197][204] [202][207][200][206][211][207][206]"
  205. 60110 bo=02:sc=00:cl=11:c1=12:c2=01:c3=12:c4=01:c5=01:c6=02:c7=09
  206. 60120 rem bo - border color
  207. 60121 rem sc - screen color
  208. 60122 rem cl - color on border
  209. 60123 rem c1 - top box outside color
  210. 60124 rem c2 - top box inside color
  211. 60125 rem c3 - bottom box outside color
  212. 60126 rem c4 - bottom box inside color
  213. 60127 rem c5 - 'copyright' color
  214. 60128 rem c6 - 'program name' color
  215. 60129 rem c7 - 'authors name' color
  216. 60130 poke53280,bo:poke53281,sc:print"[147]";:goto60250
  217. 60140 poke646,c1:print" [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  218. 60150 poke646,c2:print" [165]        [204][207][193][196][211][212][193][210] [208][210][197][211][197][206][212][211]:        [167]"
  219. 60170 poke646,c1:print" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  220. 60180 poke646,c6:print""tab(20-len(pn$)/2);pn$
  221. 60190 poke646,c7:print""tab(20-len(an$)/2);an$
  222. 60200 poke646,c5:print""tab(13)"[195][207][208][217][210][201][199][200][212] 1986"
  223. 60210 printtab(9)"[195][207][205][205][207][196][207][210][197] [208][213][194][204][201][195][193][212][201][207][206][211]"
  224. 60220 poke646,c3:print" [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  225. 60230 poke646,c4:print" [165]                                  [167]"
  226. 60240 poke646,c3:print" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][146]";
  227. 60245 poke198,.:goto60360
  228. 60250 poke646,cl
  229. 60255 print" [172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][187]"
  230. 60260 fora=1to3:gosub60470:next
  231. 60270 gosub60470:print"[145][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  232. 60280 fora=1to16:gosub60470:next
  233. 60290 print"[145][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]"
  234. 60300 fora=1to3:gosub60470:next
  235. 60310 print" [188][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]";
  236. 60320 poke53280,bo:poke53281,sc:goto60140
  237. 60360 print"";
  238. 60370 poke646,c2:print"[165][208]ress the [[211][208][193][195][197] [194][193][210]] to continue.[167]"
  239. 60380 fora=1to100
  240. 60390 geta$:ifa$=" "ora$="[160]"thenreturn
  241. 60400 next
  242. 60410 print"";
  243. 60420 print"[165]                                  [167]"
  244. 60430 fora=1to100
  245. 60440 geta$:ifa$=" "ora$="[160]"thenreturn
  246. 60450 next
  247. 60460 goto60360
  248. 60470 print" [161][146][161]":return
  249. 60500 c$="":poke198,.:print"[164]";
  250. 60510 fora=1tole+1
  251. 60520 geta$:ifa$=""then60520
  252. 60525 ifa$=","ora$=":"then60520
  253. 60530 ifa$=chr$(13)thenprint"[157] ":return
  254. 60540 ifa$=chr$(20)anda>1thenprint"[157][157]  [157][157][164]";:a=a-1:c$=left$(c$,a-1):goto60520
  255. 60550 if(a=le+1)then60520
  256. 60560 if(nu)and((a$>="0")and(a$<="9"))then60595
  257. 60570 if(al)and((a$>=" "anda$<="/")or(a$>=":"anda$<="z"))then60595
  258. 60580 if(al)thenif(a$>="[193]"anda$<="[218]")then60595
  259. 60590 goto60520
  260. 60595 print"[157]"a$;:poke212,.:print"[164]";:c$=c$+a$:next
  261.