'===========================================================================
' Subject: GIMI                               Date: 12-15-02 (  :  )       
'  Author: Sebastian Mate/Sergio Aguay        Code: PDS                    
'  Origin: dougdrums@dr.com                 Packet: OS.ABC
'===========================================================================
'>>> Page 1 of GIMIKRNL.ZIP begins here. TYPE:BINAA TLEN:31468
'-------------------------------------------------------------
'                  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,"GIMIKRNL.ZIP",4^6:?STRING$(50,177);
U"%up()%9%%%#-%qQRgQbg*0Et#.%%Ax%%%0%%%%pj%wsjq%WSgfFxe$:YF[1ahnb
U"BkjDM;KdV8/9T]ZEsfHV/K0e5/UTbK4F#c]EQt>9_SpKPrne*zaup'ameQv/jh1
U"s;xyMyFd3$bc:xALdlVqv;PH,?_)1Kw46k=*WCDcl*\Z3Ej1ptIIf93aN<\,'4$
U"YI,Rr0X[RVL,6QC?uOhfg<&7h4sqqF-6To,$$8>wnul;v93j+%Nkld(QtU0UqHG
U"LQ3>I2%X8ZdSfcaQS4T,hG;\F'rwbb\V\284>a=Aw79OcuBCkWxl+[,5.,2Lg?c
U"Wp-rSATCPd:o>Ekh,.'Gh#Rt\9lAT%VYOHva*_qjYT6S=MWG-Ld,^0:RK-rQX*G
U";hTTcoS2ocaiB-/]**SM=-MlOyeu7p]TJZ'Jl)#fUc.^TkYY7(;h'$,qpSZpCE1
U"p7H[?or=.8#WBRjVdIZK#>]HqmG9Ftc8+jNEEnGCu/cF0f*6s1mB^&7Lc$umI^>
U"#7LV06bUU2:%?wxNDy5[AO-qnK6GRz8WGWX_$tZeY3o+/)MUbk=TtBoqdX4Cp6a
U"6?Gu8b63kBHmI'9^mJ[-H(=:F/)q2JLLR:*Z[8$aqYZAH?]k_#_.I8K/]t^BFGM
U"UUD_+-C&*8#Ra%iliIE_6=1k-]xFIdf-#5PmWp<JI5^N#^KKga98'o'?lUrk:]p
U")+VgO(fkBT#rAse/htH(*NFmR*Wn//,\Fm#*#^QL38^J,(wo(:QY#')#3[ZmxT-
U"w]:98-hfZ3raR1KVLoTEipiYdb0mfX5bj&T'0Vtr-v;Askx7/:bKeRYe91._/Ly
U"eA9&gP[[Eki<V_vZ?o#C>sdPf94>,zwqT8FoZY1Q)l2HwHFtrgIT;S$b7%Jj-J9
U")LQ_\abudvDdEk$BMgHI\Dlp_],5/8M'y*e7.NU8:9&:EW?u7=0*eGG6zg5mXE\
U"=/PH/2J0:UU/;^QQlS^B0wNnjUV0&-DF72jetv:Af-.nS;zHAC2l?0T8ZxH2]l>
U"^XmhAA.EIau&$9VZ\*lH3*4FU\'g2jO7W#p$>7Maqg)Z8qi/75QX_q8&.+PX:G?
U"Ej.8.7op28sXY>NwBRdSZYUHU8630Y\WVl$J<CL<)+HO6n%+.&K+)#YOi_ojBHN
U"?j=;9>c5)p;=C)x+?bq\>s0Cil-$75HtRD)V?(*/-R)0TNF+.$Z5t$V=.rjOI[C
U"Cbh4>tR74X9.\CWGIH%%gFy(^3i=M-BeoL(58PPJ$W>O1<jth?/F.MG[k9^-+bF
U"DsXhy.1].MhJSG+%&JcV=2[GOk3N92uE_Y<4f7o7lcKFUu*,=rp.kT:hUC<)nXB
U"S>>x<$Ge%'ZCTHx+y<uXZ3^G\Pk-o&^OaO9i=];mC7&I.Vr&tt*E:nF2/pR?P2:
U"mu[bNmdRN\fF;K11Y?1MhS1i<FAAtJ]FJq1oWWQ+GvicH2%B/r?B;LO%LQWDevU
U"$Eid$rBVRUJGY7Gq8f8;$c1-l+)hG=pE)6&miZSEii%7JY%&jiE;7mc*P:/0S#T
U"?H>W=#%\/C)/G9\>5H8iIbN6rcNOmNWd7-GEZDf0FQ+_sVP[gUqPuS3+V4c8Jt3
U"lO[g*CE:q%ZaK4MGs-](JX)+oI]E#P4.F&8[Cz/#Nf=rBfXY:e<mhtSDnfClIxI
U"8/uW*\_XhP1:C\]3$Yl305ESww/O4i>si<.lUuk/LgDi;y0_6[_>QXa,67j+9(Q
U"\'yl6$pQp=Un7*q]gM-H+47Ffdny/W4b-w9B7h);M$9Kr4b-f%'d_Y'4ryZ[co6
U".*VfBwhIRZl602Ghn3>'+P+ea?E[L0+Usm>'0R+XU#Je7aR]:;gZi26P-%bQi[C
U"XlfSp%rZF$ZLEp(prG%AAB[nJZObunse7L$;Fg0ab2YP_vuo[wxYF&e*P,5rq.l
U"YV&t=Y2QgD)pa-F/TZo[#^^_;^=l3tS]ZHOgd8n8nm<Q$r(f^uhmm:e\x(rfS=D
U"Sy-PP$EhDS;.?oZIv[317m,O&&xeh2J%%wRDB.CeGoh2U9=2SI=2kgWhlLHC*z*
U"jg,&iGHCQn=V&GaE,g(b(Gh\c$(eCk&,ZL_1>HL9TuV,aQ?y%dE]Y5fV7q#'8.6
U"(_[S;V%o2wb$)w8cdfx7W(>LW+/Zd0vor>cO'b9O)kGa?p:Nk:huD$xsmq*HI60
U"V//.J[4=CM5\P_[hSO<sPCDV^zbc<Kz=&(IxLUrIr<7Hv=tSXygqq*\\6gP$9M1
U"&dpUX#n-59YEE?_RZ1D312w[E1=moqSw&.GH9stL*AWLIH.dP9dWKb1%re&2J#x
U"Tibo_f&qXuld1-<4#_<D#&r7\/3+(fT6D)L#<n4#fr4[SZBD7\-<nD#&75\oA#c
U"fN3-on-&R9*q-?4=M:=.h820>aDs($-qA,a;1%]B740ekA2%'QOIqw&K*J*W%+%
U"Y/D5%SN:9X4I0QaAMWr=iYL+e];KW<5'>8w_?GW4D('(+_0N^gjJ;&qr7v5s:b>
U"ng=)\7w7MOE88l;#)&5;8e*b7.c$9RdIyQCKLb(5f<<-NDa^7MxoQNwmp_Q+Yd9
U"htKthtPP0ZTnp6AbM7,w8K#wg+dPFs<fU8;'5o(NVWEJuoEFkpV[K[MIR0_eLts
U"u'%fiJj+4A;_+yGva##g/8FeRo5Mw.+18'ML4(Es6%7i0\nT)i>ftbhja7Yy^aH
U"r7j>=cNtK[$-O%Kx%'7P)v>1b.Z8tPA<yYAZY#idkKP^QK>4iGhuChpB;j1kVBF
U"1Ts6/aFxwwXQruw^knP7x*?Tj$S3tD*dfKwHTf%DM>)(RM+TowR6&H?6hT(Q:rS
U"#_9d?P'kX4qx%GEDyB+rh$R%%fZtKUz4XkubIrPqEMe6.HHcF43MdOTky%^Fh]:
U"FP']>/'jyv+=arYPYiEJUh5o)nOw3Mf&^3xJphp#&]fms]n8#(/KDa;FWr.%hSO
U")]7cM6s8>^%<$n6[n<6TQW$K/v,J3X'EGP)afnL\7:&CnAeOlcd1.nGZo)aYe+r
U"Jx37[Uf6Jj?<Z?:x2ktV+2ExOBP?w+b*:-.)g(EiDO>?f9W>.7I<99Q-oVR;;:3
U"a.]_[Y16d^eJ-oS\.s4a/+-*;Pbp5xBZ-?*UB?uR#ti7vs3V#hKqfFE)q7FsOIA
U"-L(EX=2w1Yd%8]?)jjd2=u46ON/9#D[yqeU?%O=).Bg&<wuuPrX3)2pS8\slaxh
U"^qa,D9M.sfFg8ZhqSmSH9Z(CyI(/N5I]zMzLsNwN(7qy:A=*P+FGD?i8L-&/1+N
U"nVYPma?[hv0Tb/'aO,,^aj$[rhP2J+TFAgMEzgV)5Mq*S+9SY#9P8;9=AM6;,/8
U"##r66'&M)=lj\]eq&12aikQKBQoq_e'-ttqq4TX:gig$tR7[X[f?2U^f8?b$>*m
U"p?)q8h#oouRkaC\TVq4^*bc>y6MRS+&PS_q+A-gEb+&0,[6EVX0/MvR5UJ27'<5
U"eC_h]%:.C=;$[Gs/o)K)uPdgT.V#m*[p?,:s2I4*G.ADm<-9gA9l*4\#tVdg%Rm
U"9$q3XlgQY'Y\aSW9'rM*ja:JaPSl3iJ0YzWchq2^q'P\KXtn^A,Qr)QCK]=ea;*
U"MmG]R:K*]8ZPRABPU+,=);4IkPwC-eVoqO2>4(0(C<kh2N]p=/UR+zDJYoj?sLG
U")-cEBZnYRNKK7&<VYiIf;)x>\gMbR+&%Nq=1[5*3SWq['*Cjx*nEz;naxI8cJ3C
U"B5\#fJ1fPGrHIj8eo=oiM12Dl?Vwe]/jzb0Q6QePU)F#.CnU()=8a(b4$&F4Wnq
U"G2>=7:v;&$H\,?oD[00AG<Zc[h>DtLB>bXzS+u6f>c<,8YQH&8RfVR%EN_U/tvf
U">d28p;kYxidl6Ya19/PzX0CHyBitpZgNnT'%y7ng0rRI#r5pl[OH%hhC9IJel<P
U"ELZ5dV2HFTEf/2Es=7fwT$sALsSKtsr:JX72rpGPA9'n8Kx])i0?of0Twh:]Lq5
U"j5aZ*+%ydafh8/NRGF1SSW%UBO]kVZ&cCC<L#d?%I=-pXGKc9YEZ:Q#YJCWei-r
U"),arw0Qu;\hu]T.q8wc$&C<<WqOl>g)Nh42qJ9l8<:ssimJ/Gk%7SIBGT%.[#^R
U"Xjm(<_R;TkUiZjQRc^cBMvTIRRy]gsc+=J;MnzR4q/e,b&d_eh7Yqbz/)=*Tfm%
U"EE]1/9Ghsi#nE*ur$2nS\s-M]NJwXkt&uW0an]<ON0/Pqr&0]_X)v\13X?Qs0mM
U"1Gg1qaQWI.9cbwIj3Cb$4jqbsNegsIsY44c&:o(DIG=3Zg:%I:P1NpAVi0/nS]>
U"d)Zr4SsMuEO_OT&Ky>Gi=acC=c2=5IN.5%FVtBvS8')HrD?<GpMfDx<P+br5<xO
U"K4vYsrTZ];>5ME<7LMambUU[xF)g'ky>-7ZW2h94P&RNk98Y_AYUWi&\Dq*CyT&
U"N&HJ6%BD4$YAdo,bq\%ITc0#$&0%>^70/CBf36g*+KQ)wF10jt8#p->jb<T8t)O
U"<7xL<:5#MG]9H:q3v'KX4+2/6q0E8.s,6g*DebmAWrK;RuL4V;IIup1/*JyENo0
U"QiOWr(S-m1(sb<Lm.#CA5CcG9B1%(;p(Put5Cu-U$(:^Eocp[0YNJK'4*/qixo&
U";Dix1nq8opYw&8nRKrb#%2I4+7J,ni)Z>/>NE-<oq2<M9t2<+awZbKABQ%o=bpF
U"=;+wnug)\\;UL35Y?8.fkb#20>f^4p1WST[9p4YepCdA/)Dz6cT7lpWi,H5\F/\
U"Oh-_]-D>?qv^OL1Lw3XWF#VP]mF6=renjAxjqzK8$<1[,UVoTa5]QqeW[R2dFv5
U":V?.vpO.=KB2foS999H4jW#(Xn\cBvUffJMbPaDAHT*RY_dwEa+IFiNh3#asP/(
U"1Vbg^kFL7:8c_kEicMeXRuXBJ-rQ]-:k%7.qqH4WX<\9C9bg[z1G2)i>V-c0DAR
U"*^db(5<6%S]3>]aK7b98*H*,C_Edx#%/ec%,nt7Jyfjo2q0\2O[gO99-4SeLLWT
U"P&_m12BBm*5gnY1f)%SiXI$j:&d<y6S7\)xuV0hfra2:da*RE5?=s*#,VMJPNj[
U"g-X)JNUWZjgEQrL,w0G#p_/paK\gYC:o]g*4Cm[4$#-sG&aRacnh$dX_og5Y'P)
U".0MX'(7ZtWKk:g$dt1dXQ=iVX_?x+_DZi?h%<h8zA:7hu2oHrmMp\$^()3zY,Yc
U"/)\&JV7dTBc*I7taxc%*;/oE6QFh)=0DF[loU*n[-dDqlxE_6>C^$294HMw2DTR
U"l7j3Plp+/h^z_6oGaoe5I(Pa<3mrFO:0KJdf_]2/i/Q\UV&+4r&>:a8(=:8N?PY
U"mnNh.4Qk]Eq4=f]3j44R9V7FEGBQB?OBKMjtNkV['fbJ8;j90\*uX<H7A9H&jst
U"XK[W/B+*8hVtC(Q>eB+HELL*r3e^=zwn[%'Ijv\aCS2_0;YYeP\.ZU>'sUD:)Hs
U"bh*27i[YZ*7Zc't+i4azhSlGK7MZw1me6_J)En&ekPC^$Yw=]G]nyyVAO3lY)HO
U"TgF('\-crmMvUTI8$]Y,eo'&ZO>dHWflC;e7y$j$s%H>h8Ko(#VXsl[d,%gfCe^
U"<E+p3vpUIa:=5rVVE(2CXO7J0Di(QYILu,Sb1_Fein14mnI>uB8Pw*Fa/?Pg?%[
U"thQB5T10p:$A+:R<W4KReQ9OMOamp>g$h7nrj2e5:8h[9$LrCM52YNoSnN6[978
U"Vj/R0;FC.;v3YL.t;Qf?W#Y7U^]'V^=YuNdPg4^\WacPPDng.lFsQ%2<*jOU5W(
U")#&\cYo+lJHuGxlkP6'Gcr\K=F2gxZ6Wi/]*/WX4s=K&sP89[52r_+Um(aorpa'
U"Fb.A$]NYPwjw#.BGxNp$&zd3SQP2tOI=Pr2m^\vv[eTlqPr;rfce%0C)R6$R8ht
U"kY?L^2Qk_7fW:N8]3jeWtZf_Y$LpR).?$([43r_Dj)9aFuA6w47GD^g6r?d(AU5
U"k.alnf=-/m=/xpP%K:.pp$xVLTt:-MZ5VePrY:_6E-6I>(jTkSGE&>T6lGQm,L[
U"m4nES2c0_FXhmVq,W1i:jH227;KLpt:]>?65#r3_9-1%Bd28-POUrFtj7&sEhGu
U"5i1/U;#?4)=W13XooXV%*;ZKVj[a(218H<e0U%b,pn>4p]YOSptP4wcP#g[p/_#
U"B<,;;+'0)Jg&E4^.;j]'Tmbw4a%MTVc;>[j8W6gIL'ADtq&7Xn-*-_rVO9F3>JL
U"A>Xr*lCz-)>ij-.oD$sCQS.BN=,yh[l\vi%C;9\C3gbc1ezOtG&lg[d-Pnh6fZ&
U"_PwQL/rX\:9Ba3DM,4kG8'WJ5-+B)P,n>sR774C.&E71aF<_oj:R+?nEevbK9q:
U"C&o3):);ALt['fX=O23VF[&cdX4sFbD)>B-]z4^Vi\-OVF+g'TN<a7\K(5HJ&Dn
U">^2lgZ$A?/,WhPb:k4HbLU;H<pUeo(>C1B040k%BY,6Eg^h[I/nZ'qAK1y/f\&<
U"=VUF16OmNYe>GrhqmZYjG/b46wv>t9gR4HF+G(s=D]W)eUMc_7:[pB&&$$oux2'
U"bM[3.j\m*[(&g;.RvE58?GKI,]dZP,ctwrZN&eSm^1H9RW2u[N\;_FFr9yxRWQ0
U"VUCRiW;f\aksDixa9EB)=,a_x9gr?lZl(?C6nwIk&K1gR7p6h5q1WmJ&G-6)(AN
U"XRRH3b/Zeww=]&vTG+oWSHDtA6pk/38y#RveNw&I85Z9E214eM34NsN/%ZP8&.+
U"q5#b4e?zE\N3]?,Y>\3eAvxXwey6ydVA[caiAQen9^3+O54vK<*'Z-<mgiA'+S(
U"&>X[&Z#g#jM65b+z=[#eiQ>7kL?+xKdlTU%)u#.-^4KFKnMkFUXpnyzai+'[O5L
U"7d&p3q*G52be-eaU1QRLz=6zNPY9q^RKn-n9xn%AGXREArsBMW\PVEDv-.\fP-4
U"=a1k//TR;)G(;#dQdvsf3HuNW+KhSSd>;itjDSypF:'JL_jyMWb#*_'##L&L%&/
U"EYh/-zOAK81aL>DAdfFDUBajD'/0h4rv]=5B_H-NtNcAs<.qexSiCHc6NlBgYRZ
U"U)%jj?[I>:#zkfCBb]OP(FsgJ0*'Z%$1MQtaJQ*oY8-\MlSpm>i[L0\Ija-kuTg
U"LC5M[#+_C4=?'Mi\Hl\;*cCcX8RIyh+O=:pcmBO]1B#:?&,?YJ(iAldU\aKttjZ
U"Uhv=+W&4*&'#;(BQm#DWfGCrrx8]aYIT?0fHP_xho<&Qcb+YwXqe0Erfp:.Un?b
U"0I#3J?+8p?QRm'T<33NNIOJRY3etXY/AuIoqFQjps7-(%LVVvQ5f4<P#SL9)_#d
U"&\mlwN&VsYGNq5]JM%<&zU;P=YFdh:wC-t-%PTI*+q2F)DF(&xJP<*9X[e/y7c[
U"_V/U8AU3OMLs-Q?4r%('*,)hv/X9f+$BpEa9ZfI'k6K.RG%[hz*=>T0c%&ePujv
U")6XQ+/Y/pz7NL#)*\N)d4-bX.:g7*d+quE,L<Ql*l429mlGCCaIYLQTEikGj$bM
U"HEyG%m;yBS*0fCEjPSm8<6uH0X.MM=mGs%GP3UE\/xZ=.\EP&#.2m3^e13J#_#?
U"l:2\GY(m7eG#(7#_gFV7V;^[gZ(m/eg#(7>_*QO12$AWh-R&J?OC72eX:Vo==gu
U"1q?rFrZOCfp.Ym)m*,GGuOn\-p(>^'sY=k)7(DOd%ToE9oCPN-)p(gPs)nQ*hq$
U"7tbk$[L=9;:jrHS'gxT+0/hd^;jfU_O6(fQ+XL0n+lkJT[ZKE=sCGEN>28TGdR)
U"P?ZPfWUqIU3j*Ghs=%E);po/2U^_[.t4Z2woVLP:$HC)>J3E]$;q=aNtUc9D(iZ
U"(<?^<A&P=]*/og4+l0Q*3C=&ss^/:4<WQHo_ON#:=e/N9Kp+x/Q5<WJsEor=,1h
U"2qfR7m-Q>RHkJq88&xRJtTrsmNOzI$8]n<,5#J_vN-%%Wu1EZ4x[xZO/2Z[Y&?s
U"->%hLi)F6Hb>=&nxwB:Qe$;:hBCyT*aN;uL+-FWakwe*B(?82X0Wf1pz9H,a6jX
U"MvhG,Y0omz4ID5zGCAl#jEE.'RO9=6kzPKVdjw[q8V/D[fH[wfpSmk>1t):KWm2
U"w<Z)(\zot#IfM_,BW.Y<3z7KHZe)He$N9^F'U^LOTlmBMJT4la^S[:NF(uMLprQ
U"vn,v$j/]_haM1'^zp%khb&u62hJS)i$GXss17('Y3XS9#M7WtI3n:zcu844Ftj4
U"U;J<2Q8?t\uE+QbqB<r)JHl5q?jCU,+9_^d=:kM=[s_9/<76/sBnLQQ5B:4(*7&
U"Gv#J^2j>M1*ox5NLYj.c[;Fk1\y9C3wyqh(c%kWaBOH[hnG#pA<9ekPG^UgjLDN
U"?oJm3B5>b%8&y/uo(r4dMy.T=o_w<lgUg^[+aBFNS=yBjbF&<hU39AW_0r;eTO>
U"8[EPA6^7s_n+Mj[M;E['x:#9PAK/bNjtixh+nq*>r6,3>/X.bv-?>oBt4k9Mqc\
U"\aUj[&ddi13pwf.o&Be3?Vn&J*97/[5OXFrxTP>.6GC4qSKWnWj=JiHK&FB4J;E
U"sJuXg0L(v?Ruj][hKhMfKHmv;.&,8#qn=,[.Pc&qEoO-nuS9c<k(Dl8/4mrIXc7
U"6[5UrmXG%hq4<;Y.;FAs2guE#/SUZ_<PeW&n>'uQe2Q,<DA4[AVSEj00xfu:lDl
U"tZ^fcK:N($Hx0ga+vkXe6;Pw)dc*'bd\:Zu.sbLt$k-xwL<J(<uC59]I$Z52O#4
U"b<:*24LVNdalKk>_Zn:UquY6=UvZu.Td=Vi:-2S#kP7c35b7Z,C^SW1NB7nC&C#
U"0k.ehpvX4-1-IJ.6HRRO?1zK'6S*^WQm+kZBBgBdR(0.3^]Mb96.CQP^+T9+D(t
U"$%=);wgkqL/;y'I4.UL,l:n[ks4aFC8$*mYSYH7ZX*k--ITfDn7FV_=u,<EZ-o*
U"Z_Gezl_&'DR2hq32<=4XEv&XBDUq;KIx(%up()%9%%%#-%qQIgQ+G;2qig%%%xA
U"%&%/%%%%pj%wsjq%SgfxN%*JFfSmexm$c#X&pq$2\m%(QrGRgGm3+RO[.E\Yr=h
U"Wg#^'/r3*_'nJgUnMkNp%bo>HfWK,I#_ucO&tJMydZtqkxp#^cOYqLnJU7.*wkA
U"BNgNm:q]=nnoZHfarMKNFoDFk:/TRdD>RdY%TaWNWLF3;])<tb5xk6]8#=q#No\
U"5]Ha$-P7uHeXfaqm)w&T?QT)<Nf2.k#\HI?._),1^]Q3H#ToiH]>s)6NJ-*^]1T
U")^PtJ\LmUdf;Zad#lm8vM7gaI;3)Yods:.^:$TYyNcFP%\p^kqYGZ0K.3fD;OGc
U"Hg%Qkd>bW.KfjS6RB]=X.-\0I.<GC;)]:,Y%7fNz)\7:o6*-RMIy_Py;ePx=WQZ
U"+'<Ht#=gDl6Bj?-&J'U4gv$CZpDJEl76S17AxO8J1iq*5OlDrfXkokan:oFq'>M
U"3=J^.WQZe,Iog/=L[.L99nX0^IagEi#X)4R:jKZS/22t;1y_[S#-u^hPc1f:iB_
U"\,a:GyE1L4[P/3ebI9\F,-jU5cTm\onA(+BN?f27bE^#<Q:.r=+LVZ;%YcOdD(Z
U"+yC;p]cySmVdr32S'e\E6AE1A>yYLVB+xLjF\DI;cOuFW+Bf,HP06Mc7*Fb.Bn9
U"Hm,Xd.xkJ0W%4ZJTgkrn#W)EerXe'fMGA)5Y,EvDJ9U);IFFg0UzibGG_=W_<qx
U"b>lAx(:Ku;_8H1&a-KS3u:Ha3nYQdAtScq5lI)q3,nay%F79T6J8]%a4<QN5b1t
U"5tg7f2$L[1Te/_^MZ$KEb9&00YBWvYK0nGXxu3AIKt&Eoaq=429,c_Z_Y-A66km
U"medL6^3uQLNAvFn1F1nf^#Ut[TG.(Cy$?RFwuW^(8kE(7WEInjY3>glw=kCE?]q
U"/:J%9*xFne>(8tYkdToWK?nKp=JHA6W.;l^:>f]*PtG]/vq>-.ND2pllc<Knmcu
U"qA5(ULm[l7&0TPXrXZG/3]K^5+u1KPLG,P^WZ+3=/P)paM\2[gjgXbA%4[A>:'t
U">a#KKY[NYV3)DoE:G^oS*rEFX=t9K+J>9CRw0)RdlY6muxXQT9uJW6%8BcCL/O*
U")920+zq/).#gGS--\,t[9ci,VAuea<*V[\dmLgEpj'<$9phJjN#d$HKP9uY#&0$
U"GkQSl>'K4G/&sO[WU42XN>qj)OY)iL\/]#(CIeMqcB<ki$B.UyCh/d:1VDPruO-
U"5(y>Wc&;6\=xklYc#'.rA(W_cA6T=H[A+(oK9J)SjzI6GH:ZlZ;V<3,Akp;fP\r
U"nkJ&H-YK3\Q%degNS$,hF^Kz0R7Q?M_mbzvMFYCW^UmoR+\?hJ++EiOs/[JSNHW
U"8u/LOSI-6^O?N;,,d4lNB99=3wj1l&3=+7Z)n2S2hR+/=tf^5J_AN?:&WJMKn,]
U"O3NR#^vVsM[oq3#60N.Zb.EMb(QXkR::6kO-H?8_n4XnpNeIA:'mZibEq9L0ozU
U"AI6f_j^#TZTJg6wf8X\Ka&07BF^q3W#UXpBahmb>\Np'Y1DGNJ[2>A1GVQY%V-#
U"=vikRu'gB#_t$E)'fb4-oT^=rjh*F7FdqF/;asMVcqLtZk)FG8qDBsD7h1pz/M1
U"KscabLuece&5rboo7es1kGx%4$3RzBTZ5Ic,[Rcpm[xgr'dXBBM_85PN8/k5f#M
U"Z*2Y#+oF]]7SU\]Suh(uKF5w61y7jV*>XP8YsH./\3#-x^-^bay9#=p<H%z.NK^
U"iV(Et<\j,=HP5W;%kser%+T:O'_[Qc%hn5F'f6*QLKTrG_0f=(3fs9,W.*oMa+w
U"A5K%X3UH\Y0lSFN677<Np5o#IW/sf]q$3]e*5tc/W(.JFaIsXcY]Q=9L5p8_iMf
U"aB+W4#7aB)^#PZ0ErGR:7hoLxvuG'^]9F7hv'P:(rk5?+$MvFfjG0u=iwfJ>WA+
U"]HN0i-%N7S.lvKQRL[j75Zoj\7n^<^J7/NgrC6bs#pO)ca8G7(Ik;(eG2bO]N)I
U";hKoO>hFzo/)B\n+m5CR;AZ=RAM)qCq/&F;w>X)(B=d.S4CDT1E]iEsAFBbL=x1
U",jG182H(EAPTIpW]aG]dB;Z;)(Xd;?mV9gt2Kd0hIUg1/Mm4L:,=rR2Yvw1F5HH
U"HuhG^9(tmk*GzRfqfR-J2Ui7Acnjs]cqCq&H^jdB(PqEZ[Td.EO]NrzNT'5lX?[
U"a,VD;pqkVa><:0ZK_D9Jh_=-#1/0I?=fBa,2eA1EO(F0Jt,G/i-jf4LC6H6^wYP
U"Nb#M)ImyqjO1';#XgL#a5t8qw&/q+Z3LGWMS-3jA:*8:,#0;lJZ>.;+MoqiqRA'
U"0^FM#Xy][ok-#%:7y)c5'Fbk>WK1*>T*%gIaofc.1eD_SbHX7ZKmFE8MU&BijcW
U"UQ5-(vv0IIOZY3LyyM%6lYoC+<&SO0qmDU_fqYW%uAiamhZ6MA4bq;#:mzL3dTG
U"6&nX.>Ar/x;]3q+^#IDOn39*'^BC3;ijEf+I/TXp]\nEoUpQ_]acSi4.Cy1=pty
U"RC*qq3oFlJRFsEGP1x[oa:8AowXUQOvo<Xy(EMaf56fQT:8xjk>wbO2]2'c.8&e
U"?#Tls<&e7iHQtjKe=2U?RrN?e/hXt^i<%v,7Z-.,;z4m%&K2)[^*,;I(RL&-ed%
U";9]kZUaKpE0VDkZkenkV6E'ErlKRYwTqZe#TI5rVG6Uj)q7S,K'=ThNZzt-ks7K
U"XCh%eNM''sB\See^izk+tE_ZZtfgLN#7Yqp/RN*;R?N+TmmUhYo[5)N8w.M>756
U"ar8KxZ*VVDUYzVcEW>;_K)R\E)m<<*<aLF,cT,.N6f3Mv3QbRE&_o;Wj8RNPRH(
U"iNyr;Y$<</0hUaWQw#WeXZ<2:/C)/#M)h3sNSWO;=DV0#lF(h1qos%<X85k7ltu
U"5&0*/.?F_8J:hCwSL[sC%F8zBFoxgeHv\HzpT[:9C?W#:J3F]pU<00<_Yqsw$S\
U"zeL2Bk0&36c7G><6%]2^cKq>/i.e)8CpJD9[a(MwgvPoS0sFv4OwjWxC./Xy1f1
U"EJ%$[4ywk&s85bXA.SnsivfritZ'6dv%LumGOnq6>EEhtIL0M2/]'O0\6Gxt9>X
U"=$4)3=[4CLar<BhYGLnw,de]\SO>ETuq2APQ;U95--cujud<TQ3<UUKoTAh6L=6
U"M4dJVg5=)c9)zLl4ME4=cK#;9fs*\yhLC]%.US-(5V+s^1.\;Lz8-Y;,&tsha/n
U"8C-XpfYKzYP4Q/(FT](_LT4T_$7_#;'s7u93'OM&oYA.Y/8;]dLjMn;PK]5o_lF
U"WKC_O\Cnuw,('eLp&iiV$(-lw=:iC2O[h1yyQdBY\hqoPv>S<HqllsdlRi$V5h:
U"e-5-LW=>BO7IPw2Wmf\18E5Q$JIlt8Sk+S&[6X>[g+*g5Do=JPS5d_T0-tHW5iF
U"s'OlbpHEXir=v4%:bJMkQ?[5jIR9Q(o[\4W1Yq^kDXgZ/F45qx/#,=zjH)5.bi5
U"rd4k%xuE2w0N>e7EovucLvaD$:y<nHe[HjW-f/M*9+-(KzAx0nE5CtyAApH3A:t
U"0>:N<3&MV)NjZw:Fxwj[a+p+^;F&GG/g1Wx6lk'+ET'?SAt6(xbPW[II*&,?K?y
U"+w'snuvkxd)%SV\OlBJ<*,ZU1w2Cf+H,k*pr4ot6*n-<TpeexQ^hn4vas5^%ztC
U"aV0YB;;-fJwDHfFaRR'$'QJn_:9TZ86+:a(#cVRK-RCKM3-BIu.>aO$ar+K0^j^
U"EQ1bhqDYhuR>$oiyURB?fPck<TC3wF3q$tc>(mu>IN(U.VLHrFKe3ey_6nj$hm*
U"\PPYsr\rUZ<*=h+xc;WrXn+oL4%'YFsZ+DzTD'alnpv\Cnthun<Te^hl&R,<[\1
END SUB
SUB V2
U"u%GJMRG>L1TXZ<YI>z=s$0Q$uM&p1EVyVGJ$muWPMt+SmFUKkxE:s<C<T+6V.C/
U"8I\ukXWBEssuLu2UpK1sw1PEXmZ*V^g5Cs;TBO%B,56Y48H;N:n1ESCF$TX4aji
U"'>VfSP&<TOe7glQJ&G.(PZ+iTrD]LX=$kSZuDe$fHWK*6V.UMg7+JCRBx5hKF;v
U"--wuv9X/Sgo,8JX$&vJCOYZ'J&5.J_.&C=oW5d'Q<XVOecusO%?;(bqGB<HztC+
U"dT9+#i?T][hIK*L[WuLzFW+lT_FoKqMOZBuIRmj9Ky56dTKwah$13X_H4A,MqLy
U"'eA4W&6;OE,gv]CqOAnid(]CN7K%-N=<D8[,?D$>QM3n;1v4LGgg(05G+EqVW6e
U"al?d\%baQf,sq8*E$l[WJ[(rw=q7\GLzU5vg3(iT0_nqOe-(YAsLG*)=a=7%kZf
U"tF46bB59S^sHeRga0t&KMK>k&AP?s7'NJ)TOPnB966+N;1,x.T2um\&V6H]ac[J
U"P1U#-wu(F2=XE[Rg7x?AW>P3G$g)WyO\vg;[(aP]d1%#$ee+AOq/_eK]R%v(tbS
U"M3:)3Wbik<6$;(YAU(;2GXXe'qW?#o]yR#n#GttL:<J1g*eWW17,3?5pvtbLdp8
U"sQgt&bz'f3Be=Hrdb7nF_]0Ft5F7o'7]v]N7&xeuBmMO2P+fj%MpxieO_#[Isab
U"uiUIG?30^GdR5KHnurBj#J2W#+Ar?02G7XaF6kt:h1nbfAvpSl='lAv/aQ&J^rr
U"vrrN=S\NcpA-FQG5la$=rfxY]d$Gv95bdGYhNq:i,A#\dXo<](gAsc#2iWsJ\Yi
U"NDKs$FCqZV;E#P?<7Wb-C]EF>d;?3/dujwTPWuzs(I+oNxLu<nPNuiJl?VFr0;&
U"AKAciB=m&\S<0?[C+kI%yezAb6Rx,Lmkk>&->2X(bm)Q(DCK=PhuEi;&Biid:lO
U"Ud_uaGp1Ix-JT1y\lp7;E,NZMMzqDjq3zWj<sUpqRoXsn<FPNdmR:'3'&FV*]b6
U"QfeB6qH3&=XxA=W0CQoJ73A.9kT#XM7xhvME/MtC\f&cBoc/[FlL\bZLhhX$3Vp
U"Y##xu$2L*IqpNo0'wob7:M1OdSBdiD$Oo,>JN)$kD/AVoCqSJqYYLU?m1mmgofl
U"fUd$.OZZPwwrn_g$<>O5v'8gc/DfAgvuvs1,Fgf9lE3rvQq,SR[+GlzT$jjZue,
U"yM,qeKouitM'wG'<K6E<h8sRlOs;1bs1lFs8\*XRIUM2.#T=?%M&9<Vme-eMd)r
U"EF-Q,'R9VPrcM</tkg19;t<DLlB#\c)+3Jx<A0PUigav[WGUbE4d:tCNEuhC2wD
U"lMRWB3Mtb-5u8Qz(P^[4+2Fo&SY.Me8G-V3]uHrRFzPQE-r$d'y0>CF7F<Ky&Z;
U";j_N(2s#2migobM\UY^dDyJMc.%$j-^OiGtt?G)B'^-u3N,]QAR[#WjSN_kIB&W
U"E?cL2dLom:E%89gWo[+fGg42Yb]$PC#\^\I&D&?4McJIcBL4D5^Yw3h^$E=GnQd
U"P6cLbO+7Vd+8u%C7m'62-lEQnf'4TMuhs,Pm;ft$8'qA7Dz-hKPOO*$*nUhK9Sm
U"Rf?p.)2xP;(FAQW4>7voUyu:.4onwiaqbL8u6WpPibPBa>zFpR>#dOsA#u:l*Ow
U"*#<cE&TQ<_E0V<wk'aGJ_e5MC9yb(6*T,%%[^ni?P?5<pCD[[Cl1IcRPO-fQaG&
U"\L%IBkX3G&8BDl_\stKC^.<S<C7K?Qk$sUJ3zHMZ)I[1(=_e_T65It?swg5)C5x
U"JHrskfPEBZ^W[AxK6Nv5t=]<+cJv:E;TqpTB+K#lo2\K>RI^6vzsecGNV)N^p[.
U"jK3[kV.eJ?SvX1tW]B1nVAVQx(+Rp?+nuRvY[SFq$rrW];MR?FInp],x1r8/dSb
U"hv%BM_H,e0[1m<BkD6yq5Q(aT>BGNR<%W'kBJA)HJ>oH.9Bi.eRz?Td'pP6,jpE
U"[2=^]#a0'\/)chh.6nX&&kgKU9hh8Bl&=Ond=G)fczf:\qi3X3TauOMTEfBaoC$
U"pdDan];w-\jmN]WuK[m;'wk>N?Tx8F5=(V&#jfc/[<T/f\2][VQ7hAp9TcWrZ,%
U"5>1_737lM7kf;,r^N=)seWe]QFAtSwx/6[Z8cj+:f+-6ChDB%m-7</mcpn.BtNt
U"E:7hkegfLX<eJC9r9aZECa6rHkSW=^BovBc<,AoUcs0ZXeHDfSCF,OB(i9D*D69
U")J\grB3N[Sr(S2TR2x7tH\s8j$HZ#$i-&Urm.;G<.Xcpu_672WdSq3&W>s#GZ\i
U"OG.]RtOD4W9SopC\)1suZM5yV8P'+Gc>VRN7%,+Yf64yLEuiE5%.Zv%$FOQc'iB
U"b0nF\fMFYjz_J?4Aj3)KxnfqZL\.Ypxwie*my2D^q/IWTNiApAzfasT'&>jU&KR
U";9^Rbs9uirNny$WH_sJ_w7)GM#$=Iovkk;%=cP%.OqFd/qEsM'BPG4p<tDZRh'C
U"IBSlL4%47ZW1\<RxAdJM9.K9wQ<8ujlHTB.ScJ>-J$,lw*Nik.NNb:DV$0Fv&K.
U">.7%M5fDN'Hj#DN3eVo2[_JBAE[,X=5P=\o1\Q>UcEe.3;n-_?YwAU;4ebMR&)'
U"VxnC63=^%NQuUP3^m>1wglTp%R.A'n.%\L<lQ&^nT#.DyW$D,c9MWSA:n[Um<23
U"aCPSltEw\$%L(U)-F)]Dd/kfPE&.LJvcps[=TCXJVm=T2l?2lm\AnfiKZ)f3LP:
U"5U9qnA4.;z:Epn9_gy0A;^u*2)?/UhmkTu,mihJ&?/o.]zB1ok*4H.DV-18#Z^n
U"AnFMgO?TNC2#3UoUS%'h3&<os[g%N:7w0[&o6\3(Y?9>;=M.m63A7Ka?7u_Nk+G
U"=Xv3eqK*'VSx1%-*k)k8ccCXAk=Fp9,.C*R=V-'lN-Bgc<T%8](7&;mU=WtpEq1
U"G%'i9yPM&,r&iVva/*7>q_DXN&Wt]\;N5agizYbXj)Ws0a[oV2vG>$wf*/dzAIO
U"w1sr1#L6\l2)eU_&l^XOuBtBGA_F6VC-'l#VhjAC&=Wf;bvm+G7G-B,CeVmT7D5
U"da0:<uR=tI1Js>,rX+GZi$L<GhaEN^%p0cFomHHo#rHC:*Q5&gb$v7kT;c$>vGA
U"S,aXSLE$>i,a(nM:<Wki)qwe&iv(>1HBl$'t-+&j8zYeqssh&nv&opL2i'DpDtv
U"*KwF^C&<dyD\[IGN?j$9:(Rhj6J_JtqkE7oS*b,\bptPJ;u*29U*b<+N-[CN7R9
U"j.j.S;V8Y6L4&/0841BWLusfWtXZo7wx$&+nmfPlyugd7GB^*.1Z[A#$\2j3n(F
U"Kj3P#QK.M9,x(Ae?799_u;8icuntVn9n&(D22WF,6hKZbbqmVWs7.)N&%z4MC%L
U"G:0QByXKOjmeOZhZqQn^x\%+_6ube.XOC6VX2S,_pZq.JiEO7$nJ>$O5p.Q<.X0
U"7G7f<AXstX.vI)I-6Zl,ICo)/<X>C$E.aZSKL&i6bEPL&7'OrVFhf;ybi(>,oHO
U"^1-tols$Ib*J;UF94ob6oebs_.507G4m'ROBPLHX+w*.t.W'mv*nne&g7)f$AgX
U"4^K-(E&+A8da$eOx?2$a\,sl&6o0Wtzr_0Gu+ho<^X.A]'Z4O2;xHR%^okxxpG>
U"l/>x:Fp7q0wKN)(=4z7<3fmb8Km-jbO'FtTly<ecFwv&Zgv+J)C;z1=^0tt5/VV
U"^Z#YxpW0#b=q'UROBu5ev)ZH6;k2RytH*n3'rG;hKW60qDD\^)eDlIGJHP-%\A<
U"3%spgg;KPPxI/2_w:3EK+.x*N<XR6ksn]j4m?vkIsjnP5(W.)FNx\F1%o6)00$2
U"#kaN8gc^s_urde0Gv83NW<(.FaIR=E(-lhN5x:q_3sWff5g*qpBg+Y0g5KD/AY7
U"7N$pWi+^3wgaJbhdJ0AEV&f][R522_v)8xRI/F-SFBi98W7Wgk(,Q$d;dj#.u)I
U"TXDll*3EnPCY2;NbVE-QJR:qu_(oY_zz:JiosNOGOD>J(l<JLW])Jdp?q;g_rD(
U"UdNIW3316>$WZMG_lp/NvgC,FT.i&bEr2eo^?rHC1dM801kEZeF.8*MV92*^*1N
U"z+k9TU#[dfA(6u6FEom]:TS<kpul:R]k8kD76ubjUITr-<O;h&NjRA3OUmS;K>i
U"f%p^IE#'HrRPVtw$k^?xWQ0>Ptr(tRM/n)_BAB$As)(5tc_aH&>w-GsoJH='I^4
U"+#GQn+&)G77Oj:+Kkoh<4\fBc-2t+843:=%=1ux74cuX:hw#BAp7n_<CTnjIeN?
U"4J]s*5KF%16vRobHw'JFrC1//5A5+[Uu].<Fe(a]A*?t's>Cx)o:GwRnsIFqw0&
U"i9S:hn?Y+T+]>tssP[Y6hYn'Y6I1C9fjI?Yv&%?OMhI6Cu_x8/mB^\LdSx0E:3a
U"+rk/4rC,k98Q0--aA)8>#VM^Lkz*#c>1kUxa+eGj1F.$<<4ai+A2JYnZBdT9n2M
U"3j(=zZC7UwlZcE-sTo^O4uH#5OFtw/Mo3o,/uU5mSEZo#t(9&scw2u0+%*v:cQi
U"172-a>.hta_J8t^3%]b3Tme^2$D,AN&&1KPU'kUt.TZVVX?.XKf7]^ulCCQw#w;
U"H7tKHtQ%.R5$t3sP%xT>UQS6EHd8k>=Gn=P=uwD=n/\ZI20k4n1XiM(eeg5+Tmb
U"GY<_M-hL4rd6UdSfYo'8F=IAxT^]7u$a1$H)(_Mz<o];0jV:n>a#_RXueN54-Y9
U"b->6vj]Vt[s9n451m);=S92=(UrX7s>;xITzb80NOrZYY9hK9GE3DZXZsrq8mv%
U"-FiQl^\RLfF[x8CPzu(L7pK\A:y7-AltS>_t'eS1]txo:e=0Ea,oB[61#4fy^mx
U"[Il2tfYd2cR62o3hR620GJ-p,rk1<w,T'wrj<<L)H.7_,QZ(s$B]Iy4i*ZT/fdM
U"No8?%T;H*je:*[sBV8f*\DN%IG_whecccI-'E^t(qk\Q<L%w,)*ESJGn.(zUdzl
U"x&5bjfhr)034;G)z.eU$D2I=3Y.Eb8abkKd^h;8TH^_0*ln^(-hhKO5/Z')R1j]
U"-?J'W/_+RpCTAaOPYmEaa2_kZhs%oV'J&1R:aq2Ju)bi*t7(fxkh-gI<J+LWT+K
U"K^U.:5BJuy46s.+_?m?j7r<Ccnp;+OQRmuNEbx1+tXQOsH[Ivf_&CFc9X2PE(UK
U"';8Z:M?3]>,1<cB<L=IaR[1xZHPgMEE%SoEH]uBLBY;;zB)ahLf*9O%WNU0a4t?
U"g<kT*b=0yKpZHx17t=skUo^T$djMb=M0c;$QT0_W%H*5D%R'B;%/FRXuTsY;)'\
U"*3['?NXEQbwRp9Z7J?YrPpX0Whl(sATUSXcgGybCXWf^?6qRB2UNjb*.ab'#pkF
U"-xw((CUCKHohf3ZOCHWq2(z'T=NOqqe3;&p=IitSKW;)<I1$51Yc,lYs6m#$R$y
U"<-;encdIMLnA8I8=a4:m>--BDMMPr'/[<#cN9/0RO$K30oZDpHLTsu]]1OoA^:+
U"$LeBhHH)k2aP/BZj?E/TmGqeQ#:8f<8hBa%_%*?b6^;4uv$a%=B/p;n+Bfd[peW
U"qX+m&D$*b;jOPJIvyH3G-ACxHguZJW,JEIPB;y%Zp6a+J7'Ui?:q[1a9^0)oJq/
U"]m[0h9.HKE=/lwc*0X)3'6H,xiag<?TnvNrE[WfPH,7K]b(v&MGlI2TG0$h&RDC
U"DcCTFgPKG7,jU#:229:E4o,Z\b>f^9ld-.31lL3L#kE5?d5W^ZPCt'\T\=I>3F*
U"_5mOT7>]4x%u_XImO)[RBR%GHqw=b3&/Nz#FO)AGPxn7yoWGRgs[<WkF_UbjpXU
U"Yj;\&LZg\UGn4'5I&_-r%(50je>?-Pf8a]s%p#o[nWEf#Y7U3R05UDQcw(HFbEa
U"=j6_LbO,kSj&#jT1dVBn=U3gYSS+ySpA>3>c&X4>bJ/vGS2=#O8]d)dtVD>*^Ai
U"Q(G2.R2CM&AXHICYLh9C6&DYYg.gZ<*Jdr9ofW_T\/t3#ooO$9FT>A&Fii2mqSW
U"SSX?spaic6)8nNtFq#]8sY7#lL?Tql7EdN=AK]TtDYChNtdx96dU$rSLx/qLGKW
U"*Ta/F6U]ggmqPAV=OYs3%dCFEWe4c[:i?39hlc_2A)4)lk<)l)HFBMl#4'v^5[Q
U"MN-C]BnMlTxC2k1bF%6k-[iW=99FcM-+:9+I4&oR)n0NUx;=Kf=O,w#7#Ufq*Ct
U"GbuI$>4U3Zs5a9?NRXblggFSg,JUHOs,_#qI$-L%a'<nZ<k].+#=H]2,ChbUonR
U"C:Q&w:09hITO4Y4VaImp[%7Z>f1XP.WDh[G'#O(vWIbgkt16JS]W,Wg<12([cCh
U"(ddk*/muKxy=/AJ^:6IGi/Hf1X;aGXIv-aXB']owDkV7WoSM?l#Yg;(*VZrEuLw
U"LwL*j8ZW)#8wzB#hlLE/;&o6ZE:k4ntnb,(A]:c\>3t'Of]kUtg$,-1LX&N/F(I
U"Dq6#l/o3*8d0C>k20JKZn,Tp_VEBPA\*\6HZRnevPS)VX'\2RxdQ\#jjhFw$j'u
U"cVVVic%o3^mKxL?TOjTEfW3v-/g-t<0[]3Ew(x+'od2SQ>(?=1eRyol9\SX]e&&
U"qT(V*z9PK[Zq3<,;/$A67kN7\0bglAwZkSrQF=GF:<A.bJI6Q_N)ic_#G,w9ur;
U"QrZGDd-]Xom6(pYS3l<-QaCtK_;4-k%7m]7oEl:OP-X'nQkeU6rYz*vNW22.z)x
U"1I*]<f][/pWv#0<726'ueE[EcWeKL*.tc?0\O_SXimee^]SK0g8Cr4c-I7SW)(G
U";r(;bi0#9,F2MVkaM\9Cr&Ikx:uY41^[L12q-f&3*3(GM'F)96NgMWi)Y:5qO;>
U"\905Fc[scOSn79E<t;39^V*<u(?e^%C$2yntIIqH?tC75KPlebZemgl<O>TsL&6
U"o1fz6m_ADc1?eHYU#'qL][hjn>.m^Tqaa4EQ/u_Z]rv*:G2vD/<E]>OqnXlgJtD
U"Euj&<A#?_(QucbPE\8mW[$Y;z;jr,9'LF5PlH%tSF)\&IcYJ&gU0RFhBhc9UfB(
U"2c9Ww/Duy&#oRix#^MZ\FGEw5&0416I5I^DR\43julw_*Hw_fN>BWZacOZaaP?G
U"Jk3#Ik,ObGHftB0H2Hb,>1<[wN2j$X>^AS5TW[m#vB,q*[8M'jT'.t8'tX0*wmQ
U"9sJW:*Vsgb#5CrRQG?p_gu+G(=?C6TZnY9CiKLP8:6JB+(ObUS,[<hEcW(cEcO(
U"cG91(cq9?b:k1n,0MLA>\o%eL+nI;vtdEb:8VB?ilY)#'*)WFR]rLsV'gz:hxra
U"afvHL&>xYLTxC1PV]lD8l/SP6co,#K94.L[KvmXtYVoAKrwED\T[fG-.4ktmxj7
U"H,t0=bP&khUMCC<J3n=LuLWv^$fzHfH%8+pRWjp;sa35u+Y3xT(i\ctI,hD]'7s
U"T9H:imuF.2xA7qIjSQ;#Asu<=banjW.#)K3po#C?SO:+GtzPwW0+QrNw/#('m^Q
U">^)(Y^RDc\tDoQ6=[.GbysrrQG>9B6R'J*h%sPoXHUGjN;_jqXD:6]:c+uzcjwJ
U">eN7>i[fX1rL(]#/NKNT&W\%aYoUoEdbZUIeac+6eFJn['P$&yXaz&u$Sy:ch<u
U"p5l>7os+7*Zi&$njYGj&*j==::YYeX.Q*V7igw2NL(I;-\g_<<>I+0e+E&ejth/
U"bb3%WLrlep2>a*:I3Q#i?Z?]+g9#1I9jxw95Cucd[*Bd^6PIiHIwx-uX877hX8e
U",/1&KFIZ2qWZt'je^s0)%kY%#+L9wwde?(*S*/[zy)dr9x:oeCbi;wb:yc'_WrZ
U".u$X^0g?#1]7C5<\oJ6D[RkVCtRc+[&^^cnmADrt:?gi?vT]e&H_)_dHoGSf2dE
U"T=sf_eaDEf)O'N*&eXvugKgQV%q^rN$SoZ[70OpMveq+Ia?jJTj7-P*yYIoEw+F
U"uG)SK<4$(?$CD[Hp$j*;EXnn_M4<6WLo'EgijeeO+hfDsB,HuU8CP/V\&jEA;p,
U"]6\WTt*PKA0>AFt%ojBs$_rj6Rr]SA9L=(Kp#%tsjlA8$nfvg<b3+ZYq>'FMXj$
U"(N:y3K(FIDG1'^GqjP<;Yd2Zt*%2b?=#RcU<3S1Fs]Yb-,o>xSIEJ]8,9c_YiP\
U"k^]J*>63s/Ccp$8ZfMXTRlNBrcj2N8sv^a]'_g9gl<'MRk&caN,zLQ>ze6:8k.f
U"nf(lb>*-cJrZVI1^WE6pJ8*6o+end-9n*FXb,/iFH&0y\jV.t5HWf,+?'&r6TYh
U"h_k('PFdQRLCrB1w^.aTG,m8sjYEBYAuk$p>+\&WN/S56iZ>pE;m>;Lxit6i/VA
U"_oawx0V#aj&FgI'f,vwd_gjyV9D<3b+l#N,bmtuP3iv'84laEr7\aHk$qy=qqf&
U"m^CoKBFcU8:,[&aNofV>iUQ'-oO/-VU:&/?Pb][AP9pO%K7&,+OT,8#S(RjncT[
U"G0Mb,yDyTC7()GhZ?H3FC0^43pO7ecNT0nE/^8Ug,0\ls$6gtV8U0G?=xo(JiOy
U">J:w>:$sA?qYvM70FS)Ps;EDU5H0_a\Tk6;5Qp]qI[V6>%_u?wPnJGAgYgZFC9r
U"xVpPVT_GGcpi_B:w&o*YadR;c_tl[Nt%KC<&tK5$/,%r(-Vie#)UnI+aDQa-TZu
U"NNJQ--4Js);<[oI3x:C'\mVB[C$sYRba'8O%c)hC'nufQM(,-t1:t)vJbkN6(>d
U"x0lCBq^61%xpbDrvP:6TFWpDgNH*U3W2>.*Xu,97-'=&ch-/QGph$C[(]g6)6*^
U"OBZ?tvm(wCkSBvRi'Y<8[F%=XC'[r:Gh[pe3p%0=>KW8\>qF:_euCB;?iF,Txyx
U"WT*(hyC+xS].xrpyP2mX0C);?/KM-qu?dQ/.<j%r=Bs#UZmV%;&c=Y)f6[f'=IL
U"=gKLc$BNn/;9BSK_$B[lKeBE_^ru=.PI]12j_eoJ5.>#v';/84IsDYoM5)j9C?m
U"Lnn6<s\>TJH0:PIB'r-G',.(=t<,xYA8TlO6<c=zg1>8O=&jK0FX=ElB,%Up;st
U"maLNbfbntGSon1j\8mdx;HeSx^Yb;tmT7Cw%G3Vi+HHN6v\XE^5HY+WcYPy^a:j
U"[14_lhaQ$aVCXsQWZ\WYw6Dg/_(n%N7Xh][E/s=%9.u_i0/jIlsI%^Z:ZSDKqWZ
U"/Bp_q?KbTRpB,n'YrC3$CZ#RFG#a=sp*wnMnXBj_w9+p9mqrDkdH:mhN$uGB8ZD
U"5a[2oo+*&M4oS$QF?iG7a6Imp)u'hN=Y<q$gY<>o:TGdOcU0B\b^Ig,di:AJ]Bf
U"]^F12&?Gz%fDmR4h8[\)<Xg2Y\p:F$QNMZ<.UH8YOQCX4ob[:,)Euj_V/]PqY'f
U"*%q9CF.R_)#n.=t7[-IP?a:Q<Xy(%aI_j80iO*c(3vNlHwH+7._4$.ii&TFh&(1
U"y+*V381eLQrX4NFUuWGXgDeaZWhm',R_..-jI\XYuoJ[sRA^P4ja<00TYTsX49Y
U"4>M+FyGSMZ;Nu-w+*p0jeU$&=Ag40GEhm51'eS5dA5g*TBtOt-m%k?Gj5Gr.Nuc
U"O6XHoYRulOwWA]nHGP/n6$0OI;^gJ+d1Aov<#]>)KX6s/IdhBgfxXCscCBi'fFq
U"*FDiuK[RD>&L2U3%lLOMOwicjpp=rfIS,_1(>UT7)U[_6;^r(kiXsah5o4vD&cW
U"0wNQ$UU8#x5BIKI8e3^8UVDlE*baW5agMka>fN5:#cFun89PM;]&o#,$os74YgR
U"I^P:-<0&G5fw/8h4cI$1ikm^b'wcZ=CX:]mjhGkpjFT4LlVJ,q-C_-*s'az$7_4
U"18=MxWL:Krr?uQFN8l<6NZ>j%zL2tdLA;4g,qthG';Th*3s]X3AA(j\E&W7rgKE
U"7WHDOgTUA'25z8ZFO'H=S'WA]LIpSyXnHWn8vH#Wz\kdQ(9E1aP(4OVdZ07[gEk
U"eW.wMkE&R+N;Qj#(3J(.F7ivfSj'qwB4r&KcMNk:+0#5m=bN,lf=/ZXT^i3t=u[
U"p]R0v[FI]ZY8?l+G=h<Ed#I^[%YmFeb&tph*^;=]kq_/8rwR+:gS$N*cY8;U7>h
U"iB#QCOxOodMi4XYli]$)mPl$NdEhI5HU%tE&DsiJy=26prD2,74&:tPIh-?QRA3
U"f6XFO3X%'ps3XQGur[+<<b=PCl>JIn-\Cb.V&We\QOY6#mla96]['Q/OoP(lD;)
U"bU-'u56nNn)8NVOO(;5z=Y)YT0-85kAQh3Scxp-xS5,\IizFY*'^vUiVVLukC_&
U"QnD+di3=Jpu]a10Bc'dN2x7o>Z2q?_6F16M,cts\%v/2sblv<IuC8=;$eg8xo^<
U"_:3>_u3:Fz;UAhG:50cuOL*^0wZ1qyHnB*ZD+&t&et5kM9nlR:ibRt#7-Dt%w*P
U"%7K(sz8%crk4NuN+9Zdj*p9H1,2,C=DAeVu^$*ZRrST$F7Rom+e'<G3PZ$#5TA\
U"MDAo0i&]K##(MPAJcW=etf\M=<CG\L/t>aEKe/T9x4Njx;a:C+GYf#H.9w5A.'=
U"D'^LS_4X'XtGT(x'wI.Tx'waKHPeSVuwzC/4^AQxFsA^Mfh*=A8V?C0&j3;SzZ/
U"dGIRCSNC_>C<_nsm\:xED,Tpy.HBV%,]#AoUyk(H.\QQFg]K6A:4>/&eqq*$t4K
U"3?63f>d+$Gs[n96;;4(IwV[M3?.F(>fr[KE23es:tn-oVf#_-A2AOZb.,\.3cF)
U"uRLds-.Sva4#EvpU)A;Og#eH.yFsanT98n3(_yNYsq^NYT=U'kem'cOA-^';o$H
U"vBj(RYekU9YbgH(_Sd;L8fL?ztYyA/oT_[>v0w^%&86rCVLg&WviLy4we$cW_0a
U"7w^ReD16+:?1NJsaYc#<HzrOmN1sJ)9x%,[-8jG1chplwY1NE$/ZqD'\Ie2zMV>
U"JHOri3CwtW\Ew>n.ykS>7QuBAXn$Dn[n(<0uWRNh7TbbWsfF6#qsbIIfpDbgW8C
U"KLRDk^9D)Qv8T<#Jl.xqw0sGw<HTkgExOVn#Xgf,M/61um0uc.Dhe1Y%GCAmdm.
U"S)]y2C4k8tCS0Y$1UhP4haI?]36g,>0p_G-lF'kP?H1?-]IdAm3Y.pUrmJD>2ge
U"(9u*s>GCOCx+%RB9W<C=6Q0q1B0*)/Z#QS&+As*JO5Z-o)D?$;cm%cbg#F+Gw5Z
U"CQ-cc<*;cVVBO7(6_zpZ:[FlNNdUrwPDY'S908*0.VS[da&ODnOh0]b617Eh8M$
U"(LR&a#L[7n=+[[/?Wfc42v;.B847D>UG<<[b9^NY/w[m';]9ZNuYqR6&MWW^Ni;
U"oZl9\6o9ghb7+4HynDgrlJ_U/[U9%:mS;7-:Xt)s?FqTHdhPm%b7l<_RS?)5Xwu
U"tivZ+T4l[tkEFiup,JN?vt>T<6Ka];FvOi,&6j\;ovbc^f3d5NXb<<tZnT(E,Nh
U"pWGmDb$l/aQYcdEvspn)Yr$jbFR=7JFbG+Jw*v5Wj:<1*[ed=WX;PvtIXaG2jG:
U"J<nuI>1mXm=Ux;xpYzp4:Q=0-7Q,7e6c;baHk%MzJl=VYMD^?BTOTe<CGg=hxk+
U"7rf'[S#]1\'a6B8no.kD[jG(D(rqi*%lVoy/K9riDTWk(ZON(DZ5t_sN#;8TTg?
U"Xq+F?-lRPzixC:^8d->>?JYLlh*4UII%/)tP[d'uJP\q4NY,QeY.Xx.xUBs%dDH
U"*O\Q>s(=2WA_w2)[[u[.%ihc\v,4l+zkRUV##WN7A%?*&H)USf;6?B7-Gh4U$VC
U",5*f:bEh1qRu47#d6'X=j0%[&:a-jtYfPp-Y1k>E&T_[R::o%a65JA>4*?HZcD1
U"Ux/ngH[(r(dmwP2o5jh'Q2wuTj?g+#]/G\yA07Znk^R6GOq%u8n=L>h5\_rf*):
U"?ZIn5N3mU=GSIq\OzWKz>6CD420eu2uen3xQ$F$EWjEp_:v72p.oF;luOE\Odl#
U"=2?mv<E<b//a2(atl0$uvOLY$GxSR9bE&?B&c.xf[J^^DDg4:<'-4:='-_Y1Qqd
U"j>BS.y==%\2,u]A.<eD:S?[Q&[F1vkQj-6I#I'VFXZVQ=xekpu4p*NT*7C^ict]
U"jI_o;hW9QeKj3+cqP$t?To6F/Y_o_:J/CUCIFUU4wa/3V2*A$-eKwRzp5hWt-ke
U"+>3%#ij(*%(H6;#MF2\wSdJ-OYR=,]JffmKg(\n-;7>F(X,Zh+k(lBL[9j4<s=S
U"<qeQb%tyH,>ne=*\;OUvKV=+_ky<?2SxzZVWTVMi<i2bT:O6[T%LuObMaoQ+M4o
U"tQhwmKtiK6#pB>B9Jef*P=POO9TCZBF'JOT3=kz4:P)%b2?:0LuTEK8U?d+*]W,
U"<Bj%rg=\C8LO#<^IS#q=o/T0ixcxxGECrXTk'JmHBbKN.C%VY<:t$pTx8kUQr20
U"e28t;wnB3EnFzYAUkWsSw_%)*c+83G:__P?)UNm:VV$RM$>mcLX'vNyu%7ZEPj6
U"Rv?HAdUcY;1NS(#3q3Z]HYp=#pk=pW4B8CeUq(0kT$FUxeuZ53AcJNh%buLn8hg
U"pJp(lb0$irr$jB];-wW6^;snH*72=2/N0[TF=K2OuIN\S+4[F,,Og.-XJ#a<)-j
U"mTi)ju<nGfjH:j%Lj3%wU6EeY2x3Os7T(^cY?SN^d^*H<JE<x/MUq]+7,.(JL#s
U"qsPv3DDLBVNT[?ZbsVJ+13VTe.e:[/0oW=b(W9M'EQ4u::sZh5vVD+Tf'8Tp6wP
U"/.X<1LPSA,WT3,j;GJT*7SG%RED-BFm9r5rX9013,Zt*,F0kk%un$9_VHOKlaJg
U"G/MVe9KVkE0Tj\(Kr20IruHirf_\(&#<7[H+O8sB-$_sCu4OFfti9A4<:eRD3aF
END SUB
SUB V3
U"F.r(b4hO6KWHvDMZEkk4&KX=k9KJHimwdp#DnU\&J$AF=BO*z.7]V>_YiI+KgHz
U"eZI-+]3u't\wBN%g)twUfFYI.%CTGsm\[&ryVi/Ywhoeyd[?hM^27^OijsbV9'W
U">UV[&XS.^2LM(G'CQ:VP$kg#rCas=,0tH4sAuwsTuH?$t,'-6$\^wNWhmuHKh>D
U"k313)C2u1SJ('?z/7hOkw'+YmW]gG<UZ0*iu-l0RK.)A>+)ZZ;i5WEG=T*9I.LY
U"[3Y5/r1)n*[%U7b:jenRu5W=^ui<ZYn[p2WaTv-)ou/\MDkpuRLZX(=JSASXZCm
U"Vx=KF%)FV>0,=_d^>ZI<3k[mx2JByV;vu2Ya[NScoiAis$Tr4fj<TUJ-6q6*_%(
U"iE^wW*?d7B*KJoWIHWL3Btuca1vN't<jf;+h1o(Pkdoon0l_N<hNP'NpNtK(\hJ
U">:'Ro9wZ+Jb,VJkJVb\QGZ::<h]7aUpx_MQ)tC;p%k49.^&&FH29B%F&q;<XXEQ
U"W%2Qce/Wcrw/S5Le]>fmJ#1qf/DSLJd4l_fiE?qO;7hd#R7$_r$Ks2H]a[+r&K\
U"C)tSoFBXUMhF#T_+p<e4HHpuw]j3%9>7D,)_1%:gd5u^C/]:A['[2jI\]7d4F(S
U"3>eFaR5,#lj8P\6Pz4mY+&i2%(i;vZ5wS]iV-?N9%j*<g-MkdAM75E1*Y?tpI&%
U"Gy]n,l&]6xL7M2Q9:X_Vp<Lpab1lZZFLt'D:Inuvq-rM8:bdP,]rJbJP2$g3?1?
U"]4#z_TpiLhBWRvZR>i;[YC4Ghug&ajIC[1JDU8$9Pw6G\?$Y7(li[;kRJ0j[zEZ
U"M-VO,^n*sW/<%Or_3ann4E?XFV$U_p8K0Ohwn+lA+CKBr9PvJmSIg(3agHZka4J
U"2(E.4Y=1NB?CSszC=($$me<C5D[k>lEx,%>ZIW==]rxR/LqY)QIDFc<4to^.Tq6
U"&m%K9rvAYU\&8%Q<O\K&jDXRb[S0\HXG%)6C6qy\H=x-s*45AEr0n3/6Xcm]da:
U"]ku^aeGl0#b:;'5F7V(F<W(2N;pSkHdL\pZnkuAvPF\X;)'(JwF9VD1[3O%xK]$
U"Aa=J:>H$]6:?VQ5UAu1D1E>20<%%E=BAZ)-0b)Tn3mgsnWAEffe#9-FF(lHdXL>
U"oAbX\/meJt4/BHXOL[_f&])^%nHUJwx4zoH7Mk)a$XEJb6\u$NL/^4#?T;1tW&B
U"+H.4gcBljzOt<h)2;B#[z-D2MB?VpA3r3-=(e8=P;w'WVut'as$d)B_ZWNEDx1>
U"en=c+&PyuY1T&'e]T:$<Kfk9T(dQ7Z,zkfI'gcArVFtY_1.jIjR^Dnv8?COQ4R\
U".Ps'r*TO^W4*Auj<$/#qeiHXN/H^xw_RQTa2/q;XfmMr't4dC6]WF/b_U>s0E'i
U"&*V&WP<6P4X(*jqF7(WDnkA(XX$W/(W47Pi+vPVlNdDm4]Vs&%yTOu&FQqZL3bB
U"gAl]qd9<Y[UJC-p*)kCvI\[5_cMlgS]#_KKp/rcX+^_tHB0j]<Rm_;&Lms<aIsb
U"bewI',3j9[9L/HDhR(nM+^pi_fNst92kl,QF;YPJB1zc>>'.h,lQ3R5Io1G_%zZ
U"A?Gv>[Fcq9+k2U&=#^:^sHqgqlan#d3f0Zj6$5>9rk]jK[znugq-J8n9wed6R?Z
U"iH41[kwG/gyBMda#A+AP1tt]x;3;p,n7WiNO,6%f6gtb$:C8phZJlM<b\:]y(EA
U"AbUx[Qk;Z_N0*j%qV4x<Lo;u&6)t)qSLwK0iAaauIqMLBbpOEM+2bbq,CT(t4dw
U"oku.<up.+.(\sZNkJUOsFD[).11vxeS1]>3?9ddIIkG$^QmGg7AN\N9wW<p>-H?
U"X6slk<l-1S]chUpN:WICzufi5I5h$$w[<Zf*G6)IAyj?s5q1.uu3jamb)056]N%
U"epC>XdOb1^Nl:7V2r*W>:_ck1\j%f/$>(DiqvRjn&GUB]=Z&<xs+xh-W5t1SB3&
U"S8(mJRW$%d6a;A[hJeostk8XleBuEZFNGv:=h:=PtekC=?^WiY6Dqx8]I?CWJwl
U"-[>C8eC*E-duW<hG#=[;nfmA%-a$_fv/=3B'c3DBJH/_tvH)OEvBSgLIahh=Aeq
U"s7>e&eHuV20D*Rl1oGNDVg5;0w5J=tlUXSh4Q7&6UliZ:>]+:u>rD/GYu;kU56A
U">-1?/wC7MHu$6%pEhL#7Z#+oNvp5gNvylFyN+J5u*63qE;x6tU'4cX4g;.>\g]K
U"/+wv'-6%epBY<254*^>+Y9(WS0\^xfUM>':G[+kHu.X]lnNR]Q7ZO=#2?([\esu
U"Ki=?nE#h.v1i4u$^ZO,kkZ*l?.]/\X1TNG>v#uoe>2O5TBiY3<2[]MpWZt+MLrC
U"QG?Abo3(JPjHO$_&Rv7lQ3^T0Vx%4YKS;^(,bCP#-cp^'%z]x.4)zI]H9Qq:w%:
U"<1n#HWMzb(js=pjp^:ti,c%cm3lvpV47LBB$Z'_TX#c2F*u[U8wK2G&acdb)n/)
U":[uNtcRRH)CXf5]M6>Z(3[y\G]_g2.4;j1iF9yRJ5xIQEXTw9qsi9(h(:P,-aD#
U"$+SwehxXw8Fa8wOSTmUT'4'A%]VVBb$e:_iV\v,4EZ#LLJSaX_0#6ynDS9Ap/ei
U"wjL5ko^gCYY9Y>:VWa\X\Yn3.v:F^ms'#ebq9O=mdof<KC^PYJz,4wfsmJD%#x6
U"Aw&3QIcT7Kn9)rj5&0I*e3.T,kqN#3SsxLVH3;:3V:hNTHpIB7[V$nOwTU'Ofnf
U"h*oa)0eFmwT/bFHfqBCnK?.F=DQ*tD?fo$l8<:bp.l1KrPnRN'o'hk8AbvHhnb_
U"gf1poxn\*eFqiH(&H$8>P%0ln=\CS3cRg(p-t_jxXwV7BtoTp+f$dt9fPRiaLuO
U"SLdBTNS]O<qf<.0Jpp-wiHWui[z;O'LNKtTmWIJ%+,V'TOsP+[j*Wj'c>dm7,k6
U"x14D5j2Ei?x]L2Mb='1YJxph?FNKNKN*QC)Tl5-GsK''u_yE[$LXh/gvaBjMCzK
U";BClIY0bsBO:eHFnmYbYb?X%*kh=&Y[fKuE;,g23:CbzJ>zikbmcxc+j1S$u^[;
U"dJvyRcq)_+\cPr&h.i,82+dF/PMjmx3C9XSClq3bw[<:gL->l&a?t4.HJN_q30F
U"1D+U$gA*jvWmQBNNnu^-<DYihJ2;YkB&tj4G<BPU,#umM=JKQ<&Vz/X$J5uGvwG
U"KATJ<P-Z:xcK2,2YE0&JXc'n?9kHu[l^hGiL$p?X_e>7k%*PU.fUT(p/S4+UW_b
U"R3C_gqd[J*H3T9$&/p[Qxtk6LZJ)?Q<d$Y*wc)KC0TW0Qr8ROjNXLql[=E?6(P?
U"(5c#UUGvt[Gc2G4e=W3_S7>w;=Fg<6L.X=BmL<R[Viwc_nl2'AvW:]r<T]MpsFD
U"Q;E-[bgn7qDuXJnMl'4lVM.S3]aHB>#Xg'9JRlD4xpzGLoq79;SAkfn/qoR'DY)
U"#[:8NGGSOTGM&)0=kWA2qixT9(./5Y4gg>()Yok_H2RokRRv9(w/g&wN8I2697H
U"nN7NaY(dDhK1B\p')K9*'8LO;t^%l3^de*7cfHcBTZ6c\lNTZ,f(=u['%T,8Aj$
U"?n3Du\cXp.jK$UfrueQjxjd8_9HsLn-g3m:NMm-1)(T-.Kc?KRT7SJliSt8t)ni
U"co\U<kuL:&VlDPU'1YCRjp'%OL[7.i5<F^[=C/)^\%E*p0x4#6&gj[+3daJ^,g)
U"HRZ)L#_WBI'kv.CCJ)0p.>AkdYKqz5teydJ+/zwN8aWLIdfR'nc$/iVsL)[uHHe
U"12=*P1bDJm0i2/rFjMo^-4FP&jS?l^qYNHXE_3QiezUGwijc(_dPzh^iN63Q7C_
U"+F(+E1kj*6>]Eo4YI]P7uu>Wc,%YX,kK_RHj]qi7-q.G)KP.%GTY*,lh2u_a<IO
U"lct]F^at%+iqQ[D&G(UIaA2[2rgjh,%%\Zll:%F\XC/4:V'FMV>WDb*S'sd>VQe
U".f4K\kZy;(c/:2oD4OJ<)Q]oa?X,I/<:wnC6:[u[JuJ^:Q4T,6XOh$F&q3*XW$N
U"05bkTOf*nH+.;(a>1Qe1T#2^m0#rVAr_i?K>JR=oG6bJ,['3a\XH,xiqWE;K[5a
U"gA0/d8crnivK]g'qJi=x'j%uK?FmiU2NQ:YSt\ob>0=IAPc&'GAx(hda7/#hjYc
U"QLGv0#x)Yc[uF2(0'lb$_dIJ#fcstE>;CE^,6;Xj0So\WB02uypsjR-o4vg/j'Z
U"A04><k/4[/6xXU%&[[49Iu_\59\qp+*N1'6k4*+D.)6<l)Bh4J_2,TEbm-.-_rt
U"1$t/=n,;K\h3yI%S3:z]\rW6W,_.7,b9qJ=l_G3keuiRDPAKl$WoPTp/O<k>Za+
U"h&Wf.Xt1/dDej.e&)H1xE2zxk>c^EyGsq^A+]fYYDAPBa9nxi9K(p^=:5xVc\<,
U"bO5N=o>WtD>HMbs+RI(1SNtj'HAO?C+&f$BHOuU^:$U2w$vKZ(UF>,QB>.OQBOc
U"W%7CzqA6%UYh?DFFq2X%jSDFDK>3&?S+wl1,cbnVTCHevUt8MS'%-$#kQU+^i_c
U"*=WruK(9+wN[eDa3rZVBF<e=R,b%4.5mSOZNuVTW.=MH'(XPHtAng.wXRh]n$T_
U"[T-+V=(5o_)VO5_)V-5TSET:/+u=WYnZ,->B*\Sn9o318Z?:^SZ?:H)Zi3+d9\_
U"+Tlu7d\'Hj_rs1S]foZ&f_6-NEfMd&NgvFHLVi]'%8YXTK=7cgBB.BOz_Xjw2VD
U"Ut^Ju'WAW7Nm-H_%O5ob0k=]js'sBGF%sjo9MmR9*Uio[FG5D7=V&D/7[,>3_=x
U"ogc:Rtb*rXIHgi8tLGf>//8/s%h_GV]Qw+0Kg>c6cmK$FNa8S4DZ1h4FX_Wop](
U"$pUQBLm3a<64<;5&LIpRZvCUlJ+Y^Y[ts8U$w-hLCAsJ'D?^aTX&1x(Z<uO(pc7
U"LKJY$0/xI'j4G+RO=qJChwg4:?c43t8+'+oq$cGSj-G;,Y)dE\6OM+[G[FQL<Co
U"q-cQ5WNJuhwF%pN2,BjW1,QS3E%J\z%aWTE.r,AlE1c:xgcV52J0l[>0(;95H^R
U"D0V[NOYJE>V:YhRo$q-YSY8LJqw40/zB/6:rXq(QP:x*8su:&9t_=Sm4^sY7SnO
U"[3hEoPeoo$6[NO^>qYx(%up()%9%%%I-%&Q[gQM('jAr..%%ZE%%%.%%%%pj%ws
U"jq#Sgnth((>\I]7M>4ExPb7m_GG8bsUX?,95QkKA]Il7OA'+>E(RBJ[6,jhK&xQ
U"s&q3M*q3*TR.Ie>iscxE*'<xh:1V'H8m=h/#DMGOfMQ$u'V0B[$8FlITc,.H/X+
U"\u7V3qcM/_o&/g?drxPp&2-2;6E$xn;cRkHBD-Gm9a\rl,=>X]+d$tROB=C3Wns
U"fe,Wb%*zJAefx&6OSn8<*8+Tfxedu6&T,g,%bMS-D'=oB#w5HOj3NZUAxKjh'bB
U"J#neaDVBgX&3V8ygVR8]&'8EgobiqCPKP7WB?mFt)YCu87y)ne%ZwRoi)d_GYB0
U"J^5/.9&Wu-V_u;X.?BusAeu%[V]8Dw]]j$0M-51Ftw(6i]J8=033J>.n8R<&dJ9
U"J?fMGg]dgMFf67#k#$+kd&Sj8y<::F#,^xB:4EmPx83(cIWDSdqV&.twi'-S%UP
U"7(>IS1*uVan:KX#*UEWvD)G&G4uwM_a4tfQ$$.r<3t142g5<RYg-><JHT*t0XH0
U"%&fGf>6K(s9=hO*_M2AsD_;FC)uLT2JJ;mK>Wm/']&0c1b-oBp<h?V\Ej3(q9_i
U"0E*qwaVjAr9D%MCHlrg,+FZ1TFUJzXo8WNmK.='oKX%+b.o[Y)tYQ\xDiGL5L9A
U"Or#E[m<.=36X78G0e=LN:l6ew7]AmY+b6XB)$mm5&9P=Y2_jDm\oU;L#c5:q[s[
U"GH6FF8;AlpBQ[*%%<5d$p8m$^]\6)(n1^Rah(3%^#xN/pvf0=Y^UFdW7;ZQW7Yx
U"r2/JEztW+6,<Q05ye]7ocLJyB\.6jv5a<]tB)w?<iZW<X.^l4fK_6nPCYqOOUB2
U"UrhkB<^5K0J3VaXXH.+r9Fy60sF8oI2WL$F$IT+f0JZl59i4&u,hI>jBBe#iV0h
U"[5uaE&KAipTBa:&E1)9fD0YdIjf5\b(s<[p?LCr.57p2of8E]9e5V/[><J$Z_1S
U"-L08DVTQvZb2^:maSV<zq3n>WFA=h''/naCL*r'G9E<U\bx,f%=A5+IOYmA'n<3
U"c)2x9*j-C:iY4q9ltWk:;PU]uR?enB[8FC2R]#5l#*8B_g*W_)d[Zl9>V#Sb].p
U"?a_6kP(V#s626d[ZJIJ2^E_gZ7[8YfWs5]AX+Zq54AhSvQ0F^u$YX=S;NrF8zJh
U"h=#BAP3PcBEF)8g^MS:3dRpb*EA+0khU:o).)<k(MS%$om-emR5IIArO7*';&F'
U"Jy]c#k;fwh5b$u*2U(#.,RSUmfNu_anupA^g.VxE/P#j493l\xHibkX]5X>T8RS
U"r<AHUMa'3e?j>i_xfTLQKC.*2fctTk2V<LcHK*^gD)#w/,YIi;Hep'zCGg=8p(+
U"QTEwCvpEj582lV7coLQ,tbQh;Fs=&73Y6F\'9)\)W2vJ.OoZZ\h&?6g*TjIbDA6
U"M2NfUb(1xx_)/ZG.-mJi'kkqO89qyNTd2AIa3<,l%daNKq'u:ObIY$)3EpFyj7j
U"Iq4/7&wtLW1_Jk2707[I5/geQKHZG<u&1LM2_etzI7/QYG?rOxg[QZM>N?R>ibi
U"MJ9#o<OYwX9?*<C#Vt^'#+xKU^X7u<#OV<9=am(IA/&S3o%*.0;?TGWaggOSmr&
U"(v1j:bzSun<FV(PZo]E9JiM8.:Tp.<(<1nYC;&P;uuFzmqOWF[xbRX&5]tN-fpD
U"5EOE:%<c-6wByxBZMf1[9f1q[K8P_7byMjhsGlf\$J8JO+-l;2d)$4KI>E\9IF:
U"[S3.\-Inyu*mP1C02v6aZGl5nCEn/xaF\VN,l.B+v2IK2%E+7fC_[cspu+I2jM,
U"?mqHl^94Xn5<R:ZF5-9f/?gjh:YcTFv-o&oKYy3uwQ,k5fH)BjZr'Fv>NW%;Yic
U"$LUDNn?t%PFi'/:2+HXx9HQ%X,?wxJ5B]Wtqk*to''x_nJi_Fq;9p#Vc,?,c>'v
U"gcG.#kZu&MTgRqrGe;3G%0a1na6H0>em0ry$>A;>=hCS6XuS.)4#c#NcF)QpcuU
U"]%Tb9/%E9EF5ump8fLZt:keOWn7vrc)n.D*2?rD97\BWfU,?++Mn1fnE2cpT8:+
U"&(ep4npWpJZsCsXO6)XVrbgl-Tnt[rc1kQLJoHqKV.O#a+UC.jdj)Y<)>.=D;aS
U"BvPU6;_cts#;m13Y#=RWDgk]O=40R3B:f>*K-_<O2h7nU#(/kR#-s,I]*q-3dme
U"TJhlOV#I>(dKeLUU73o^JXV^oW#eliP(C*+Y$0UOT493IP4#[P4HUB;Nw/+LW7T
U"nMVFr9sj:IP[\h=%9RXF'AJOUmOe<+rBQ)PUj']U/tVo=BYAJQ'^uCZX<87B;hZ
U"3[so+Rtqf]ApaP,P9nBuY-cIoco.n2(]Tp+a>$T5[$6^%far*CyE--Go1W-m5kL
U"]#]Z$W_6]R3)cG3*MzYvj0$z7[4+X.Pb7C9?HxWn=Rn<HHFf\Z\hn3T2k]&=[Ue
U"V,VQkQ:[jDmXN>#pV(Td-%O$t%6papN<xK3,eVTECq*=zY8P4&#\ccG2'eA*/$d
U"m%E+m:>Bf+I4wxVftQhAP0[V7(m]a6PcuQB.F=R:[on1jDWPI'=q2AK8IB.F)cg
U"paSAOHh=u;1oO<_;[/<CyG<0Jh^:t)(1iV%S;0-PBkM1-L)s%w9Et_3s],_4G?#
U"A%)yJ0<$-$xLfOI(n>s*4TwF5wQ+ILcGi,(g9\2j'h_9;lkPr,xtc<fqnV%=<Y4
U"L>GEB(4tktf.8Jv>=L=8zB,,gNAx+rZ?+E?_FMnLmTNduD#gm\9j^lpZGN;(d<-
U"VtnL\Ph>j/3rMrxfstB=Vdphzs,EKb)\&ZvwPJkAVvho9i7N?XL'WobZ:g&Fl-#
U"0H[MW/S0MZbCed%lPmRCM*)k0[cn2XmI<uYK[XwAX_$1Woka%Ou)R7=Ji\f.b]5
U"q>0j:5S3$4sxTW6QYC/M[<4Gap7_yM;./5gl*0>gmmQr4CYS.S1Jj%Wa#k0X9T9
U"\pe<YcWDcGYS%W&aTS*MS=o/FWI5vpLP4cA?1_\t4Gt9rvi2\c5]Y(e+]Uo:3eV
U"b\l%w)<W.>yf0KU9<>vx&%up()%9%%%#-%pQ[gQx,(wc?%%%%J%%%%/%%%%pj%w
U"sjq%Srfp$lE2kYBnJBnA1_^?kon4g2ET+-:[k5%3%up%()9%%%%-%/iG[P>Ve8w
U"%T.%%*hN%%%0%%%M5>=C2BC3ShG5CVP&Ty+0#6L<9aD_VDH?mYKue$_h/Qnk=*#
U"]-%1g+l?Bp#Xu4'VNZ0S66d9Tx.Ns)z=rtWlprhNqw?ob$Tt.8tmZL$p.t68UwZ
U"jwDf?pH0dZvZHNl56LruPff#YnxtMutgo4u8uwocHpDXZwvnv90T0DZW77NuuiP
U"ppt>xruuno0e.RKu7%Ji&Ue-V6hG6-DHw\?QU1FGE>e:s'n?P,H&fF_s3df_El&
U"RiRPd#S--oESeIw#SKAxS7xCUx]<KWQJOrXtZf&_;;UtDW&X^gg<V\.h>HU)KFR
U"_u'fXR$03LKauf(ku*gpE7F;CD*cCJqU8Y3HN9Jm#A)7GVlU?'pqR:+eO2(P3CZ
U"/hL_CLknVQ[;S_'PTnbu(Tl%'YD/(\o-45JYuqK7PO4>pM/)K&Dpn)J(At[aOw?
U"700+6h2$+roOnNCH#fKHIAx-cqAj(ECzn[lF=)WOPU.6=kdvOe_&'xA[XxOD(m(
U"t;$.cxcF7b0lpqQ7q?EmYU'7+1gsO-JtB.<OsaD2AX:tD'9LDlO8A_&areRQ4st
U"I]pFG6'ta=b$(9'l4-3bMj)g'FpDsdCp80f<^'g?p4Tk=?nV;Hwe;N3d.?.z?m+
U"-LZ6\k*)G8'qfuTdzhM#nGW1(u*Jh,W$2qKex>2<rQa7lgT$hWqhJWw:Gk7\oQK
U"\Hp_sVCRAMj.o]ud:Hp_vu?B#nqhSXl_k/+S/8ln7KY#/)GEuzXJJM>Kg[QD9YO
U"jaf2mXu\x*O?fbAI2CFqL-Tx?u\W[S[*4B8hh3_p7Xm2WTn];5NA&2,d^.WurQ(
U"H)j1[])fFLc74.B;a%.D=SK94Jc8g%TG<Q)fTOp[fH):utD>B7#t%X>X(q;erb-
U"=E7uJrRq?$mtF6LV3'FOEKCHoWOaos#UiJegijq;O&t6Ew(Qu=PHH7G?v4R:Ztq
U"l.8UoGFq]WHR^K*(;#D4GQQ43?VK8OJ>P_EP1JI[3G\NHo.-Wwq0rpx;p4\(Z]m
U"><.Y^+As,^;$03_j9O<kTRuvhq_cWZhGqRBsC?RcDpebpWdZx1AFKf#-/l[0OKb
U"-F=cE/GBa92E]:gs&/BtPOACP&66Ur,:tioQTg+CH:]fhLvnC4%#Q_WIBuJM6Z&
U"0'n^3#b^R'_Glse8Vj\(x\jpd>R.w#/9a^-^ev36[6$7/(r[PkQVtdqJ0pYWjOY
U"[&*)75_.Hg$OOo[%j<<c#;\Ju]v.W?$^;TuLm]U^7TT['(qab0El94aMnZOY\aK
U"qAK3-V>ypz8/H&&Aw3e^?,n$ao;6#*g.B3d_c;ej8J5W)bv].uNM'*h3i:',2%5
U"Aa=B8pCSLDx%kOFU%,Zorkh<kvS+EPN?7EDj?s_F$snrN%\lMp&:'=Pcef]KkNh
U">sOe_pMD6=&Bu\Ov>N;Ee^dyLXWO'_\byXBT*/E2cFbH8&l0d)_$l*-lt>,<-'D
U"Mqd44f,(=LO6)BRUm\(831?a*u=XC5t5BO*jjOCOpSM&SEpl2XxggnbjQ#YcA;M
U"v#S?IpEcq[ghhdgGM6j4C8(l1abk+[wBS5gq:LraQ^60R,XlnAO_J6EUH_0Li]v
U"]eZ'/.Qt/#3Cc^+M?lE0mj=^>g[_8Dh\nJS=M4<,V6&<Ck[sHeeCEW8*Do2PPMA
U"Ew9I,$zG1d6im_IIvQIM7Kk=+mMjDSl5\fzD>HPHtlAvZu$F6L;EXh;[w<hb#'t
U"rwHp0V&Is%GI_ol/Ufp0_3lr02J5?ct,(qD2,%,NpsV78;($^cE#g5(+1&4BkC=
U"BsAXgqrh_pnu:.sWr3jIcu[qD54<^Jwiw:_)dX3m>^FNygR4E(LaCqy\ObG]\TA
U"Bk8b%PfWoP,Pc<ts2.*&m7d/WmL5On.H(lX8zuN1'Nc<xZnJ>5,>L%m<IJP'xN*
U"<h&o?HiorkQZrML-7^n4Vx$f_O():4H\PSg3QL_?K80lKQaS[pNje0zt+d%3C$e
U"x7\14'p3Ucp/p[/781/H.DD+zTf9d.&Sh]n=LFXJWv7P(1ne5vVf;-.'tme37*O
U"dDOuX%=e&f]zt4k'h'8iO8pMlHc5njfN$,D4;zv5]bqa'm\Kf*H,1uYILpR0&a;
U"Qr#N9?O#>tUE\DWMo/wCTPLi6^Ybs7B06T)E&w%ya,]PV#b2\BI7*t_y,EAU3q1
U".wrUXC9,O#*#G=3\qZo/FlvU*Cn()JEeGox4I4r#.-T-Ise+n]1IORxvM^p2xxF
U"L;joJ5m$P=NSOq_<1-Q^sEDNsc>.p]:*;6yaNobN>H8AtgxN)#JK:'n1;L-e>;;
U"pgMgHtVt*Q2JFPANLs^#\8pmIMEmxD&T(2:Qx<ksSYIY.UqfBJ7ctdw%\mvQsp$
U"r:awd5bLvHATVHq[6(hm>]Kk-x>lMQrpz+?cfLl)3ZPqSdq8&0G&$XTiAv&r$.l
U"Fq*Bh7hLmROC#-7NqcNj$s9kwecJ0v.?2LxTu:7hhL)>:O5D?\2V_PJNtDwHSgn
U"02w:xM8I<xtW;SLalBm>t7HWb$Xj]cd.OpxLj$cs1Dct/[VQ]xxMnrMn$=-hkrC
U"6eJnhj9xmucHr>NSNxu;Z-D(]=dC#Cfv^C[PnC.VRxuv+WwEiu6u,$VPfrM1<vp
U"&d<hNEnu5/wt<s^wBu)c>dY6l,jjT9eq6j>OIr?e$:ro-:(6I-k*.a#Fr$wZeLU
U"+rW.s+kl_kwG*GY3^*0fh].\i,_A0/K?#7S4CM'[^.-^9xLQ+$n6Seb,[AtVG7\
U"Q*k8TY\7QqG/A3)dV$dqql:$KxbCvzVIm=eMG?tWV-%sm<05sR4'XwC9&\ysMW(
U"r:5SEflLCi%UnBh*>stS?sAu>I5afD1_l(1U1H7GitujrGs<VURv-Qdj(/kr'zt
U"aLYX%rozEtCl6BX+/cLFRV[]p4TLhAtZ-7_O\eu>\Y(LR<t+iZLo,-drr\hfp'q
U"rZX\*8[+kN\KnAX'F'pa[[)ic%kM[4l;r6_F:sYElQ;=t,>+jtfekVubte$*&r1
U"\Q^D'w,up%()9%%%%-%&V/$Q(7>[l'8,%%&T6%%%/%%%%prtz%xjSgRfx&&;<>[
U"m+7wCNExp+\%SE>TPbE9&5$gC)Lm1<G%>E\>bl_hT_=o44?TTV3<qMvzGDT)aZF
U"V%CRI'\E-PDxt4bN+e?pxp_4d4Od\IR\;=%wT2C,rol0iitAWMYgkk=3jp>6pJ%
U"5qBAY-8f4k%h=dcLQr4N$j*Y2llp6la67ht#S?ll$pk[(56'\uI7cTn(T.d$duj
U"t>qI2Z+6P4S*V^h*Q[n=XDGPB9>cb.uI;.f%wQ-vNrui<(lXXs4O&>-.U8\3,qE
U"fG/%df=Uxi>j*s4#-SY>TI5*(:iUaA**E%0m*Eqt)+,L&QW&x4>DBU[G<>L<-1*
U"M20<wYdA/u&9jZ:w::)&ZTD(Q<$1C;P<[h4/Q+K=cF[IcT>z?o2&7BmYCtTJ6GD
U"/S(5xe^LNuaBy^Uj:XOf+0ABFr%i1peB5cOrsI:K,0-ha%b#X,h4>^Rf;RP?[yX
U",9<MhZ-8OkT<sQ\QDPAl1#>*nmq)0PU]#1j=b9lJjM%.%Gm2p0)wEWxCQD43;W[
U"*,+7[[GjR-F4q,7kgF?d6u-5\[Sd\A#:B1TUT2d_xTf>o35-?g;B'^/DoE24GBl
U"BP]a1NGW+5rB19LSnecHr,mHTcqXrf^%cEOOXSmg27kh_Z[.BHL9:3_rET%Gx*X
U"3M/Tm8)v_-lnp^7PsVFrh(JAUl>/Fd/F_Pqv7$QqZ:z>A08]=CZ-?[&i=Y3L*\-
U"XpjBawo+%3t$:JF35^<P>0L#OTU#4B9[/,*_--QW</KiWRIv4?7cG-RWUHa7qJu
U"4)f0Y?xQ6Rr^ecr/p8k_2k?m?7gG?7J1R$rJ]4.=tm;JLL-MI?Df.C=b7Xg&9%t
U"*nhvLS+7p2lWgc7a;#<5(6q&doMCdbz2Wdv?I*i5X&J%o;-:;6uh6$.X9h=vb^A
U"1^1n;=fIsNrYdhVT'QkO:Vdac/l/$jlMPOIRVX9)THQ[4aD)))S>\LgY_16g8zC
U"^9]ftOMm)AP:?ZFm6M;7p.RbSRT7<Oh6mNo]L2NdND:-oYb0%w*)y/UBk^tbZ=l
U"0&Z;,SLj4P=MfJ/2Qfh0DcWVaU9Dl0\Hb9%#qL2qrb2ngC77]8LV.f1QrR.Zi--
U"VAu0')E$<o&*wxTJ_SV'SxR&jX5sQz[zRC#1^/oMOz;$Wu]..iM#of*k;feD;j3
U"1O?5%CW\^4r.Z=%Oj,i[]Oj2$H<4lMa/5Z1U[e9s8ZWcyPRU1JQC2Q5o;,)Ai9c
U"]XbGhhx+&$t_WD93P:XN(dg1HL$L'GLssA\VOHv-U7#bDDj,^iMYcU-gM6q5z3v
U"1dGNZK4S),XRdqvF_zj+xA)pQ]^>QU:Xn[m[UfZk81&t&P><\4pZj4i,'DWh8+t
U"Q0hb2:P^m*_k6FWglbO%QYIi>zf)KqB*)(^;wj&)gP^qEU)Eq;jQ7,#\96F(Cs%
END SUB
SUB V4
U"G$F1Fq7NlI,\-4G,Y<Ej/a2MLOX#pnrYJr6#f6;^m\USl#Ig*TK\3>Q[Hjhu9c.
U"sl*utkNL643)Hc-_&.i_\%77VWDMzm=$aq+W^Kn.<Rjj>m%3k'4IfbDrB6YZ#]3
U"3UZRNPa60#QS?mt152lS<srA%?%ZPN(i5\*6?XP4u0+lS$RggQcoD^5e6py-\jh
U"8W8j?w$B6yW0%wBK9G9lHd7jYM#Lk;$&IBKk1nK?,U#II0BO;eRbiPXP&D^HxoW
U"Y%-?Cvb,u#E,I[m/xdaWEkls%Bdeju+e>RG8/AVkF+hW3o++&h_pPNuX4VNutLl
U"U5=1t?)OU_Rd/Htggqj*Fm-G.NV5qbCVVoWBBAmN[M,SMOAK40tp083okWNGg4u
U"]ifn.Eu[&Yn1sVW<,//=0-%(9.tOifoN?*e#%ICNSS,jw't9f^T_R7.\4DZAJ*,
U"GeQU0Ck)Z]#hl;-v:jFgF9_T%ydDd;DHY4&BQ[O$<a*9P<[Uk/zs]us,'[MOXWR
U"E,_LQU=Uv&>cRi^uoRRYA6o<.A-]3S_Ge;B]cu*Gh15/'Rh*fzg3Yk7HCUswumm
U"\Dc%H?>_$-iv9c^8ynYp'Bjn.5?Vt/gtXd\/V*iAwaM=vlJ=7c38rQs\7?8Mk;U
U"<]z(]jTi+OWW2CwPcgLnf,b,,mbG;ori&qDTvT$6U.,JBi$6x8t3tl,sfxZ:aX?
U"(VGu6bS7<dKH=(8O+\y<(N&^>=reUI2n1NJ:p\e.H1gKa?qO,LQ]RM7khdWtPt*
U"qUD\5t.C=nvih1eDC?bs5INre(q&64_)-BOzhl_-[vvq*]SCsuow3;rdc'6b&u;
U"hA.jc5+.w;qaVI&w\mg>>[x#7E9?qtEWhrZ7LaL+[d3F-7S^3vnA1hK]:CS0f^4
U"rVGGvw'^-NdJCj2ul]B]30l&>O10mBc*4Lqi;(BauojcC2DFul#R+h\_-Z.%iVr
U"iNb_el=wae\GPFRanvJRm^n\o/#W'kWLXHTGUc&]9pOl'E#0tl4'R<1]sOQ1uv0
U"(;DgmrKUN'2Ab3;o3$X/ue)RQ3Zg)yxBpxo;/e#&YckTOndDsYKtYqs,c/Mh[xS
U")Qgve.t8jubHI[%dup&%'9%9%%%%-.%qQgjQbg0&Et#%(%Ax%%%0%%%%%%%%%&%
U"E4%/P%%%%%p%jwsj%qWSg%fxup%&'9%%9%%%#-%qQIgQ+G;2qig%%%xA%&%/%%%
U"%%%%%%&%RE%/P&G#%%%pjws%jqSg%fxup%&'9%%9%%%I-%&Q[gQM('jAr..%%ZE
U"%%%.%%%%%%%%%&%RE%/P)_-%%%pjws%jqSg%nup&%'9%9%%%%-.%pQg7Qx,w&c?
U"%%%%J%%%%/%%%%%%%%%&%E4%/P)&7%%p%jwsj%qSrf%pup&%'9%9%%%%-C%iG[p
U"PVe8%wT.%4%hN%%%0%%%%%%%%%&%E4%/PkA7%%5M>=CBDC3SG)5Cup%&'9%%9%%
U"%.-%V/#$Q7>7[l8,.%%T6%%%/%%%%%%%%%&%RE%/P)m#%%%prtz%xjSg%fxup%*
U"+%%%%%+%%+%v&I%%TH%%%%%
END SUB
V2
V3
V4
CLOSE:IF S=254AND B&=31468THEN?" :) 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\31468,219);:END SUB
'>>> Page 1 of GIMIKRNL.ZIP ends here. Last page. TCHK:254
