'===========================================================================
' Subject: A SCREEN 12 SPRITE EDITOR         Date: 12-08-96 (00:00)       
' Author:  Charlie Quante                    Code: QB, PDS                
' Origin:  charlie@charlie.seanet.com      Packet: GRAPHICS.ABC
'===========================================================================
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.3
SUB V1:OPEN "O",1,"GWORK.ZIP",4^6:Z&=24564:?STRING$(50,177);
U"%up()%9%%%I-%uJnMFH6*72#8.%%2m%%%1%%%%lw.ni&t%wpSg7fxfa;,B[mYaH
U"gWKw4H+NH';2I47ENYGU6PCV=82.(0G,P,UZOQ+&<_n'n-fYZvj&5hnpO=nYg>?
U"XD?^eufyCuECCC?CECQQ_nzLqGBgpuTP6Gid&l:6nno4Z\DownJ3PjLK46jCQZH
U"7V^pPn5C8Cl+2JcR+\rkx5$OH7aaQMQ9+0\pm7S?Z]xU0bP565XLrVi;Og(.lJF
U"$&kg/[>GD7osgEEf1ki,3bWPF[4kTuy0pu?pj<b?w-G9)Xf,jPouInN>WV=Tr81
U"GkGWknNR[xDmS>jT)lW^Mnd2K,0RU3#H3WDhN9Ohe%%k>$BQJY$u%jY[O3;6JHA
U"PRJnz;])R>qe&wF?U-ni.dW/0j#kJJI<(>rTDOfj0yOC''CtfVl0Y0;Kc+RWYe4
U"UQOsP_+Z4,?#DTjg/+IMBT?tIG>KXAeGTbOE22kO8Kgn)sm9.GE[](eSv_*U9kk
U"3c3JG&ne%h%M1?gSFv_BZ0.PAY(1r$wciKuMaocucO?$:\q2rai0.Ht[)08JHC<
U"KQem1(;%I?2k#g;3j-hWW1s^b[;j7h.hQ8M)$G8+S^WcZGGR<YR(CRmkMQ.4Avw
U"2T$[E>%&ZAmDAu%kiUDiDdl,(=u&7<X\vGsa\ah$UcWgg_o>r?qO/l(:gL/e8CD
U"<YEtX]4n*,s;aWUTM?H2Gzb2xr(?X23^rhm9wgd6V,Y?xnz66God;mOHw]q),'t
U"=a#u66B.&hONmp$'d*d7j.4pfJW\QlV]8FR?UQ3JT[_NHt6M2On+(61[$$2LcT,
U"NL^$xsmg+HjucAgN7=#4<c6w)SX,x>.$?lv0TT,P:mexu#s#.Zva)g$==ELv.;]
U"+piq)<W<1$A2OIIE0T+;k<hqf#%U++1SD?CnqlTfO7Zk:QJN0f3pJ\VlNl:lpir
U"NvSRma4q,xGSXTJ;&,DlVX4Qbs0*00ixT4)+GE;ZS+#HUX*:pz*:/mXoQ8TrAbn
U">j,Btt%iQSk[Xc_9]NmXnp-njb1FkCFYWpEXEMunp(g<RESJbSG-U(]6Uj9Z-h7
U"'1Crhg+EtW=A^s+dDnH\)TGZ;8S6bD<T)NBCv\sb-IycK2Za'IgsmK*\SzdM$Uz
U"-K80]Cr>>:N^cgdP+4k3lb:K&hUUoe]hI$j,C0Z4&r5Dt$$Ibb_XggB(3$Z?/Ol
U"F5lYsgAD[5r'7l)kAbCv.Oc_xJZg1wv=[J;4D[r4&VGR)_f#p<[_6$vRDq/bMA#
U"Ex<85[;RGg8yZF\0K6=II4d9W2B-bEES2bZ_Aru3cvldF.\^V7*X-*8BhZ8W,rr
U";)114G;=zjxL$250kSaJW*J4+]*#^(A6MpG&0Z#M>o((2317^?;zBYD3?AOB*OH
U"VlZV5j>^TLU.CHL5s?GTOC<<W13^8UD<Lj+H](.TaJLmdAc(wTMvT<?(Sddahx*
U"_bX7-_aGiTFNiGj5m6,[1Po$7k+E7l^%27TZJ\EQG3Fq9JGL0r:_W$&#+^xFJ,<
U"wVBrNr69ks(R44M5LOlHnL>9aDn3#>S\8FcPa]3J^NVi6i=va1g$L):egE:W_C8
U"EAM>r:9,L3*G-eSO\J9j/3c;#>nO^__[m6F1Tdq^L*>j3B5dPgkk*f+,9b?t<Z7
U"UUfm0&:1BR(v7uD0>sDU5.lWp(0s(0w6\*oDBeZ5iqTl16OJOUF/p-71RmOE02H
U"F+.Uq_ab+TRj5XmU%d#$C/3YSudb,PPRjz<>mCG6iOi_)pler):$ol,G#GW*w/K
U"CG+0fM%y0=:3Os'8q0yJMT2A6#l5\2.S5;PC^yCYm_*wBoj_v)V_o=tK0S5JOAD
U"e8PXjEK7.d(Ui9xhHm;m>UWne+*o_Y]nr>rCrML3n.kGfi_0*3-+t75e=C&/BI>
U"l=0_V/zb5hUdW=R*Ishx>dUCHnT:8d^(u-X/\k.Zcs+v_AU-f5JU1ZeNdnD?'q8
U"w5Jh-gpEpR^mkCLYf2q54_[n_Ma.Ykt5o=VcQU$99$HdN4kS2ynr)ruc562_0mP
U"Q8Jv]:dCRuYWO,ELn5P.mjd4#H:Fq%-(m24.D[_;3)l\%h?_#=Oe[3C>$Z;TkN8
U"BWrc65SzSL^tK7c=ZL?%URm?;*[GNYa.RL,_M0i;;LDqdbiXp-4+Ii'#9*8(P5k
U"6*608/vo;RF7dQYD&POtP&*>Ac;Le](>>S-$ZG-QY>2LR;7x:+X$Htm(iu%8c;[
U"\Gk([Br/t<'XV>:^>'AjiG-N[[]3Dise)ZO0ZTO4?hdi0>K90HQwH#K4)jH\T;M
U"TPfbXqa'1U>e^s,$fog)l<UMbsPCHSw>.metw%\-hw*J,2=,]48:3V[?NRQAKbj
U"/p8'fFpS#6j0YX2\*D539P*rYY-w.(N-oN7)q'9uL:axpo8]S<6OKu;#y%Y%:LO
U"W2U1/iiKIbP*1m^+-TqT6E5UvdN;&kH#M;72=HK,_9XY,XNW^mKU0rv$_h%ib6<
U"Gc7+X_yPRsR]<Z=Y<H>M?0bQa84KFceqDhK=UCrKdl:;,A^RYC^1VJjk3sFO6JY
U"oHnq?.ac&lR(==ZPSi:,A?MIc:zg(O:3rgZ]5>tSR8Q9&-N950mP?t<4r+]x_Eq
U"s5Y;B_h,[IN]GTTI-Cv_S-&6f'fRk2,g4X*aVma;vf38CmU)U$$3$ojQb5o2dNi
U"n.o^iNDdb&.OUk<Cq9Wf^hy-T3c]ob-x0;gMZ$D<F9?I8ZrYr(GUVK*CV9hhjNk
U"9SGXDaAOtZ]7=G[67et+U>';+rd7fgZ+>P7G1/-X<Z$2v9^e,:l1qXZYGkCL=9K
U"U3(&r%+mDaYg*DLzZv(T931(PE5i.0mQj*1pRMnFUes'\YK]ZLqo%%Q&Gc$$pr=
U"B2vgvgJ)r#PvjnB*Qaq=#>,gH7+im6dr)8-HH?36<$O,u=T*X.YelFa&^tyktIo
U"[BGbacqNt4CS,cNWZEW6uwM3.;Hr#k:ehmU)[7NWF1bPDVr2_Y%n*Sy=)cHu.AX
U"G:K)1oQ31emLW)u-dQu[Prf)D]jF441;*yBq,Qm<%Q(QP&L(GGF#7].6iaiG8:3
U"pjlQg127/F)H:[Dj=Y<?YV%,JMjK&R%mp/d'Lpa%z)Q#ANd+a_NTZX5B06_%lCB
U"p:q<0]N^NPzjgKmjOi\Qt95\uPNq.[*XT)Zdg(g/ZON??5OPA[O.T9o[fkaF/O>
U"_e*CTcx/.$5.HQY2kzD6k7lG.L/qTcLG=0SgK6$=\jQ9O.PpQM*64.oU;.hhYs+
U"Y+0Y5FAsfC3Lp#D'3+k9NKBKUQ^mOiDc**Ckw,BYArnuIEri;LnT$e(Ux:/c(FN
U"0DBuWE1ZaXlvnz&QVI%776r2c*.Y5i:W&+LzIGQ0[bi;TG$Xs_i)h20)Y'VTAgw
U"$'+QhnC.Z*0IIMdD>j0\bGS:-uDqccO6O#^U2mCV_*>\'i(-NLi/-nn[i9>ge>(
U">lR3>A(LS&JkyNcG40]U=k=XTvgCC'GeqVV8NidtO&R>)]V\;/?60:0]gO_ogY[
U"\o2-OA:;ROMTKkS'puRVMuv-vFTn_VB0(3C/E>=w$DKv?[Yb)DOC&bGo.;DHN$a
U"?[R'N:VgVmo/enOu)r&P%><X'keECpe<1wQZU(zBe-ESUK_\c5?3JkN]b.Jt3Bi
U"qSw3(?(YO^N/5-nRgG6B)*ha;S]AvN%)3<Pa;.:jL9pgDa/j/#m%H%+Q$Uh^HFv
U"c7KfCo&SUBsNpHeCfLtU+cSo<SDFlCMZ]]i28v+,wq25CD^LXAkN&m5,(3']4N^
U"hM2A'Nd9sSF#V\#7W]$]gXl$>(kPBJ1]P\(]XeY(4ob/(ly/GAf$HQ-2z2S*W9#
U"S3?o(E9hy<NQnq#Mi>aSXjRkxE)RG/Q00;mRB'u]dSu*n(UT>h0nk&9FZMk*nuV
U"E\dZOMJdga4pU-.bXpN)N-_RS*^/LO60)9vkgB..R-7S-n<i^#><+IF/k_Y?7//
U"-+BK]57C,)s>;\lEkR/$%g;&'7qND]Z&7hsD^$IC<#n*%kj,J)L['<oWj6Nk8TX
U"MDEVRfpxHO<22mUfCttFK4.Z&gKA0.n996M3pi1G[XzWvaCUMJ[f[jKd1X[1e)K
U"jNgC:5/SNHgFacP7iDAx-]D\Zt\h-Epxo*nfGl_#wi_6M:C]c9r8RbUYi_:D-wW
U"ekC%$aQk/tND^e6Fkk'3XNAAB^ATm*<c%u[Qlk?^8J]#mBQa0q04JRECFbpH./1
U";jio1MHKjHJ&iGm[A)5]HC2Y''z3$QSn(iSJ-X>/TSL71P^r+30chawweYt;XiZ
U"Psm\Ft\CmtyWJO9weN$-%EBB9N#YCPzfto;+Ssmau#-NhyQI$)8)Dd:M)FGdupb
U"s3q-$wje?L4G,u:85%+&?r1Y4k:AyQxgu5E%nomN8/;Mx7Atl('4Le*=>>K^8.j
U"pZaoS7Z'fo5e\&w-h2iH%0O+P(l4kU5xO;z$(\q2XSZ)HJgvOs(^45OxC#1k$PS
U"//47DHh'ikeFT/Ufv'nYHhf6NJ?97lsQGRN2oL-=00\^].$AK]X>RYaO=?^'Sg]
U";xtG^;=TOPWHbu,u0EQ55yFTt:f(6r<1Z-^k3]pf+p%&+.QVQH;Q/[R[(d\;5MZ
U"Z3)U(iTJFmL<X;VHJKU=Y\aPO;J0117rlF)YUg9>wigjaFMmB&:Sgs7L2\-+HsE
U"neQLDM+5v=I1y_q1C2**08SXq;[Q\O#&Ubi,8(xHU(4q/wXX?#v/*=eU6i[]9,U
U")y$MzH5knH:EQHk(ZPIw-*jb%UO-Al--Dh>&xt;(_Oo8jk5c;fW]EBHJ>#6x6'&
U"P?peJPuiV1=AZn'QUJC0r#GV(9jV?8ZWi^\Hlwb>1^o?cd,vAv(:9L*t3KPS6(/
U"hMKpPx1XqQ<le8tPGn+^KHVfk[4GFskhqQ-6wLPHVG:805I97jmKU-2ir&Ib\4J
U"Pyj?AH*F'X2-$:<8)$=Buj'k:?[C8V+]N_7=Wku76lHUDe*2\3r2w_Q>xUPX660
U"jh7mTC,th\V;Y\;QU1eA[T5E8^)IWZDNVOIGI>SAW5e3V))0C#L/z%XGFnj0n-<
U"Y6nR5L(.PDS&&omx=JEa5]#kM7;.4?kveHspdk,.4YIKT46^(GZHg.6e]V)8UQw
U";oQ%v'aG.qs2U2=,L-oV'k,5^0QgQb,d:u](+3EF1h;E;5jNYJ]iRm;5//3IQk;
U"igRdcUAZN*CxKx&>oP%/_+Bb5Ut>?GT8I65ojc0kV;-k_%]#yNcskB'D\=rTf0$
U"EBj9UCRNI.newaI>_iR&4AQoT$m^C+MRJx55Q;9=?LFqDuWN&Cz1lVRl^YpVh5v
U"F=X2Hipf6\o?X4X<m)Z9\<e(?WL4YSBR#y?A^f5#d9Cug$nrG\#_ocbGJN/ivA^
U"p[[(HpKx,a4W6KKet*X*Rum(OrNxt//gA?539-Y>>wadyxW[F1[rePq6zw*_(&.
U"bmKUMLOt*C<CjKRjb*<=%54fo3bby.R-:WheQ]PC$%OiTVifQmIZU'L,X5fN*X^
U"6ZEQX'B66Dy6p*:3Vc[Y8gs-uoVDYw>veO?#4V3^Z;EB[8CS7IT3JeQZ#),fm_I
U"MiegXW<wh&w2jAi6PX1\_R?)YY8Z&2kWrzc:;sgf<y&,cq\+lGRky]2&7[gL<aU
U"(iuWHu.EOgjB]PbS:C5crO?+c%#IH/B(zSICKkoBGIG=iTeqgDKhJlF9*Rzhc&X
U"AzfXcv0p1k%EogQYQmAFe3e%0GNMem%NpcN4TW9BWD66l-k%fnYwJSt'9,]8%Zg
U".y88t*Xwc67)bl[=Za1t+'\Tz[d-:O9alFK(A'^_j.hfY0vOG^qWu$Atv&+T$Ls
U"Aro-2-=07;wbO*r/Y3KiT;]/b8rq/pBRW-rrLAk=pkR\?d+7;VWtt_Uaqf3iz92
U"7max#QPOM_XYVq[;OknKW6)G)y'7ZMDpNv;9S3Z%.$^_h0zDrslKOVCX$6qcfI5
U"4_oME?O:(mh8V;9o#C2uBf[MQ<DU1ounb?il-^>jxG+XxJssZ$4XsJJ/]2w9o_j
U"6q9Z&16TsX/P=owF*3gz/WY.lKtIJ0U_:EG8nB6-^aB9o[Nl9)'Q[\l_Rbkc/F+
U"/2,L(iEs.itBOxO:h-GTcr1#mU)7l(*?a:_AO,1%MyNQq]DfNUN>qE9B3+PL4wo
U"^_EV6KI]F^?2(yD&2o<50RaaJ\KkKJo:n^oY#=*a\A]qh.Qj$/P6o\abuH'EnzK
U"9mz_P1FN(+H74YfqyDs-+L\_)Lx#'=.h_m3d73.#251U.1%h^UY%xN%&up(%)9%
U"%[%-%oCPMF\2VS1]%0%%c%L%%1%%%%l#wni&%twVS[gfxFk)fBS7a7xqb6sde*I
U"C/tI.4gf?5mS>RgqCc7%,]C,KXAuhRv]F$Rungo(d&W4QRU[EUL]5X7TSnk%4zN
U"t9.o.TVDn5s[Eh'n/C1TA$<5wuYV+rQ7?iku_tcT7\_iKckOu:Tx(XLZYM:?r5O
U"Wb=dX7Vc*lrqGC.paCUO/2cbYdW;AaZ$aLBYm)QSG6XmxQ2Xdm<W#cQmkes(uVA
U"u6*(^BwQAVBa^Hj#g1K?p6N4AwuwN)AJ$>H<uPtM.Bq_B'\,yhQL2HP95LhV>A-
U"usQ(dASLW4/EDpC7Z92p>q1C3Te=n3k&0rKH4x#M=Ck:T?%87XJ>BsL>4rU3<9$
U"Q$*.4'ovp+F\wn1m^e>>Ac,O\HJUtGt_<<B?UDWV,TfliZ.pWnJhRj^rtdZZ&M>
U"7=i]Fjk26]>0j+JUZgeadq#WXMV0__4MS<8YbBES=TZITG4+i0jv>zi[>O(HQpJ
U"B9?E_DKo8_[3c-=X6.w]B\Dy;.O9c$VjBTUKf8c$GLR5TR_:-+qs_HaZUbVHZs0
U"-.Ld,K[tF)aLTE)D_(xLkig:LgtKs/O=m[EW9(04eYXgWZm9in]7Mb6ib^.FGso
U"]'i>sR[F8D&+=Ly=FF)<oMcT/71M?y4X?+=li=qFUAO9Q=1spHN'%N?BKOMpe)S
U")?y.[_e3ZN1wpI;lmH%oP=H'Pv#oohm4GWf$V.ae8\0$.HO*]$xy.B=I?][<:FN
U")nYf:CcqW;n3*)+s%]Za(ak'C>]G<NZ]:]o9xckEjH?tx^iR?#\$=li8DI?fNE?
U"O+T7e086:[zb4+?gc1nq45URRa/CtzFW8;]sI_Xef-4w[7]T/Vk2QY(m%G?&^%L
U"Z,7W,0tnh<Rmba>gE9nCLLV$f,].Q+xV(]VChs]JOSZo=J.>Q/xAx9Zb_;0myJR
U"9dz79YP[I]Gpf4a.;qqqNb<\Y,drxeWF2Q%2,J2%[Y>eG$f3\sci8x^'J]18JSC
U"_%ajUlM6s9YPCr^SK[lcdT+eMJcn.$gt+2NT2Nsj]'*<X2oMpGuIiO?NEkEdgg(
U"0#/4:p-d0]J>/tk0QC.(h^z9Lk77L<>)h'U9c;^;aQ(54$J[I4^MWFRI5-E^fpI
U"Qip$J3$58SE<>>A333)o<=ZR5YPLLs-k3+(Tf-e&niQOYYmLZ?2GOG7^&/3=>H4
U"T:L\D'VtDf/Jo.?w7l7Bq1:$L(MPE0,vTC[zf[vO2S,rZB:Y6eqAY+M)\y/kYtZ
U"BomQ#-526aNhlTP:?-LCX(bN*x]EX=$62tbAM2REm2B&X$=/VnVR[]AcNS/A[+2
U"oWzp[gs4QQ]K$l\U</e.\40_-?AP&Rk=C:$._)+U'<N>&xA.=$AnT6/UMJt;0RE
U"H+FX<)'aN0%k?tOD&E??Ag1t9_bEx+,g3=xP^isRuSo<fTDVLLP_b<gYhfX2WS9
U"]g9/Q>9cHGl1iI0u%5iiI4j_EC3JIc1mcol9$6xH'd=5Zx4g]<1oS,v*jN/'yTp
U"*-SK4W3Z#DP0pa51Sy<VZN-tPrlh/+pp%D^;UM_=qn[V/S[lDfa[c\M.wMKLbr9
U"u$S5l*Ic6eiGO(T;f,3XCee5qS>)Hf0b:cAa'AA?fk,N^2IH[tIUX6;uLhIrB+E
U"_'VM)]pOIa#$8GW%77U:c0>pEFipu[&h76)%PLIZ4g?HiE&%5)nT3eSl#)e)G<B
U"FAu^rf3=rM=L789o#dZ5Hr\DQ7AB]9nOiRa%Xy]tXqMEb*+wG.eSxOa.tkb>tkJ
U"4JksX*QCyZ?CB%?$dgq6'\$2j4#d\u5r[;QTZlV4F9f,T?Q+xr8Us&q>rJ3IN7n
U"8qR1&^:>?nZ42UX1g<,N)Erf=?1:?P+X6g%z=Iv<aZmS<'R-OrHATFU+d5Ib)b[
U"TaZ)?&/92wc2&;^lMg%h3S'0xdY#vXd+X]Xj3?/_J_F)NrUOKG$%T9><%XH<0'I
U"k1S*U1&=-2hjP7d,YGjU93(U-[Eq4,KZ)r90C<0v7?_4++1&L=lTP\1.=6W86m%
U"p(x1iR0,$3I1'T2tBk-8fU:\E>x0QX*\^(TAGE6bEr_h=q(;T3'7t7'BgO/2;MY
U"14fbM^k8_7(G.g'CjFO=\$YdYk$,6s+C=]T$2kMS;b^Ja?TbArf054Jv[oOnG1W
U"DeKRLVaie[)[5Qko9>s\Pq3FB(aiwdHU6NB*Q^1kvLe<>llZ)PsT%_bZ'.B5gjU
U"IPE)]4_tv+5'Ixh'emdZc;xc=r7mC5E*9BASn>7%jZo2o1=iOhy;^guI5$djV=Z
U"WVlTZS:9)9,dn)YPj2F9p+o-+*O;tdF*9\rx;f^-Y59uuBV[$V2b^?9sID9$U]X
U"Z5>,FI1PKraeO=iiVWO#_]j1)*_6wx6AmV$d,d;kk?T3:=z5:M'p\FZ43=X#(J7
U"*[R?_-yNM2DK1'NLBq];\nC*FX#r_=Z&3*vdk,bBy+-AZ%y?oM3]c$.&JTk>S\p
U"+kct)QS$^'1x)<<Jd6gqqCGpFw5oa(2'Quu^N[&'h7A(Xu-ftY2*eOI4O.*'B7)
U"OK>Nfx9Q7;^Swgg-#v1e$IMJ4*3bH7L?6e39Z^Jr.96NsGP<I:z8]s?JN]'qqdW
U"Asu;dz]h.>BF=);F.y6Q>x&T4S>DLiQV31xR8i<[g%tsyAa44VZ>lm+CjP3te:4
U"^CX#h+Go3&nV6D'73bX<(r-16>zYi<C2AML_,yV=$31/jJt:T^n*1+QalhSohLW
U"ba-9C'1H;vrCLw8mDMz_Scl>S*2L..f+c9h]3l/?tgRg=aV':t7J=QBYbCMnBuI
U"sPYSjUi.c&h\GGkd\z2_b5tR(n7MQ>ljM/P;GHEOJnT^:uUkL,T$XlmjAR\AY)z
U"hCXW3nnhd)\a6;]w=H-nFCPi</*1w':ngJFiF*GSybx8?1B,0]TXoC+yg$t_(1m
U"0Yz\li3BG<mrcQvp(0N7ofj:8,U?iYcMs72X$l]62H;;7f1Jeb<5,j8/i8-RG.<
U"Ci>TfWZ5+g>OcAFD7J*z0[0]gkgGxx)DEw^r(AU6H4s6>TV:RR>:/K>Bq?Kc/]W
U"u[C5pG2E+[6'3/MhV5sNxf<D1_pP:+taB6ASG9qm$x8BMF>Pd%+Ci.5s1G)($K2
U"\#1]Mx1Mk_jgp\(xpT\]2T#Du<-WxqP<,W8qA[WeDU,sXkW8]W,orq:xwAWPSmD
U"*TByD_gJ,LS:py<BeSn[PL&if[He:GDDa)kD:ahw4fVJ:>QE'hMdEw_x/NH3POt
U"fg^oZk;GiwI9cQ?YVgH6k8P(0^avcL0Njro1\?$:V)gd../D>4%<IS'6ni['F+6
U"J5WIA06)Ef-[jhUIBMQWQq=\xmIC+w[sz:4dU:(Ns?kB[_N$lcWr7?m.?J6s-/R
U"IFr=S)mSjO9;(JDt[)=a\%5:Bg8obgf.'/FPJtitmt5aN^PJsN#<=4_\#]w^pZ]
U"$j^.1=Q)dMouNC%84Z..jFwHq^URSY^%*C'+Z;:5)39BHf>W$fEGZw7Zsw((QM]
U"pXd8S*EdA(wj4t2uD9S%lI:d+#-FqF/O101HNI39^\paQP%EB&XPhsD>Cv56Eja
U"6*9X$EH(JHlel:kb2ROds0SC/JRj&QU?ui./=X<Ixvl/>k>OC7)j9$b9Yb/,#rw
U"*ZxM9:a,Eq3)/TkYskA>(8syZPgG<[G&o1RpB>Ul+[ldu%p()9%%%%-F%oPMOFb
U"<+($x(%(%i0%%%1%%%%lwn(i&tw%WSgf4x6%v)>jm5tM0]x=Uc./]O^c\kBLw3(
U"iAUIe%.'?Xv<b-qWh=at;)Q.uUoPX=Q)W*nkanCVR(HMclfUXuE9M/?UB;+Z$:,
U"eaXX(t>*;q,LUk3Rt-->pE6=lQ_QV#1#jcpFAJ3k#R0dmpS'aCTGZb0.QL8H]q[
U"0u7:4.+rVeb>Yd=_jaDTesQ5j1'<ZuGE*u;]uhM=vM)-)G3\>JG,9e[lbuFgjx)
U"_i$*A3$(aw&3G;6Y'jPy^3.G\9ce^[]H.Ysa-?78TjK$LN/67<YaN8/,kS'HoY6
U"X,g;8a7LyOmGsKD88Gv]+Fg)ge'*N2r'Vo60>ofj8-Fd/rp259ArHlauF:6e0a,
U"=lI3JaD'B>IQfUH(l9u7_v0xN(bIh1eHD$k6lL70D=MS&a3a(8U-BXjAJO;Al2%
U"5NH_?W:X3b>3V#RAGP(6M)/mncY_PLF*SLK;&QiA3C6Rz]a6#=[7b.r'eksstde
U")zurC7(Y0U90-NsQs[&q4v?T<uew%u+E=bs8d0dbRI#k.91[OrvJg)'eB)-))Lx
U";$yXq/?.I*DuASan?*'h(=uo8b''DQ*]oQXgl1V)c5,b.+H(TXfPz#-6p^B3<Ne
U"f+Zod9BWfGTjRw-V]01pljp7y/8HBk=B1UY=c#R\-+5$Wv7057'v#%t-J#kOJ86
U"*6Zitr'+fAewd_OiI'OQ^4c8YBUCtnfNLM5V(FX9Pc.LsTR]hrC-GK;)OhsF]A+
U"=h>xhi'?^LMPzi[ylDxQj5?QR.jJTw3'5YNtuPp$.Wc_7NUAj1vOVwr(XjrAH\A
U"J<8KdzHsR0tKTQ(ITa=S%L:IzfJBGN_RztW]qc&dZ:a<U7^IG6.NUrs:^-se7HD
U"JaF/7Ma-s*&akA>,3H5&(Hp[-i4Q\Z1+&1=RA77UQ_iOQ&6Pg?6uS1P5qtHzro7
U"KBaOFZvUmcHc%uBu<<1uSTkwTeoP.lSrkGRe(Y+d&#Cw/>?,P'k,'T.#NYk?R0.
U"%sax2GzDkdC5dv9U<99ZSs(sdERqksB98hq?oHv\yKkxRhrM]rxH.Jaud??&5rR
U"F$YT^'(0G2R7jl<dEXiiyO=E#2<Q[n;jwI:1C=-Yo_38h>3bu]9+H#a.o5+lkdx
U"8HrRnfTlPAr9Zeg<\_0Ic6.m$?:2p=&mth#st_BqfAiJLVsCa\vHq5'dL=con<-
U"NWJ)z'u,up%()9%%%%-%/%PMFOE>,z&*+%%'7;%%%0%%%%lwni.uh'S[gfx&h'*
U">S.m9Ml$kN]C]KRI-0;e77JTm+Un/R:AtEL)c#0pK*1IQ$VsRb(XdX\J?SE7K<d
U"9.J_VjB8\^,sdgnI)uHXbi8T1duZbpyuv4QBu$eqz%BQkvjC7)q#q6Z+Q\BOC*q
U"ZEQ.ici'paR?mauCLN^f:EC(1f=Ps'+Rf=H&N6vg=lj>.EoP1i'[wRcFtOsbhll
U"N]7<D/V22,rO1AaOxR?4fkLd$Xb8L+6,pApX.oQtZ>z49Eu)b_;-2QLA^r-V;O&
U"uwVEPW4Vr1+DhG?+fP,d<ikBZ(ARR%90YSS<<DJ;n(T;tZ^sXqc6WWWCs8Y,Qgb
U"y7tNx1]#YvgAmra*qXy-1NGkh0_L*ZrWh=BZ0UjZv?[:k\le\F(dLq;ICpprhmK
U"WSaJi+Jk'*_:fX8vYl&,9FhHKDxU+ui-Bhb\uj]nrXlK4d0PgIk9T;g=Ak/0%7h
U"1>O2TO^2k#i1l,^1Ygd8#0PXG[#3qAZ([22jT1.h8n\dEpPFc0eshFpU0)Ao,SO
U"&]$enVm/&\iIhhz3du97lA)]ek2c*q^0WN0^Icc'ahu>#,QDq#t&KsI56gD-79o
U"j($kC+P2Ix+nHIbt$%KtTbSSSV*I:k[AkvqGRWX*Rf9g1,Col+Ga/hudh9Iab[J
U"*gg9t&Uk/aIIJBK,>9?1ilP1eO=S2L?RM2Fw9[g:c9<RHTOd^h_t)f/hUpgQ]Gg
U".'P)+oPImuaM9'Dt]kH/S'[Q7>+^o-+nV.Tx8bTbA^xtj1f*&%&cy^uL'XP,]AW
U"uLj9v+.-CUcgFN8u+X[HNe]WT%9j-Y#Ja0J65SfUuLTZfYPWIEU)%X$2p4s[jXG
U"j:',''vbTTOFA$YvQq.N&v&&OLq0LIh.TY2f%m]lggg.=6Cjr>-Os?<\C4W3PLV
U"jj1*#XZa,n&*k&232JGe3G=.b\e>C&6C*?*HnMzkINOdmc$D'RG$8Dg=2AQL'Cb
U".,#I[Kb)Y3x*9PXX$I_Tu\#]mKNc_<?BFJ(/n$k1l'o9c&PLrY(q(Ap[z\3964k
U"3+p5(ifGh4^FwGAIwp3Tct4Ljw'sM.8*AfK'A1Wq]UeA;=p*uE70&F]\19vl+Z0
U"4UOGbc-K$8n[:z<MW'_HHc<Ixrn)%IPu$F5>Dgz$uq>.k;a&'bM'4T_]N$b.AMB
U"PvZm-D[hiP,-a9nA4Y#D42Oq&2Yrq;&%N$hB*Dqg<F//wK*ccQc:eZRsnbRkF,4
U"5N]dPSDa.+HXLbZVlmtHCWwMYIzyo0JdycqBd,SfP)(qX#q#['&;j<wpG#;%1;8
U"jnOZe79V7<mf2H3&s;oNdy,S+Lgh(#-3ZF%-+^z+z/X58URk2Pl;)f$XK17JxnP
U"mlgMRz^5t8_Vb,?IhsIuL^m*=rAFfE/%MmD<ZB7\473J0SYE.</lFmA2wX%H$t$
U"+n<\ldgX+>/lkdK%rZT<UFWgG)[G'I&dSP[V_GbY&+t8j?&rUaTqjE]xNCEg7)i
U"/a?47\7gBbpgo2uL=SpW8elEEq7texR6]h7skH$kkXmCWuM[Gg$Ac_6LKl,\$pf
END SUB
SUB V2
U"0g:Lm&Gb,>jkVz,_2u?-KrAfQgspZ5UPi:j?%Rb6DzD$E<J?=q?_cSOmjb6POmB
U":Gf[=i%4+j-(2.pd17\T[#:^KhjJKXVn,E#I-%-]ZanI1fLEL5#P<eEQ]n4t[O.
U"$FF&(]1gR*)];8JXNMb4JS>Zsjt&/\7<><D2nJsLF;5VYmsQoDjQDcYvKWm>\NU
U"l#V5<ZMRjU#c(_*K8l%jaZ-i.ZZO^P>M+dFE0vGnf*O$HpI\&c>).kfUtQ,3cuS
U"B&2[(llR\JTgWCHu31#yB]-%^zqIF'm-hh-g6me^%>qd+uGPaj/nOq%bRDP;#ie
U"\xRe(##_,^HihE9?'I?:esSiji_n4E<'u[+kKu9lTWo5y>\#rtXX;SQEidaoF\b
U"imX_di1h.8zpmM8#b,4h^.-='KRD2e9Gg^Xt<C=ng.I>gbsBrAetc>78Ftyb7SJ
U"4q5X6MSOZSRpZF8%qRpNk8ZD>k*d8cgkNx%qH.*oG2jYkze'hj,'s^^qQo+K#9k
U",M?%5IFO3kQ'w,up%()9%('O-%/&JMF?)V&?&B(%%'#R%%%-%%%%qtlt%SnhsEf
U"fV:#Hl9O*X7[$tj)WVE;T/0M<d+$0mS[RQ1[yR0t.2S^m\34Uq#q%,+AZs$S_GY
U"qN?&CIV+x$3HN03&]yKQnx[)jZ]F%;cO7Ze[mGr_Xh>\H]uV$tZmWan$iF%j?V(
U"iA.[r.%$I1>%AXgt.:RRn[afN29d#Jy9a+20It2D99]]&er1q%P*(9K%3Jq/yl[
U"'8yC';)[S%4-e[pmz9)7,i+n*76'#J&<ZP<;(P).z/nzRW_fh69?d%%1_I.Iqut
U"]Tj8J8A3'#&/YD^IJm.e>4(YVC\lWBe6S1?TInea]L.=,st'N>hW4W91*Qtx_u:
U"ldRB1WE(.g7Q&X)0'MW/qDV$H+L)qqzt9[jXw91Vla0%qj;O)qZcJ[.qqV\%SKZ
U"Pgn%?8$1KsG?H:6TaOh+%i:,GA%QL4BpeNxjyRgsEt/;zt>ws+Bu2xn1Ut,$V'r
U"-'20.GmaNBdTO<B&?9rz6d7aTu8H3Kl+(1nvwK>ounb$ZX_u0$n9ktX2.r(2tpb
U"'2w(h-.T'i(1TsiCDL6,wPbP?.dnHH'7O#OE=>BXwen>3Y+0l5.OLL-I'LfZftA
U"IlS.>xkL%+Taf&t)Gmg8L9tcJ.;CnqO>xn(MlK'GSiu.>M%2xJ:AAEtgd7yx4lw
U"^HS]njwd&z-+Q60gz-U+l,)$8^GVrhx-gipmvtmb>M_9ITJCoe(B&W$_$hL^C%j
U"D^Nk5mc;Ol]jlT>BKET9,BtK[tBt.n?UwWXbBtnfCc#7jct=c%qGnQ'NVBE1j8e
U"'XDBef'LpDQJpNV<ZQqhoQmq;53q[4Nh2iEx+AKsW+3^jjp6ATv?d-xO^jO/+Ns
U"SN]S<3G4=k,G?Zn0;Co&xK<$6ubAaR?/69+p/tZu)n#Z6b^G]QCmyg]0tZf8:mm
U"O_5%j5bLc6P?NnI\f44Ht[yxrYSy41YI(bnkQkoxu_)Lt$c<r:gtj5tq+s-t^lw
U"p<gSk.5mms[ZkV.mk_Kt<j?_T.T-Hdbk+WZgt;%;TkdHH>++QmmWUnKc_d63[:3
U"8ZFV?<F]]+Ko*2Ch\6:XPh<>.*j?hSGNuo9?PJnQt+p5an1IQu>YE_l4q%.;.'[
U"V)YV<Z?#]A3V6<Z?]dA3V<*Z?]A,Fu0u%p()/.%%O%C%&JMRFWl$&.-%%%%-%%%
U"%-%%%%qtl%tSif%yEZ]%Z[E2%/up(%)9%'\O-%U_IFFtNvWvg#%%%v%)%%.%%%%
U"v%znyz%Snhs?fJ*2#'V1Umv<%94ImW&+WEre[W)()%.NtN8'&=++e<n&kBjn?+^
U"d/I<3Bl:^TY9$'6b5BJ&#)bB$WvV_$bIaCyZI2UJ-CXF4NYE-^Z^?ZKQRZ.F82=
U"s#_g*hg311iL(Fw/7.eQudViQmxrtoG*pO>efYe*<,;fQDJg\;P5PBN#9Ifv]wR
U"3g_CcR,?Ex$0%up()#9%'OI-%1wA>Fn=/%(h%.%%v)%%%.%%%%vz%nyiS[nhsf\
U"$V3;%U1jX])XVLeX0Cb\S^o'c9?5BGfa&AU9]KP)Yd:.4U&lkf+:4c9Qd]NbMj5
U"tPJglZH4OB+%R<c#(2s^hT<\($2kCJ2>pXl8tR>6i$lu1f>m9>)'dmA:HUb[/hU
U"DPt=)d1v;Y2BbJuG3gW8.4OX>Sv_2Vd/AMWRQzZE3/r4H8[?t8091V:w6>cR+sw
U"%up()#9%'OI-%ywS>FHL/7MS%.%%v)%%%.%%%%kn%qqzS[nhsfHJ*2RdU5TZCP'
U"FbKIl(Z7/4:%0RIeWdmi0UNStZShgJ=g&3FFfu$Pu>SFYqJMnWm,[t\?P2<%5j&
U"-AHx9E7(;HtRSMpyA9e(52[iKRWsc72v_lI[ihZ;;W+^9*Fs$MgzhV9rXfBOgAU
U"koldpW3A?[q)H*Acq3S..,,8du%p()9.%'O-L%iw>mFR:d*QW%%(%v)%%%.%%%%
U"knq%qiSnRhsf$9*2=EI1j,s'8Ob$&+#J>STVK4AX#Ej8_vA+#6Y9kL]l\_J[5qo
U"iE>mqTHYoF]w%A<I#kw4^R04x_7P4:%6B2og3qKZCmU;v+L$g';FEkcCI3s$.x*
U"6Ane6UVjCDWegDdu]UQd/vu4U/fF.f$z61S\;\ka][/<.6.^?mab&gDup%()9%(
U"'O-%3Ow>F=#3&#&Y%%%&v)%%%.%%%#kgt'%zSnhjsf$*+6;U1djz?G4)E_Cfp^E
U"K(%G(?a+AKo(I00_:5e%kdvSfUpffX5T[n/;$6V,9MGY?U1##Y*^Z3f+^u&e+YS
U"k]Ym4M/4;xz$,=uEsGCvM&2&v0MSDoF&JSE:W,uiG'[kf'>G0X\DWXL<p$maq*v
U"OdPEcF)BgF9T/(;]?B^k*xK&u%p()9.%'O-O%jw>=FKcF*C]%%(%v)%%%.%%%%k
U"gt&'iSnRhsf$0*2SU[1jR^JIOIE'1O2Ug/j+:j-IsDFMb=R*ePsc,0$GA%j6jo,
U"Ml9dOl*k>o8'QPC#)M4QEZR6/KlVsIG]=k(Igxh7R.g],Tay)X7wG?9Ji0DupU%
U"BgVsjnAA;(aMJIrJM[)=0_fHtj&OO\Le-<aett)HKRD2M8=J;XWA+3Cm1axgD%u
U"p()#9%'O#-%4x8>F47&MNz%7%%('%%%.%%%%uq%zxzS[nhsfHI*.O[e1eJEhXH'
U"F]&_VO01T=G1b/8CYI6QdA-qQU>G>VO92*Y+3suv^wz_Vs233Q:Hk]qjO_#H81S
U"4:qBJxfdbnvh\<-Swp,3ga5N7m2%up()#9%'O#-%#x\>FDj2>H(%7%%('%%%.%%
U"%%uq%zxiS[nhsfHI*.T[U9kZMr/<4,0$K_2Yjgbk+Y\ZXsOP:+gY7Ss-[,mGV(]
U"_(GXYP6ucm3W8x)wAU&q9bwEA.aO_vh;a,nKuRVlxZW#.N3hwVn'x6v-2KJLL%u
U"p()#9%'OR-%2x&>F-33lxd%.%%v)%%%.%%%%xf&%jzS[nhsfcJ*2;dU5UJ*8/*K
U"&pl>%9:/%f)bG-+0AKG'3(OpUaRmF:?74_s[;wIa,AFPcgPYLhTf>a&=#%JrP45
U"51:SSLmiloxZ?(^=-e0kZUP1&T].?Xrb5=bg#52S:mKt;Q8#hqr=;[8\S+Bk\>9
U"tTUg'6bh0Z:WvMtY^g=t>WlT8]AZY$+*cQJ7y*5>hxH,%up()#9%'OR-%Gxn>Fh
U"q3>Cf%.%%v)%%%.%%%%xf&%jiS[nhsf]JF3<%U1*ukRjpj2od%?Gl_Btb;-zA8'
U"S*('mM$oM(8sa,$.zB3DbrM7/=eLFtn\7>ahf*BIDS?;Q+gN6U+4U$m0YU,T>k8
U";;]-74vKHl.hkFH$K_Nh7KdNslIV6/R:/3jD*:uWrG?/N9khxpp=]bg'reF_;JF
U"ns=M8,qDfJHsWF-<>1#Gv=5/Hmd&5*up%()9%('O-%0s?MFj$g=k&q%%%&v)%%%
U"0%%%%hnwh%qjzS[nhsf'JV/'[V5eJ#NQJxW%<5P*6G'tLFIXO(^PL-&z\V,t$.-
U",EU<Y2Mah5Umj5-Tn8CeH:7a5[j29H+\S>A)CqcE#_xG.0L-DUW-0+G&Tlj,Wcl
U"U-R9Sb[Nm&HT.](D>N8mlT=A/ypZDJG%r]T;hwY^IF0HAt6yYDM3PlOg+RJWv6n
U"c'%V9-u_cdW6$(G+.8RR&+pi#q6kxH%#up(%)9%'AO-%(^#MFEO6Jvn#%%%v%)%
U"%0%%%%h%nwhq%jiSnmhsfJ7b/;e:5OJN,Sb1-HO_1=XDfeAtUU:;OGYEuKm+ar;
U"GQF:AA6>#Ko,5'Je9eh3_$K(k(+no.*U=1$epY$1AeMX-PuupOglZlc=Tz5;q'K
U"+AqLJ3%Xi8JsiToupWoSv&Q8kyl,4z4CjC$)8V6V?Ed;inc>0cLXOLiV+'+b3g]
U"/1rmdP-KLBlGBqcS4nr5BE)KG_Nk%Tup(%)9%'&O-%/_y>FiUEEPh#%%%v%)%%.
U"%%%%t.gt'z%Snhs-fJV7AQU5UlJ8?;%.a(b$E'_W/84/OCR<aOXl)KaJk)>0kvd
U"=Q;5X\eb0#[(]q7']B.b(f^zZZo*%baaiI4q#J)gm>VsV'Gr<gWsComD/t[o.Eo
U"V8CEX;a3Paw/enTv+^G4=0Us<SSRroH8Cl:?ynb;Tqnz^E8o25^lV>uLx$(g$Yh
U"a-*4B;9ga'Ru,Ex$%(up(%)9%'&O-%K_y>FpIO02q#%%%v%)%%.%%%%t.gt'i%S
U"nhs*f$V3';U1j:RT68m8phIIN0?c3WSpl1mf;^Cos3+^&x(6d,gu*)R8o:U:X*N
U"2HynPt*GlQ4'1,*tJA^5/S0U11JLcN>q\?_F*,Sw)4UZs(FIJe6;T(Sq)#p#O_P
U"7A>[JV3f[?<3msU37lxuv(Sp=jbMrH[CPmNUlcrWxjSQookC]kC3;EfEbMB>Cq^
U"sfG7FR<T0eOR*w&g<up%()9%('O-%2:x>F7Pdb>%q%%%'('%%%/%%%%rnsz%xzS
U"nmhsfI0*2OU71*JHAW6Mg%[U,0f)*;;U?8YRhR3pm>p;KPZ'+er)j0.(dbvA3f&
U"_ln[+TR4Uw%&vqcL/(ZakW$cYeDIW1vxx%b<up%()9%('O-%2Lx>F>;Wfr%w%%%
U"'('%%%/%%%%rnsz%xiSnmhsfI%V3euU5SZnFi&wwB1.l#=8gZ'P]Z1:VGH*$rP7
U"5G^I.VFdK$%&*)dR2P8?V(M)I?p4hZupgRB(sn=v'tmTbv0?LZ;CbR=RgZl$dk%
U"up()#9%'O#-%hy/>Frj6AAh%.%%v)%%%/%%%%nx(f%jz%Snhs-fJb/';e5*iY&'
U"TA(-pAU-z9aJG(^c:bS^GHW=R,__G(6JWnCFDuhFWhQEHFU,H,35NsI4[A<#%*I
U"]NfIW7v[Db?<_RXj1vnX&E$lVFcb:HrOzlP5]qGq,4JjN9w'q=Ke9tw'j_f5)r4
U"Za\dNGSW0DNNCF'qF/mRHFG;/hMBnhQWA4k5SXe+o07JF>hlxa%&up(%)9%'&O-
U"%z_y>FnBC(ze#%%%v%)%%/%%%%n.xf%j%iSnh4sf$V+3;U1[jbE*2o31R'V]%$)
U"?c36*#OpU_%tlZ+)Z/B2_AYOg:E3BJ%94/ie.mkDnVImKHtO#DBQbc>AFZ62Nh)
U"ao-7BJ\/Lfe^Q]MM:]2*qG_'4'sKM4Z-WUQhu3P:499uG#$04Mp]nSWMq,wel-g
U",013nEBApQrwHX/'-r.0s]7P80SFR38%(-l#Qu%p()9.%'O-O%O0MpF^.9)6<,%
U"%%)?%%%1%%%%lwn(i&tw%pSitk'>'F&=#^797#i$3Mma%_Q/,AJ4;RTIQ$PO'=s
U"Q*8hPNrIni)sIewed$Pi,Q+^epI+t,zjnE\RVGEeQEfP,(csK8sc,f>_btP#wW/
U"(zMVToPUlG^HC+F$.wG>(;k-WL\)d5ai8T3-fvL\vLdwuNwvl?m]HT+#Zf^FuwD
U"NVmmud?5vW/FE2,a\Z0*1f;oxZTuZ1l1z-QQ/d\E),m)izqhR<hF7os)<iu>NVg
U"(UUmWZ%EKWgx%gP8tocYM\bow3(XK9bM[HYF>MDHB[9sFGHaC6L/,W;:wTMn2OH
U".iRSK0b?eM4nUpFo5fO\YZB5TD(xoQD??^(Oq9H39.jrS&we-:ac+)*2dE\=moX
U"CGbi.:TVS_*S^Xmr(d>YP9*Fd6JG=7xQp2AjwD5A.TiR=$ul1d]MdR0+V;GJG+l
U"h169[rXBEc7TFnOo'_UT*?8jO:8W]Fx:$:hSVRKet^onR;#^)gI+AQSopY7Qo1u
U"y8oY5n^9MTihfC9&+.pm3I134Tj+2'.WWGQ_0#C29M/)[UHU=V$*KY(*UrVvw)4
U"XK<apmQs-CB)N&0n%vC0Y[%'6;B&F^EP6:MODQVOl%3$ZRJ%C9\?0#\oRd9Tz[]
U"*9A1<'#I8OCzKzI#2gDRPt\][3Ao5R[mRQ]+Bj>7.0XnPE-sBXt#55pQ)UJ>>C_
U";pn4vRc>W+.98MX=4ttk\;)7>r:>0U1jnhErG>*W.ZCmUzyAn+ZY.g_f8G;dh[*
U"4gf-&CLyj7E>jnS0r9OStfe<LC=r'Z?M6vBYPq44QeSg<ut2t8wTc?FkRA,#tJe
U"<8Tb?Be0\i-rjwJ1JWDv$XAF#(<ByP;Ol3W\R;O4oMpUCR.T]?eA)PIse*K4Ic(
U"WID)rX?$+)PC1PL(zi*Tgh74\.H3.#z;G2X\?mk)cefC/nWA'-#_SEN8eBF\'Xm
U"=Y96s0?<r=\;Inbp;UONG8+fD#OwN'#o5b^A)G#pBPVyM5s>E?o<N&)-X46AgH]
U"^:KM&;DnXDK/mC[*_K.E,nMvg;*:S=JH_(#p\hwbL%GA-v2*X7BS3FP58%>RuTI
U"3lKm)AaYS8H7KtMQ\A7)4wLEP2.X:q4j58\t#cfAd4#d)ZOft5H(Ky>cHYVn+ER
U"6j2N-U^n9bsIrv?gM+hGi\<5jrP[\*Qkv?xoYxhC-9JlHXOTB3qgTA6%/&kFstV
U")dN\w<VJ)#LAY,M#>bQS+K[O[p18aPOy*s;^;Ud,dUu<Q&;c2CeSel&l;>'[,1c
U"u%WH-Wr'f,]_)8]cha^Dpyis#j=f**3O9t/m6RV$-j9FBCz(oa[6tuguhk)'lxK
U"r-PLTMjsxY:l,kIyM+53TV$^k>Xf-B<8>Bf\u5n<,TNptHnF8Tx=g,G,ECN'3S:
U"FD9fdX.tiCG$?ySUMD_'UJ/u\*jF]UreN\W2u0&k&P?wu3xcoD9A>j?q2s[rYYD
U"R4,q?1=PY^^gQ=a^u(sdX?WU;1qMVGCkVh'EVoeiAI[%HLHn#'5-v$DdpT_JR3R
U"W=K](k2Am-cG(C;xFu</w]XN\T^U&P_xMd+#;sGiWJ35KaU/<mh-(ATKi*f9#TT
U"kbl%s\1HB3C=3Jk\&*QBrV5h,j[-8LT]ob_Ml%c9<hAUm:Oag[[\2-ceynt$2&_
U"jBWKUx0mb1JxM_FiUu\P-r\oY<=n=bUkEl?LbQxpQg5+q1J9u:dd/v/ul.uMUyo
U"9YX9ftUpmb#^xX\32M%7:lIweenNSMg2wZrAS:q,A+-HR)cekoQoIm^FUT+:^j0
U"MjuWZfr'a8:3tjF\.aaouf[DWV<XhE<ukJ;W*Nt^DjS9+C9Z5YW:BRrbGQE/C/_
U"ZJtTBp?oSK4mA=,L[ldBqcaP1>U9P=TpvNfBHGUq$?49WHiB]ZV/ZC;P?C3\6wt
U"3ZOIkK4'bPT9U/sm#G0C;=2ozcB:wXSMutlMdFCHpJCu(9euR04<TdZiTgX%\XQ
U"Xv>vnxsCrGVL*jsq#RmXvG5u>/P9Es>fJi[3yILL;M(>onhb^xtD*=]3AoU_Q\j
U"aBDrPC^p'ZA17vPCqtRm?OUs2nBLQY9l%gTw&ic9=ALoCS*46h4mKi24AJbr4Mp
U"0J?Bzz1i8s(&<a9#D(KB;L+kcC&BIj7'*S>]hSQ[Oj]g35&o29Q2J3\1Ed_D_<V
U"3Yquqi[8>C_=qWQi4.^sSDFZ=ZSG$R]#7u$P^CT%raz\8meS;42+([r0h6>7cx_
U"43ab.B'lj&aYv0PKp(&uUoL&V/rnhLK/GIMN=U=#ASck4J+1j)(;1LLG(fG%>jg
U"iRIib/728S(gUQ-Z+^nv5U)tuR:d*4n(uA]L$ZR[lwj^.r,Izb=UMl#Y)dE?kiH
U"[D)6&?8_l=\T+5/jP,m;_qQY)*+ACY&#=3#aDFJ:/vijW*FW;*,zkXN/Ap6>;_$
U".(]Zcb'r\up%()9%('O-%25y>F:3ysG&h%%%&v)%%%/%%%%nqtf%izSnmhsfJ7b
U"/;ep5UZ(-)-2iF-2i)7.C9X8G:p5\8'GW*=<<)8>5dA.fUNX=$Fe+avISLsa>4<
U"N;=&%*94zEi:#o*Pi:B4/[ki*9HAofCLI-nf0KlgBHF)J<T8Z1rZjoC]CAgQbmp
U"8fRVv4<B16vB#Z\G;W&>f+tB721aZb_TmDEu_XbXv$_0[kwTODU8Ly*5h-xH-u%
U"p()9.%'O-L%Gy>#FO>Q)/h%%(%v)%%%/%%%%nqt%fiiS[nhsfBJV/R[e5eJ.Ngy
U"jPzM)t^r$c_1+-00_^/NB46Ks3%CJ,-KRP'Wemg%VD$P>eB>eovGHAD';?UD8ko
U"WlZp%p2sQ1THiNMLskktZq_/o_EPAQZr4]Oc-WY-L<UWqpVq#IKiz$s>sA]ONhA
U"*OM1Fq)X&mf.'*Z)89DBXt=sN1;7p#q4=,_aQ0jWRc?Q58jdG-%up()#9%'OI-%
U"VyS>F]4.hbf%.%%v)%%%/%%%%uf%nsyz%Snhs-fJV3AQe5T3Z&G*780<CYQC=O+
U"LYi+To5oG+8p%k\)08H%fG1WaXFQ?^=rB(irYN0>Of+(M?+s'hqq#:jg;Xj^;<&
U"5V&StGVqVkHT4_CxqS1T&Gp5Tp#q?nrJ8$6j#z'J9Q'W-m3pSwb#A\F9l&U:d(T
U")&JlsoL*\=7M8rrnhWTAXWqA>P,Fs;L_F-tx+u%p()9.%'O-L%fy>(FE0f*Ff%%
U"(%v)%%%/%%%%ufn%syiS[nhsf]JV3;%U1evC4[MmiQ_i&1,/>]:ov_7C6+%X/T>
U"I8o1f(I\ZE<[2IW*jU:1%f>vo4h2iFD(\7\,QLf=]Bbkb$6A\4[4P;5'v9)Z?:<
U">Q/j,IIxmPjjnf^sgY[=kLO9Bt0/y;0FpsjufS*^Vy*w^SCd-dwu6(so\(;NkNe
U":K2$A#],r>hqeHFJo<_du&#+up%()/%%%%%%3\GMF()fvG%,%%%%,%%%%/%%%%g
U"wzx%miSi%fyEZ%V[E2%/up(%)/%%#%%%H)GMF)&fvG,%%%%,%%%%/%%%%g%wzxm
U"%zSif%yEZV%[E2/%up()%/%%%I%%$xS>F.s&R>,%%%%,%%%%+%%%%hi%Sify%EX
U"YU%E2/u%p()9%%'%-L%$x>%Fuln('2%%+%('%%%+%%%%hiS[nhsfBIV/OdU1UJt
U".:RBl:Fjajv5X6MVozV'j7CI3?e_uJQEWr/P\Kp2jey>-QC;2Ku1hX1^COnI295
U"[e9KBTR,.fl,SoggnJJj/<vHwcu8H<wHw6bnFKvlSFq9dn'H*up%()/%%%%%%/(
U"#MFAaphl%,%%%%,%%%%0%%%%hnwh%qjiS%ifyE%Z^WE%2/up%()/%%%%%%0s?MF
U"Aaphl%,%%%%,%%%%0%%%%hnwh%qjzS%ifyE%Z^WE%2/up%()/%%%%%%2Ux>F3.s
U"R>%,%%%%,%%%%+%%%%hzSi%fyEX%YUE2%/up(%)9%'#%-%UDx>FhZSNq0[%%%(%
U"'%%+%%%%h%zSnhssfI:(.OU1kTZ6>#6a][:]i'F+SY;/a3[?2,7-6Cd75pYlF9F
U"qpT<S&(=OVyOMJya8mKVNoo1U]S'zE2pT1Q6C=ERUEVWn=qNm8Huhl+82N>VeKj
U"dO[u'w$d%^%up%()/%%%%%%3jw>FAaphl%,%%%%,%%%%.%%%#kgt'%iSif%yEZ^
U"%WE2/%up()%/%%%R%%Ow/>Fap(hl,%%%%,%%%%.%%%%kg(t'zS%ifyE%Z^WE%2/
U"up%()/%%%%%%2iw>FAaphl%,%%%%,%%%%.%%%%knqq%iSif%yEZ^%WE2/%up()%
U"/%%%I%%yw/>Fap(hl,%%%%,%%%%.%%%%kn%qqzS%ifyE%Z^WE%2/up%()/%%%%%
U"%2Gy>FAaphl%,%%%%,%%%%/%%%%nqtf%iiSi%fyEZ%^WE2%/up(%)/%%#%%%5Dy
U">Fa.phl,%%%%,%%%%/%%%%n%qtfi%zSif%yEZ^%WE2/%up()%/%%%#%%zy/>Fap
U"(hl,%%%%,%%%%/%%%%nx(f%ji%Sify%EZ^W%E2/u%p()/%%%%%I%hy>(Faph&l,
U"%%%%,%%%%/%%%%nxf&%jzS%ifyE%Z^WE%2/up%()/%%%%%%3[y>FAaphl%,%%%%
U",%%%%.%%%%qnsj%iSif%yEZ^%WE2/%up()%9%'%R-%[yS>F9)6G0e%.%%v)%%%.
U"%%%%qn%sjiS[nhsf\$V/<%U1jZkChcVG*Pge:1pgv)ASg39Yp]%.^mUC<>TWeLp
U"Vec#okE*\g1BlVfVn3X.eH4('g4RmYuDNLg'NX&]3sH(^=AYPg<$)LW;#^[\:8-
U"dhSqb/G=)X?jn5*%fc8t\-u]$=*^6zk_2TVk12mpun?7Qb\$EQEw5:&BtHtlT,k
U"s*H?VgSUbJwg%Tup(%)/%%[%%%FDy>Fa.phl,%%%%,%%%%.%%%%q%nsjz%Sify%
U"EZ^W%E2/u%p()9%%'%-O%Fy>FFcOs(:c%%(%v)%%%.%%%%qns%jzSnRhsf$'*2'
U"Vd1j,)L'b+^mW&0;/\ej+[W)(UIK<XUCRoo9[o/])8N?$QmIIak_j&a$CLYDjsH
U"J1cJ7rVhI8Z5/d7)\[[GnQ=#0taxfY0F3AZ(OfuZ+bIYh&GK:$.R.g;l84MvQtB
U"k?GA6*5Tv$F4$2f-5U,ysSgKimc,u_7ddfM^-QkRIR+lU\ARRx'H0up%()/%%%%
U"%%2ux>F3.sR>%,%%%%,%%%%+%%%%riSi%fyEX%YUE2%/up(%)9%'#%-%u)x>FBC
U"#d<-[%%%(%'%%+%%%%r%iSnhssfI*(.OU9bSZx)Z/+)B78B>rFqb%EC_Opm*HSl
U"C#FM;)GIi:NU8a))kP6;JOEX_gCi+,g0Ie0kf(;iDiWw1Hay*BNA,TyFZ$6fVut
U"$hf9^UZd[aIAw,L78u%p()/%%%%%L%Lx>OF.sR%>,%%%%,%%%%/%%%%rns%zxiS
U"%ifyE%XYUE%2/up%()/%%%%%%2:x>F3.sR>%,%%%%,%%%%/%%%%rnsz%xzSi%fy
U"EX%YUE2%/up(%)/%%#%%%g_x>F.)sR>,%%%%,%%%%+%%%%r%zSif%yEXY%UE2/%
U"up()%9%'%I-%gxA>F)>5---%7%%('%%%+%%%%rz%Snhs?fI*.AOe1T*ZFL3;/0Z
U"-k]YC3SV01TG=[?8(YI6C[G)02lG9&uXrAV%,]99#-MaznXt,gc/I&=/o%O?f7s
U"147f<31Ut=>1tu7oDvHHp3W,cw(-bCnd2'$%up%()/%%%%%%1Ky>FAaphl%,%%%
U"%,%%%%.%%%#tgt'%iSif%yEZ^%WE2/%up()%/%%%#%%/y/>Fap(hl,%%%%,%%%%
U".%%%%tg(t'zS%ifyE%Z^WE%2/up%()/%%%%%%2fy>FAaphl%,%%%%,%%%%/%%%%
U"ufns%yiSi%fyEZ%^WE2%/up(%)/%%#%%%VDy>Fa.phl,%%%%,%%%%/%%%%u%fns
U"y%zSif%yEZ^%WE2/%up()%/%%%[%%g3/?Fap(hl,%%%%,%%%%-%%%%uh&'iSi%f
U"yEZ%^WE2%/up(%)9%'%%-%g$3?F8XO?Kd#%%%v%)%%-%%%%u(h'iS[nhsf\$V3;
U"%U1jb%EWWVU\*p5[t]ohguD1AH?C&'eA9]K\ZuH[)weHPUgW*N2HYnHQRB:ML%s
U"RRjX-AJj5jb>3_RdM&]?l.<[GCRO:7#zT2r1pQ3$U+gQ_=1QoAw+jYA_gX=hA_o
U"GxJdKGErAUYSP5..YKu_E'$Sl6LExKfb*NL9A6aCMNpGh9'/H8md_2%up()%/%%
U"%m%%q2/?Fap(hl,%%%%,%%%%-%%%%uh&'zSi%fyEZ%^WE2%/up(%)9%'[%-%q*2
U"?F7A8^)f#%%%v%)%%-%%%%u(h'zS[nhsfb$*2;#e1j,%ukojBF51_,;976j#I(B
U"9ff<KKUKc;me:g9ZwPq1CFPifZX5[(uOvllSCK3;6o-tN(pqj+3'Y/vJ+I\V2Gb
U"Xip*.125<g>,%ySB,S#efUK#fk10Zwzsau4Khf=N9#b?e_e_3>L\XRe64piVJbp
U"UFaWj^VNu'Ht\/DY/v=tZ:W;f1Z:w&n<up%()/%%%%%%1#x>F3.sR>%,%%%%,%%
U"%%.%%%%uqzx%iSif%yEXY%UE2/%up()%/%%%#%%4xS>F.s&R>,%%%%,%%%%.%%%
U"%uq%zxzS%ifyE%XYUE%2/up%()/%%%%%%21w>FAaphl%,%%%%,%%%%.%%%%vzny
U"%iSif%yEZ^%WE2/%up()%/%%%I%%Bw/>Fap(hl,%%%%,%%%%.%%%%vz%nyzS%if
U"yE%Z^WE%2/up%()/%%%%%%3Gx>FAaphl%,%%%%,%%%%.%%%.xf%j%iSif%yEZ^%
U"WE2/%up()%/%%%R%%2x/>Fap(hl,%%%%,%%%%.%%%%xf&%jzS%ifyE%Z^WE%2/u
U"p%()/%%%%%%3;y>FAaphl%,%%%%,%%%%.%%%.yj'y%iSif%yEZ^%WE2/%up()%9
U"%'%R-%;ye>FZM4o<b%.%%v)%%%.%%%%yj&'yiS[nhsf]Jb3;.U1Ova4eqVeJ,ES
END SUB
SUB V3
U";rCa*6QQA.g3_r]a)b:55E\6gR->N]%Q^ivn$=d^>xrUJ&HDT%2MFO+P9Lf?o-1
U"/uEJ)wb->:G3VJ-B'ZLIJZ>c(oE6>/(3K$wJ1TenB)(AfD7A(0L=4gOu#4\ZV;H
U"#4x;E41ab?+wGO-&okBD>IpI/*Fce3Q5jd'G,up%()/%%%%%%3&y>FAaphl%,%%
U"%%,%%%%.%%%.yj'y%zSif%yEZ^%WE2/%up()%9%'%R-%&yA>F0i1Ld]%.%%v)%%
U"%.%%%%yj&'yzS[nhsf]JV/;mU9?j(\G*tWK,5h3(F?1NMjg[2(BPGI;_ZRYbO]L
U")(-w/=*VsR6xZf757WVXrJ4PIAmsxiNNh_zVSD+(taF>oQb=VAq%'5qI:2x<2S\
U"d*V'g,vCX<YsXY\LF1m8K<qbcO:l3.5ukOtUCG=GaqXF8rn:p>=7QOB>ZARlB4Z
U"T/vN&.up&%'9%9%%%%-L%uJMsFH67&2#8%(%2m%%%1%%%%%%%%%&%E%%%%%%%%%
U"l#wni&%twpS%gfxu%p&'9%%9%%[%-%oCPMF\2VS1]%0%%c%L%%1%%%%%%%%%&%%
U"E%%%%j8%%%lwn(i&tw%VSgf%xup&%'9%9%%%%-F%oPMOFb<+($x(%(%i0%%%1%%
U"%%%%%%%&%E#%%%v%C%%l#wni&%twWS%gfxu%p&'9%%9%%#%-%%(PMFEN>,z*[+%
U"%7%;%%0%%%%%%%%%&%%E%%(%IG%%%lwn#iuh'%Sgfx%up&'%9%9%%'%-%/&JMF?
U")V&?&B(%%'#R%%%-%%%%%%%%%%%E%7%%wM%%%qt%ltSn%hsup%&'9%%/%%%.%%&
U"J\MFWl)$.-%%%%-%%%%-%%%%%%%%%&%%E%%%&fQ%%%qtlt%Sify%up&'%9%9%%'
U"%-%3UIFFQtvWv&g%%%&v)%%%.%%%%%%%%%%%E%7%%>Q%%%vz%nyzS%nhsu%p&'9
U"%%9%'#%-%1)w>FnD=%(h#%%%v%)%%.%%%%%%%%%%%%E%%(%SR%%%vzn%yiSn%hs
U"up%&'9%%9%'%I-%ywS>FHL/7MS%.%%v)%%%.%%%%%%%%%%%%E%%%%iS%%%knqq%
U"zSnh%sup&%'9%9%%'%-L%iw>mFR:d*QW%%(%v)%%%.%%%%%%%%%%%E[%%%h%S%%
U"k%nqqi%Snhs%up&'%9%9%%'%-%3Ow>F=#3&#&Y%%%&v)%%%.%%%%%%%%%%%E%.%
U"%mT%%%kg(t'zS%nhsu%p&'9%%9%'[%-%j_w>FKTcFC]#%%%v%)%%.%%%%%%%%%%
U"%%E%%%%tU%%%kgt&'iSn%hsup%&'9%%9%'%#-%4x8>F47&MNz%7%%('%%%.%%%%
U"%%%%%%%%E%%%%)V%%%uqzx%zSnh%sup&%'9%9%%'%-I%#x>RFDj>)H(%%+%('%%
U"%.%%%%%%%%%%%E#%%%O%V%%u%qzxi%Snhs%up&'%9%9%%'%-%32x>FR-3lx&d%%
U"%&v)%%%.%%%%%%%%%%%E%%%%%W%%%xf&%jzS%nhsu%p&'9%%9%'[%-%G_x>FhQq
U">Cf#%%%v%)%%.%%%%%%%%%%%%E%%+%5W%#%xf%%jiSn%hsup%&'9%%9%'%7-%s?
U"\MF$g5=kq%.%%v)%%%0%%%%%%%%%%%%E%%%&IX%%%hnwh%qjzS%nhsu%p&'9%%9
U"%'#%-%(^#MFEO6Jvn#%%%v%)%%0%%%%%%%%%%%%E%%%%jY%%%hnw%hqji%Snhs%
U"up&'%9%9%%'%-%1/y>FfiEEP&h%%%&v)%%%.%%%%%%%%%%%E%%%%2Z%%%tg(t'z
U"S%nhsu%p&'9%%9%'%%-%K_y>FpIO02q#%%%v%)%%.%%%%%%%%%%%%E%%+%FZ%%%
U"tgt&'iSn%hsup%&'9%%9%'%I-%:x&>FPd'b>q%7%%('%%%/%%%%%%%%%%%%E%%%
U"&e[%%%rnsz%xzSn%hsup%&'9%%9%'%I-%Lxe>F;W'frw%7%%('%%%/%%%%%%%%%
U"%%%E%%%%/\%%%rnsz%xiSn%hsup%&'9%%9%'%#-%hy/>Frj6AAh%.%%v)%%%/%%
U"%%%%%%%%%%E%%%&S\%%#nxf%%jzSn%hsup%&'9%%9%'%#-%zyn>FnC.(ze%.%%v
U")%%%/%%%%%%%%%%%%E%%%%j]%%#nxf%%jiSn%hsup%&'9%%9%'%R-%O0eMF^.39
U"6<,%%%)?%%%1%%%%%%%%%&%%E%%%%(^%%%lwni&&twp#Sit'%up&'%9%9%%'%-%
U"25y>F:3ysG&h%%%&v)%%%/%%%%%%%%%%%E%.%%ie%%%nq%tfiz%Snhs%up&'%9%
U"9%%'%-%2Gy>FIO>Q/&h%%%&v)%%%/%%%%%%%%%%%E%.%%*f%%%nq%tfii%Snhs%
U"up&'%9%9%%'%-%2Vy>F*]4hb&f%%%&v)%%%/%%%%%%%%%%%E%%%%Ag%%%uf%nsy
U"z%Snhs%up&'%9%9%%'%-%2fy>F\E0fF&f%%%&v)%%%/%%%%%%%%%%%E%7%%Tg%%
U"%uf%nsyi%Snhs%up&'%9%/%%%%%%3\GMF()fvG%,%%%%,%%%%/%%%%%%%%%&%E%
U".%%ih%%%gw%zxmi%Sify%up&'%9%/%%%%%%2HGMF()fvG%,%%%%,%%%%/%%%%%%
U"%%%&%E%7%%Bh%%%gw%zxmz%Sify%up&'%9%/%%%%%%2$x>F3.sR>%,%%%%,%%%%
U"+%%%%%%%%%&%E%7%%qh%%%hi%Sify%up&'%9%9%%'%-%2$x>F%uln'&2%%%'('%
U"%%+%%%%%%%%%%%E%%%%Hi%%%hi%Snhs%up&'%9%/%%%%%%/(#MFAaphl%,%%%%,
U"%%%%0%%%%%%%%%&%E%.%%yi%%%hn%whqj%iSif%yup&%'9%/%%%%%F%s?M(Faph
U"&l,%%%%,%%%%0%%%%%%%%%&%E[%%%S%i%%h%nwhq%jzSi%fyup%&'9%%/%%%I%%
U"UxS>F.s&R>,%%%%,%%%%+%%%%%%%%%&%%E%%%%/j%%%hzSi%fyup%&'9%%9%'%I
U"-%Uxe>FhS6Nq0%7%%('%%%+%%%%%%%%%%%%E%%%%Zj%%%hzSn%hsup%&'9%%/%%
U"%R%%jw/>Fap(hl,%%%%,%%%%.%%%%%%%%%&%%E%%%'3j%%#kgt'%iSif%yup&%'
U"9%/%%%%%O%Ow>(Faph&l,%%%%,%%%%.%%%%%%%%%&%E[%%%a%j%%k.gt'z%Sify
U"%up&'%9%/%%%%%%2iw>FAaphl%,%%%%,%%%%.%%%%%%%%%&%E%%%%;k%%%kn%qq
U"iS%ifyu%p&'9%%/%%#%%%yDw>Fa.phl,%%%%,%%%%.%%%%%%%%%&%%E%%%%ik%%
U"%knq%qzSi%fyup%&'9%%/%%%I%%Gy/>Fap(hl,%%%%,%%%%/%%%%%%%%%&%%E%%
U"%&Ak%%%nqtf%iiSi%fyup%&'9%%/%%%I%%5y/>Fap(hl,%%%%,%%%%/%%%%%%%%
U"%&%%E%%%&pk%%%nqtf%izSi%fyup%&'9%%/%%%#%%zy/>Fap(hl,%%%%,%%%%/%
U"%%%%%%%%&%%E%%%'Ik%%#nxf%%jiSi%fyup%&'9%%/%%%#%%hy/>Fap(hl,%%%%
U",%%%%/%%%%%%%%%&%%E%%%'xk%%#nxf%%jzSi%fyup%&'9%%/%%%R%%[y/>Fap(
U"hl,%%%%,%%%%.%%%%%%%%%&%%E%%%%Sl%%%qnsj%iSif%yup&%'9%9%%'%-O%[y
U">jF9)G*0e%%(%v)%%%.%%%%%%%%%%%E#%%%+%l%%q%nsji%Snhs%up&'%9%/%%%
U"%%%3Fy>FAaphl%,%%%%,%%%%.%%%%%%%%%&%E%%%%>m%%%qn%sjzS%ifyu%p&'9
U"%%9%'[%-%F_y>FcCOs:c#%%%v%)%%.%%%%%%%%%%%%E%%%%lm%%%qns%jzSn%hs
U"up%&'9%%/%%%I%%uxS>F.s&R>,%%%%,%%%%+%%%%%%%%%&%%E%%%%'n%%%riSi%
U"fyup%&'9%%9%'%I-%ux&>FB#/d<-%7%%('%%%+%%%%%%%%%%%%E%%%%Rn%%%riS
U"n%hsup%&'9%%/%%%I%%LxS>F.s&R>,%%%%,%%%%/%%%%%%%%%&%%E%%%'(n%%%r
U"nsz%xiSi%fyup%&'9%%/%%%I%%:xS>F.s&R>,%%%%,%%%%/%%%%%%%%%&%%E%%%
U"'Wn%%%rnsz%xzSi%fyup%&'9%%/%%%I%%gxS>F.s&R>,%%%%,%%%%+%%%%%%%%%
U"&%%E%%%%2o%%%rzSi%fyup%&'9%%9%'%I-%gxA>F)>5---%7%%('%%%+%%%%%%%
U"%%%%%E%%%%]o%%%rzSn%hsup%&'9%%/%%%#%%Ky/>Fap(hl,%%%%,%%%%.%%%%%
U"%%%%&%%E%%%'3o%%#tgt'%iSif%yup&%'9%/%%%%%I%/y>(Faph&l,%%%%,%%%%
U".%%%%%%%%%&%E[%%%a%o%%t.gt'z%Sify%up&'%9%/%%%%%%2fy>FAaphl%,%%%
U"%,%%%%/%%%%%%%%%&%E%%%%;p%%%uf%nsyi%Sify%up&'%9%/%%%%%%2Vy>FAap
U"hl%,%%%%,%%%%/%%%%%%%%%&%E%%%%jp%%%uf%nsyz%Sify%up&'%9%/%%%%%%4
U"g3?FAaphl%,%%%%,%%%%-%%%%%%%%%&%E%.%%Cp%%%uh&'iSi%fyup%&'9%%9%'
U"%[-%g38?F8O6?Kd%.%%v)%%%-%%%%%%%%%%%%E%%%&pp%%.uh'i%Snhs%up&'%9
U"%/%%%%%%6q2?FAaphl%,%%%%,%%%%-%%%%%%%%%&%E%.%%+q%%%uh&'zSi%fyup
U"%&'9%%9%'%m-%q2A?F78.^)f%.%%v)%%%-%%%%%%%%%%%%E%%%&Xq%%.uh'z%Sn
U"hs%up&'%9%/%%%%%%1#x>F3.sR>%,%%%%,%%%%.%%%%%%%%%&%E%%%%kr%%%uq%
U"zxiS%ifyu%p&'9%%/%%%%%%4_x>F.)sR>,%%%%,%%%%.%%%%%%%%%&%%E%%(%Cr
U"%%%uqz%xzSi%fyup%&'9%%/%%%I%%1w/>Fap(hl,%%%%,%%%%.%%%%%%%%%&%%E
U"%%%&qr%%%vzny%iSif%yup&%'9%/%%%%%L%Bw>(Faph&l,%%%%,%%%%.%%%%%%%
U"%%&%E[%%%I%r%%v%znyz%Sify%up&'%9%/%%%%%%3Gx>FAaphl%,%%%%,%%%%.%
U"%%%%%%%%&%E%7%%wr%%%xf&%jiS%ifyu%p&'9%%/%%[%%%2Dx>Fa.phl,%%%%,%
U"%%%.%%%%%%%%%&%%E%%%%Qs%#%xf%%jzSi%fyup%&'9%%/%%%R%%;y/>Fap(hl,
U"%%%%,%%%%.%%%%%%%%%&%%E%%%&)s%%.yj'y%iSif%yup&%'9%9%%'%-O%;y>:F
U"ZMo*<b%%(%v)%%%.%%%%%%%%%%%E#%%%W%s%%y(j'yi%Snhs%up&'%9%/%%%%%%
U"3&y>FAaphl%,%%%%,%%%%.%%%%%%%%%&%E%%%%gt%%%yj&'yzS%ifyu%p&'9%%9
U"%'[%-%&)y>F0JiLd]#%%%v%)%%.%%%%%%%%%%%%E%%(%?t%#%yj'%yzSn%hsup%
U"*+%%%%%n%7n%24%%%Ju%%%%%
END SUB
V2
V3
CLOSE:IF S=200AND 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