0 POKE53280,.:POKE53281,.:POKE646,13::PRINTCHR$(14)"[147][208]ROGRAM BY [203]ENNETH [194]ARSKY":GOTO100
1 DATA "[212]O CLEAR FROM CHARGE OF FAULT OR GUILT", A. EXCULPATE
2 DATA "[193] TREASURY AS OF A STATE OR COUNTRY",B. EXCHEQUER
3 DATA "[199]ROWING ABNORMALLY FROM SOMETHING ELSE",C. EXCRESENT
4 DATA "[212]O THINK OUT -DEVISE - INVENT",D. EXCOGIATE
5 DATA "[212]O STRIP OFF OR REMOVE THE SKIN FROM",E. EXCORIATE
6 DATA "[212]O INFLICT SEVERE PAIN",F. EXCRUCIATE
7 DATA "[212]O THINK OUT - DEVISE - ",G. EXCOGITATE
8 DATA "[213]TTERLY DETESTABLE",H. EXECRABLE
9 DATA "[201]NTERPRETAION OF [211]CRIPTURE",I. EXEGESIS
10 DATA "[193]PPARENTLY",J. EXFACIE
11 DATA "[212]O GO OFF STAGE",K. EXEUNT
12 DATA "[213]RGENT",L. EXIGENT
13 DATA "[212]O URGE - ADVISE -CAUTION",M. EXHORT
14 DATA "[211]CANTY - MEAGER - SMALL",N. EXIGUOUS
15 DATA "[198]ROM THE LIBRARY OF",O. EX LIBRIS
16 DATA "[211]UITABLE FOR PUBLIC COMMUNICATION",P. EXOTERIC
17 DATA "[193] PROFANE WORD OR EXPRESSION",Q. EXPLETIVE
18 DATA "[212]O DEVELOP IN PRINCIPLE",R. EXPLICATE
19 DATA "[205]ADE OR DONE SUBSEQUENTLY",S. EX POST FACTO
20 DATA "[212]O DRY - REMOVE MOISTURE FROM",T. EXSICCATE
21 DATA "[194]LOODLESS",U. EXSANGUINE
22 DATA "[212]O ERASE - STRIKE OUT - BLOT OUT",V. EXPUNGE
23 DATA "[196]ONE WITHOUT PREPARATION",W. EXTEMPORANEOUS
24 DATA "[212]O FORCE MONEY FROM BY VIOLENCE",X. EXTORT
25 DATA "[212]O SURRENDER A PRISONER", Y. EXTRADITE
26 DATA "[212]O GO BEYOND BOUNTS OF PROPRIETY",Z. EXTRAVAGATE
99 D=PEEK(186):SAVE"@0:EXTEMPORANEOUS",D:END
100 S$="        [163][163][163]":T=26:GOSUB20100
102 DIMQ$(T),A$(T),WA$(T)
105 FORX=1TOT:READQ$(X),A$(X):NEXT
199 IF T=0 THEN PRINT"[147][217]OU GOT THEM ALL!":GOSUB500:GOTO20150
200 GOSUB20120
201 IF Q$(Z)=""THEN200
202 GOSUB2200:PRINT"           [197][216][212][197][205][208][207][210][193][206][197][207][213][211][160][160][160]           "
203 PRINT"[154][205]ATCH THE WORDS THAT BEGIN WITH THE"
204 PRINT"PREFIX [197][216] (AND THERE ARE PLENTY OF"
205 PRINT"THEM!) WITH DICTIONARY DEFINITIONS."
206 FORL=1TO40:PRINT"[164]";:NEXT:PRINT"[153]"
207 FORV=1TO13:PRINTA$(V)TAB(20)A$(V+13):NEXT
208 PRINT:PRINT">[158]"Q$(Z):
209 GOSUB20000   :IFG$=""THEN209
210 IF G$=LEFT$(A$(Z),1)THENGOSUB400:GOTO 212
211 PRINT"[206][207]! [212]HATS WRONG!":GOSUB300:PRINT"[212]HE ANSWER IS [153]"A$(Z)
212 PRINT"[158][208]RESS ANY KEY FOR NEXT WORD."
213 GET ANY$:IFANY$=""THEN 213
214 GOTO199
300 FORX=54272TO54295:POKEX,0:NEXT:POKE54296,15
305 POKE54277,45:POKE54272,20:POKE54273,5:POKE54276,33
310 FORD=1TO150:NEXT:POKE54276,32:FORD=1TO30:NEXT
315 FORX=54272TO54295:POKEX,0:NEXT:RETURN
400 PRINT"[217][197][211]! [212]HATS RIGHT!!!":Q$(Z)="":A$(Z)="":T=T-1
402 S=54272:FOR L=S TO S+24:POKEL,0:NEXT:POKES+24,15:REM DING
405 S=54272:POKES+1,50:POKES+5,9:POKES+15,30:POKES+4,17:FORSS=1TO1200
410 NEXT:POKES+4,16
415 S=54272:FOR L=S TO S+24:POKEL,0:RETURN
500 S=54272:FOR L=S TO S+24:POKEL,0:NEXT:POKES+24,15:REM DING
505 T=87:N$="251331421502421502"
510 POKES+6,96:POKES+24,15
515 FORI=1TO18STEP3
520 POKES+1,VAL(MID$(N$,I,2)):POKES+4,33
525 FORJ=1TOT*VAL(MID$(N$,I+2,1)):NEXT
530 POKES+4,0:NEXT
535 S=54272:FOR L=S TO S+24:POKEL,0:RETURN
1011 TO12:READQ$(X),WA$(X),A$(X):PRINTA$(X):NEXT:END
2200 PRINT"[147]":POKE214,23:PRINT:PRINTTAB(11)"[150]'_' TO [197]XIT";:RETURN
20000 POKE198,0:WAIT198,1:GETG$:IFG$="_"THEN20200
20001 RETURN
20100 DIMZ(26):FORX=1TO26:Z(X)=X:NEXT
20102 FORX=1TO26:Z=INT(RND(1)*26+1)
20104 ZZ=Z(X):Z(X)=Z(Z):Z(Z)=ZZ:NEXT
20106 ZZ=0:RETURN
20120 ZZ=ZZ+1:IFZZ>26THENZZ=1
20122 Z=Z(ZZ):RETURN
20150 T=TI+240
20155 IFT<TITHEN20155
20160 GOTO40000
20200 POKE214,23:PRINT:PRINTTAB(10)"[197]XIT THIS [209]UIZ? ([217]/[206])[158]";
20202 POKE198,0:WAIT198,1:GETZ$:IFZ$="Y"THEN40000
20204 POKE214,23:PRINT:PRINTTAB(10)"                     ";
20206 POKE214,20:PRINT:G$="":RETURN
40000 FORI=0TO21:POKE828+I,8+I:NEXT
40010 IFDV<8ORDV>29ORDV=8THEN40030
40020 A=PEEK(828):B=PEEK(828+DV-8):POKE828,B:POKE828+DV-8,A
40030 A$="HELLO CONNECT":FORJ=8TO29:I=PEEK(828+J-8):IFI=14THENNEXT
40040 CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40060
40050 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40070
40060 NEXT:PRINT"[147]":POKE53272,23:POKE186,8:END
40070 Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]":POKE53272,23
40080 PRINT"[147]P[207]2048,0:P[207]44,8:P[207]43,1:P[207]56,160:P[207]55,0:CLR:L[207]"Q$A$Q$","I
40090 PRINT"RUN:":POKE631,13:POKE632,13:POKE198,2:END