10 REM COPYRIGHT 1989 COMPUTE! PUBLICATIONS - ALL RIGHTS RESERVED
20 DIMWO$(400):X=RND(-TI)
30 LX(3)=1:I=1:J=3
40 IFJ=7THEN70
50 READB$:IFB$="-1"THENMX(J)=I-1:J=J+1:LX(J)=I:GOTO40
60 WO$(I)=B$:I=I+1:GOTO50
70 A$="   [157][157][157][157][144]    [157][157][157][157][144]    [157][157][157][157][144]   [145][145][145]"
80 DN(1)=1:DN(2)=6:DN(3)=11:DN(4)=16:DN(5)=21
90 AC(3)=24:SP(3)=4:SP(4)=4:SP(5)=3:SP(6)=3
100 AC(4)=25:AC(5)=28:AC(6)=31:DO(1)=2:DO(2)=7:DO(3)=12:DO(4)=(17):DO(5)=22
110 POKE53280,12:POKE53281,12:PRINTCHR$(14)CHR$(8):TM=16:TU=1
120 PRINT"[147][144]   [195]OPYRIGHT 1989 [195][207][205][208][213][212][197]! [208]UB., [201]NC."
130 PRINTTAB(11)"[193]LL RIGHTS RESERVED":PRINT""
140 PRINT"    ";:FORI=1TO8:PRINTA$"[157]";:NEXT
150 PRINT"[214][197][210][194][193][212][201][205][144]"
160 E$="[175][157][157][170][180][157][157][183][145][157]"
170 N1=1:N2=2:PRINT"     [196]O YOU WANT TO [145]"E$"1[146][197][206][212][197][210] A WORD"
180 PRINT"    OR [145]"E$"2[146]HAVE THE 64 SELECT A WORD  [145]"E$"[191][157]";
190 GOSUB860:NP=NU
200 N1=3:N2=6
210 PRINT"  [197]NTER LENGTH OF WORD (3-6 LETTERS) [145]"E$"[191][157]";:GOSUB860:WL=NU
220 PRINT:PRINT
230 IFNP=2THENXX=INT((MX(WL)-LX(WL)+1)*RND(1))+LX(WL):WD$=WO$(XX):GOTO270
240 PRINT"      [208]LEASE ENTER A"WL"LETTER WORD"
250 INPUT"                       [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";WD$
260 IFLEN(WD$)<>WLTHENPRINT"[145][145][145]":GOTO240
270 LM(3)=9:LM(4)=5:LM(5)=3:LM(6)=1
280 FORI=1TOWL:AS$=MID$(WD$,I,1):AS(I)=ASC(AS$):NEXT
290 POKE53281,12:POKE53280,12
300 PRINT"[147]";:FORI=1TO24:PRINT"[152]                                       "
310 NEXT:PRINT"                                       ";
320 FORI=1063TO2023STEP40:POKEI,160:POKEI+54272,12:NEXT
330 PRINT"                                       ":POKE53281,1
340 PRINT"";:FORZ=1TO4:FORJ=1TOLM(WL):PRINT"";:NEXT
350 FORI=1TOWL:PRINTA$;:NEXT:PRINT"":NEXT
360 FORJ=1TOLM(WL):PRINT"";:NEXT
370 FORI=1TOWL:PRINTA$;:NEXT:PRINT""
380 PRINTSPC(LM(WL)+2)""CHR$(AS(1)+128)
390 PRINT"";:FORI=1TODO(TU):PRINT"";:NEXT:PRINTSPC(AC(WL))"[152]_"
400 POKE198,0:PRINT""SPC(32)"[152][217]OUR[157][157][157][157][163][163][163][163][157][157][157][157][199]UESS[157][157][157][157][157][163][163][163][163][163]"
410 PRINTSPC(32)"      [157][157][157][157][157][157][175]"
420 PRINT""SPC(32)"[212][201][205][197][210][157][157][157][157][157][163][163][163][163][163][157][157][157][157][152]"INT(TM)
430 PRINT""SPC(32);:FORI=1TOWL:GOSUB720:NEXT:PRINT"[152] ":TM=16
440 FORI=1TOWL:AR(I)=ASC(AR$(I)):NEXT
450 LW=WL:FORI=1TOLW:C(I)=0:NEXT
460 FORI=1TOLW:FL(I)=0:NEXT
470 FORZ=1TOLW
480 FORI=1TOLW:IFAS(I)=AR(I)THENC(I)=128+AR(I):FLAG(I)=1
490 NEXTI
500 FORI=1TOLW:IFAS(I)=AR(Z)ANDFLAG(I)=0THENC(Z)=AR(Z):FLAG(I)=2:GOTO520
510 C(X)=32
520 NEXTI,Z
530 PRINT"";:FORI=1TODN(TU):PRINT"";:NEXT
540 PRINTSPC(LM(WL)+2)"";
550 FORI=1TOWL
560 IFC(I)>0THENPRINT""CHR$(C(I))"[146]";:GOTO580
570 PRINT"[146]"CHR$(AR(I));
580 PRINT"";:NEXT
590 CK=0:FORI=1TOWL:IFAR(I)=AS(I)THENCK=CK+1
600 NEXT:IFCK=WLTHEN640
610 PRINT"";:FORI=1TODO(TU):PRINT"";:NEXT:PRINTSPC(AC(WL))"[152] "
620 TU=TU+1:IFTU=6THEN670
630 GOTO390
640 FORZ=1TO15:FORI=1TO14:POKE53280,I:NEXT:NEXT:POKE53280,12
650 GOSUB830
660 PRINT""SPC(32)"[195]ORRECT":GOTO700
670 GOSUB830
680 PRINT""SPC(32)"[207]UT OF":PRINT""SPC(31)"GUESSES!"
690 PRINT""SPC(32)"[193]NSWER:":PRINTSPC(29)"";:GOSUB840:PRINT""
700 PRINTSPC(32)"[208]RESS A":PRINT SPC(34)"KEY"
710 POKE198,0:WAIT198,1:GETC$:GOTO110
720 GETIJ$:IFIJ$<"A"ORIJ$>"Z"THEN740
730 PRINT"[152]"SPC(31+I)CHR$(ASC(IJ$)+128)"[175][157]";:AR$(I)=IJ$:RETURN
740 TM=TM-.055
750 PRINT""
760 IFINT(TM)<10THENPRINTSPC(33)""INT(TM)"[157]  ":GOTO780
770 PRINTSPC(33)""INT(TM)
780 IFINT(TM)<>0THEN720
790 GOSUB830
800 PRINT""SPC(32)"[207]UT OF":PRINT""SPC(33)"TIME"
810 FORI=1TO2300:NEXT:TM=16
820 PRINT""SPC(28)"           ":PRINT""SPC(30)"       ":GOTO610
830 PRINT"":FORI=1TO10:PRINTSPC(30)"[152]         ":NEXT:PRINT"":RETURN
840 PRINTSPC(SP(WL));
850 FORI=1TOWL:WW(I)=ASC(MID$(WD$,I,1))+128:PRINTCHR$(WW(I));:NEXT:RETURN
860 POKE204,0:GETNU$:NU=VAL(NU$):IFNU<N1ORNU>N2THEN860
870 POKE204,1:POKE207,0:PRINTNU$:FORI=1TO300:NEXT:RETURN
1000 REM WORD LIST
1010 REM ** 3 LETTER WORDS **
1020 DATA MAN,FAN,FOR,ARM,PEN,WON,TOO,BOY,HOG,APE,YOU,YEN,PAY,JOY,LEG
1030 DATA YES,ROD,RAN,WIN,WAS,SUN,GAP,EAT,FAN,TAN,TOP,TIP,COW,DOG,EAR
1040 DATA -1
1050 REM ** 4 LETTER WORDS **
1060 DATA FAST,SLOW,GAME,WARM,COLD,OPEN,ONLY,PAST,READ,COST,JUMP,JUNK
1070 DATA CAVE,VAST,VASE,WOMB,POST,NOTE,MAKE,BEND,ZEST,DESK,HOST,GATE
1080 DATA MOST,OPAL,TRIM,ACHE,BARK,LIMB
1090 DATA -1
1100 REM ** 5 LETTER WORDS **
1110 DATA ACORN,ACTOR,BRING,BROKE,BRIBE,CRIMP,COUGH,COUNT,DRESS,DEALT
1120 DATA EIGHT,EARTH,FAITH,GRAZE,GRAPE,GRAIN,GHOST,GOING,HELLO,HAPPY
1130 DATA IGLOO,MONEY,PARTY,STAND,TENTH,WASTE,YODEL,ZEBRA,MOUSE,TRAIT
1140 DATA -1
1150 REM ** 6 LETTER WORDS **
1160 DATA MYSTIC,DIAPER,BASKET,WASHER,RUBBER,ORANGE,YELLOW,PURPLE
1170 DATA QUAINT,EXCEED,JACKET,ROBUST,GOLFER,ANTLER,ENGAGE,MONKEY
1180 DATA COWBOY,NOTION,SODIUM,DOODLE,SALARY,WINDOW,BORROW,DESERT
1190 DATA TROPHY,CARPET,PODIUM,MOTION,SICKLY,COMEDY
1200 DATA -1