home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 45
/
045.d81
/
vocab
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
7KB
|
261 lines
0 gosub60100:clr
4 print"[147]"
6 dn$=""
8 open15,8,15
10 dim t$(99):dim d$(99):dimc$(99)
12 printtab(16)"[214][207][195][193][194]":gosub266
14 print"[154][212]his program will tutor you on"
16 print"vocabulary lists of your own making.":gosub266
18 print" [154][196]o you want to recall a special list?"
20 print" [217][146] [154]or [206]":fori=1to25:t$(i)="":d$(i)="":next
22 print" [209]=[209][213][201][212][146]"
24 getrz$:ifrz$=""then24
26 ifrz$="n"then34
28 ifrz$="y"thenco=1:gosub248:goto34
30 ifrz$="q"thenclose15:goto60000
32 goto24
34 print" [200]it any key to begin. [146]"
35 print"[145]"tab(38)"[148] "
36 get r$:ifr$=""then36
38 ifco=1thenco=0:goto48
40 ifr$=chr$(32)then42
42 gosub98
44 print""
46 q=0:g=0
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$"?"
50 printtab(10)" [198]7=[210][197][214][201][197][215] ":gosub266:cl=0
54 print" [158] [211][208][193][195][197][160][194][193][210] = [209][213][201][218] [146]"
56 gosub266:print" [154]or[146]"
58 print" 1[154]) different list?":print" 2[154]) printed copy of list?"
60 print" 3[154]) write new list?"
62 print"[209]=[209][213][201][212][146]"
64 get ch$:ifch$=""then64
66 ifch$=chr$(136)then366
68 ifch$=chr$(32)thengosub162
70 ifch$="1"thenrq=0:gosub248:goto48
72 ifch$="2"then306
74 ifch$="3"then42
76 ifch$="q"thenclose15:goto60000
78 goto44
80 print"[147][217]ou have completed a round of list "ld:print:gosub266
82 print"[196]o you want to do more? (y/w/n)":ch$="":gosub266
84 print"[217] will continue with quiz[146]"
86 print"[215] will allow you to write a list[146]":print"[206] will end[146]"
88 gety$:ify$=""then88
90 ify$="w"then42
92 if y$="y"then 142
94 ify$="n"thenclose15:end
96 goto88
98 ent=1
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
108 print"[197]nter up to 99 entries."
110 print"[208]ressing [210][197][212][213][210][206] alone exits!"
112 print"[154][212]erm #"ent"[157]:";
114 nu=1:al=1:le=35:gosub60500:t$(ent)=c$
116 ift$(ent)=""thenprint"[145]":goto 130
120 print"[154][196]efinition #"ent"[157]:":print"-->";
122 le=70:gosub60500:d$(ent)=c$
124 ifd$(ent)=""thenprint"[145]":goto100
128 ent=ent+1:goto100
130 ent=ent-1:w=ent
132 print"[154][196]o you want this saved?"
134 getrr$:ifrr$=""then134
136 ifrr$<>"n"andrr$<>"y"then134
138 if rr$="y"thengosub 238
140 return
142 print"[154][211]ame or [206]ew list? [211][146] [154]or [206][146]?"
144 gets$:ifs$=""then144
146 ifs$="s"thenq=0:goto48
148 ifs$="n"thenq=0:r=0:ent=0:gosub248:goto48
150 ifs$<>"s"ors$<>"n"then144
152 ford=1to1000:next
154 g=0:q=q+1:c$(q)=d$(r)
156 ifq=wthen160
158 goto144
160 return
162 r=int(rnd(1)*w)+1
164 ifr=0then162
166 forp=1toq
168 ift$(r)=c$(p)then162
170 nextp
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]"
174 print" [154][212][200][201][211][160][201][211][160][193][160][209][213][201][218][146]"
175 printdn$"[175][175][175][175][175][175][175][175][175][175][175]"
176 printdn$" [198]1=[195][200][193][206][199][197] "
178 printdn$" [198]3=[196][197][204][197][212][197] "
180 printdn$" [198]5=[193]nswer ":printdn$"[153] [198]7=[204][201][211][212] ":gosub266
182 printl$" [154][196]efinition: ":print:fori=1tolen(d$(r))
184 printmid$(d$(r),i,1);
186 ifpos(0)>28thenifmid$(d$(r),i,1)=" "thenprint:print
188 next
190 print" ":print"[154][212]erm: ";
192 a$="":t$="":x=0
194 gett$:printt$;:ift$=""then194
196 x=x+1:ift$=chr$(136)then268:rem f7
198 ift$=chr$(133)then48:rem f1
200 ift$=chr$(134)thenfore=1tox-1:printchr$(20);:nexte:x=0:goto192
202 ift$=chr$(135)then218:::rem f5
204 ift$=chr$(13)then x=0:goto210
206 a$=a$+t$
208 goto194
210 ifa$=t$(r)then224
212 g=g+1:ifg>2then218
214 print"[150]wrong!! try again!!":cl=0
216 ford=1to1000:next:goto172
218 print"[154][193][206][211][215][197][210]: "t$(r)
220 ford=1to1000:next
222 cl=0:g=0:goto172
224 cl=0:print"":gosub340
226 ford=1to1000:next
228 g=0:q=q+1:c$(q)=t$(r)
230 ifq=wthen80
232 goto162
234 return
236 end
238 print"[154][206]ame of file:";:al=1:nu=1:le=16:gosub60500:nf$=c$
240 open2,8,2,"0:"+nf$+",s,w":gosub356
242 r=int(rnd(1)*w)+1
244 fori=1to ent:print#2,t$(i):print#2,d$(i):next:close2
246 return
248 print" [154][197]nter the list name:";
249 nu=1:al=1:le=16:gosub60500:ld$=c$:ld=val(c$)
250 ent=0:w=0:open2,8,2,"0:"+ld$+",s,r":gosub356
252 fori=1to25:d$(i)="":t$(i)="":next
254 fori=1to25
256 input#2,t$(i):input#2,d$(i)
258 ent=ent+1:w=w+1
260 ifst=64thenclose2:goto 264
262 next
264 return
266 print:fori=1to40:print"[164]";:next:print:fori=1to40:print"[163]";:next:return
268 print"[147]#"ld" [160][201][206][160][212][200][201][211][160][204][201][211][212][160][193][210][197] [146]"
270 fori=1toent:printi"[157]) "t$(i):next
272 print" f1 = help [146]"
274 print" f7 [209][213][201][218] [146]"
276 print" f8[160][210][197][214][201][197][215] [146]"
278 getre$:ifre$=""then278
280 ifre$=chr$(133)then288
282 ifre$=chr$(140)then366
284 ifre$=chr$(136)thenre$="":cl=0:goto164
286 goto278
288 input"[197]nter requested # and [210][197][212][213][210][206] [146]";rq:print:print
290 ifrq>entthen288
291 print"[147][212]erm:[146] "t$(rq)
292 print"[196]efinition[146]:":print
293 fori=1tolen(d$(rq)):printmid$(d$(rq),i,1);
294 ll=ll+1
296 ifll>32andmid$(d$(rq),i,1)=" "thenprint:print:ll=0
298 next
299 print:print" [208]ress [211][208][193][195][197][160][194][193][210] to continue[146]"
300 getre$:ifre$=""then300
302 ifre$<>chr$(32)then300
304 ll=0:goto268
306 print"[147][217]ou desire a printed list of:":gosub266
308 print"a) terms only"
310 print"b) definitions only"
312 print"c) both"
314 print"\) return to menu"
316 print"answer: ";
318 getan$:ifan$=""then318
320 printan$:fori=1to200:next
322 ifan$="a"then332
324 ifan$="b"then 334
326 ifan$="c"then336
328 ifan$="\"then48
330 goto318
332 open4,4,7:fori=1toen:print#4,i" " t$(i):next:close4:goto338
334 open4,4,7:fori=1toen:print#4,i" "d$(i):next:close4:goto338
336 open4,4,7:fori=1toen:print#4,i" "t$(i);" - ";d$(i):next
337 close4:goto338
338 open4,4,4:print#4:print#4:close4:goto48
340 print" [164][164] [164][164][160][160][164][164] [164][164][160][160][164][164][160][160][164][164][160][160][164][164]"
342 print" [165] [180][160][180][160][165] [165] [165][160][180][160][165][160][160][160][165] [170] "
344 print" [165] [165][160][180][160][165] [165][160][160][160][180]- [180] [170] "
346 print" [165][160][160][160][165][160][180][160][165] [165][160][160][160][165][160][160][160][165][160][160][160][167] "
348 print" [163][163][160][160][163][163][160][160][160][160] [160][160][163][163][160][160][163][163] "
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]"
352 return
354 rem error channel
356 input#15,ch,b$,c,d
358 ifch=0thenreturn
360 print"[147]":print""b$"[146]":print#15,"i":close2
362 ifch=62thenfori=1to900:next:goto12
363 end
364 rem review
366 fori=1toent:print"[147] "
367 print" [215][207][210][196][160][194][217][160][215][207][210][196][160][210][197][214][201][197][215] [146]"
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] "
370 print" [198]8 =[160][210][197][214][197][210][211][197] ":print" "
372 printi"[157]) "t$(i)": ";
374 forj=1tolen(d$(i))
376 printmid$(d$(i),j,1);
378 ifpos(0)>28thenifmid$(d$(i),j,1)=" "thenprint:print
380 nextj
382 getr$:ifr$=""then382
384 ifi=entthenprint"[147]":goto366
386 ifr$=chr$(32)thennexti
388 ifr$=chr$(