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$(140)THENIFI>1THENI=I-2:NEXTI
390 IFR$=CHR$(136)THEN268
392 GOTO382
458 FORI=1TO40:PRINT"[163]";:NEXT:RETURN
60000 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
60010 IFER<>63THENEND
60020 LOAD"HELLO CONNECT",8
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]"
60110 BO=02:SC=00:CL=11:C1=12:C2=01:C3=12:C4=01:C5=01:C6=02:C7=09
60120 REM BO - BORDER COLOR
60121 REM SC - SCREEN COLOR
60122 REM CL - COLOR ON BORDER
60123 REM C1 - TOP BOX OUTSIDE COLOR
60124 REM C2 - TOP BOX INSIDE COLOR
60125 REM C3 - BOTTOM BOX OUTSIDE COLOR
60126 REM C4 - BOTTOM BOX INSIDE COLOR
60127 REM C5 - 'COPYRIGHT' COLOR
60128 REM C6 - 'PROGRAM NAME' COLOR
60129 REM C7 - 'AUTHORS NAME' COLOR
60130 POKE53280,BO:POKE53281,SC:PRINT"[147]";:GOTO60250
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]"
60150 POKE646,C2:PRINT" [165]        [204][207][193][196][211][212][193][210] [208][210][197][211][197][206][212][211]:        [167]"
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]"
60180 POKE646,C6:PRINT""TAB(20-LEN(PN$)/2);PN$
60190 POKE646,C7:PRINT""TAB(20-LEN(AN$)/2);AN$
60200 POKE646,C5:PRINT""TAB(13)"[195][207][208][217][210][201][199][200][212] 1986"
60210 PRINTTAB(9)"[195][207][205][205][207][196][207][210][197] [208][213][194][204][201][195][193][212][201][207][206][211]"
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]"
60230 POKE646,C4:PRINT" [165]                                  [167]"
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]";
60245 POKE198,.:GOTO60360
60250 POKE646,CL
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]"
60260 FORA=1TO3:GOSUB60470:NEXT
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]"
60280 FORA=1TO16:GOSUB60470:NEXT
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]"
60300 FORA=1TO3:GOSUB60470:NEXT
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]";
60320 POKE53280,BO:POKE53281,SC:GOTO60140
60360 PRINT"";
60370 POKE646,C2:PRINT"[165][208]RESS THE [[211][208][193][195][197] [194][193][210]] TO CONTINUE.[167]"
60380 FORA=1TO100
60390 GETA$:IFA$=" "ORA$="[160]"THENRETURN
60400 NEXT
60410 PRINT"";
60420 PRINT"[165]                                  [167]"
60430 FORA=1TO100
60440 GETA$:IFA$=" "ORA$="[160]"THENRETURN
60450 NEXT
60460 GOTO60360
60470 PRINT" [161][146][161]":RETURN
60500 C$="":POKE198,.:PRINT"[164]";
60510 FORA=1TOLE+1
60520 GETA$:IFA$=""THEN60520
60525 IFA$=","ORA$=":"THEN60520
60530 IFA$=CHR$(13)THENPRINT"[157] ":RETURN
60540 IFA$=CHR$(20)ANDA>1THENPRINT"[157][157]  [157][157][164]";:A=A-1:C$=LEFT$(C$,A-1):GOTO60520
60550 IF(A=LE+1)THEN60520
60560 IF(NU)AND((A$>="0")AND(A$<="9"))THEN60595
60570 IF(AL)AND((A$>=" "ANDA$<="/")OR(A$>=":"ANDA$<="Z"))THEN60595
60580 IF(AL)THENIF(A$>="[193]"ANDA$<="[218]")THEN60595
60590 GOTO60520
60595 PRINT"[157]"A$;:POKE212,.:PRINT"[164]";:C$=C$+A$:NEXT