'===========================================================================
' Subject: VB Word Processor                  Date: 11-01-01 (  :  )       
'  Author: Sami Kara'een                      Code: VB                     
'  Origin: SAMIKARAEEN@YAHOO.COM            Packet: VBWIN.ABC
'===========================================================================
'>>> Page 1 of COOLWORD.ZIP begins here. TYPE:BINAA TLEN:19219
'-------------------------------------------------------------
'                  INSTRUCTIONS FOR DECODING
'If there are multiple parts to this file, merge them into one
'file using  COPY PART1.EXT+PART2.EXT FILENAME.EXT  Remove all
'message header and footer information (everything outside the
'">>> Page x of..." lines),  load the result into your version
'of Basic (QBASIC, QuickBASIC, etc.) then RUN it. The original
'file will be decoded into the current directory on your disk.
'-------------------------------------------------------------
DEFINT A-Z:DIM SHARED K,S,B&:V1 'Created by PostIt! 7.4
SUB V1:OPEN "O",1,"COOLWORD.ZIP",4^6:?STRING$(50,177);
U"%up()%9%%%#-%xn.NPe)%htt'7%%K(%%%1%#%%uAM>942ACVSE)1?zw3T=rUL5L
U"^cMNwaV'6mE#PANYV,/\;Nd\Z;N>ds[IDbe;;J3qi=3NN.#,7+j-G^HU6b5GqkA
U"%e5l5oT0wW^Pv/Wpok=B$;3oaeeEqWr?v]s5kI9^l]VSX4r-in6UsaSJScrH7dc
U"gPFl6b1iZVrpg&lAhBbHQs\?N%9KW$__dqr2PojN(k&T6QlbYL[&2kNCC^W1XSR
U"Vnk3Rc$_LDj[VR(_<<N7.&Z(2(RmgWF&]l7T(A_LdfI4AQG#u<VkkQ;hV2LWh[K
U"_V]LE0:-Vs.]2V3#?E4jrGu_ura2P,cu0V2jngL(QZxs/.xHWFP#QWHqe1_EeKW
U"DIE=7:Ie;U4Z,h;9m6$Pn9b6&bw*.<[1&rnmaJ6qr$&<#^x9EGL[[f(k#sKBiUH
U"oe_)4K/<__nF$jgsYi0t&DRd/E[iP\,:<9WEHBBli6o0k%K5=USk9GEO+d(B1>B
U"TokjD;9Yi_^:<JdW.\#K.FZ923^*$g<an#Ya/pKqUQ\V5/DCV+*ii6xgme*QQMx
U"7;3P&egeJ58)fh,\'eF9]ECctD+M46MuO(/xYp#XMR9nk['GjJWi+t-1[X.%i*h
U"GiNpe-Qv[6JzgvHcsp0?fqvy.iBd%2t8c4GMN'ggH3hwG>t)&C22#_;P+C(eBkW
U":^9o;Co9epk)i4fiUqcGA]fd>/RD)ug.9gY7$D.M04r<0HO2DVEoW.%.^n:2OR3
U"arHO.?$Hw69p:u*fyEPid8(^&*(B?_>8zu%,up(%)9%%%%-%1AnNP+Nx>Rp[(%%
U"'%-%%.%%%%k2>A<VLS5A<JLz*>B[]9MV^cx/^VzNV&<GLN4ReY,+7;9.9SS)ReL
U"gU1EY<m_.VB5lulXpQpKXLb]M7.oiplZHRR4j3=_54jdR<2T<3*wp/&'DvE\J5-
U"=lfozuYm(TX(#<-iaSl)c^Ype8J6?BtGxq]c2wLU'q0ZK6<a5[:4KpS/i\;PMs:
U"epbVIB]qKZ]<4h/T5'cBicAp.L.h$),q#^Cg6LXMoY:6aNp)cv^l=:\l2E?R&U3
U"n(#G]+8QHFu*IvCVrlPN[SXk#\YP4#Y8\cK&\q/L*-v48OHsQ%O:R4a#QQXX>c6
U":KX9K3GXQ=Qh&)A=K+<_2FPLVDtLfK1(d[[Qgr_PPK(d,$_c%cPMl%/4W3=t$S4
U"nwD1OWoJ<aRcVa^+Rt\^K_5Lj55;[p^wH1x=/27XfrP7nrx'M[#P&ojWiG1zX&V
U"qz?8^8:aGqd<K;.\$N#*;t*u4olH[[,(Aq;LO\'c=OZCDZ3]rd^l3^E^7IYZF4V
U"Z3e\mf)C>\jK#9u0B:8>rBTx2w3$[M$ijouPk96v#_ViPh,^<[U$a.^xjOR&A)_
U"i^X+1q8(pBh98a=J<lYR2.X&>sK:c]Tp:0r256(.fK5Ws#MEuVuZSLZ_#?nfQ-X
U"CTfbHFhcZ>I$qheX&#=,u:(PLCnCa#ltqQbmu\9:1?P<qWa1TRhLlh>'E03p$]*
U"y<nN+SsV>L<YrqpyXko5ppM)wIj#91_&OjipAT8/a7xV/fN\,/v(*0=xe:]?y;Y
U"\F[EbSm?=ppE8RtID6vQ',<O[7ad%\]8Ig<:9p%?.mbI'[9Q4I9b4ZghTz*F8h?
U"qJEFfIdkcb]%OIh3q*?Y]J:ge;T*iJs8]3o.5JU.?CbLMMjV#fh8.wNgC;e9kT9
U"g.DiulU/sM;ZUwN0&25Frr*i$PEt?Fs,HHgGRd&\<PopN/4*B%U6B]Mfl6*=tNg
U".pMA0Z0FF'$4#B[^9F^shuN)c__5CSf5CNXCCR?)6=0Ts$jyXl_mIpIh:U2YYUA
U"OGbIR5if^$x'e0bSwc_(,Yr^7m9q$&z0mQWXBH(0dm)OVKjJrG-^Y8efLX2Hp-W
U"\;k9X=mN^92<cbiU/xFS*gpj1Vpnaitp%939DuE^0U(]47uy05LI\kuT+$G.aNk
U"U7EI^VDM\>aR>KliYQ2N8,BDi'26;^Fe5v;B0p:4dvqC&Ts%Dup(%)9%%%%-%0\
U"nNP*[-xg0%%%%4%&%%.%%%%k2>A<VLS5AG(z]V3';U1jJ0*#V%AFr,(el]%(x&T
U"n%8hI\CN=_otY4\/%77CAuTht#6#v=\m(<%9/uVQ4qWIB>?3,JX//st]Aag(uXm
U"cWy2%sy2=A*r-\w%^p.[&Et*D2MkZ.hW4D)x&ClJ#Dr;vwG<nDpWKOY'qI6lw\c
U"Gv<1,>uEk\,?i?CmAgKY87/36'7An[dbO,P:U'oe5T^T<B:e[uPthmzWp7'92ZN
U"3[UI5+w-=m0u%p()9%%%%-g%Jk).Os/e)wE)%%%?7%%%/%%I%k>A/<W0Sh5A<^k
U"fX>cm[9#XG$qD]PG1T*AdJ&)G_?YoW-\OA_zUfpIy>?ZEN_E2j=6Nv8]2*8m7Ma
U"c*g0pj,orC$?$#$]rGot]62XIu1P*%c3Pu>QSOf4Ka8k>A8b(rAs%-Bq968sFtV
U"FJ=$Hf$Du32*i3qq;_/3S'=CeCmjhQir)*JLk(n#lRTdyiI>k=M1[CbL:55?.A>
U"=<tZaF[,xFE%g]3%8VZH+Td#vs*mA<=^^[(7(/=KICaI3.kFEMSF$Z[b\:H:7'C
U"5gt3c*haNLkrSy;bl+NZ0OF73:X7hB)6hzeexd1KctLQW=ou?[$e,Uq0?k(2QqN
U"a'1a*-dL]hJv1C?<^TY*Ty#qhqCwxWh(i]kXNBh+;F#82niiJDZuibWr3cVLQgS
U"NDJQ-yIj,LH^E:[<ASsqP1I#L[nrAMR0OZA(jfrYq=5lG[92X1=rRxP._=WVs'N
U";#q4iKPl%[;pscTZ?/(d\D,(UQbICbG#[XaCR:1F5l*sx6eM/1K(aWR&ng]>Lu:
U"r*+:*G7:vC%f?UafgWk&#]ZB#/%>DMI,&SLp1%-W%LH<x6*Gka%05R3NQQ\KUxz
U"eGY20O%TNp\nU&k'TeSpMT2#K)ceJ051PU>5_P\Kpa3wg0$*]'xtPKqurWIp,-X
U"==dCC=%]dA&]/(1]U)]C++]PA,]&.g]e/ASS=o?V;&[8C]WW3rL7#nmhe;*Xq;$
U"'OkD.9+>5LH*cR_#(o^hyA=71l,UHclQ)_SrD#qPMi[Q9#-*tDQ8v2,>+ni*$nW
U"B]l=nGT4*.\9TS;z9tJEMZ/^lZ>qt%FlqdXMV1]92^J)BsBu*1yxp,/wkp$U+1S
U"IT/gucR1I=&*dA6M.iGBgWeET71L%_Ak7f3V>4d^nksaQ^lYLg()<[SmJq3d5H1
U"o8[XfcpHARo=>O5^mh<v.UJO.USVKv>a+Yq;eVfBU&=dJ>7tRaZLUFn45gXGUOg
U"g<OWV3VZ/-5K)#JB1\KBgcIbD<f;nn#Kv,#AR6$eZk$N>8cFrtHDJ22h5JNOc?C
U"ML8%rwNX\]MQJFZPEM>^t(f+[p.gxAK2rR6qOp]RH](m40Xp^adI'pzOl1gIg5<
U"(J2cf8/SuGR.l\)4SuNJI9lGD4b2S&nQL1b?gV$Nc4mg'5Sr2/;9.ej*h*,F;.k
U"Hkt,h2U0HAWG[j4l;Q+8=oWA-EnLg2-#.g+FI33y_vjuMtXX-[I^9\\]3yO:OT+
U"nr:o0(nhGF(WleL.M/f)Hd3?zKsrfGMw(,,=5E87ScTI*2^\GsPrBU/Typz'?^k
U"u\ApLFLP(L]fFeXX%i6WFYYB9l^p:7q/^)Q8;T25(InoTqs6f\=D\NOc';^:ew$
U"xO8]JV#6cRW04x_id70%:]=Hp]$7ub#:]#rM#K'M0Z)k[=p9.:;cpR7-<]+bfc8
U"fBMUM<lej>,,thpgrA:s\]dU8Wl>R]:$7uTckh%Dup(%)9%%%%-%vAnNPqc18ws
U"%5%%u&1%%1%%%%r#ink>)A<VSh5A<Vga:BT:]aXxkdxOKTeKo]f&7xp<eI0I\Yo
U"y\$P)se)K(<J':;T9bx\H/qF=g0A.\eQ.TmqZXgNNA+a*)YEsTkFR(2szJHXl+h
U",aE6rJGxgP9o.C(CaXwut&PMi?r$OC^<=<9\yLk6sbod[[s#iV[JVES:YIM9xn(
U"\qM9Mw(o9<xu\c;14b(.>Hp.AqY#8J9s?6Wb91XOt*.U[]dBY\wV8rP7fahLUic
U"^V8WxsNDS]-I[BGdZDp.qoI]e22v'-$W$oAv\-$(\rYrA7-?JrS/=A6]?KIWT>$
U">rJr^7E?KLKTJ.VWnZJ3-erP7uxOAt2FS_fU9ILtEp;Q<b6Zxpa1S?iux#*^1)c
U"P1l&rF<eBani#,fcKskcqXI,+2'ZdIo+&aa-x?4lu*Y(tWKpsR9ln:AK*Jx#Mu-
U"oLWq:E*Fk4$LHsFD<9\3O:4$P>6DUYUOf4=$hejK19llmkakU>E8<];Jm^SKJ(6
U":g?)Mq;4Lf*%[8)f/CuR&D'xdl<tc316iGE<KWXOVayYg9X0d>-6Rxu0K'XuD.U
U"3>ZL4lBJq%n%%1LI=,dF6n[#Ne+TK=NRIc0LmspxpLw_5rFs4DEf5s=6HoM:\'x
U">8x0r-v+NclN.%0iN:Em8%'?]ptDEJqCA6b6=k-f-[;/odI_<6:L3q7fIA[=j7Z
U"HqFovE2\8q8vqum+:UyNfJk:cV(hkxOuJu#IzX$OTvi6E.<1jsl36.GOR)q#hlU
U"VJ8Z<rO$Wb)ZA>$\2gfI1em]bON)&h=4)i>+TlUWkxqmXXJsrTxwtth$h?wfuo.
U",P.ro)4+?C<:.V4^lPN#WG=.yAoWy?2/=3IO^^>N\35x^2qdk0N5#W:N6.l]_<G
U"\7wa$hO\05*RzbAWx#r21XKk&#H(Sry$)mhBd?:uxKZnDv-Vq;yN3o3USgPDN9,
U"8,Af1T?o\weuS_oI_htP%yx<nMJru)E&z0tOb,t%Qdc18i84wNl33/SRDZMIp=D
U"J-adgPNH3'SiL3C,xZ&dcqNbo4wNVbyZ\uhhf.+n&<Lr\E&Q&&zZku?7%uM<ack
U"qbwLpz:dc>qbAYuNS33)79[?M9<,,%YZZr?&ONjdxx&4Lp9yZ_u5xjV0r37>9/S
U"o5<6xSViif]Lw*>yMZu5vtvOONRjx,zZo9*xLSiiRTZ&--q;Qheg\bVP9XkGx:B
U"M&aMF3*]]pi;GOxgJQgp%SL,isDOl;n)V=gp0rHVT0*s7:[;?[&$^aXDLZOQrco
U"7A]ox2)a\*FG]H>^,#79+qJs%YEKKl[qVgcXps]T\Ew2^_lvm^$O^iN6gOirKU*
U"L$;1_bzMC5y\SqxMDWBuC6YvLUu>E&Jp(pnv=VI=7?r%DsFVKN7-cVPj.5#)-x?
U"D0U^*Fot_oR?;>XiKGiP7MS<l8.wBSH/A>nls(RCAjb'Pj65d$.H>&Pa:QacWE%
U"Ag-8QI\oWF+oZs9N>i3.aVkCVJ/4]MJtQRt&667tTM8hhp.JH>C<&/'(\A7ghm.
U"2$n\I&.LbM?;r2C>FWai';vVO92soHz-[>e9/NC*_/l#yuh:%TRY4hwTxn)R%vh
U"guUbGD:2TXe),cAP?5oaCmB.oUquw-+G.4OR7]59^Gd&0YhdIBp;3e20I)H'C.w
U"(otCjO]8TpU^ko=bI5AeH:G$f\W?D*g5>gA&eQhgtcfg&dkI*]A;30a#lA>upQ.
U"\[T\gOuxh;tgWFWPV0Mc&-aCY?TmQ)7TKmj:hvf;tYw&1z#<*A0J((7p%0NJRFM
U"Z;,7t*.\QpDKGUq1:9eTjL.;z(jiZjm*)n?3Jh&]O3T9%&G]Y2iWYGXsk[oMS:]
U"3[\b4e7D^NYONIm>;jUk1UR0KE8mBRt<Vjqxg<O4eN&TD&D?t*PBKDAnM^sNL;I
U"g\WJATU5A%g6ce9u/BrB7HFuQgNP#=8JI189SxQhh5\n6Lzt8,YeZ/XTtI=lnp)
U"/t0m,4ct3WAHY(ims,Y]s>;=j]A%^ooICHtPKQ86REQA%$B2LRVN:zC[p%%POj.
U"[yiVcg0nM^3iW+&f1OJR,WAYj?*,/CusMs?oKTt:XVEEhV]&BjnG/hNqe7OJ*xA
U"*J?83R+CoaCp_3gAH[OA.2\w3Jd7exf$hf:d\Vq,#bE.UqM'UbYHMUtsPR_C:Tc
U"]='?Krpo_8=:*oopUnghu6PJ]z8294S9z=MT9Xcmu*n5vZzh[*OFmAT<*C%W<AV
U"j_rIK-1R8*NAzBBa)aT5dj6&7/[WG'>.AviD/SslYL$&NceVQ&2ne\C<_qeFQs,
U"Dn2H(TnMFm*K;V^36Y(2Jr(2)oUmmLd<7=e=QrifOKIo)Qc&YYJOpSLGSgjdRd?
U"bKlhQQ:50NwDhh<o\=a=a:Xj*fyu:V_a4ygg]l03gs&_$7d7uJ6:QG)5<*$+N[6
U"]#>)$8NW%t(GX[sAoLO]a8ZBgI86'IsGApjAC#&',V37C&>Q2Au[Q#g-tj$;BV\
U"[^neN#h$<8&J7=$dSn3+CCK?NLPoDu]LV#$jQkOkC4kS+sFj0To1S<q#ESo3DC#
U"RfWKdQ.D^N:QW8$ffCQ-*]Gio>LU'iVK-:p^99GK&8Bz[6x2^0)/&QU7=yeym=S
U"oHIE1LJs;:i(E<Vp:.j&+iiN)px>b\FQL,pu:h:]oj,J2^Mho3TOZERMNp2kI2t
U"2:(Bg'/Gu3BPgTV:?3ZX9:.>?x9t*IHc_[UHFGSJkwF#^fR%KgJA=Hdm25Xb>cZ
U"5oq%'/bebDMuAJinkz^_^,l4%,apGbprbSi/W$ZYxiME<rrOyQckWOPtqIkm72N
U"6GSr=%l[uZD^ap/'xilRa=Z*u9/6frXDO)NeWCkF_hwP_iO,==VxI>'>dQte4ql
U"C.(a^Fex.NZhX6NO\+&S(JsQDf>Cmi:%FJ1[0u5:HR_-I&uU2M4rUbOh)[vwm6'
U"H58f9w]=$mCJ5uhJcZr]VIHu\7'_Bw4?%,dx?,5R^H$E1M$rbWvBkOs/6F+k;a0
U"'BB$rwW\7H%B2Lnsc>Tp;OvgWcU&cU9.vzaBQ>dLH*m^)n<m4[6,>t9W/Xdop0Q
U"=VTQs/6*QU03)09gK+:FA[));MIbksUP2(6m+*;V4__>'Rfq1O/JNu+LeDdK=Lb
U"J,;A*J9(CjW&ORS)/Q+-u1=:Y($Z8bRHl+3:UsKUuy.EG1G1SlZ+=CaHPok2)7w
U"'0poWMJqai.4$8*F;\h?=^/18[>YaX-$.Zy'9kR?<Jurm&?G)G]UVXM+l\<[9iN
U"/&+^Gf50)P*VZCb.H2M=K[;\.F#f*oFE49DFVcP\LZf:T6]kP>R$u>A4mK;qfkY
U"XUl$c\te9iT,-V+W=ICV-/]nG$6h4l[rW),hYM,r3PB)>O1i*+W0'7(RhhGl;:l
U"^Z.8\P<&$^+deF>3IeZWk:U/W1f[Mu59;t[U0O'BY?qZR0Bg%dB1,'6(RWCjf$x
U"oNT7W&i(*jD-Fkr?sx5TMO0Wq'8[\%XubC,75<RH?EL)j4VLZ]#EKtPI2+ZqPSC
U"-7ma,E_/2([8I$w#G$$+KTZu5s-kb;7mHjYnif=/C;/8oN$r2=Y;qP+aEW^;VDZ
U"1]'6=fDHvN-*V(9=jsxa,E3$nbh%0y-#5D?qgn5E/O&bi2W%SV;zIEU4/Zjhl?q
U"$Ov5pQ#/onOW>K,+I_$]+]HY1xOZ5,5Z-g>9vO3^BYo]&<f2cq.'/D[/9Lq$p/?
U"*#c%*m89y?%]9J)u1k449R1A7C$S(IjZ.DC'L]KYUFD^egGQ%2K94DMv4v]w+9f
U"[&B,>IOKTO4Yj?$X2s$DP>$I2T0;1A]:RIjVH[bf96E=[r_j']3;CQp^h4Eq^?i
U"Bu\?+GI#ePPL='Q*7,AF,?%qjjKD^8B13/dXWBRi%aK0f'CEI4/(6XmuUI::5%Y
U"al0:o(/kS#jT>#[1XjiD3rJMJt[hGC5Z<1?/1t[;<,OPhZRW>^R4B]]n-#p[Na$
U"hBX5/<IW[l,>3iBmIjr3Q5ar4E,ar=A2m^S4Mni8j,Y>h-=eISD+1&$B=6I7ke1
U"y(t37I3ZQ#s6+-gn?VRYp=/po8eBHsG(#gxe%J<s.H:Pga3Y?B694oJ0*eTQ>Az
U"2E_+E,&^9spvTc#x(xP3Jo$=Gc-.es]vgg6qo1FX?.7=ICHa.QL//m8R*c5bh+n
U"e6io[e,-U+$l>7DRgr*p%1f.Qe\W#xMuh2VjwRxT?)7A+LcSTf=WSFY3,uhiB[b
U"2uYoY0hsprAne_;RQ0xd'q]B9/ve1KPXK%j<jQ6cBVO^?n]QCek_g[yo?D^k/Yf
U"Qc\qWAu+%F%R_fU1qcKXWYkkK[xD-9jNHR8:RET7c#_]7&t$>en/BB=+_]tgMc6
U"_3fWFi^8#W4Fb,g&-;w=H)9?X-k7tX^;fwo2.,LjNqS2A+;R\r+Kg,q/t7rS<H.
U"^wVaXE4TJ'()G]oBQOqGkD0ok=>D8(45UYj>A*eYMHdD%.An8-=1>Z_Yn.D8+u4
U"5\+:6qAD+4rp;L/.*E^M&u-7ie7fbB_r;C[/pLo&6xSvf=er$T3giN$lGk*5%dT
U"l=rXkX?RS,Rb80c1GuD>4fMAcGzlV#:f,*2;u\JWS?P&],A7*b0ZlA:e'pJ6,k:
U"QseWnFc>ARgpg#<CT<P1UGB8XZY'rq_4?e7S88X6CH(>cGKZRu+tB+Ou36+smd,
U")E-?04o4(T^5k/1n\kyo5SK^+QBxq+f8>.C,f,#2jB2+Y2Z]GRP6]s'JOiua*U;
U"d]Y\-JqeNs/]v$kjkb[;c0abdWOENf)AEA(qJ3_jx=/Nq)-#rxa%/?K&%g5A<a0
U"0o,?PUMTxpHU,7]-Eqi$t-bN+'u6j;<3CH/QL3J[ds8g8OLcn_G>>)^4dXAP,bZ
U"^&_f]R.>k.XXRee)8e<%Xem%m'gZBXwm1rwyTN:JAi5JdPbW)p7*51wAtBws?T'
U"W/.lP]6\2B+0]M0g\#)U[b7^TFC,_Pw?6wT5k?Q6AQZe3#H%Iq83e]J9JaKn=vZ
U"28IC(>*'Gny1qB=(DejRkhi)i4u\9,UmJ]iIscvhA\U-i;Jt:a&[TGpUVD,QBoX
U"05#h_fCs\,'KfY'aL<.\e>r.<)AHd=%-wR:'AYZ8IDX-Y8d(F2xm:OC<v)5x(E8
U"Q2e%GAmBe8?>qAX53J-98BUpGLmSKEE?^<51H[j0kJG:SdX/+T-9DkK-/i+/=i2
U"*3KephIX)RjQ<grf,mF.fQ?P$=f-vQAvqK[HmkW5>L0DK47<QXQ&'A$,4('p2%T
U"=)*<pVRnrM#Jhj.>*m>75MG2J<\qJ;7UVL1]9As^,O4H$3uvu]ZScl^W1'x2w0=
U"rhg&WH0#%p]%((Ad\58<qDy'YO)'%_\/RL(:S6#&-0wIt_;3f3&N2I3w5?^Q5S.
U"RX5/eyZ#0\jhP[qJ:o&2^&(4T0s(*I]i&NcNXw5)vWn(FPrGVkXSgHur]//%Fc&
U"=7ik<U$G:#f%-j&(eYwt]/S(jq8\bMDQlz-<vI^_l(+XC9F/<K<Uhq5W$gu]P8r
U"KNC'%R]?p\C.TR./uHOpr)GIHO'EuVb;tZ#+BrEEhx%%up(%)9%%%%-%u&nNPFq
U"0-w=[G%%W'p%%1%%%%r#ink>)A<VSh5AGe/+4;#<PHxm)mHlwcKJ[bX_+abjhLq
U"aI0n$[84z*Q&sk?EsrK.F0)2,579NT+/8g/j\x%fE)o7QQ><ewfF,'MeO&B_He-
U"v/Ae_'*#-'W;-'Uu1hT3;Do3&T218jp%eK%KU=u8h643\lC9cv(r3BcLbauXtWt
U"tMXtWu4hWV:v)UfqsKa#eXTlwqvlXqLVltJ5-r\l.dhcl<vlpCT;P\W8Q?5L1vC
U"c5G8-Z)3[f)Rcr?dqQIbCw$l>BcZ6s;%Yl0*\t<5DI5JTq<_mNC#/#0aJtMB+]4
U"#x?:&-yev[yT9rPzq3(I>MrxJ.;In:vTu9^O<5B8.fw+HIs?_-c0UqWoyapHbYA
U"IopY$Ii4u4u2]S43,LQSs[3rsnt2U+D9$dx1'VWWg#,xNi.DDv4$^AyC+tLLpgJ
U")g8qRm2\p3I]QsVsCtfWlFV/D<L?l^>JgkpsLpuJ6pWdt4Kau<MwiYVb^^hKSmv
U"oalb:I,Ds^aduUVBp$Dvu8&PbKbtLY;-G]6YI]LntuXwqb6alX]r3bjo=8mFgLn
U"s8QwWHIc1J7wPKth6fa0.qm'bs]5BmtThNh-wlSPwrrt<s<N(Nlmcwcpm][pTJ\
U"zMT8fuWLj<>&aTY0$;T^01BuT:\x]h%%%at^8vH$mrDu>O7lTfxoNou6Pb.bN8e
U"(iw3lw'[DTw6p[Nvl(PrxlrXnJ>.virtId&0NaxvmbqPctV(I\\=\aP:i^<;\$V
U"VwFLMi5pD/ijr_%)=WBZ?V>79M\(e40dZHv'&dA;K%3j1hHNDw<=RM\+8G*PzlV
U"b_<AW?jc*ug-/o[WFko)\=XhG35xPO\>?jOngDWDVPF-dDY(UZe56wMLoFGjorm
U"+_5;r9vCO/f5llr+WE%dpcUAv50rU-2vZoRRY,hH:aBu0kphOEHq4u4u5NFJq+o
U"%I,0-FEq$Yg26_%FtaUf=AMqC=69YTqREAhRT)*G7E3m\L\)r%*H\ZMH?99%oUq
U"r1BkkO/[#tw)8epKS$?#Wm0j<9IU>dYV0grQ5J]3,PUH,aZRRSmabt3S%9E^]5h
U"WfBl0.X=LC;iAF*L5P\3Up*L%]a(#=gWn\FkwI;<]T=4ERfa-ga7_t^;%EZ7p6F
U"i1gNh$fUVH<l30?Mk&5l8pIpqDQQ.5)55eWT2Lb?uabm]l]:RLH0Fy^LAhjj:$E
U"e=D-^y>Gj#Mk.Qh*J$AT?(B(142Ji.y[_h81='^uzb,hW\J1ng43Y>NTu?C>5p%
U"VabS%Qq.#3E?S2EE/E8*4NY'h]LbI_&LALaJE$ToH:'g,g%qs':r61m3jn/>RB-
U"bfb6?imUB6</#a.Y4O.:]$[\nZ%KXAbYImQ$DhxByND$_p^7I#YPo:Z8+%orHES
U"a&gAzsjq1:o%N$gWI=mUI>*q21G:q0+lrAE+Aam'Pla6*c3I29:16Ub\RgM$rc/
U"^3.o47_qr^C9fh^FI>UG2cAgqOw&=87R=,x]NHS#/kC#^rK$=7bRLXvReWD+*n)
U"Lh2oekc:WVgUgUdWmN#$%q/ba[ckRY_C&:bxzQm=mR=xtoJBNmIq%M3ljgvg2GB
U"#v::NOWSE=9/)=PS;]?=];8EhXslSRoK2PQ\QkW%yN7/kV<h:]o'vCWb2J'CQhs
U"6(/mUyKkc]2Ol]33Og;hj0-dh\TV^#ic3Vc1EL0kN09#_z4H2+uN'+'g\nTnA\B
U"jr;qka##rU$b1'Vy2P'Z54J091zhT;*PR5X<V4RD_-NQxw[2oL(iEBG?m[nJK##
U"i\iuB\09GJAw7/T%+)P8)%olMblr?NgIqyZ_'EdA0Z=9g(eB^M(?^kg.,U_Ee]w
U"'J1kF\Ouvn2LH_I)VK14ax?FS_JL7L]ifaXp>bdI&_0A,?9tcaa'&,?]Gp^(<\k
U"W>1Y+U:V3eYi5O\^rA^.yIKER9?9$B#UkHd=667\EHqE%6:A>.[[OHi_AwZM?W^
U"u;/]vo)KCY/+/IyA[3R;^2'hWu7El+d8].gw+v-U#hOrP\kW?F>^:$UoDe,3\&,
U"y0U(l;QB0E6B]IqrZ/?^iS.f[Urj.vr?]ZSvgkj4\?#UvmQ^pZr>.\7IA9Rvw[#
U"o:V[M\+*l3rH#QgMTH\^P1fSRI;TCQG2xK]p)B]Q>'K#u=/[AMQJqJE&\k(4Y_6
U"EPXa9#H6BH$00Y5hJELn4VmH7?=TggQR1We8D)qpiOj9[2v/_#za>;_tARJ<Ep:
U"LC_](I[=k^MS*38:Y'I7(^-M#DbG<Kkm,]C)B9SE#M/?Ka1Vrd9.B'=g797e\*?
U"]A?O2pNY3SRP3(fR7A3NpT9A3S*FPXUDnp]03=rPA)p?mQ&=JG4kp<=%l+E$=Rn
U"Ofv:M4tAf5y148ENYu&Gg'^^WW6Ooos%fFV*K+J]iER$tR]o%H>.P7]1-e.3AM]
U"%3Vo$c44A*KE%Y)HCHvm5n#8UK;l0+TTB9$U,V/ZM&SLq*eBI//;66OL(f2KWf&
U"A6l,1II9t9SRW/vEpN>F^9'R%38B4L33Ua1$PC.Vhb%lfgD[)D,4;Y71,D[nh$U
U"l^,z*iB1IEI4#jjH#p;(n1y0]5eu=J(/(/18Vu.52[SZ.-$<t7^yAJ/r$RM<CJ^
U"]g96z_'^=34VVW1jKo[#[k]?HXdE]9<C2JF\JcGa2YFi.ciB(hLAAIWEKVA4m.3
U"12G/_':'FAhfuu*0$P9#Fp*CfZo/4'*)9]:7AlV*i=$pA^#*111#DLlHFKQp&*+
U";C]=lsjcXE46\dZ%+]0[NbT'=)&HV$*:vn38e]X_IA#^Vo]KaP<9PmF.,GFKJjN
U"aLAQyOT(akCtevE?1e9h;4,gQN+.G\'WRoUf+-rl2)kq%SlGPKW'G&Fvmkn14pJ
U"qa>ehl03+Y]Rj[D:HadZGAHh/:AV4R[lKp%=lOtOo<h3Rgra8%nG^+.B6*hk;U2
U"BD#jGr&z$yz)6$wO'_grm[zO>4CV]6VSRwb;2p_%^DC8bZ'LmcFE<go\]UMlSdC
U"k)UPjEw8oCIlk^ctOqiLQ2YGp6J=>$*+^H?f#od>bbGE;K7A#Kn\bnRW)(5Uiiq
U";\j_3/+Q0UCG'\\mH(0N#(,336E%iZ4XqCejZF#_I=t\8TGkj)7F][3X,;HUX49
U")8tU=#%&hB<AuBd_Q?h^AFjm;??:Qgr(]olXfeA)nqYU:#$(<BEHD35JV&)YX\/
U"THd7%A*Le+,sA.SrM;g3K>[H&eo$AL,+][Lb]iPCEQHTYLZn#UAa\?4]]cDg-4Z
U"gI]od;USfDs:6zqR]<2+Y3IU'^:AUlV1X.bALNkF>nOhTAs6GO]J$']Ta/2A:5j
U"/0]*e[HL=^]3/R:ooSJS/4Ro#fbMlG<V'_j2LHd,MA2>Q\u3PBW_n1zr;oV]C5+
END SUB
SUB V2
U"04s]]Q$WCiuf]kGn9wFrF/k_Tha547D_bA)kM(%77Cq=^bnm^]hS3YE[FuVkR3,
U"o)B<2+/CgZOiN<P+1)uH7qI6PPq>hH$0RmRr*uph87SKZ:f_+)KL2NGesDT#'+4
U"UE1vTA\w+8BCap7J[C6<\'N;W)OFjfrA*;ACGyjVlVnqt8Uu$0wZm%Ff+umo(>_
U"n2<wU%6:Z>T]u'gMc#%^4RuPW[,hW'Z,S$<9ArcodKCTiqreN37)\<1'fJ,dY*h
U"'Cz6qtAFX/L]3gwKFg;1ga53W#$NN]KW7RQG8J:^X+MiSZ=Mp/>u_hlR%YupPr4
U"c(uBoZ&7xIdz]Dsp9MtkHKS7Mjz&4DB%xtx_\%hC&:LRpq*QU-9t0)Q%#QRZAjp
U"pLoryDglhaJ(l8'HmVv*D.umcPil_Nr,QH7t2q7:]AnItMc:)Hm1tU&7&XL%8H]
U"4,^o>L-N#W+TIrS:tPGeS2p0B1g)oH^aR\Lb'aIb0s9Sj-63K8e='d4_u:[qLI+
U"tZTsLrW(NXzk.Le8?hJdAuu&e,Ux%DXo0SXASh4VacaJKA\]F9-29$Y7df.pID%
U"4)LF,vzTfJfj:(JS7fdvvC$BhYKx-8G$&.[J)\h0l2^/Y]kc>D3NeGOOm:0i$%u
U"B(F'EB+f2-gZf*&'?4jUg#\>ake'-g1ZMWM&ma.>PZgAba(%T*C&-(vmSpr]2a_
U"L&2.ThzjATz]:Tb->24cmxNIvVKfiV)UQwTf<);2#he#RNt?+bHhS+mRA<i]C#T
U"vF#Ht&(S+lPr\q,N0T#++6DbL&<HH-rMLCfp\Y3W+;&I9^CbCiv4zPoOZPWb4Ad
U"0Y4&R;5+7K>]fZp>P6vd&'7*>K=E8koPRpY]gqc7a'Xw#]H\;FD,(>.yb:n?DF'
U"cWxZ%p=/PXneD?U?eN5pxh00OdzD/FvM;uuXcpuP9x%m42v-I4RIf6:kqh:Ll+s
U"9wWUwaU%Fqu^hDs*)k:<o^<VsjH*nNst/j'-&bLRY,dby?/-%v1p-ReO;L.=)8:
U"'&j$V/)40dyQFb41:]hRi8.ZEvQ2IAYqj5^_EaNWAl2jp\^.JIXgd9-NEIg=vYj
U"2Wg;F$kjDSQK#3aV'qI$WX.K_]]MSHJ*6tApsM\TIt;zCi+gl(*cPiFt<i:8D6?
U"C][4iX4jr-lfG[fhB/M+('x,ub6\qO0A]P6+)2T]jhk-jeZb6BnGz6j+U??b/Vx
U"E'Cpgl.xqGI.*cs2zeh0JWfO?&xzH0%J)FL(MC6uC-W]OLGsBs'S/AmWy:n,x&0
U"OUZ>9hUD0]Q1nn2GU._qq*z=>3)I4u:c068X^1b+A9oe7MI43%c.Z::'Iyj8J3h
U")=Vp]xyIxet4]jNK36=S7SLZ6ioh8n81sW8-HQ1s'jPpSAbD16iF\*k^LCeB=4J
U"6Yej]UBW'+92rqb\.zbtn_A/0<R=te6iFNdBQ3Z]/X]giWs=0iLC35kC4,04&3^
U"etC<<eKV3%v7\a9mJvTFiq9rdC^ODzQ?amTg%;KJ?:QJI9GAXa;VpN#l,mGm<az
U"vceTfmXk8o?buX%WbDrw=R(Ei#W;IT>[=60dZYr)A'\j:46HR^xVDc]'lV:bJ/P
U"d#]qVG/=PF2+:6jsj#LUlg)TU[:PgCUP6>J0#[FsM%>ans<kR'm(F4S9g/DPIg;
U"D6GtE?e_&S1_;dB;)b3;0]-,/qwkeGpb^+H*\r.4:JQjB;]ca%l_6q>(]K#+S)+
U"YY&0*dE(NIpZ&kf\VEAg*^UWtdq^h8&k3PFBjKf;C&EdH8lIYt95l3.60CioGaW
U"HSE^=1i3Gl%9i9&adtweLf?XQY&n8X6IdLG;B%>iz*A4BA6T&_QtRYa2sRpZ7^i
U"JH:^^TG%6^vV\PvepFU_VuI$\6#]$.r#mPntk&,;&Bbt)oCIi0KIk]aDgx_5.D6
U"qC8NTnN1+(TxOl>Y<xma=t8U_ivJ-v7WOu##&4+._\+BOV^rYiqFlHQFIDjcM&X
U">><pFfRc4gGncT&.ot.nlf;5w&23+>IEHt$4I]x)hh2:pYd2cA*Qp0L8>?+M42c
U"/Kd]KPl&Tmap/wo*z:Pe9mLmEKT_oiG-es'#S.]Nvrf;ZR/xkOHTI<hRmmlodn4
U"-aOgc1owb0c'pt8WUZ,xHOqDw?E?v.(r/?#8:Q*-asW0ic62;vl2TNa'UE&50/X
U"Ry:0[J#7I*:s1^VbxOjv'o%tpmO](XV3no$B-es_Oner/&e7S%u*=QGvP:,,$sS
U"MCAolitkk$f]Gh\pCa2F3B8=SM*DBgZTWG(ss'k^>wn\MI_oSn49BA69^zSAi<&
U"<V;ivuSIRjRBBChvM5=l/yioFmT0ejH4n<d0Rf?[MVS?(H<*s^][%fylG^6>*]\
U"Ftb<+x8&hldv5UhI.ca2&tmMi1-dxEH\'oj3=6/T8X)\;<;\O;?2$C$>PHTP&]L
U"(J_ee;YL65_?ja&fnIpQp]a:[hlarTRPsdL6VSmsM+p2d1*b^_5pDrO'oYAsBk,
U"Ub(>L5p)fgGM7XL&7SgY)[qTh65e;/(cd>Xu4cU7KHOqM4g(>D4W$Z=k7I9#ToP
U"pc/Do;,3>6ff+Mrj($lTKkwJ.-64M1/EY+Gj86NvNKrqX5EcA8j:C,d/fSC<%l_
U"R_?.EJvdsaMbNKrZir+w.G;:;w)JiQ:Yl/UIme=fFwf=L)&E>6C.2Zm>n0s8F\r
U"gMeF$#*4TkApK\ZwacjsbAKvrl\4#Q?%ZYaPpYs0btTQj$5nM,tL<ZSFap^n8L&
U"?pNFu$tJ-UMa?v&XK8i)BUv[jSq7?x^]_.G06[uX82]WY8mL;b3_/<iHQ)%]Ynd
U"6+OGp7gCs7P%#d6o+n/afA$690_GMz'iEpFvme&QcFS0aDPBlN[Vo[B_SekJY.$
U"BoChpg&7<6<#'r8acCnL%Y?>>Dpl$FEKmbJM711QY=6n%MimmuI,CGOZg6p-?3l
U"G$M8==]e)t)mf:4)mg:I\%uxgKXH8oxI$f\\a<Enw^C=yMD+9jix8Yz5yCv&j,b
U"ddQR;s]s_FcMv.UlLVaQVSw>Gr72p>\s/J[qv<nk,MFTLIm3ENrOS;Xf/3a=ouM
U"vKSM+6:nI5y'Zh:c+yZh:dc-fY%h:cy'Zh:cOyZR?[8cyZ%h:cy'Zh:c=-PZh[:
U"cyZ%h:cy9ZhNgjBuw;S^OtP/dEUL4aZn[Ro<>aChUTD,_PfyGVJ_Kg60O+e]4Dq
U"(wVTG4Qir3Xdcir-W__peU/MM'ZhBcHMZ(V]'3dc*ip3DK3G2D84-:HPN3EGPz;
U"rEDd4pUj?U<q0M+8#p)<qM^+F#Cp[[-Tk;DaL+F1v4ow[qTHY$N9tR8Fn*ip2DE
U"SeJuFrGi,6),6ar6,qI^*.<7,DZl<hK19Rj4=ot5Nf,r>;U?:PMt2#r.d<n)tD5
U"E2ED722.)oe'IxR9a_]w4s<pO?oaF6k%ui_z(q9n#FE>kf1%Q*I%-u]UKUp=\(4
U",EO'3e;o%3sx.%uFFjJ)iZ7&l%:B:.i7\ghA6AnhF.K8yw;tVqUhLHX5\kN^Y>F
U"K2I]r=p\92B\4\Elc['3(]eS3_qZ.>r#^a#_],9Z[XA<?DFZS\.*DbS_]tplH:#
U"gJ[(b/D2K&1]L+U2/I]+U2\/]+7a$Z=3I]+U2//]USV]Ph1I]+U2A/]+U)2/]+^
U"1\0s\#11#$9?1%Fp#/[GP:=Ee3MIwhHI[i;#s\.e^ri$?ZTiltGg2$2/55+[;;;
U"YQ.P-R6pWJ4WWMt<Qqar^2/22(Xcwq2?qmLt6ZJrl[5)fgL?rMUoI6),%+jlj;Q
U"lhI/$fz's08)8b.&LL(p,<3q%&hWRzInIn^5kdt[&&BtasooL3BEEN/T1020,a5
U"k\GmL'<K/6RoC'ak14->f8mrJ&ZkDnRUPkctN4wi_=D$[m$g[mo)p.7?33C=a<m
U"+5k_mEc-NNZA'FO.7Ian_6?n.&_)*26Tp0WhNQPc**q;<4'KZ>F=FFO+*ew+wP2
U"FEIb'[h_6q/zWTW:,Xxt>hM.g'ksW*G]iL()*YT'T$$0+(7cdIuQo12::6fqu4>
U"uKu'pmH;5ei%=FshVlau;]<,8u=6M\8Jqemo21_%ibJ6LG;Ry[oF#x<&t&'p?Uc
U"HZ%m:0=d>nvc;::bP4+c2jz9_2o>_>&3w#b*z+0Z:3z8yH>=87.'V$QC>-J8k7x
U"aUip1i9/8LYQ7FYBIxdDkm;IGJGcQ.*MBjb5&MBj^bf4ui)s)+sl/$P6PpTL+I$
U"h4Iz*z3hFS6nXFw%Y[HLBNuOPPJ[6Dn$'P>_ip,=\YBPD3;&CEdTmW-#Y*I7^qR
U"WkDKsL1Ob5;3lsQTbCOneo6gDf?&)d_B)SE-cu&ibo-m6>xatQbXRIodNsH)yJ4
U"okMHXWVRaXbis(dg9R6St5gXR_5Xl%;/69GRZnAH<]([<wuZog=l-<E#.T]pBc%
U"'q*-YGwH?+XhsW0QPfjT-SVhNN4SZf87Cr:\mVn8L1,mq&IWWVlQ.hHEFuHjKj=
U"L,;1N2IY\du7IY/r#-b&sqF6u<$t?A9RT.a=oYj)27f,NO&R]cW9:fe](m.5q%?
U"n+kc9:n3(-m#.IEJwsoY.5)zbw'u(nK$\bw'(4zwKwUoOoj2bgo<mKevpZW5;-k
U"Hx.HN+f.N,S5\^YX<cETj4FNGZrZka\w,$s']r#TFxf,^u<t.R<f.8(t7o5QtCX
U"OSy5s3Y_WXt3S_9i8y:$sls5di1P'LQ-(UcuR$VN.qAt/Xr_<88$[]\s?g^)Ro4
U"8M;&spgm0/S^:$>v]5Ur<:pj6GkgT6_89cc]<.8,vT:u.VP)H/Dg/3w7\%j&,09
U"[$9O*aKj3eB\d=VB(bSdo9ni:Bw&.7-fjC.7waTl#feaJ_[Qe^+&rO4O%Afq.%o
U"KVC'YD^+E]B?;.g9&7NfA,Ju)Qv74Rn..)Dc(7h':h#>1.1cWJLY05(4xa'G,^%
U"Tr.]=4=d8-=5F&oj3$n^.W4C*%+[I[EC](7tEqT,X$.3[7.iuaW\(==)teE'UnC
U"Xj;ovb-ZrN&sg%>t%dbc50hKRZcji?pYNja(nH,%5:(%W&d$D\XqS_pZpi/&$qq
U"bB\U_t'\.&jlwBMNjl+wMN*oG3+cW#cW?[a8Ud4rntf,>%\2VI2v89M#cvPRW'n
U"a?\#c=z&WwW89nPr2mNb><n&sM>zFDVI*v:TI#d05\W)DY:mOIq(r0OoH+6*nms
U"dfNnD)>Z(0LItJv&LuTcj-NW-nv6noIbu&0Pha_63sl6LyPs3C%PD>Rv>NQ3r-O
U"THKL4uYCeCaYl7VLWDzl,We;9/7/sQQ30JUN;(T9fA.l\kdM71,)oeAPA]U*hP/
U"yXz=^(Hmn?P/y(d+9xnqHVFrC'UASu\Y;6[fEm01R_-sm#;vd:UQ\j_nf/or$oX
U"*K=\vn#a\2YeOIpdY-rsXnKW\uat](=NsF/evn]?CI\aH*<2=#CPbBBBgM&Gx3(
U"CU*nN$epOfT#dr>+=t*=JK4ce-q4mk6qS24lf0(P^v9KZul8u;nCAuM(&ns?QYg
U"5bM.r]n+jI1T\r6ov]aO?;^3HdM2Z:AYQ<10?nA<#\#'*/3r\w#\P35P.ABn(V)
U"NVzp39mm%\uLu(7Jm(H*1-h-_Li-nSJQ2PS;trXf0pDhX2/Pu%ttAMaOg6%aW4V
U"Z*a_7k[rw4JDn3A2]aq%u$)udot+'J*?$bi5Kl1W2+4VUyCAJSA$xNU;KC81X'I
U"C2E%xVAE%xVAE%xVAE%xVAE%xVAEtRO:W[j%WaLyokp[X9jUt_O:W[j%Waq$]Pg
U"'JGhVcS1.QB4-euA1]euA1]euA1]euA1]euA1]euA1]eun1]YgNq9(.O$Eex_EG
U"FuTGkm)$w8uHVDvdY(I:,&?Xq3Z5zg4O(3>4+pfv*l$h9kA82LtxuIwY'e6G./:
U"2YVtlT';,\;#94qn<4+iF3*Wdeu=]beDso2&?3#fW]Ltn3x>ZHf:E9Y3tKwukQB
U"wj9M^WW*Yk4WToQMZS'BEaXT+>Zo,fiJ;\4*]We5X*gXLEqVle(ZYAo8KudxMrN
U"<_i*o/53ERmYy:aE+ds*n=s:E./2PYft<jl/6+/<u;TNTE3J=k/^2XyhRaTDso&
U"D?3#.$p.Y5Zg8A.ipZfpujdwh/Q]4]tMVx&U8JV>Ul$p3n?/l;FV:9+BdDZYf5L
U"RZZk_UH.Q];<Uxe<5Xd%Qq7dychmNX>rjx$f^e[^Y5Ph+E=M4$&Z+G(.j)-bQxT
U"LSkiav]ZB%W*.At,RG666#]GlhBoA\JWMkem1Y5^LRGhWBoAJRWMkmC1OU::]6i
U";:d6i<_XB+bAKf_>sUseYCo<inpBs\9-)IidOaG+kPkl/XPrf:Yh5X>b%WiA0Pj
U"i'c:jk(zIAu00;46t]Xu=*rVW2#&m]3mH+qfVA/Y]E9b#em=nP9mV%wmP4I#f/C
U"G#ShT=O[QVoK]f</V?8ACu$;s/$drB%jA$s_0kv5-hZD,JY]EkKw]/U>u8Mpfdq
U"CEC1dX]TBN,)3$8](X7K['DrDK_WOs47;lApauJk=JkIK,-9Gv=&g.8#%^nJqIN
U"mfI(cQuM[oQv=*o\=\ulueK_.WAY]VEs\O:>iwwaT&XJ[VXyGd]KvE29lv^#3mm
U"ZV2\Ohge)bgqqDCV9liD8FldnF'J_l6d,Is>9*KfVjfL.cV40lr)W2l6*#]x=j,
U"YqZ2i\CTekxAFB?IM/2\%oKOSCg9WfKU.R4Vw.ZXv^(31m47;MK2o[l];\ZhMHY
U"$OzZ&#'DQ(-G=ZcQ\*A[TECq^#[LcgTYDtkTqG)9[DHDZaQfLZgHz)CJ%Bd^3uv
U"HsJ=,qlo7FE),l7VBn?X1FmB\q(KKhE/EG)8=OYr:*GCYm9tM,r%])6Z[njVG?C
U"ZRN-';FkdOPwhQi13?WiOvZt([\]0SBG'uI'Zf)5FI1\?*mr2rmwn^'O<(>?mZs
U"?<8k+]X[pbF>/#rS/%1D/cV(40W6sUj3uj?a9p?HXp\V?2/j\NO,h$\[R[c5HOx
U"N;;RM?kKkgikh0wzDq)C&9$2A+71[Ax%\HD*2+c)5In/g'#h(e(UC;j4-#f[cX;
U"l7Xl;cW\v=?k6txri9\BPtI#dZej^tB^JcWlk6JpKSuIAj>*CZ9;4'/qJ(YGVRJ
U"UM+W-DatGiG6Ht)ARFApFEoUft:[#5$AMKVv\<rFW%lBj/)>0\U&9#&rGLzjB[K
U"r:+8c\CcVb*cjkf[7+tm#$1-<AgtS22Z.UHogC2-8v2/SMY#-MKGXd#[p,tLrk*
U")rS18'>/dIxS8d5,s-T%)7I%wv]Ld\SEm+1nC#1dLMzuJ=-MK#JuZofTeKd6xSs
U"=0#or$ubophep[*/9qLop3U-YDKAM]vJ71ycd)kNg+A%lPOd+;3P+Nwk?rOhD&A
U"Kk:mNOqH^TA:?CV#<+]vrZ8I]:L?7w4vqB.fi>atA^J)djiwY;;]t/tZZ#=_M4-
U"].1NvH2N&[^WUO<^'.^kiT>&[G_c7%g[0#WGVdWH.B'>pht$i2>5:-/ZnMq;Ji#
U"tHLnujun>YL)x.fDJOdgzL<l71Tappu%cwWh/T7F-t/=0;8dxfo_/*<.W8(eJ[g
U">J.LI0F)=^Zk]$VPR11)]6%FqBJ-X?$DR;FgMllhhSlBQZbMQd['t##ZqX>rFQX
U"BKOP\E26IJcrZ]<+5RM=nJ,XetuzZ1RGmTt2ofo6cS\pDoOnqSQlQZ.hO770bGx
U"?.S$8BYlaz0J-5*KHh2XuU$5A^yjJ=N\##K%XX/4P0x_>>lXqei_R)lL(XF8Wk<
U"jHarfllEfY+qT#H3i&>Dw5RBp1oBC,,f[/SJ3Mvp<hd%U%Y5fSwV.TJ+Oo1]11E
U"JJ&fk0)n0[ZV*uY2QH#uH^lIV);rmalhtM1a9#4icJK;9_a3atwTXn2L>\ttu$v
U":t4',T6pO?;u$_I?Ml=FUOKQlt+%-4QKg/J=YeTCS2>1grMK=>Q33+UY*7^pdb)
U")t8+'idu%p()9%%%%-I%^Hk^O?*#&%i%%(%#%%%%1%%%%rinLk>A<IVS;>t6lBE
U"%pzUY+\/w-+MCTm.ROxy'inrP=vAEx[Mn/B-HHno[QwmG+TFnv-ADTv%mozMmsR
U"J\u^k:M1<mhw&afuH%%up(%)9%%#%-%ADgfOOK_]';#%%%a%%%%0%%%%rM>3D;A
U"4VS120BBQ7NNCq%ORnzg-BYp+pErz])zuk]FtNF[nZy[?^[^/mMrCB^q%mlXrEE
U"B9DTCze?Q%i,Dj)Vm2fk55+:tn./E(2(r-S*%E-sRIfw=zNYf)]/s(s'CSz<kq$
U".GDN^ifq#%Y*1%A%up%()9%%%%-%2xe]O>'1X8%d'%%&O*%%%1%%%LuA>9242CV
U"%SwjxD<bp>BLu5T^,iL&q)D<S10c4J#CP[_&SGO5no;S.Q\18_SbET8TADZfWjN
U"CF3HD[Bu\AGU/HAn^%X[X0]1DCu<6NvS9\Bg\WFS6zJ<(J>\BpQ/j;o6ws\O<sS
U"1d*f2Eu.,WHg%dh4G,NMdTE^2L')&KWF#.ZJ(qVIi7MV-oNwU1AA9^0W^%+,^,l
U"z*W>#aD^x1<FK-PmE'E2]YNP*?Z$)FX#$$KM+Tm2qp+d1(0a.4nh3)GS>EGb<>(
U"2s$sL+,8Jb^TFR02Ok<6F%su/K?*ZDi#Eb)*(bl]3\9d/v/p3'P,<rekOXCe)6l
U"__boJRAP$,\hUkkH4Ep9P=N.5;F3s^r^/&YQ1LmzYu$)p0$6d\8oqA?&8K#r7[:
U"04n'.1vkqDt3Y#HEmMyv'[[G])e'H/$M\z']fNouzlqg_*O/;3Y2q:dtNOOps,P
U"hKPcWGt1&r2,J.g*6vPF9fTs.zg,)\.dNPdlGsQPmiM6]H]*osns^oW%uHweptV
U"pT?jX=.Gz[pq(F=ssJ4-mkD^*YX2BWA37$%pijh#7g;5%EK%l.X)uLPB1<;BB*:
U"NXxNmWS.sdpbBfnC:wi*Ex4B0:b8Be58<l^lU$sj<l+3ZHtrLDAEmZ&v*yYU\x9
U"fa_W-p<^Zmk$WyTTY$rpfhHVNMXE:*^qHf?+*ns<]8rC\n7tJPu]f/&l'f8BBON
U"9eeY)w]r7<PP^n$8QC$Lz$b5rt6-sn<u%p()9%%%%-R%0)a#Oz21+x2%%%%1&%%
U"%*%%I%k>AJ<V,^*4]'VR1j0-,8xFB&<W-2s7X)N--0nK%ViW.'d)FY-[XV4Lv;2
U"*p_&#os'b]YOpDWXfAc9p80Ae'qytp9^_'uB);MLX,8Mqn4Wf=/mAmcJj<IKi]K
U"wDEeCbUC.t_Og8]>MSc2.t?Y\TxyZTHpQE2A:,R-nJ1#TN:ZQ9$3FfCDf*LTJ6V
U".2s-Gi1ZEuRVseB3J&Gc+a0[\=?%_RS%N7p8U:7)HdnLt_-D=n,NV&u%p()9%%%
U"%-[%,s%LO5n/*t>'%%%t)%%%5%%I%uA>M942CIVSE1J?S10):\wr)>je5W6*kNG
U"Wep*4.-ZdY10[/[TKfk&f'rwEBfZ[0fr/<7Rp[Y<CNhS.5$8TB^%X>Ag\X>pKIB
U":elBpVWkTE+?l;os>5fO2Bee'^u:v/2&Ij-^GwXheC[i<H60cvd,Kd_[$cqSrH7
U"20ecWcSUYS8;76/QSOq(tYQOOVE&ZlR>sIyGrYX.WM,kG:VKbzf(=$CLBnQ)hHG
U"&7FWEO;?m2Fr?cxkYsrDjfXjYPua^Z.jm%0=7Ff:<2>0;#GNx?od4OJuS)0-X]l
U"pu)f3Y?ToQhA$]*=Z&xZBt7,;cHs,dj?ustO>W/2q>^'ABVipkixGl;D:dzYX^:
U"4L#uFq%n^\[RYK\QrB84dovL4/Vo\Q8sj11]g0,_JLb^X5v#cKP\$Rq9YLG(A)P
U"<N=Q&/qva,L2=TYo4z_6e(TJnXKa^=61RT8&*T?)B/(xDUWiVvH#uaO$BdE6(gk
U"H1[]SX1$/K2+h8i8::mAzY2dBy6]>I#T9H-qu2a0sE]#Rm<:>jjSkQ_Qm'PpHp#
U"*FL)aDe_&&I2;QKI'>eHUSsk(C/TfDcI]z.TqpV%gxjtNnTj_;Nnnz+r*[vw>Sr
U"mnuA.':]Cq4l1j4.2pqC80^1mbQketOhJS&f1/aW)U97\Wy\caNAX&[#Y>+0/pc
U">l.iQL./+_lLT1[b^d2jYb_q$d9W,/qorO(kd'8E%Dvc6jS]3:77++'RA3WJACf
U"4u/NI'\];kQ],Kk7eq7s:6_)vNO6rZ3<tRsL.7nieXk^\v7IH/cqS'+UGWpVsRj
U"pC';lCx(%up()%9%%%#-%xn#NP=[.k$F%7%%0%%%%1%#%%uAM>942ACVSED1FR]
U"942<U.1iJ&$WP()S_ic&)sAEEJT<?l&C.)=ciw^SaOq/k0WnLA]8e4K3Cs\n8Y%
U".UOV^K^N-Or&huD#T6lNv8CH.Hi/O)Jl#3Vj-YA*/IOp\LMFd_)PA?FzJ9KH3]q
U":[1S;yH%JOtE.'+Ya)/'xup(%)9%%%%-%.\oNP?GhFZY#%%%y%%%%8%%%%wM403
U"<J4E8<M>?C0D=CSC_GCzF7r/;UU=SZLhpFg.=9HIu7(;&NKBg+U3q8QV.2nYdkv
U"0C$<%nZz'vUC^9GggUOoJ#t8S)co\V4QrGWan6tQJW\gn7pQKIDg3;knS0oT0*f
U"K=u&j?82+a7'7bPAYJ9I4<EGJ)&7*ph1-X*O_U&BAjgfE/.g2Kpdt3Ch$ey*83C
U"F4%up&'%9%9%%%%-%(xnNP&e)ht%t'%%'K(%%%1%%%%%%%%%&%E%*/P%%#%%uAM
U">942ACVSE)1?up%&'9%%9%%%#-%1ndNP+x2>Rp(7%%'-%%%.%%%%%%%%%&%RE%/
U"P&H'%%Lk>A<IVS5A&<up&%'9%9%%%%-.%0nN+P*-x+g0%%%%4&%%%.%%%%%%%%%
U"&%E4%/Pf%+%%k2>A<VLS5AG%up&'%9%9%%%%-%;Jk)OCs/ew&E)%%%?7%%%/%%%
U"%%%%%%&%E%*/PD,#%%k>DA<W0LS5A<%up&'%9%9%%%%-%(vnNP>q18w's5%%(u1
U"%%%1%%%%%%%%%&%E%</P60%%%riInk>AA<VS5)A<up%&'9%%9%%%#-%un#NPF0>
U"-w=Gm%%Wp%%%1%%%%%%%%%%%RE%/P'ZA%%%rink2>A<VLS5AG%up&'%9%9%%%%-
U"%1^HkOS?*#%%i%%%&#%%%%1%%%%%%%%%&%E%</PHd%%%riInk>AA<VS;)>6up%&
U"'9%%9%%%I-%AgefOO_1]';%.%%a%%%%0%%%%%%%%%&%RE%/P%be%%Lr>3D);4VS
U"210Bu%p&'9%%9%%#%-%xDe]O'-1X8d#'%%O%*%%1%%%%%%%%%%[%E%/,PKe%I%u
U"A>M942C%VSwj%xup&%'9%9%%%%-R%0)a#Oz21+x2%%%%1&%%%*%%%%%%%%%&%E4
U"%/P$%h%%k2>A<V%up&'%9%9%%%%-%7,s%Oh5n/t&>'%%%t)%%%5%%%%%%%%%&%E
U"%*/P<i#%%uAM>942ACVSED1?S1)0:up%&'9%%9%%%#-%xn#NP=[.k$F%7%%0%%%
U"%1%%%%%%%%%&%RE%/P'-k%%LuA>9242CVLSE1F%up&'%9%9%%%%-%(.oNP<?hFZ
U"&Y%%%&y%%%%8%%%%%%%%%&%E%*/Pzl#%%w4M03<4LE8<>M?C0=JCSCG&Cup*%+%
U"%%%%2%2+%f'%%%5m%%%%%
END SUB
V2
CLOSE:IF S=176AND B&=19219THEN?" :) 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\19219,219);:END SUB
'>>> Page 1 of COOLWORD.ZIP ends here. Last page. TCHK:176
