'=========================================================================== ' 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%FMo$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=gdaK#?3iCQbc:/^b U"F+X**HIS<1X:(^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%GZ]2IWL86C3/Zd U"7m94XN.3oSS0glK;'Iq'2RGlQl:xHMPRO4KfmyCca2-]XF[W6KZW%BiAcUE-0'q U"[J+s2D*,(iEQ9H1(m/I^vyqmMQEtJ2ixdEi'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#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)(7gLwCO'wlg<+bM\Ha(s\m+rH(H2SfjwKLs\??NRhRf6:aA0S,d=sHk2Rh^ U",Vh:Gb=swkqD[5bS*fj.)iArSTpP,'EvBw3N%>c?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)#VXA3SUqZ+vb%=RKyjw[dQjUdKciG5oV_:pY^uhtWJIxcBC'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[gu>0S3 U"Gj;%Ivc6P$DGO>E,VpG3/pr/p?>\>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==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)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=%C0Pft: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-BHBmE\D9pd3xR<1ZNSm4 U"'KlqpJ+3pFXruVcD-MtFts\UjfDDC_lbrv<5x1T#JDvVD\ U"LWu0M'HZdkV1(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 U"co'DFS4&pI,xYe;QXFpTh'X5NBE.M;yA:1W,N(0RSPre[tj;0B)> U"[[MqR7-DB4i%$^[=-O?loo)d\K,F&/,;A<=^#A+?kU5P*LFF/;0ADg#Tk,_Udr2=.[4=)EI>b0[*P(2-JG9SxK*2ceC-s]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[dX$nEgSe3)CEF=U>_ U"qw3RbF<$68oR8SA;xkU*zFEQ5SG&0Z]u0)VjY#f%pjp9B,ScLF,j[qvr:KpF[>M U"JCdGp5f4tnOgC(GT'V,RVZKRD(qxd:%ZEMchp<+&uU2ppDjRe5g+>/ U"]Pn<[eQP_n<3?VvvlPldzerR*9wm#fP;V(-E?Z\0HnC*U3/?q,O-07%USX?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_3k9$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$kSxY?hQ/C\j')ssMnJ>zhy7+B^dDT6ZFO&*]/4(x>2rIv U"5\w\aYN0SQhXP?aiG?1UVjY*2M^]&fuh/[UIh]C8%'7?BfO:OnJA^A U"N6Xm\*tk6J: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"(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$ 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&TAQmDRdI9f7h7E(A2<1 U"\H^v(8mqWjwn(BJ0pm4:3bPJu5StnHX$fP:-wG;04:%A^KLm&(IL#M2_7_Mg1:##MDDm3L+2R1,ksEEJ$fDoN^HAYe:hhf)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