** WORDSEARCH **4 ** BY PAUL HANCOCK **O: A(X)((1)X1)h(X828839:Y:X,Y:232,235,183,164,20,24,32,240,255,76,157,170F 808,237:R(TI)PJY56320:DF54272:LS1065:HS1765:LOLSZLIMIT20:TI$"000000":X0+ dA$(21,18),C$(21,18),W$(LIMIT),M(16),O$(LIMIT)V fM(0)0:M(1)40:M(2)40:M(4)1:M(8)1u i ** PRINT TITLE SCREEN ** n 5000 x ** FILL SQUARE ** R121:C118 ""27)"" ;TI$ Z(0):A(26Z)65% Z.75 A74 A75 A86 A89 150M Z.95 A81 A88 A90 150k 53280,X:XX1:X14X0 AA128:A$(R,C)(A):C:R 53280,11: 53281,11:646,12 808,225 ** READ WORDS ** (14) N1LIMIT:TV$"" "":(828)12,6;"ORD O. ";NI 3)"AX. 12 ETTERS *";:3250:W$(N)TV$:_ , ** PICK WORD ** 6M1LIMIT:""8)"NSTALLING ORD O. ";M @AA(8):B$W$(M):L11 T A 1000,1200,1300,1400,1500,1600,1700,1800 ^M  3500  4000:40082 (828)5,22;"1=IND ORDS 3=RINT UT"I K(197):K64500V K4520d K5500s 4500:420 3700:3600:4008 (828)5,22;"1=RY AGAIN 3=RINT UT" K(197):K64540 &K5580 0K4540 : D4700:530  ** WORD UP ** 30002 RA(21):RB1020Q CA(18): NR (RB)11n  L18N(RB)1:MM1: (A$(N,C))91A$(N,C)(B$,(R1N),1)N(RB)1:L1L11:1020 $N:X1:NR (RB)11 .A$(N,C)(B$,X,1):XX1 : 8  ** WORD N/E ** 3000,RA(21):RB1220OCA(18):C1C:(19C)B 1220b L18MM1:y NR (RB)1 1(A$(N,C))91A$(N,C)(B$,(R1N),1)N(RB)1:L1L11:1220CC1:N:NR(RB)11A$(N,C1)(B$,(R1N),1):C1C11:N: ** WORD N/W **$ 3000=(RA(21): RB1320Z2CA(18):C1C:CB1320o< L18 MM1:FNR (RB)11P(A$(N,C))91A$(N,C)(B$,(R1N),1)N(RB)1:L1L11:1320ZCC1:N:NR (RB)11dA$(N,C1)(B$,(R1N),1):C1C11:N:'x ** WORD RIGHT **2 3000?RA(21)^CA(18): (19C)B 1430s L18 MM1:NC CB1:X(NC)1(A$(R,N))91A$(R,N)(B$,X,1)NCB1:L1L11:1420N:NC CB1:X(NC)1A$(R,N)(B$,X,1):N: ** WORD S/E **# 3000ARA(21):(22R)B 1520dCA(18):C1C:(19C)B 1520y L18 MM1:NR RB1:X(NR)1(A$(N,C))91A$(N,C)(B$,X,1)NRB1:L1L11:1520"CC1:N:NR RB1:X(NR)1,A$(N,C1)(B$,X,1):C1C11:N:.@ ** WORD DOWN **9J 3000WTRA(21):(22R)B 1620{^CA(18):NR RB1:X(NR)1h L18 MM1:NRB1:r(A$(N,C))91A$(N,C)(B$,X,1)NRB1:L1L11:1620|N:NR RB1:X(NR)1A$(N,C)(B$,X,1)N:& ** WORD S/W **1 3000ORA(21):(22R)B 1720pCA(18):C1C: CB 1720 L18 MM1:NR RB1:X(NR)1(A$(N,C))91A$(N,C)(B$,X,1)NRB1:L1L11:1720CC1:N:NR RB1:X(NR)1%A$(N,C1)(B$,X,1):C1C11:N:; ** WORD LEFT **F 3000SRA(21)r&CA(18): C(B1) 18300 L18 MM1::NC (CB)11:X(CN)1D(A$(R,N))91A$(R,N)(B$,X,1)N(CB)1:L1L11:1820NN:NC(CB)11:X(CN)1 XA$(R,N)(B$,X,1):N:8 ** FIND SPACES **D B(B$)J a ** WORD INPUT **u K$:K$""3260 K$" "3260 K$(13)(TV$)2" ": K$(20)(TV$)0" *";:TV$(TV$,(TV$)1) K(K$):K65K913260  (TV$)12K$"*";:TV$TV$K$1 (TV$)12; 3260V ** PRINT W/SEARCH ** R121:C118:C$(R,C)A$(R,C):C,R "":R121:C118 A(A$(R,C)) A91AA128:A$(R,C)(A) C:R C118:R121:(828)R,C;A$(R,C):R:C ! *** PRINT SOLUTION ****""VC118:R121:3800:(828)R,C;C$(R,C)h$646,14:R:Cn.t ** TRY TO FIND WORDS **v(828)1,22;" "w(828)12,22;"7 TO UIT"yJS((JY)127):JS163705zQ(197):Q38~PK(LO):PK32LOLSLOLS:3705bLO,94:T150::PQ(LODF):LODF,1LO,PK:T150::LO,PK:LODF,PQLOLOM(JS)LOLSLOLSLOHSLOHSJS163705JS1637803705 ** PRINT WHITE **%(LODF)1LO,PK:LODF,12:37959LO,PK:LODF,1?` ** PRINT WORDS IN BLACK **qA(C$(R,C))A91 646,0 ** CHANGE WORDS **N1LIMIT:B(W$(N)):X1B:TV$W$(N)A$((TV$,X,1)):A(A$) AA128:O$(N)O$(N)(A):X:N* ** PRINT WORDS **:"":646,5IN1LIMIT^22)N 26)O$(N)l:646,14r ** PRINTER ROUTINE ** 1,4,7: 1C118:R121 A$(R,C);:R::C:N1LIMIT O$(N): N1: 1\ ** PRINT ANSWER ROUTINE **5f 1,4,7: 1: (145)IpC118:R121`z C$(R,C);:R::Cq:N1LIMIT O$(N): N1: 1 ** TITLE SCREEN ** 53281,15:53280,12:(142)"++++++++++++++++++++++++++++++++++++++++"11)" "=11)"   "\11)" "{11)" "11)" "9)"++++++++++++++++++++++""":7)" "7) "   "67) " ó ó "]7) "   "7) " "5)"++++++++++++++++++++++++++++++"""10)"LOADING...."