'===========================================================================
' Subject: CREATE WORD SEARCH PUZZLES         Date: 08-22-95 (17:09)       
'  Author: Justin McCall                      Code: QB, QBasic, PDS        
'  Origin: www.earthlink.net                Packet: MISC.ABC
'===========================================================================
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"WPUZZLE.ZIP",4^6:Z&=6895:?STRING$(50,177);
U"%up()%9%%%#-%^X7;DNo1=DV5R%%H#%%%0%.%%&u1z))q%jSgfaxfBTb=Tko9R'
U"m4=8N9oN.kYsjITYfSTGDX.7kEMnxsl+7uH361Gb-n5[^MzMOL';tP7f\L',;PV
U"qn,B3^+G>HC+y2KPi)baX$[$EEk^6d]hl-V*EL8>RWY^rqEeWXY6R\[$*j#*8hb
U"N)Red.K'aCFsCuq\o=JNTB>wNnR8vHvM2>mW,JZtl#5lls/H_mq'U6MOr^w1\^b
U"n16[tXue?tlZICgy1?m^N>HSS=:YC5kH$Cg)O9TPlN>;UnUW^e\.Tmw+/p/y1i=
U"-c;XF:<'\ta:sBh(_g89%u1v.+JEP3^C%P9:/cf4+l)vS:MUsy7*tKrAs6mIeTa
U"9g/XdnJS9JVG5,8Fb?uYGG3OZC21f_[B((bEEKBI3#I:/>RBjaG(Y>qR,SrgJ?%
U"o5_z/%I[bbmFh*k1c$*Revev[.kpb?7%F<kmI\l:^vRbU^JLHTX+>Mo$rT:hT6,
U"I)EkX,T5]dnVPuPmFsvNy=]b5fNm[IXfU8y.^/LicPl:9z';oI&:2z7t$D4:Ld/
U"M\Tej4vl.kcF/Z2pVz):?)11%Twzck2R;I3:f/hHp_HtDThsI=Sn:^Z<$elORJn
U"hTV'9p[n042o?#cYGxW=gd<l7%M%Ih_vJcaDR54Kp*0A<&&k>aK#?3iCQbc:/^b
U"F+X**HIS<1X:(^<m:bYW_,%FV+r0)634].?pG95g=NEi)wbr]1gQcwGNd+TY=x4
U")vfu<_fi;heRrICpPB/C5G1DgAqxiB1_)5mulj=M4/%#11[i/k9M_'')GudP7]B
U"K=e9c/^zvrfL.x,GG_I&p,2t0yT7,SEl(Fmc>poRM%9+FIkDO9ocT9YDtWY2Lcb
U"ofZHM9hl/97OxAbaxn[,sRK#>]ed(;S5ZEeZ/kAPJVwb2X4Zuoi%?[.>:Ym)Ca2
U"-lY?bO?9#6575o,U8J6Q4E0#u*_Y])LZR7QH+:x1s\1sW/l;mfd-v2F3gX[H+w%
U"Z=/XkPxCdW'%4J9WE6rUe%G<t0'[E38MFPcFX'89?eu%F$S=uAGNBn?DUJ-Hn:/
U"=<<4$2UspYDt4<'EWQPg9WWQ\v69M;*-:O9T(4mRzFeouNe.0>Z]2IWL86C3/Zd
U"7m94XN.3oSS0glK;'Iq'2RGlQl:xHMPRO4KfmyCca2-]XF[W6KZW%BiAcUE-0'q
U"[J+s2D*,(iEQ9H1(m/I^vyqmMQEtJ2ixdEi'<R,6]o*lr=7u5=:G(TYN/5NUV7U
U"%E?rE8eH4tkdXJR\UI/Q&f;5.(9:^S'oRpvmYQO.)g2fC-r&+lTc(A#P6Y8hm/H
U"e::G/tie#[A^jvp<t5ZIv'<Q?2/o2fRH;uJZ+&lnhyFat7FcSAQ$gvakDp-aGEK
U")g=VmmR*6RcWfT/p&YVogdwG_/BfgIuph$aw?3D$X1j9Ive\I>PWR%)ayzO_4/j
U".5[^1Vei3-be:$7CV,5?&'<*'m'Ss(dBqdqe8FpuMMXP9>oF<7R.ErO4BY5yz#y
U"bvP=MXvW\Ur6)?2&?C_96l5h]P(^1tkB/.#1HiQwYpT%N</N_+]7aF7uz8;jc/'
U"hJG[;Q%E<:Y=DeFXIoQ7]MyIE.HhLbE2)w]?_-t(AvPIv8>#5Lt%C9%tSSuftns
U"dh+ae\1F.tLor8Msk+j9\:?u_M*E0M%5=&62>_IBUp3:cs.qN%i&sYw>hl7beKN
U"r&&co8KZx/ifJdOpqDWZH#Bf1Q&P=Q+2?V.0<41^0&B,8siB;#-g->-Lu%cSdI%
U"*YYO+J&oFj)(7gLwC<kT3Ie;*W):9$3DYkQeFTZ)f84rNWXU1oI3wCI0ASF&=nU
U"XYr;B?b,HWa.;Wq%4JkaHpup\lM9?t]r\1C?$ERt/H_I=FEg\C.p1&FC4PU1Um$
U">O'wlg<+bM\Ha(<HBMB]k=\_LGU:J=3YbJ#((8(e#kc)66(:#/qAL2JdH4l6(JV
U"3B#\h8-k\QXg*ig,D?[A:M>s\m+rH(H2SfjwKLs\??NRhRf6:aA0S,d=sHk2Rh^
U",Vh:Gb=swkqD[5bS*fj.)iArSTpP,'EvBw3N%>c?<Cc<blg.qL?gJ_<Y%$ye5<a
U";%p:t04%&NK^(O'lC.W707v6mC[oEfII-UT=B,EFg;)S$WDQtj7'B-zR3;X[uTL
U"G-4bS3;ZmykQL4G5_6-o.-T)4S(R%glkULO)[&p/UWO](:16**<*h,>f\/YUWU,
U"d*h>h#X*h>*iB*h>>j0/YUW]]VQp0HIt>JI,jp:1-6F,/tUW_XIO=IjA.M=I,j8
U"xU9m[xsu:ITuLb\O?WqQvHV'^UHq3M3xYF?r+_NIpWFy%H-[OapDhu0R_G2h,?2
U"R)Db)#VX<oU1#lkviY[>A3SUqZ+vb%=RKyjw[dQjUdKciG5oV_:pY^u<ItYIsWS
U"([p+$.]4*$GKIh>htWJIxcBC'PVTD9W6;SK3Tn-5ymGrpeink'D$hFmEI7;g1RR
U"7[1>5/u.%n,)M6^f*a=cC$N2'gZ5&I7tPlCLAu1#TvJ06C[l'/Eh)CH?hc0)_6C
U"6bs]\gJ$i\arQr9e=kZiCSS?#H))Q/,4\Dc?G4w2^FL_oSoAwkaWkd\'i42\VMJ
U";>7,gby*1n-E+greMW#XY;%6rBnd>3SF%b?-po(NR+UM)l46x*?7B&nEvW-/ZsZ
U"f6[<ts%R\^iMABD^Pwz^E^9eCex4'Fb/?fF08JR2Tu'ouXfV6unp&D7d&U3CqvM
U"].ZMH.CAbFXj'e7^1FZ$Jc&,zKIphp8VAqKGOq<eu)aW%l,7ce?eu256>gu>0S3
U"Gj;%Ivc6P$DGO>E,VpG3/pr/p?>\<FG4.$?jmc7\H?03j1\<hVlob<VG\VE82l\
U"F\J>>O\JGbp,95:.ZWl>523?0?BP1v$B5IT[f=y=2mP361P,L6MuyDg]xDi&=8a
U"&8Ihc1xiYP)cc=8f(S>S&WN&Ea<4J.;Ih(qigPT-e/bbknMR7H6biD1XJ+(/i]M
U"*,%2iePuYiE%$$kjSa,Ad+b(GgAe\)tc[p,4cJQC=r\A+dB[#,5fS4qDQ=vkTFa
U".$q(W&Z4=Ejm-aVfk]]h)-7]a?_Zm[d,4c1QC?v\Ab6A[4,5f14tF;^';rmY_7W
U"t7FE15/eXloWa%SK;bPD95h3Ah2=0=]UE;r2A]\rdy#aU13VN;-Q*\'G3DTO:]#
U"Q68s*&WjtB<'(3'/B0R=K053Cm0>4;E<C0lNDL1NIN,tq8JYH<eyL1n#IwBWKNf
U"sIpI%\Ng#t-[:cY+D+nulV#'m9QCMTeq4E(+5LL^\S;fKNZ2Z?\m;GDo+;6:rA(
U"bLuIjUXo>==k'DJ&ARv$tYwlp^QC/.:J$[1^<*pSJGLuHRNE$61>X4H-=(h%]r,
U"s17X&^Bj8R#BO#=DX?UktT/-riLeMyv3(wlk:hKrSag8SI>nabP_yvXe:E(wbjf
U"pIrd(jMco/,Bkoh0mnfk,YufER_nt&]kb7/Q22KqR(Tbtp'm[m)<CAXLIKJTZ'R
U"Pk._&)4p)7GW)z/Wa\uz6ljVt()^SFVr15OLA%rbFDgrblfX$Xl'hVt5#qmsrO3
U"Gd:ag<gO6Ko_[gx]](iSYN&35,>DW_;T,ssye[l06/3C/2jmBn+Op=;%)7HnS_J
U"b[e=XEJV2Q)*CR4.Val2c^;gHMQ5%cpJWoW>d5Oi6d0>O8[o,p6YP?.c#%vH?[y
U"6GUuLF]^TSSc&9d1X$xq?/5*(kbZ4#\iwT(&G6%js9N_D_di/%M0K?Ivi)qegJ&
U"IxoCfueb&ZKC7q4j5M%%daV3C1GkYRu^1M_bsC7[ZrIPKZhK%gH4:Fz/k3I8feR
U"ZZmMq=%C0<N\<h;ULBZtSN('U3W<grU::4%f6yG?U/c,kn%BFGQer_<Jk7Eu7/q
U"l^&a-C&$:AuIbg&6B6#P8XQA42A7=X.FLxc-qP%er%U5EuGPx.^r40m_MpaL2%O
U"m1UrZl*f0%LNd3i$7Zb$ur05$Zd0uLpKNXUigt/j'>Pft:Ivb+q3S)NVuxQ:uqg
U"b_=JHq2^3F5u/Lfn2lqSvskv3=($zoskMWPIK(_7N+>WjTe&kEJ8bVosU_TFFoO
U"8n7\2#IX]ZS5O?KJA[pqcr21()r574l(qDP(r55r:c2\jIFd-Z5IAgo1pf-BH<C
U"ob5ua[%\wM=0UZp=0kgwW.d*jMkwJZie?\MLp*n1%+4$>BmE\D9pd3xR<1ZNSm4
U"'KlqpJ+3pFXruV<H<rj3qvK=:FDlx8>cD-MtFts\UjfDDC_lbrv<5x1T#JDvVD\
U"LWu0M'HZdkV<de^*szK_ArrM7FX_Q4pmR%^_wB-H$s>1(IXPa0YM1PCA-R0nw^q
U"I+>.pFYn41-JWrT^0Z3AY$(;vIkMlHJdMbrSJRut6go4,%*>nvu%EQ.D(ggOiLz
U"t0x15DdkI:j#sg2so?8q]Q5Quv_tNG6p'GZwVb(t6vj,(O&xgz$RK2L6tu&?S5i
U"PWjAFZt?EU$syA4:KCNiko#msadNxRH3whj&\84#]w:/5o=n<1MBU:j2\fkuefb
U"/A#t<SFW-?RBGTqM-EK#geJ^ozw,C:S^q&,<PW*%Bh,5a(^ga61K*jknO4nGhq1
U"F8auEMsnt%LdPnhb+X?ltRo(EBiSkOs8lgsZjSmKUmP*RG\[gG826V,126TC6AH
U"-CmAHp/#o=IngGSbBMt5ubKCkfCs1_(cqfdp\I.cLX9RuZtL;b.VJj[OAM,DK8>
U"co'DFS4&pI,xYe;QXFpTh'X5NBE.M;yA:1W,N(0RSPre<X;cqj0,0R>[tj;0B)>
U"[[MqR7-DB4i%$^[=-O?loo)d\K,F&/,;A<=^#A+?kU5P*LFF/;0ADg#Tk,_U<uP
U"2F_N/owlYPNX6dnBFn=n<o/>dr2=.[4=)EI>b0[*P(2-JG9SxK*2ceC-s<CrfTI
U"c8-x&zIy*mmCu:5vH7vd%z7O-cmpD%q'oyS,2RqjO9NqQD:?LUIu^0]_*Pa7+X'
U"lHWW=te_re4/_w8ZKNy\V&o#v,C2i1jC0a3jWJKQ[:tWFj9EoAW2.'M-oB'Cl<;
U"^0cdK0^Br;2+i&gQaKp0^B;Y2+ig%QaK0##r;aEWecS5+Z^ra:wUF%-?-8VTtlS
U"\gYFgR,zOj..Iv%9S0$-5'S;h8+8tl-<uQJWRRwwFxCwaObS.hN755.5h75kV.h
U"75gK.h7J5+.hK7Sc.hlP5GM-lP5=-(Ges8.(GP/VR'p<v(GY/V<'>]EhP#wGFa'
U"6U2WOT\>IaRE/rcEb>w'6F[BRTqkPAKG'h/x55n.&V\M=1x6IRqBvopf,sE1_tM
U"52Z95eZ&f>qV)t)H<-sC3TOg-S32G\dJ-kNpg)Nyjsc8MQR^zG)$DJpW_(u&xIJ
U"A\putHiBpWM8<=49i(=Tq0;jqGOuduoTwFMRjGVEhlc9puu<%up()%9%%%[-%a1
U"7:Dfa4XaM,%%%IT%%%.%%%%xj%yzuS[gfx^h)*>T.[9M\HYxewqHWJ-78JD<5pf
U"/$mo#E.sbTbf/t5)ROZc(lG1(nNLzn)oaeX+em,1QhR>jVG\]S9fEe48YpKq7l,
U"$[^apan;>,7g]8Aq\#r*bG_LBM_Fc$V[<F??brx[W]_/b)Fk,CVl56gc6W#lL^c
U"5;/&Q_fS*P0rR]WrAz\CHC=is6/[tJcW4Gn9HeUDl=bOA>dX$nEgSe3)CEF=U>_
U"qw3RbF<$68oR8SA;xkU*zFEQ5SG&0Z]u0)VjY#f%pjp9B,ScLF,j[qvr:KpF[>M
U"J<WjnUte%>CdGp5f4tnOgC(GT'V,RVZKRD(qxd:%ZEMchp<+&uU2ppDjRe5g+>/
U"]Pn<[eQP_n<3?VvvlPldzerR*9wm#fP;V(-E?Z\0HnC*U3/?q,O-07%USX?<ILc
U"lwWiVFj0SEtP9+\?1b=G?_,mR?h8IRC/(WXFj4]U=GQ_'bK/G[TEXp-K,J1<fE;
U"EDU-'ohwZTtQ4#-?ulDc+]_E2=rY+(/59(8'kU892$tJYNBb7.R'Om^cZP4[dA/
U"\#ROHk_kLtMA-[CZ#$V6SX^PmE^]TtR+K][q-G=*iwS2pEc$3_mP=fm;JEtNdb0
U"FmOZ9Y$VD$M0KvgeU;Qn,1)z-\uV]F(WURSQIE.GMH9TC.k^,4ZIZ.)gq6eLijd
U"fj+:($Rqm&?D=]F;c0S:LurIV)i2YV:z.u>OO;+P>AAc1Kv%gYvX)]p]eWU-(30
U"_JEk>#--P6f;&SbHNO,MnFz<9,6pA5>Lp(%+[L#?tP]fsWjZFXhwx,:grNcQ1G>
U"Lt13-KVHKv)m8=\am(u?C=CS*xXq_JE55&ps'q_3<EiRl#p_7jpQ]m^a&dz]9_=
U"fUIIW+i6]a-1-GdG?jp(0[Q8;il)Wcsc81f^9r7eata9VC,C8*]$KD\i+qhZ^ex
U"5/x7YZG]OW/=*B[m6?N[O-Ci[MKbh>k9$j%\KxLX3M\VQp3b_?cND#oflrI'(N,
U"*jZf6[5-1fyHHK6ikrO7qY\T]29']B*aP()Knu3h6BHgPGoX5GRI^m&UXKB/R*t
U"J&R;^=[Gg,*Q]ps>pTP6>F25N']G5ue5iA3jsHNeDf%U)T8Xp7=6AM7*V/]^\34
U"Ri,6Rj$*O;2GCE:58;bFRXk-I,&RkTWQl(q/)Y)pwK(yCK*Fa3;==2KA)cfwV]j
U"ji$kS<I$Vdf''%Ia3ae>xY?hQ/C\j')ssMnJ>zhy7+B^dDT6ZFO&*]/4(x>2rIv
U"5\w\aYN0SQhXP?aiG?1UVjY*2M^]&fuh/[UIh]C8%'<KD-;*tH91Ut5_]l?:PTR
U"V?-eN-S0EcO#$QzT6ZnSx'[[X+oocUYm-Rmh]Nm9PcTs3Yu7yZ>7?BfO:OnJA^A
U"N6Xm\*t<fJ2T5Cn/T_i>k6J:r0tJSMBRpN[r6OR,D,q;R>jXBN;J*$B9e)U1OPX
U"-.qzQ[1G7z7;'W9wFJaEQ&]Of<(6Cz.MIWov+oIl)ALz'yT\mKdUNA:wCA\9V.H
U"z]l/Y(aO7lI>FLnd2ai[os>Cvh>CauKeHtDuQC?7HkBa0J&nkT7>%_Fm+Zmus;h
U"(<KLhnG8YtI%D=4X-WG8[f&dp9WG1*?ZiLiE5fFbI3YPnCEGZP=13I%0gbKh#h+
U"b7R%djTm:*;paFWgX2?aa'\(vI5.$*5jC3pm=1h^6Z[+[hXp6o$L/)(*fTpxaN1
U"uA/p#=.+[qSws9%KU?1.=21*eQ:M+WNE\ybpPPK1%5X+eOZ5.F+9*5Bg(dw2Z/L
U"NoL%15FA'>Ht8js8[z1veZUDWo&)VmIU%EaxF#5,B-rXz1W,,i0sR?E&LOU9tBo
U"TOU_*_1_hPapUi7m39EoVnU/0whM*PH+G=u'kqgio+\K.6PA)T6F'Z^s'R(-cZl
U"#<6M:&]CGu0OALiGo%^aq)418ua9*1>VaAjtr3a9lj1VaT962Vca9V2>Va9v#N:
U"B,=jJJvR5B)CE^4pt3c_Y9;'DCjF/%Zt.G*x3AhmfY)r]mf/i(Y9N*OxeUC?Pb%
U"p4MzBKwkq+ac/;.Ia90^;sac%/;Ib&9/;I(e0QiC:^iE'MvOUCI_wxJeM+r)sz9
U"m(7)Gn+mZzKLo37'u;CI)MQdp0[&Ph<KszUUE^z1\(iX93*D&NAbe(w1/id$M>$
U";Na/YiX9-'_xI1os?Z'(GvG2TzH:&X7NAbu$w1oq,CiNeX,IhkBI*GS$^nQHHf]
U"$;Hs*Yzi5YG,/CsK#PT>mC^:'bCC3DTpfY$^#Nl',EjTDQVFe;,Lk##*h^7V:T+
U"#T;Ng-OYJ?K-58Q?r%n4,'r.Y/?'S,',-PWzM,-(bQh.reu3rcz9%bC2;QGJ#G'
U"P'[\7?c9j&<W?TeWrkB1NO=Ec8d?=[>TAQmD<Ra-hbyRKfCcS74oB,jJaRKonfB
U"t/oyMuG1(q5pTq<\/h-8[PS8Qo8bBbvk\q_t%dup(%)/%%[%%%Y\Y;D5(u(h-%%
U"%%-%%%%0#%%%&Iuz))%qjSh%klUQ%\QZU%2/up%()9%%%%-%($Y;Df.wBR%m&%%
U"%-'%%%0%%%A&uz)&)qjS#ithDk$D:\mU5?h++x4D:^fIwh)7>RdI9f7h7E(A2<1
U"\H^v(8mqWjwn(BJ0pm4:3bPJu5StnHX$fP:-wG;04:%A^KLm&<llE3yPLNv<,QA
U"-g<h1,Y[h2cLsC>(IL#M2_7_Mg1:##MDDm3L+2R1,ksEEJ$fDoN^HAYe:hhf<yr
U"2l,rLLoEyX9.sgn)=S-7=X[Ss:3*8emUw1D7H>)o&Lw&RtU1%Wx22o_l5m:40kf
U"$.i%29Xm4k]C5-fUNg%L69sXUML-CXxI<3SlcrkH7UtL4sE4nf7E]'[=JKTNoR*
U"^z<)cQx_Ta.NyS1j&Jt04V%j]M\[JgbqwJb>wX6,oHY_*?par1Kv.3[Wk^8?O$G
U"D.Uw%P2o4Ihd?csu/A:o>jJMAM#o]u1'SmMRr$l-Hgj;3YDYZdDj-3s)u%p&'9%
U"%9%%%%-%^\X;DNIo=DV[5%%H&#%%0%%%%%%%%%&%%E%%%%%%%(%&uz)))qj%Sgf
U"x%up&'%9%9%%%%-%+a1:D]faXa&M,%%%IT%%%.%%%%%%%%%&%E%7%%)5%%%xj%y
U"zuS%gfxu%p&'9%%/%%[%%%Y\Y;D5(u(h-%%%%-%%%%0%%%%%%%%%&%%E%%%%z=%
U"(%&uz)))qj%Shkl%up&'%9%9%%%%-%($Y;Df.wBR%m&%%%-'%%%0%%%%%%%%%&%
U"E%.%%U=.%%&u1z))q%jSit%hup*%+%%%%%)%)+%[%%+%p>%%%%%
END SUB
CLOSE:IF S=122AND B&=Z&THEN?" :) Ok!"ELSE?" :( Bad!
SUB U(A$):FOR A=1TO LEN(A$):C=ASC(MID$(A$,A))-37:IF C<0THEN C=91+C*32
IF K<4THEN K=C+243ELSE?#1,CHR$(C+(K MOD 3)*86);:K=K\3:B&=B&+1
S=(S+C)AND 255:NEXT:LOCATE,1:?STRING$(B&*50\Z&,219);:END SUB
