'===========================================================================
' Subject: LEGEND OF THE RETARDED DIABETIC    Date: 10-19-98 (15:47)       
'  Author: Jason Lashua                       Code: QB, QBasic, PDS        
'  Origin: irox@animehouse.org              Packet: GAMES.ABC
'===========================================================================
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"LORD2SRC.ZIP",4^6:Z&=28720:?STRING$(50,177);
U"%up()%9%%%R-%&$AgG6>1(Dq&7%%(4%%%-%%%%ij%fiSHRHHff:r=;Ug5T(5T^m
U"RF24s-IbtZl-\OEy[%Kbi4]JHI%;IjW(N.wbS(=^nA/k'tzpZafjQlEK2Ie.nl9
U"0s$Z.uzUD3)9a?W7*<mSTL.^heil,m*D*bM7z]p#BUAxNBkNaEHWcwq2I&-=0j6
U"-'4_cfW9S8XQ([FN#oc6<]N6qOi$*FKGhliKoMy.?2zWb^XT9$x2lP^Aj1WiEYH
U"'$jgpBHXGK7*,P;lWSK#Y.tM'r+dWt:5::b0HB/6lcolcBeViX)F-1jQ1s*n]/[
U"ki-/BPE+L&&kBvM]^^d7I9#l8i,ZfdMA4w?c#R6tZG5rQ_um7\dC7R<sL'6fp$a
U"6Ncf4s3q>wFVGHWNit9MXO4vpWP90?g:Or*3L.mFm56jc]G8mL5?BL-4;X6gJ4.
U"dITc=RJ<=[HcVY'6C2VM6>Pg-#iEsqpwIF1XGb/e4kBGE2/xW,7;:HH'&5BC*T&
U"Bc#2\EWtgj+B)Oqh=_G$c;^^-gTOnA9qc#B0j0veZQn88No+_T2c&r#sn>3Tv=r
U"8r'%up()%9%%%R-%D1.rJ*?*.?['7%%(4%%%0%%%%xh%wjjs%WSHHjHffD+o<e9
U"\U0>am9+U4d/FaFe_,7/#cepfCGSwFCfsv??^,q=^c+)HHU(V8:A,Bt\:Xs_SK^
U"0hGK'c%kzpzU1:)q?OvMR=FeeTTD$4PHCYpS'/ZVlu+N.h*AI(:7Q(#]k?n(r=A
U"fp:jW^aoB+bshc&yRWrlt?lXfxOn*-NAm/_j#o^W^PH<T_cL1Icf&pHO*7rpY3N
U"0<pu]xs;QhInYrR;Bh&cBohr<#Y%VczoI/Dx5G=<_8uR8sHDP):[?g:FRgW1cgc
U"lIOdSNndpbf)n\qNyi<eZJr&GU.Dqdh??uhiL_/kb3b4MXk\j4RBoqal,#]eC03
U"NSZHIT7s(7k9,gA,E\$vmVK_br\jDNO2RGt$=zg>;+D:VR$pr)A6DUyB&ay2XKh
U"c$l4u[u.&D=.#J^vSo*BCp,05OiX<Kx(,v[([gwar^<<_JK:ArdRWX,In?Plqon
U"lhc]H]SuS.V_yt\0U3J&7mj73k0w3+EEjymUJ&GqBjKGE8_qC3<mk=ZV1pe*kpw
U"bOVWa*K)hH4O1ao2f'Os+$GV(X#z]<.S2lC#oHR$<7;Dq5leim/f$vv3K<2a82_
U"JlaJ.8EYm:>;8\#wcV6vezs?hC2ac>p_?m*MExXwGvullFz]m.cJx:#Vh:jych_
U"j$G68d>q3[SiPGx;(xn3IIOqd]h:$ReXP-PGleR[0/g9T&36c)b+jQkp9^h81Sc
U"Kr-8w'u%p()9%%%%-+%0jsCJT0E''F%%%%i%%%%+%%%%vgS%nsn0JC//023/6%7
U"&5F-Ms(oKI3U^Pq$\:NROKIX%&<2%%up()%9%%%.-%qc7gGDt(t3D'7%%/)%%%,
U"%%%%rh#nSy'Fy&w,,:Te58K<ad%Q&f0Q.*ku&8rxUD]b+;,vQ.SnSeH$r.DnbGs
U"Wl3uxtgC%woCxhAIhRt,fEf>-$[2'8]?Ip(gUGCTp4_mI%LJO2A1\^33K%?h?J#
U"R03.U)+ykiV'SY?:2dk>Bq1f%2%HSrjUKz;__P];H6Ap\a(?rw']u)0ak]-C(fA
U"dpOklb=*0=v)&.+4zF6m?%<ANfOlUv-4]F3agGL0p<&.YE4De#ALkd;)*Xj)aRs
U"ZXqhd1RH^<O-%?RD<fH/O$9.(x0y>r-/Li>Gj38(l3D_pU9-$9.[58[sO*bEbJO
U"g8+v:i^>i2KQ9S+^bB\*^0?sY7ud6.Rcwr,7oSKIIC\T*0;kqss/JC72Yi[#4pa
U"Ew$Z=J(-P^]&)fABb-[K&>pC.>Rq)0Aoi.Ci\dX7/15AGkUvA*#TgYM[X<jvN4$
U"1iy[;lG]BV#qA=N=F%N[$l\wSS:(&+5i/$kXXf0PVr?CMUo4QCECM3w&DvV$Jzb
U"?8jHw1XQPu7m8Szu=NUzfL?Upv1BgBC.XEJd*]1SYRCouhgkY&a5KkV[Q].Y>I3
U"qSigJZ$'_>N,n>H*hdO3udTWcWjXqa.1TJIOYaj1sv_Pkrk_lMOdsXKx.Y=J.dU
U"2gmG.hXR25Q:Z=I]F)pt0C^UJYo+U&J-^e^50k:)/F2$E;S-aX41]:Hx.6lN&%u
U"p()%9%%%#-%NJ.xJ>**/A#+7%%=6%%%/%%%%wj%firj#Sst&W6&X>##\7MV./xV
U"4.k/#;_c,0(Y\4,ekGzG:;Y]o,ATa)^b9^SE^hpyfuFHx6tG?Re(sRW^pCPB\)R
U"^<Ghh#Mshpxn12.H[c*l#1JQc[9_vKu;SGME%Lms6*2C-((VfRDN'9OORlZ4z0P
U"Ho\2HYP\DmnTC%L=\vZmVQ#l&^0=sD>/YjTW9D1g[,+<o2y7MRgZa/><./$2N#Y
U"M:kEL_azN&Gdl<?rZgVpLcsl(%G)qnGE;EGKjB>jTm?h))?)d)8d3,[B$+%C5,\
U"'iM%RVgd(B99C%JiHN]muHUsshZoJ=')d87ao3*-,JT2n;Sk6-)Em]/Ru[*:xz1
U"4mO.S&/e*4/eG%kn75'%KN;nl5c.?:)QOZG'Zk&],05M(W(6PJ_^,76sTv^Rtb<
U":,'#kaEB4Z:IIE)S8/0H+]ckoAXZ?R&aMcL:2\m2d<O([Uq[V[ukGkSkZ)%h/?b
U"Yn%6'Vcfj*od8rtm6xU(RKU29.-e:R?PN)fJ78j.L(Yo%K,w)p3Mm2SjpjbfvCd
U"(WY#iEec*b;mx#dA.F+pYgf3]2Te6Hq;*#&Yi;7Ep;xgW3G7aYjN^u'[sK<[\_G
U"M/hAH+041oKXNTVcPqXqnB_;D/oe=6'/f#4$:9I5P>DI1?*Ap[l:(6<rK]),M_U
U"1H1w.0Mwgi0B/pk[R.l8Q*?zdOsGt7#iOYq/jAd[KKA*eiJP[A'n<br1IActtFd
U"8O:&&m6;lRLUdwqflZRFvW?ncsYYs)o.B:sa>4uVQio(O<n&>>i&rS)H39*o+h\
U"77Kmiog'J>G_B88%mAI9-5_Ylh?XC&iCbGA[BF(SkZY27n[)h*^sJAiHWWaJGV4
U"7#^k_p8(5;P=i<sFV#ZS=#?Y&K%OGR'r+a7fdJ_Y,pRE,6T/$C/L:853qp;l%%6
U"4Q,(OCp-/wAY%qd7iNV8Wt4eG\j<t^pDt9r=gK?<b[ifm:F8.f8DuW%HaI^eho[
U"dpJ,tMGNb6-hXTe,)d3ROFft3>3%=\al_)R252,]#z$Su5Z^?WU>m)m;(ax#eL%
U"x]KYyHKbgv/Ds>UlBH[<==8VD#L+o#j(Ns9O^)g6O52D)R4eQNaOa)Q]m+CI)G1
U"TioY_&He&_L9s:]o_Y1QP%2WmSn[_fNCyGpF1S,rS%C)0EZjyU'pV?=:N;m>\BX
U"s<Ii:gq40Norq$\'Pd7Fq[rkZK^GQcWI[-z'K*wQ)dL,:>g70'SMHpd'Bb;C[iV
U"P'RI=]IpQ2h$Fm/RHONc$2:h/&r:XR3:XE-EYjgS5bL-i1Hg(]0ouge8\0:_l,-
U"(ncq=5PH9).W_%O]#y[Q;8j/gl7j1TOrjHU8p)s1C+x0tB,,VuCVs(ZS\zV2T=>
U"gaKrO:%*4Bgzcdo'wGH:%u2_mueXGS%lkWkF44XwF/1jC0ZkQ[;I3=-yF_A$ChC
U"u?pTICP<&.oc?R=>eSkCj>1x2Ds2A:c=INk3f-Z\itbtT>DMb3Hdy-4%R8WD&$t
U"^EpGvas2ZZ44rv0ao2(3srY:4d25A4hB9l/7ru**ebUBr]R8i;fS4SHMc7X4w76
U">;bEuH[h9V;LY$;w8uYeDr8/?c-QkVl4$YbpY$rZ15ue4]6<Bg=pX_>TxUR#&G.
U"8?iiTjdV\4O%-1x.7fOW/-n3P+3mTKnvMDw6JNrAPel1I#0d;b2#9&lWPDxZ\Zg
U"tjYFPwjHhkq*XL(aM<YR4c[y1DkXq^r;Z>&wgJ^wz3Bu\+zBojR[=K>J_?.MPaI
U"9)PG])dX1Klur_S)>m6lVJK8KL7P#olWFx8KZFSc4wv?qVKtxg<1UL=jJJ'KidW
U"HQ:D#gi7CW_R7+(.Q87-CZB,Y*H1U4-;L4iO$Hc.GFWEa'esD8a>kifIs.%Jf^j
U"mnw_N4dl]'$viHg_H2n)FH/ny1O.pTue%3bFkaOr[,HiibMe4lweQcGwj_ZHrh>
U"f1bX9*xDMcZsP%yKdm]8;](peX^tq>e0yR.\\C,Opzvbd,HoLu%p()9%%%%-(%d
U"nsmJ5KH,T2;%(%p$%%%0%%%%htu&(nsl%SluqMt**BTT]+M;&dw(KCT2&CVin5u
U"peG]Xn/b';6<BP?B\nH%ig7K(Ip*mXPspv%T%.oAAWz6M:v1*q3rhvVDrn4TsQ7
U"sELCcMm5tHP(4b#&<xtLj%_A1,nNMd-5x=vi*u>xNujj0Xmc/uYH?e3%t>/.165
U"2QdZxl0S=d5,ohXT(PhJ8d1dXrdD#?mI1(w4H&=Txv\o*y^'Ou[x_\h7D=>qJ.7
U"?8wspOG'\zujZ#*j58KsZqj\Vt^8wk&^iaTi?G;s>ue:%OHSXlW+t':VdZSWa1q
U"6+TCj',5<ny&>Qie/9GSjhQ&U?/rOqW;;jTGy<^cArNOcyyR8&HZJ;Pz\]'[gPa
U"m7W.e_j0omODZJUt%BARzMuHK2zPW18:2j(.;0<Ys?xAQ^mu1<_9r:6w1f,/#U\
U":A:uv=4oq3]2?*I&:=v\f$)II'449Azk*bO.+?GGHJxo((2Wv5*(lZ,TL(?yzn)
U"z2CAV(]:]LmPZ=4cqQD#A9MoOWvZ%(awGkr'P#0Yy/Sd-)VI]<MOaL)gCqY#C3$
U"_'qgXTZrgE.*Mm).J2$&cM4ckMbZC'P$c3Dm5+W*q16F?oCwe0f?&>+>x0?_Iuy
U"(Qu:YJ?c*jk[_A0o^;.JhQ%6.\AG3_r(sUOcIcctf(Q%-VFWn-2)3BKCJ&-rHW;
U"($-,:]nEe-CpQ$^UqV].iT*zSXbaG5v]&y+lH+.DMSQ(W.%OqR]eCjdUF^U/(]N
U"I)5\B3<GB_sTUT/y$%$Z*hd>3\AmTkpf<6B;to1mg82\e1[9ssRd\]*aXZJW:-0
U"6oeF0ZUzUWtX_Co2Xs2lR#QNb;r9R/\xuZ%iPsK\8n0/>jI64HiM(&%%SX0_8xy
U"eqwJ_:]wwXd$wopf.WJu#&Q3cDBR_?nw.I.%H0R2i7*z%A5#wa2B3ho=js-/2dd
U"pP^^u4s,'bAb%;89N[yz9kBw9KTi%r246(u$fEL'1/Rp;ZvaU)9s,HxAPUP&A)a
U"vCx/&eEXa$*R4nmo<3O#cFF8u(NG%ua$:']*[8]KBd,iY+(J\dn#Fi,PsKVe*Lv
U"m.G\#rB/:Ww=BM.zU9Mi*o&v_ZMOaV'(Poi,+Z';#ZfvIy7q(&/EmR.uRxiX6dl
U"=<<j&6J]ZOiCP.'R8B(SAW;Z0n8$(=&^$O'JA*l,#6CTY5Ce2g[WOSJ2us/R$?Q
U"2zBmGZo3WYeI45&?NGvcgA+M5tqk=^Q+(F(Z^i9vRPuZ),(hPv5TS>Zoa:.]Ha<
U"g<k3:dHUv0ot+TbjTOuvhY(7hWcS#i>J8+]I7'ShnYU#tKn\+5,b51MOuHeq9fl
U":jRT5pKV(I:/ARO3e9GuH.oY'Cv>E,/*MB<3kJp#PHV(Dn%A1D.BwEJuyGYIOAf
U"U)lC3c(gw5=$=q92.6+o\:A?,4jS;xHEPFy\=&4ao.;.j#4C<i(Dy':y5s[9rNW
U"3'-G&7;p2$ZQMb'.SI+(I96aV(xpR8a):D9y]]MdNVnL<VS])XB:WUz>&aZ.;=l
U"f:#oG93])'i51Eq4V_V<Iu<u).oK>kH$=e]?2K+AG%.cP>dK%V-u[(vGYZe&W2M
U"LH_R+.,=G\kN+R?nU<0yn?RJR^&ROqT]s3u4,>)NKCIkcRy(\KDr#r+GtAfWlK+
U"H+gng#xiHeq]+.B1Ol.?budLfhWgmn\JN0#4o'9c%VJ*8tWV+%VzQ((WA/j44=W
U"&C>aSdL*f6nQDA-gT*5x#S(m$^d0VmWqYjRmkE+kE/u0#\>j<(tW(bbf+iUs;uD
U"r]s.>dq,UD60b?4BF=ExOIM<j/b9.B*^HJ4'N[Y+o?M]n.%JCEg*SsfBZviZ/VQ
U"B2*Q,5MRi'1PXb,C44pHje.EbOF$'tEp'j5Y\Nn,7Al.mA+aVR.<._(0.I[w5)w
U"x'/GFU(H<uxU+('TmVgd]g)tr(^#vO.a%NrglDnoK_jUiyXf9G>afimUR]hiS]3
U"wFELjrUOen?SdHJ:SG;Iq?C7gQ(mYIh7'70T+c&;bHe9mSIP/49$gG*E?EPC[*F
U"z#rH\oQ.DJ4>d']?<-k-T$YP)Sr,qBZ8<a;YlaGt'Hv#:rjB-]1;W^8=D,X9Bi/
U"FMCn3WH&DqCMlf1]g_MQ+Ek,PG=64=(*ipxNBpI.h1__H/q2r(]5p#XLxQ81rfY
U"+j/83NAJN$j>ZLT7yLSlZ=FBb<*\C8j4LWSs3-*//uaILBiGqT.]#<kQA6qScAr
U"wPsyx=4BgKSD_dzB;r&YqTKC\3>At9Ml#W9mIPUbz$PGjgu8DZTE0Ik13&^.Z+&
U"JjcQp\Y*;%l'S92ZNpxX2qEbPp/wRKG7s]n0Z3'''Myo5dduq7U1XYC_&,s#f$$
U"lgZu#>hP0VUk#We.8QdfUc]V;^mEuYR+9JxvEA#;1#_El%Lm,Q5bOhuc:dZ(o]f
U"U[Id6'u\3p+wt;WH)d&]A0(hXj5m)pdx:2kRt0l=d7\^XSB4]wUOvG5V\R_38gt
U"oXKY;_O\>(GDSKJZ.?[%2V/z,mToe/(,vXQ?ke[9iRp0\6,Qn4[q*ikX5JeKT7f
U":*7u9:S=Q,Xg8JCiWk#mxlUE^dWdG05HR$sAofvaV2Dtpg'=W<h+jp[Z$kx<1+*
U"#mcsS[c^nexS1Z->t-;UZ>c[2RQ]//6ix9[$00[Ryy3N[lZ-uPn]uj%5hK#B#Ri
U"Zs<P3YN+iPU+n6EM;UJicqVH/SMG9,[,_W^2LV\_ckAmMhYSuMwh45D;F12O9Dq
U"tA8=3-]h?F02?p8V:2:7$<sj1jf&N4y^N)B+,v?5\M=<%[h59c[dINA5I_IoGQo
U"'L5YzFKq\eD?Yu<hBqR7cMSVIO/O[RGwLhEK^vK6/W%8OA2pgf5%Bkla[MLY-YC
U"oQgxgPo8*q:i]D[zM4I+%VHFZH71bZ4\1I8[8%'D6^W;X394R%Gg;6;'P=AceJ*
U"nY]sf:W/JFg4gA$?zOLpyh;B8oTL9ULPS^^W10K6WhRantpe91/va%iP)VjrjPO
U"kN(+DRU1i5#M10<xQA81+<W))<Xl7Oy&q-J3g.I)MR,#julNwl-d^7fb'0qvKTt
U"BD?9(oPs^::Oi%iS[.<G'*EO7'7,nQR9\>R7g8*G?=n=FMG:YCXC(HnXk*aCIUF
U"LHArz9IEYMDUnSH0YeR$h.A)$8t-g'DUIy\Aw&cedY,EC)^4mh<Q3KP7C^6<0'c
U"x'8FP]h[_x&2[(F>=Cve54SVvi8VvEKq-8Z.=.\Yz%Oz80>_%2y=RKo1WIGEro:
U"r?Kj-lesw1()7*,o1_o%yY2fH%JdKjI'jsK6<Sb\4i;-.lnX_ptn]1tpJgtMDVa
U"=I1uL0Z\U^*u>Z98&E[XJIaN]UXJUuHtcgj,+8c#sNH8+Ou-I9O#D9u8OhNS6aJ
U"i,cCn(WzX[K_T_ACa5jIo'E6<q;.T(KJL['CeLus3^O:PZC:2qw7o=mIOV\C=3;
U"s]Eq??I[Vl?^r^FR&aq(qOx/MM>C6#;*s7N3DL#=?'jm-[,A*$Nr2dF9&<lxHY%
U"(NA2da6:$=<LC:EJi(TMoq;OA,fS4*Cp/*G(u1Z62#K*>jt5ThpNWt]t+cZhw5_
U"hqN2/;0&#dP\Y_&_bF>LVFH8A4hw[-qd52Tn\:E0<f+)bNvc=Rd;[gJNQ>C$G?5
U"IEKvP[>C,s8K#S09U3%Ei%?85F61hoR)V?0&BsLk,b63';,+26]b)l6?[X4u;Th
U"G?*]\QX^g30U'O$A[N7P9Nf3D27OqdtE/]3wD)fU8vU07)o%eaIM)^6UcX&nsAn
U"[Ic*7[mQW/$02+m7qN&SU3'NA7+,fu^6z6\l0HoDai=Eg7ygR+7>&oi-5BgXOnI
U".pMsz8/,v=fnFp0amP+TiCPWc_GFehF&J4i8G)E,*MKH\3pB6MgL]XN#9H3h(2.
U"<swsJJ$k7W7zYl*s2xjq\4[JW[.-TaL$RkHx/j[FHH$jB'u0kUfqwfau&TWWU'.
U"5caVy5FHnm+'Kys;o9t>2M]MtjD.iZG29:i$2%W-VY$C[C&S7K84bo1i9OgKD%i
U"Z.B:e$pc-ejfVO[p8$0aQiz\wEP/c:aOEjf\p:'3p^aq>2'a)m$rx'/Z;DJqp<i
U"TmC0HVo952<6r'HV5k$LT&P?vEl$7vcFn^?JY'#&eRRfg$smie,Y?vAFn$quc<-
U"rRQ.=CaYz.'wrA?8_G.Yi<Nn]>x?l1EFbJStZ7M^[bCSkT2,cJ.ZO7p5^0nc0M3
U"aEYQ'(''sDqjJSD?HdMcaC5dSYDpppUCRQ13$)EOA8EXYM[#$M-(ouF:pS7)zzS
U"QaorLN3_A6O5Q,fQ=Hkuz'Ro:Cm3_El\&fk,Uxe3/TZ3'%7J4)UFLpZOq<e<K.i
U"EVT>LS<'EWfc/V8kV&gEpPn1.gZ3%eq;js(Wuq%VA^c3n-(knv#3:IaUueiwaj5
U">Q?ZC=/0(F3ANb*GpaePUXq8;GYUUo8Cg)iI2c7wLb?6p_7k^bAm'VWS8[TrO[3
U"js&e$z9-J3oiAt#j#&Si/F=2w&(%<q0l%qa,o2Sr8bM2-=4EHP3En(gmc]T3,?3
U"MLHmd57LU$$\Viic)di1?ppb8plLdXCmQmWxl\P(U-wV;sudXNR/Hw:hx<'krJg
U"6QTMBK'.F>yP[1j=8ggG2O<Vs^)?RtK6?EKo?,4H0SZ63<:6+=?.*6hop_NZZk(
U")y=nJXqx]3N]F19)%>Yjhh;H7Y/#i(Y]2)z^_<qv#cR:S9Y$2MlR?)Z%&-tqBJj
U"M)CRBa'7KgS.5tHiZX<3#&N3gS9<<LlXd#0#Qhd6hxa<njoPKpsyA6(bF<fa%Vt
U"*G:_%&2q-H(;#%8>^tHk94?\cK4c/W,s7aI;06E%DApc.kQ6QX:*OXPSEljkj_g
U"YMbbPVpS#HH9qF[7A2[\]?H%bca%xOX[:jV)fCr>Rhn+0X<ixmi$hg.,wW&*%%F
U"OZT]O-atlL?]/NZ3d4wq8#$5]Bd2LtS$meIseI#D,eBOJ^lGqXa63*MsRDR-GuJ
U"3Rvgt,jC<O:pe-A6f#,*3y$73M8'-<qnMDSY>iSv0=?eT:t_)rz,/WNNYoN#&Jk
U"<Awx[Bf:)%1)*Zd_jKh<(fUSvk&D&RR-OO'JOyG9Ef\?=:O?aHaSr74iMMTJiXR
U":$s?^ICA$\711K,a$Jo,,Up:jN:3l4;s1e42zhJAj0-(ug;7T;___zL,P)m#Wd&
U"p#cDQNc*U%Hza=$6XRl-wDYR0l0+Y:1Z'38[,e3U\ROVuZ9b+1N9(NW7k[j/azp
U"\gC#mBoP97VD9o'Jq%sra(b^+sgQHWuOXW\Y8Lb%9aAhdBbrF-*7\r:-G^PvV^(
U":3+Aw4D7\,F/l.-_SxE9AaEX\-c2oSP6)i)i:qg0=OIT&et*-6.)YgeaEstv1ri
U":pua6i9f&*&'>);u3ol%Z1iJBIPo\%]&R;*DEsiHE\[%<nY3ag3aax\$QQD0nye
U"UGffX=gIzAoY0iDj<%m1,9)g(xmdPW<,huCcAU>3(3-Z,_HMv]M'2OtIodHsQoo
U"jxJFH#R<?9Ig79Gnd\EsK6rVl'*cLoG1i91i\FU3s\beZ-][7UVqV6aj8bq[vA2
U"xN;A/gWu$?C/L-Ftm)^qBZH7-T?\0K\dcM1=k21+m\t/JX&'tWQJOkJ&Lb:B6C5
U"5Zw%\1)qUR+vFB5KwSGjTB\Ksn>^aI-W1c_VRxq;?8=UY],_pdufWWpG\0Hbg8B
U"]xNtMgq*^*&4B_<<SP]Ik^B$_*a]8V6fQ3vtBP7nNR^4j;,JRq^P*d$_u1H]UOr
U".Uu.QkYWI<BHm5PsNiU-)l]U+34um]R]DzpUGSu2MwgiAAWa?fF\KkMU1)ftba&
U"3;4OL3Mp99h$C:oag6jJbPTJISlD[jP'zH?W^vX4Q\lq:\Mo$'0lnq347^(,<Z<
U")cjQ+&Z%S^m[z#,MoGC3du,1($6=V1:o?L6^dKqdM,q2CLb6c)_VHh$CVHv7p:T
U"ON\U/nX<9b38LP4-Rr37TZd=sH&UT1La:t8hVW.\7G5%y6gMO2Z_oF0GH\olLI0
U".0Kd45<BD\Jae&h0*$R<dUQ<=VrCaln0mB0sg<:CN]vfEY7SXGXV$V\JGy%'=(*
U"cr$L\VTjBpyXcq4E'U*5h;9?XSi2oZP*<x]='YTdJoSU0(?gAWRr4C1F$V<D9fL
U"]kA'b8vPu.B23VTPY^R(<Azp\,u7$::wZ%148F\'r3Jx-/[RA5QYmCoS0#-+])i
U"$)Qt#5#A2CmMwiAt&;#4tP00\Upe:cfD^mb(=VZE>><sr?;KPR&Z0#e?0Yn+IZv
U"FuE_&s#BDZ=5J?M&q%Y2DA%_8S%2kCI0flX6h44*;mxlYWFiqY2j4ez7%<*ZVom
U"hG,XP/8q7,o;$QAiwOlAglHhcJf;-U+*QMoO-Vn;Q;Y]mst#6h4,YTIc+M0^=HY
U"F37l\K=2:y.U];Wd&2zE\\>2#/O'-JYs&Hd5;a9P$hc6$cL#\oqxFUQA&_VEebi
U"Sl:I?V%*y9OmlcO)>up1._6++\P\kU;]:RJqTFGlP\tf,)O2Lm&)(V<EOW-TX^c
U"N2$V#mD8)=QTXj[thY+'N:EG9T16SF[2k(Y(*RJ_8XT\rKUa,7afrd]=DDIXMM-
U"s1HhnYvrleDKudMKZiQF.*#%\txV]48\p6\rfY?:$_Nmc6J;?nVZEeq%^FVW1sn
U"J4_,Y;vCw]e(SPU*nz=dmb&nj'nhOCB?THGK_KL)VYftC^O5mwM4Q.hn*Q#qE;3
U"O-W_b^3$sT-[kaiKk$^MNgn640bJk[XN>mFrr0jYmTaLb'r3q2Ap%w2,f<%Zj'+
U"=85Ttb^ve>HR*4i[\v(i[.bb8<GK.mvoxl#Yt<w#&EcHp)eLT/3]gqJ>Cm>88rr
U"?.mq6p7u:A+KHR6s5li?E>^e9&,^bAyg],](%L48]+8QC39gKDNmAgdHq25w_Er
U"01AOaHn5;ZC=od)Gol<r3jTd&GGNlwtHU%6'*(t\#jmMU[D3dq9'5EGml1^&QdU
U"'oclzbt[[6Lp>eb.dw_62mSB;NH^x&*r1nO_IG5L9m+qB<H.>GblxV2mFjEL5vj
U"3S27TJc7lW,NQ\v^npk79bLqsNo%DatDjuUHsih6_aA[\E$3jfHo3c[;daA5qYt
U"G-K*7,Im3kKIH9VzG2n>X#jPV>]8I[D>3YlE)*WEpGu:W$r\:9I-Q<C]i5299/c
U")E&C$M(ANn<o*LIZNwZnX/'at\+8u&cknUQIo\,OEAC&wrFNZ4m/Y=Rr.n_Cl&>
U"\1kkC28i79]v]meT4<5^5?]GO#D5s0k2TEjAQW>8qp_u>#$bC9Ck#XZ72HMm^fC
U"a?7&u^Qm<DNj3Y3'9YMXYK/5nrE>TA7Gt6#dtCm$+L'+l0He\mqb+'.Io#RZ2zS
U"+fsqgY)2jJ>hTJ0Y&n#4o1ssZ*jBfD8Y]:$DCu9$=dG4_nGA4WShlk,67\2UAu%
U"Dup(%)9%%#%-%>\IxJ9?.Wnv%X%%/%M&%+%%%%q%WSgfjxfLvbF[]+-ah^LixRa
U"fO^VLj?)Q_H2p66S7Bm;1_P+EL6Thmb\R%65IV[:jts2$v]jtJDXk+&/pAaEUu0
U"6,V0QOdoJtOLctyCFOVHvJ>>p:f<1YHCr)no4curg8tqGGiw4Ihn'<&KgQ6P'H\
U"lpJVl&^m$$qzmI8OsJG\PM:m2nr3o_CP+ef>B[t3[?]Xxj64sqqNnLkhJ)hwSVw
U"wCV)f&=a8nSIiiyTsi&0rX\;Zv,?VqK?em4_'Pwp*zpd7p3.mP9JgY-hO.9>I28
U"lE&iMJCAEqyw#x(17$hEM;1*MDw0k,kN'?stw/XKxvcl3oHz$M7p0z&Nbe2ZSTl
U"--0RCwfk,Dm209I8^0j0[Mqh2(rGrpjb4a-w+#Gr4YHGClI5Y#uF)JlfJ')J3VY
U"%oc>aZH.Z3eWq$Dj3+9E.*b[we4=9nq#knIV9l3F(p*2-rhpG7fZqQVi,Bc5k.&
U":D>;kbuhF#+Zhq#S*-4b-2re)CQb^ETh-;7.k-i^\c+<TpCmqI&sX0vO+;'W1Hs
U"W]NCqOB,Ph.EQ/hWVJK,0Jq\eQn(*K#7Yf'l/asB9&nl:>J9q,3L\3n.+4BXse*
U"-Jp09(rt3RRM2$#?^4kS09:lnZ<-g)fN)r:lDv^Bo&T)I]xB5fKk'lK5+t:]CUq
U"*cHadx[l%q4de6S%Cn0oS+samUR]%5?h+Ybq-Q-aiIP-r)7eS:f8rXLGla5Fl?&
U"V6Q$Kq<LMQ5J?rW8-(G*v<b\=YUf1.$hpDN=IBECs:'R<U.O#qDrkX*jIr-bH6C
U"qJ].kFR++;oVCsScap#VQZ07[6iCn$LSi/jP\Fgoj^*uAsJWK*1bB;Voex59sqa
U"_Q#,q86gjPkBk3^qb_YOU'Ra/bqYTb*.E,smO\O0(D'N3Z_)R-B2H(S(C6R1=F<
U"s>0\sifg)iNThl,qPl2iM>DStffWfI%Z=jrf%p57zef0Qm&FZX?vO5P=e,+E)9*
U"%sY1cVqEiVpphCNq3&T=_D\>92u4D__2ZENUqSF$&^HP;6m3%vO^jz4F)o0TE3*
U"O=,cfgJYrfrlWWnD(Z%+U4;=I[4hho'g%s$fZ)TLg$&Kfsb1p1jcvO/uFX\VU?(
END SUB
SUB V2
U"'g/qDCa6f.W*DDkaFIt[Sq^o_2Uu3+0l;)_buf<Q]QRAT$lX0QogrDkB;/KLV\<
U"X):<Z:MQIx/?KhA6)OQ'X^fA(#P?-A7hYe\UJ>7[1S5hqk[2;H]YkrI.x_+Hc;:
U"c:QW:<uH-QwPgXKUH<m?Kr9Ie0q_06-a*oSw(a%%[1bq/'4]>5WVQQ(AFBET;qv
U"fo'X/A\QvexcsTCxja6A;enKhZkd^rX3):1o;U&U$s.:QqFPPkNXhSZP.jCW:lu
U"5B%+NvzN7BCErnn2)#>n#QHfmBN[#(c\(nH>WYC$B''Wa>kLgn+b9Y[:I-Z04P\
U"-Do^yRcaiKkfQFwCaG/t&Xba7W5CeFZmZqz1^j()k\*4Ju8u\)jU9WV5T,A>]YE
U"5.QZB/=B3%<cqX?S=TjgCRI\_N22cq&+VND3Hsz_(m6C_,Ji=t>W88C*Qm+<Z$G
U">-rb1+N4y+\qhM><l'7E[yzy_0nhsCZ7WGJtl,Y_-TBIms\h;mC=s_P,QR9bHlS
U"e+f2AZg5a*R4Y9.z8z#uv74[MkIb]RFI01QqU.q<-la:ZL=oq;-;-7^-nsA5J%P
U"6qJK=wID?65=0iQ;hwcwn6)BO44i$f:Y159m*r5':+#^?;1Ik/QV2owdIbQZ:H6
U"2?G?hqnVa1HLd\Dfm%jm:G;HL,]f^;sf<Z0#'_RLTPPAApU;4wKl=L1ltjFmHX\
U"'Qr#0t39nS;*g9K?*^bD;8rTz>#b22)i]u306GL$.4(-\ss$cwti:9uh%(%%,4N
U"F+6P(=Tjomd7dI4dnb8a3f*4tthXJ8.v&o$:I\&aSh#MLa5:=34JB$:)-ujm$aa
U"-o4Rw_^T)&/d=01tBS$zXB'QVc1J44n(j(wz5eMcJ5vBa^o:x[7_zrshK5V;p7o
U"&bkUB#odZ-\pDW?bhoaP)HI(otwB2D*NDGqh.;DKIwqlLloL5da[a]a1J3JACC4
U"+J3oC\C:J3rc=aqCazi&*DRsbg9vHI;xV[Q74_^u_7taaechpfew:b2S2sA;^&R
U"&8Oboj%0V9otLM'AcY<c#HAiy3gW/rgSC-dhu*fwb&*;TweT.BNVK\xFGslvZq?
U"MvVv\P]c.5[gwf1An)mAFyF]W(y;v*hwhA/.rXT&f7RsPdqE+8*]7X4J7K/2qc6
U"bVfMEcrkq$K)^hwd<m+sVOxcVmRpd_9Zw^K^u2382]m(Pb:XAb,k%K6]9K4%AI4
U"HfM;/tu>-2m(PB$PHfVM/^K>4]K4W%k([5+sPb?.9]w45exJgKfUYW*i;K.OW%w
U"5'GtHVua9A[SBVN?m^K6gxxB^/+_1O5D'kpdlqtGVdBbWYxM2A#SBVdU_&GtLGu
U"A^4uGtF2uA^uEGtEu\%wF%EewEu6f4]w#bO$y4,<uyk]C]C-:)NzPr+r9^U;o>5
U"wew=(1jwRdO$y>G1b_Zbt(i0hr%;:$/rsE2%bJlDX;lTiY5G.6=fw5^Anw_8y$c
U"(i#vc3$c]?:ojN^'E3rs?SKoBz*gw:A_nAg'*gw<A_nAg'*gy>&Oc^S+'VvZ]Oc
U"^S+'Vv^g_H%sAENk/q3M_9c42JcO4wDvGAiwl9*rCix#OnRn)a7oR>x^L7^rxK.
U"2K9qN3nsetItYtqHMkNYPuMc)RcrJdSiwDv+N3wx89^P7htuk_KL9,x:NvrYgj&
U"9C\8crJMdiAiItxCtquk_L19,xN,vrYjV&9C8RcrJd2iAitIx1tu>k_L9ChxNv9
U"rY>uk9C(G)<fwxQGk8YkpMc,2Ki1MFZ^Qn&u=or4^DvN\UwxGNk8YpWMc,K)i1M
U"ZK^QnuMcdiA\etxC[or^DevN4nB&wNnqycNpso4W2eV=n16vEvQt4nVK9'\hFUk
U"t/7W4-7VU=dcq<fIxCS1ycZH/d:K/WvxUuS'0iHZrvx=VS'<]jFknXbe'FQj,d4
U"-VZ*&8VGn2hI8vdY;gMt:kv^e;v%cB=TT2hJh?l$L(l)lE.A3C%t]XynEg$FYl#
U"4tJtk&LO?VHv^\7VHqySDPf=WbgY-$G17&cMBKLKw<uL'EijIip$LS8tqr?,H[h
U"M.71D-QpKtFId-:E7Y6$u]F].%a#fam:\prGP8ZNFHvlk][yN02.zvXEOsk5'Dr
U"=L]rgE*\FMyhd#&-6At[GaqlbL>4OdofXX,bDJuPLBH[J#]XXM*1q=Rqm9bs,ay
U"q,[,u7LU5/BaZ$j;L.#'UStP,oiK+tb_T+nb_T+nb_T+nb_TYX4V<Oo[=Fqja1T
U"$Vu)Uug1QdJV,a=RyJV_BUH.mTw3WH_e88_%+NzY0KOAFPB2V3J'$AMa9UI()il
U"]o&,tj>>Y']f2HQ]dQDWbORUK:UKE5rOB_x0UUu9oCEL9Yvb7^'KPzJsQ--\YyA
U"ICyI%OOH4%OH:zI^4yA(OyoC(ydyyKNawyMxw9H+uNwvGl_fD;iYcQ:4y,y(y)N
U",OS&c]UP^5:=Ehhxq_P=8fX>j'r95];S5M)d)B0PPK)zA08zM)z2B0zOQ)NA0Sz
U"N)lQ_;Ey39Ee0*T(_[E6c,jp3i9PX$\i/WI8.=t_5XtO14^tCjKW\]/u69KPkJG
U"9u>N6'(>FSjcx<*4-den/Jhnd-aaduZ8TuWdc&Lf^03+Vi59DJnfs(JOi#RX:pW
U"&:lxkf8LAr%V]onOIn(&&DNQEK+#e]uFY^oGlY</90WhQiY&FDspd5=#u[V[^AV
U"J4o>YObiO^l^Dxk?Wvx8\Y6^^OdrsdT)2ktnP&wDwCoJR>%>&JG>JW/?yy2j\j_
U")WPUi)d-yC6<i#eq?PA-D4AdPq\R-pQ[0xEQk7ig#M,)3j3hv1T26[eZ\QbO/&G
U"AKJ205h84-x+vEA,?3bP6fa*OgqUqS9GB,.6^0uj<YkSLtTC=QG3THQpFu(QWDY
U"WfX.i)a862]_54u#-6l2Cg8I7W^ho,h$Tt9:60b_4pSU*aF>u)U0\0c[M1v'^5$
U"-&Bv+vRi:pT[Mlj2b<6=H=$p&[eE48B1+t6'WUHM?hB2(6I9^?;B]#)R)<8AR&4
U".Q%ibc7#eg+r#0^WvQU?GmImezej-rQ*VV[64MUbtLrLSj]/>9SP;gG8F>AB*\l
U"Go2IQn)Y7-A1\_>gS?Ti%pTr2,8qj->2/h8,X(k9WB<EBc(u+irkV*2cSi4JxEH
U"h5;O<J&Yg#HG_nbZf%o^<,Jgp*;H5_pWF*3nq0[Q1/[dLV)G*Pm^Vr*\E>&Qqr1
U"-:#62/ub,r1-I?;A5M;(eh9l>em%d_,nDCR$0k$Ll_80CbLf-/X3-x&U]f,RQoW
U"j6*vzDClm3wNZhpsWEnC>3Ld?;N['g9j%uWono<^Km$GwyginjWx4)=7ya_&pl\
U"I=HpJ]DJq/6-APtEmqZ#l0PR$JS,,[;u9^1/Eh$&Bwe5C'*e0D[9F[/E3RuW;NX
U"Tm&gZ8Bm*0s^RormMz7,XmT<S^Vw39s<Drms2'+-I\*n&+rBrp3+&B5jcdFrXn.
U"H[3q/1:o]MGSsHuj*QAaJfxu,^8NThh1va6e%qPm:*Jf8xAc^fM*Ir^h,+tv#;g
U"PQj:;fWb/Ae06ps]jLJ'2dL>$8^[hLgp*#u.>OLk'#M=^rLD7x=L/F*Ah$P^m9B
U"pgp-l9-$g2<_L5$QMh:?JV7ga-X/,:-^>QnUJ;gE<K_^;'q,Hh)i=1(D/2,yDlb
U")>.e;J;%k)iE)0fM\G8pg^Q/;#cQHJs4L'?xNwM?h^WB^C/-M03b>1G)hc/uASL
U"7seeVjQ0\/;>T.ePq<O1%H6\_Iq1maVL3rXqt]7oT6<O:s(9D9s^9DI,<gao%?q
U"_Z,X7kfc7t;8D1C;k8d*ST[0#:P^e&/Kc4KrCf_*(rgIrd7PI[&Z0sI?:U^S08P
U"c-0.>;53ebg9j1&7DCiX(*Jq$OviReS=9I5k9$p4lZBQtd'p^3Wu7A^t4r*k^sP
U"_s+L7Fv.R?>Vje54mL].rxmha/RNlo3Y=<o?;*CA&.UNO)^q5udrr:C:_iOn^of
U"W*o'VMGI>qCj6dlox8*KE)kzpt;do%&F4NTEgRF3$)t^gOl0Lb)<[8UpNLM8[Y&
U"]%O>j]h8q6w'BooC-c0'k.W6'(csVKs14s8#)BO%uGa_U=^Vef-1]We%HJ\EIs'
U"=QW%u^3w^sOy[(Ed)m%Z3wr>OM[ET.)A8+A]Y&&A;,^ap+S:M-5R\#&J>kQ])e/
U"Y#nV-lnaXB2>Pr8ZPTFR%e)=r,%ttA:'wdaLPW1pC553:Iy_BkAJ]p8&d>qBjSu
U"AZVf^VxpL'w['Qi:knn[*[Jy7,(\1MpC0C70FD[dyddJZ4B>x+]qjSZT*;x]w#b
U"-2PR4:S0tU07,ph*s<NYmUI-Ei\?bb//7G*9YJeA+j5_WHAgG=pL#;$Xx*[XD:w
U"f5Wf.PFx=XW6.]JgA0hQS=b%4;.oZX)EQu/Ti3'dhU;r;.0^gFO+[S;0Ir#Eh8b
U"^:c_yZAcb-m#0QFXJ.r4RX(,*5/te1z2,'>KRzCB<w'#>uI5E11TS]=yzsH1Bq4
U"$IvMt7yJu2(9;Wx1i(vO$Z>MXII6$Ae1zp24Uh%JYL51jPS=-mf]lO3H5bm21<W
U"5gN;RwrEq(o7lo.u?[&JUAYf1BO^.JcQHf:;?Nhc?]QMLfccCOj$KH/$82re)*U
U";ZD$)uDlJT\;jV=#sI.^DWraDrZRG$JpTEO.5Op/sTU%?ZK$*mXkx?7Cbs1?Bna
U"0#bPFHb7X/ARRd<'dKpe6jWEQs)h4.*Hd6pS3]zu4KPTND]UqR)L9q:wo-nvc:8
U"FZ*BPXa2aM*.i$j5Z/9E.c)(/$.d,umhRJ>su_A3=u-meT;=H;a';dRQvZ\6iqA
U"-j1nZ)jx.s&7Lqy?d1ah;_>NjBG75ND3Fg/3\^?LOQpxwJB2ag2=c.D$ElJH#'#
U"KNOA,:ZHRCO329R1hY.T<zgCgN3WXq5sYnR&i*,1NOtR/E>iKQk)k^QD*6f($XZ
U"DM=D2zNMjn#[7-=$fZ\G/\jJ*Q<2+:atarJrd;nEXE?LqCBT80b2)j&S+)_\er;
U"MqqS[r,9p]aS_2Qj9,)%Q*\upK<=StmuE+qgapGR#970(]=\ki>gSu;#:T?lQ/F
U">cYRE8w\\e9uTAm90w2AUU)Z'<J\4*7\L57)QK(1rye8.AH,-Id+gpJ,L-a8FMN
U"IEJ:2jD%Lksy,DYou#aXae(,m#+$nMYz:L-VmFSJq>ih/Bd64)'Yb0koCUR_3;h
U"a'>9v6b2SJo:;+W<k[;K''*A$TScX**t0qJEbY1SDdVNGI>p2>tVr<RF4E3'$<.
U"Kuk?H(TrGRME&OTCDRh-h/bqtkHc*pH/+SPojjKNgW]DsnQZ02jeG'tH9'8h-yo
U":2#*S+L42:ha%'UYssh+V#rdfY]9Z+U,>*44HA#k4U4*FWUV2Ln$EfPt^$?y7aB
U"+Ege/e8g)o2WZqLEd+8PtY[='g.I7Oa[d_/&j#'XH_g#^mD$b.T7XuQRJ4:\f;v
U"%uQ<*=Qj[z=Z-<s]2eOsmUJ\NZVwh]^H5)0-?8Z_sDsfDnzF$ZW#^avSg&oG2s8
U"<]f*a/D8k+UAM8d17do4=8g7[rAjJ=qv.HolR'S>OV%Xhj]Ko0&LPrK(VF[D/QB
U"(Oq0%dhN'hPbj]DVp)DBE>SlCi,K$-vl.KV?$M)#jK:mRhwn&+HNmJRZUu=>7Nm
U"=-*ejml&j9MeexxNY2Mc#D2bS)>NC(k&<jJ+I>q2Qr&9hMmo\Weq%z_iF+6Jh6)
U"h?As*$sm02rg1;.Fl6FKble$bP,AZWT$Z$b5,;D.O(36a)*qc\D#jR&;BfTYh)U
U",=Q5a<xp1EJ;i(kQJwFrD;zy&J+_;[q3j&\7Ag07C*X/#8Ka+PetG^e^wd=CYa+
U"+s/qQxOUp9CaUx40S?Q0]j6ZT83TTz7WddK/'YR8Y:8F.G/FTLJESGvUFF/Gq7#
U"%cxcqW\tM2wC%Q(cp*fmvkx)i<R&p=4D]mO?1WdNGgZgf]sii%30s?6:jSB3f-&
U"i8+7rFnr4GQmH;fJC0k07FH+T1Y1u\m8YBim;ssfvkCwF1^EVWlW3QkdGDMhmlh
U"13xV-/:4DEE<Yi?wC_T<3Pvsd_e+(0-VQl>[]g:8'bc;Pdg8G'bcPGdg8'KbcPd
U"]g8]_Fc:0F2F0_B10W4.q4.=+0joCOY_g-0\BBm5GGhBzV[T+5o5v*if0]9*])T
U";geADnvK3bCoAGrjarMwG#:&9iTu_:#WP7Z98OsJGDAVC.I0-qZ^0Ph+r_?H>2#
U"le1)BaAf:S:gd^qB1,D^x7H1%M1LR%,SED^r),C<hWHcj:#=kTql[-QYQ/(ePr7
U"llf)/qVQ6wpFOZ8'=W)')WOb9U+7Qm'qfd9^(I?j./+.OXCs.(?-n+QU5/LvZWq
U"R&g+4QH9=%7VL#VtbZkH*8eiRbW5=ylY&+4E=q'IkJ(<iVG^hn'nR6v$#=/??K\
U"cjqTYQKv(/OM=uUcQJmL&/*c/mQ;+.A3xjAL<aKQ\]TqHEp]H[Wbj)C;>ywx2,l
U"a.Et]Ow1J7<qi>qlC%SR08$lzSf0*NXr6xt]lt(f)-eN>dG5%Ez?:Hjrz0$v[vQ
U"Bq>)pjrxwJ2yy<0=VuJ[Ast9f>yU<m>.1QUcO<dU8?*,1&VzINY1JS(RyO_Hx:l
U"fs8+HW:WdrNVi-R&s,N;FH7c^EY%i^.g106o,i>'n5)&<xKdmz(;B#.s+vb86=c
U"bR,+N')b2V_josS>O,8BoX,YvmEkWKF]c,mGNboBNi2-E:OHL$z[Lu)CA7\%=$k
U"TCm$d+Fk/]^*F'2nGzGGGzkcGXzGGz<k]5OPvlykN]d$^q&de5PyeR&Yde5y6eA
U"zo+_(Onn-zljmO[*x9qx=Q7Zx)*VxwOPRT=_DV^EV_qw5E0%EF[8'6*.V(*N07;
U"1Il;LI7Qa6w1<h\#*f8Qd9TF%sfF>T>1u00#=QMMu//2f$tEe547$0T#Kd6DZyi
U"mJA:NL$k[9kncP$d)b&sFjt2'61cHd9rkcd<idbfrf=]-&W:(Tnkjo,w,r[pA*M
U"m_N8EqHl0q&j;r4/_$6hv.:mi[?eXl?(/+)?c0SAUb>X;UYPkXQhUuxuUlaGeBI
U"=.Dk(:vI_)HEF?yS>dn3Cb8O)h/(%07C=+C1xF;IZ/NGIoAz/+Vt$+yG$-8AJIH
U"*)ewI)Yq6:>JlsF;=L5?/(\w&r8&WF;,,eQMsM]*1R;6=N1dC[eQ1-'&'0dn/hC
U".;IPTDoYA471q)*WbJ;+,PnP3pNRJd[1RU8M/SUFY,JEdxj[MDcQT^uH$=lfJAj
U"g2:)2(L'm6\u>(&u;.%d<WKL1kiD2VV2'0FzDYczddtQ*&$)KsRq9T^L*B%PQSn
U"n/)b0<]Zi$'0LU*.+=\?[aHT36kAE4Pv71Sb#h&Ot+v&RN;WRCbx^:Y,]drg4_p
U"RX23pUq5^F;ER'%tn]0wO'uMm[j]X<)n8;3\d$P<3,*T*TqI<\2f/Gcm.ThAWi6
U"Se*<(WPQ<,jea*qI<oDT9iqkEuCJ]1NuJP_+=]+Wa42L)OtWHR*>>U$51PW&h/B
U"M9^mZN+ByjdT?qT?y=u0P\qG=[$56#:VjKIHO3Jipe,Tt*T40q;AWS6W64puiOo
U"gRR0a*?T40Qa\xdQ<4.vQ<G;WT/B=63i(><[.;4_$Pg1T8FUdVM8F80U;h4.&0]
U"U#0/Bw%0H;gK=V05B9tMQJ=#Rq3N%78\I]Jh=jpaIt/\AlNsE+:='2Ql\6C]C_3
U"s>*bh4Jv<s9g(8iamS-QSnu5']I#XxQG9Aa2)oz/S[r:J<2s5NM$:U%GyYmpQvp
U"w3k+INxD#kbPW0ch_7J/XNNX09U7i^A%4tglM;;GLgL/Q&c<DjYP1M[k<ebrp,p
U"9Fq:Al4zCAQo50oxVqms3t2rIEt_QK0ON_AvQk&CeO[USwHT^C%C6/E.Cr^53OV
U"VX-8hV\&H=2)0MwWAT<8'_$+-0-?o8.gpbW8pf'rc96pIHc/g&vWMH-rB9+'X/s
U"EG&CWM^_h(YL_>t9/[%fONNtRDE-kvu*&_j5?78^Lpfd_[52I2%SoUy=Yns]oMl
U"6jVzl'W*9w=/w./Yq<oMKJ<D<p8xU7%-^V\8L4v=G-vV5[)fE5VKb6/)bPe+\n7
U"a^RuaD9Rrq+IHEL4WhkV_Ia23vbB-CR6('(6c(N8Py0w+f_m/)JdPws([XAfdw/
U"3eM_]s8hOji/s']bT[T;:FiPV_EFV6Xi2/1d/i4=XBcGiO7)X\c#N^V4p5k^w=-
U"^:z%GLoc&*AT=lxLNj^nEYj,$u0hW,:X%'^_/y$BWu/)p]C9\D#-1v;U<7xcU(>
U"?K8[1>3*d:s:>fvLD_>g,hE-wMXK8ZhN#3P.=,k&&5Sl5BqFU%t^GCI4HIKu>h/
U"5h]hF#[?.LO:lg;)MnEX_m7TfmAMBSZT=8-djYJd'v$bj'Cztq'2:fJ,LLJxP#L
U"o6TRYaKQLim1a;['qS+C]ib0QOb6Q]9:N*)TQP3(ydQ=3)8>vC3y)(^OPKorA4F
U"h'A$:r8Au94ON[F[.:SL(rTZUD5=XAAr*w:;hrL;+$g0=6f.?Gb/8uMv71'oC>)
U"aXtJlcJkp'[<&'-Qgba_apW:+A;\95yDwA1'%1z+bLw]g[J9Lq1erK2CA[J[9UN
U"'+[K6a9UGS=M<-LPLk%rkJq.A^URVUz-b=U>?rQ?.r/B?kSUJ:L#Y12n[O'4uom
U"fC7ak)BUtkW.L_Mk9q11&EHP[8KW'B#jF[K.WS<\Y+*jbG#fElmtq6.0VMa>(z$
U"uzbFM>2nBW'Cc,mt?e4a6[M[pI]lsBwm#1yRhl>D.2[gk+Jagi\b9b)/e'K.d]5
U"h)lvl[1_g<C?u>>oLH.]jr\&.R6'oR$4=J+6)i[SBy>bn>u;ooKfO<8gz]LM0^j
U"Iq5(=2ko)B9)4\3,XKs%3'?G\\2'/>?slWQ-gZCkYns'G1CT2h46a^Sw7Hrx;hk
U"$LS*wwyC?/t&KqbTdT>04L=*/ilU^E?4sh/IuHE8)5'?'^=w(tlj*ZLmZP#Mq.I
U"DU&RCHVd3U0&c94?I)Ph[&v9FgzJW7$n=0i.<j[?Mf\Ef?X>Coc2l&r:ZV4n')d
U"4N=3LAi$/TbL%F>M*V=>_pq$uxS3gC)rZ=(L3'&a(po=kT:u_.9iCpJ<7MKy$];
U".;xg/j&.SaH1ap.B5sV>h:<TW&zW>421QdCg^)SC5*;i#]P#aJ?GV4i[$>Se^\F
U"^8?P(zs5rg4h'g79BUwNdju]G(RqHp3s_ZiPXL_itu>knkmwN<)_kBN:CQL,5ob
U"T;%IoNd(M_kG6,=>X?PV8O(/nu4#r4[&eLWE/fToGeyPtDemVV,jcoCW4[_xz8e
U"LO>4&7^(4i]Poc$oug_GL(mJw]L=1JkG^RT<BC3cL':7_Z$CjL-EqV\#<l&qH(Y
U"YbMRrrae%O\Mj_4d(c9'Y>:z7';It*l/Y;[L4O.?%mb3emLN(Il>;7?NC2M8C_J
U"RvxK49u0pRy]&9eIM^5DKsz7U\N6<No/T2N).=j7ltD9.H:as[cgO2r*T$ZG#<u
U"=Rz>M^:d<gY3:c<$W:6^qeLAJs%VWZ+CuG_4^**ccikE&HSK>6E-QN#<$b/vVI$
U":?>5&XG8:-z$HM0&1KC.Tr;BCR%.Oj8CI&\K_+/3j?f6R;)V468K>'9p34+[X,a
U"^a_cJ>vjh/m)dL7i0u<v+GTD8#g='/Z0<_x:l;,UI[=MSlh)8x2[gr5]lqVw.?)
U"3>3xWN+dkklNTLhsyOle*coXw7qo:d$ZQ4GzxT#<#-DHw5Lg*[zk;m*$Xsnvi9L
U"Y4bi6[m;WAJ<,ybt<mDiO(RX,n:/7uWB>'uH;0#$[&O<'lEQSW#j,qRyx3HV2ZH
U"#Lq\SV:t?fKf(burI+\:;/30[DdTXwZK=D]9pYw3;H_lgR(?%n>9N%D\;YpJ>um
U"I=*WQdxwpyzIpU&.g4+6AO%YnR0qJm9Q?oK2wvJSO8A46&zd4jdy]t(83Qn+h\Q
U".gpe5\d$VeWvZGpJNi,3l9Xst3Q/?q6D[MUi;5yL<tY'#kffB)^^S0%FrA90'XG
U"9Rmj9Y]:PpheWO9o0N6r7S',]npP6xWqVIGRNUlK'*ik'n98'0GV'X'd=)'sxRJ
U")+jN+6qg?EPrwTpFp88?IX9K2'rk>./H4H'oJA#:&&i^(nbq-fqPGIYwB%43<-2
U"UtS6#RTJv=USKLvGT^dQmc(BA]O6tUWOX\RQnhxQWJX-4o$7#2qV?yU7DjQNG:X
U"[)FL=8)BmyWAE5SvxpeuLB#pD8sYtyX1b9/_eq8?Apc7qEJNta+bsldYJ%4pELi
U"\GZhNX[lX1K'W]^,+ud3axwNj^[eB:[PWv8dY=dmtpRvnI#?dyt.s6(G,shVm84
U"tgdM?8^U#)K92C>V(TsEoteqe)OsOa+J?bm3(HM4e&*60&2>U&?ZaqF\f9:e9v4
U"zjrVpOdJ1cLdZP&7&l&c#2lw3UTwf25tsUE&>R/0h+*rkTfk;j^oSQr7ZZto%Xi
U"-H7<GZgtns=IJX'RuYd-G11Ck'J.4)l*X)(s>QmV'oJdqNKO%'=-248U3a4i4>,
U"YcNps(s>Zfr(;D_>,RG>uYk>?csh%r_fq(3I)DZAIFbD*=D0C6JFNW$\0(lvi/I
U"Zc-GVC-]GP0f'Qu0RxJ54AiOw$RPnL'1,89]>KM:9C6u)&.q&s>&:bW2kpQX>31
U"+/9'Q<z(y?:>N'yQz*C?Z:/+rU$jz:lC_?6O1[X>SSBiJ>,JYfyV%IA8x8fTm:D
U"j?+91U5No_#M<^Ijtdf9KSk7d8)t9&7Vnu(o[;8U*tA7^V(uC&[;8+5tI7VA8uo
U"\#;8,tEQ7VH4uC\Cd<,tY*aa]y90C-H8#]VOs3?,>+fHO3hI%#IN,YRmmzAm%3[
U"o6:.,bz]ra(>:BAQ3UmI3S?/PjDkb^]fL]0/irKR'03#:-Hz.e=(*-;AO51k%PU
U"K+/S$dzE[%7'vGQ154(E[s\'*V<QIye**qkD;PM6L:WA%/PM6:MWA%PCM6:W2A%
U"PMJ6:WAM%Pw31;WYI45s(I=5?/>XGk%bC*qjnhQ\7]Z::6l:ql76b+8r\QNf*;R
U"<3p_P?'hSTjGAAHUb03S**%yR-<BjM4*K;[=708;NP1<nMDD\,1Yg[Ku^liQ=t(
U"A$1X,8>;[N[psTYCFHQTN5S47^+(:K2l;QP4L75Jj+e7(]'B*VW,p&[m>R)kKa;
U"ZkQM)j%H^t:qJTQJqmDPi[i22:UQTlCK6rt]\H>f_]Cr)>8[2[=2\QwFX-kcxK6
U"UUa6w6vrIvsso[%<kvdjaJR0F-ql2k<CADbc,cM_S_?56fW4Pvg.ulYn<qPKFvc
U"/c3sEcNmp]pjInl8;plh+QJBdgC>c^fMax/*U#(IB4gjPaXut7=3?lM^3',pVgW
U"IQQz%<UmjtL%#L%RQYzicUT'(QXJDIbs31oQbj;hH6OqV_[Bl_8^F'eca$xJFyy
U",JO8(okOYi-pK^-'$$RPRhk/Z78OI6Xkuw(N(xE75N%nfr+w2Ziu6TZ)YP'8p5Z
U"?HPgUTq?q/O7-5V$&9^Q?EC*O+w%,.hG?)G['K4,p+E?ot0Lq>U+wZK:qiuaW>0
U";&je,#Am/5#,>?]9-/=39l.Xh%[p?:uq>&9&P3SM/R:syN47.-s2J)VBb%Nw$R9
U"1(,oe-n]&mFj7Ow-w^a+d1_$[,u+P+*JH<xZXj(J3A%TXXF#rpo_+?YTK^%wmFO
U"/2'_2g[4yO_Dj^_TaHFZI;lzdNq_7GV/AlCy-i05q'X\kfcO9MvqjR:8o*nMoqY
U"8oG#H58*Q-A*GkJUmr>G5WV1o3s]lOL,C/mT_^h>=ZLobUKP>Qg=bJlk/L^lJ_Y
U"(gnK5U5^KfHFo7oBDQbpC6Ud:htfB=P.bU53dXikbHQ\1-OH#=[:yH$>WJH;^vm
U"J0xpIn-ilg.GS07VQ:6so*X<)0>5kbP2Q1wss01Ee414oAg*WN(M41zeDd$Eha+
U"5BD6o16b5<KX_14=/g=Q7Q$Gm:<-54)a=nNbXK-RUyE/ZUx((gJ.^u6.B-1->$(
U"tagU''L^99$=0]CS2L+jtLth\QpB4=Q\CGX*cY4^T?LQeYP&mOWXv&Z\BC-L[cH
U"JUuBukdD09WU?$exu4oUq23>fcdK''LisfKle)lfZnkEL/g07[Vp')'?+*_5jpC
U"W4xU91-plmDdFEj&=u.+Im(lDe_w2gRrJ=a-b(p)KQmDF#yylJxnC-JCWsAxM]n
U"Yi;$Eoq#Z<O_u\/Q>[>S>^^i\i;6#qkjL'cr46Q7;UAo^uP#O6FuU9ZPv'8ZSTB
U"*?=W#7u8E8<#.tqIN6$>bQ).AGyWDC>YZ$6goEP8nhduL]fR^EHq.f5Lgu,N]W.
U"nURlZLQ(GhA>F4SDY]83]KVV_iO#g^0Gt++FUf&)Urw2;*rKNsp,dL.D3'W6#ii
U"c61u<2raT$&V)_5/uQQ3C2&3-eOdUE(JmaWz-.BH']\<GlMn$Xud3)1J%C);fA)
U"_[XA&Q;nWGzEvd$[yBETWE^I#jyv&,QMoo>a(B%wNhA7RZw-<KshdK$(C+,[sTz
U"(?B=fuFqZ/1pnMk>^=+/BA)v?_RwAQA<UL7T#KU&VGPARh8<=O\4NA4cQ-D*%\L
U"S19n%(0)_A7g*WWpape4SE%-/&4&ZM7**5t>2Y<x64oB]hEO,;w(DWPPPI9v?^:
U"76&F&M4rBcD;S4,EtFVDX&8b/>RxkT4t4.G]R[[Z>tuS6GG3bq0Fx^OP+uL??o6
U",FvNlwOrtW+0+EZV;#0UB\F/d9T,=-7Roq_9PKW3*+L)4wjix+Vd8YE7^DpPu1%
U"fU[ff)i[Tn6PwK39&cOoZ^[[tn7n;H?2>4I6kea1^7(2N]=Z=R#lF(;k4:dHP[k
END SUB
SUB V3
U"PM[uRTZS.Rme*H#6o-'AYdmBkTYJ;m^\FQ+nh6+1GLxf5-tvt7k;c$na8=+?r^V
U"TgKJvPxLLIC%uOMoRu9UTG82Yt_:[nJO^-*S:HLnv;APMzG)UfNpQL4CXch(>O\
U"162i*3'YFoCdIG)/k0q.Kf)H#JI[S%zIu0a\afs7*-.0nu4mHi9ht9ZW:7h+Ne$
U"(E+B9ZS.fcvg3)2]ZZnHYORQz7T(vGu*8&QbsQ\LQh0f-G[1b]LJJ1#'b]Fx\o%
U"a;L#EmfSS6J.EUWmu*4b,xLoLsawrM,Rp2PGTSF=td[f)bBoWV'rA5sb3yOO<$s
U"110-S8utWAW/-L1'_H-$>*,u#b7.)VF'R?2F\cR.^,Km;r*'V*_grwnZk/V<#2+
U"fI[.>#L+qa1WafjCf_r1YAq0CRYQ5L7.f0MxvL9Q[uqR;#$&'%D$#996NQh\JM=
U"4e(R/1$%y6+=m,g\pAp1&4J;Be]qu4qQi]JB,eIiLB;LT70N\MEKQ<[eZ+/\(5l
U"$7RBTXB#;n1h4$a\?Nm6<Bci6,FhW8)G*P5L$^'x[F;JRw7%WQSj-.je%/[I.a[
U"+Qj4.*e-Et?eASL'#.#-jJT%rFmC.pC,9TAmeFTxEd)Y?GTB_jO9KD2GK*U/Ovu
U"N#UM5*Su\L'Lg5Ru>+H9d_VmUhR'j/cFvzWeYD.)tZ71qNJIXr>+q>/\(MEqWL#
U"VDC&h0etGF;x<,5RPt+$G>hZOPm=T/v5E/I/0[74t(lH5ZYPO8>NsH9s8q^BEra
U"(q[226$gXdo9FT,q6%$ZCD1>9jt#I?+f:q[\3csIVOdJf0hHt?q=M:3QK-l9U]P
U"+6:P)5Wx+Dm9T;8*CxVlZ:5*b,L6e9wHPXaX^;X$#_hAo>4/Usf_**mAKDGA%*?
U"\T1=,TA*.hk$h$;wc3J9Zi7P?V/nLC7F^3IX%gu&8X-lsf%pB5:+12B;I?o/w2J
U"h>pM\qU1qkm2ZIr=z4LiHP6s:gU3#3j9P/14*.$o_743$1z^K4SBEUh''zeCl16
U"/iQHk,b')938*#MESX$VIesO;72+M.xsP<#/*S0Wj&^aJKfsz0NabBHOF)OSq]1
U"a]Ge&\raT\=jSNXa/gJ4)4b^oT\1Z\6MG,MV&/ZnLU:EEjAn;i('3n)/Y.M)ZAM
U"I/Vw$z]]Ia39DCBN\dI&Je.)z*(2:J,<KAkOIkxSLb>DDs_IH_r0-(YASMNcTi_
U"m7':5+/w1d-d_+L)Hc/)5EQU=dCRZOX8p-?i/yef;qBsA+Z92UL1^lmPJ[SqHmx
U"1G9CG[&jqD6C$&RF/T#O7^>E'PP/S.1x0-w<7Rg._(q$)#YA.R[2[e#IJxpdTm^
U"<O/]ai[?f#EJ7)_lp](Xi$'6s(Yfr)\mKSzJGiLR:.tEp5X8QE.tDd3KZHq-.c7
U"+/f*MF7KyG'G.#3rl-6GLKoQ#9Lx(c=$]YT:1G/E-n3tqI8+ej/W95[Ub4%LL2Q
U"&K7^*P^66fe)Qy,m(qkvr\<r(gge5OilmpWV:*)'aA>BARl:e1s;;7^s<e#'pbn
U"$iRCyusy*=4QZ)tlQE_8XBL*l4K)#en,ng;T0F'JoZhY>xIX4RqnUtflwVmu^[e
U"_nQ':?m<dOPe9tA+*w*&nmvb%&'QKWg9#KbM.Qkz'7B^<f7BhwsFAeOQ=iz]Dxx
U"k2LNxoj75A=L(iehZTkEYdmc0Y;E$oWu*0Y'TFjswK/Ci9PJtqS%Xo[$x]ojtCA
U"+%>#FXIxz'5)bk$C%jHIk5TJ(.Yw[^tINTn_f-$I0uca?dXAmG$jQYUGQs+fbw)
U"58oR'K$puDVqaG7d<QFu74(Scw=V6:n_eNXn)$.?eswXvh^NRq:onMfe8R^jBbF
U"FXH#opu)uONCOZ5%xUBqXew7SR/FOj#fG=fI=JOxibJN3Uy$*6D6BYR,RiTfkd?
U"Gqx*J_]\_QPj(?UNW38P>,.S3hi0J+#3$3&=5Y=%4*:zgG/>+J#B^ge6<wVc)NK
U"S:^t=7pmM.YB0QA8:EP(S08>44SKs-vp0S)MUb6%vbB%%S^7u)b;6bhNfr%sBKN
U"%QZ$DZQe6O&;TGP8/ddf)K.Ha>qBU[pR-Hsiq%7blp_-]);KiS[aCSs9F(0Q&7;
U"+u0ca85%uBN7TW6hYncbkuJ/kgn^.:PFNa>.qs)V_2:\*Uq5R2lp=upl>KehdhW
U"j0VZ:6h57y_,U-q.Wt[cmM[0<HBi&5.iAQs]Q2oN40VOLgf4H-lvxN?F0roKNlD
U")y^YR<S^F\_ppg&[*]:WSh8_<Xmx=:<js2g8\;&62mY8R=7(*^7WpNSD0]&v*?8
U"U_<j9Y]7Fzq/TTq5C\7:$&B;VX+da'WvCsy^OgNX()k7VH+;57WoRAzVTE,13eH
U"C_UOJWn07'FK5/ZWu9\qciUNV.yLP7_4YgM/tAR*$Sy=m#wHDJ$(At_OChSn<pT
U"[BI]&QV?G9u9O%H,qnKpZ#A1/<SU/V8_Dr'/4v8=\0X*>/0AQSVs--a#Vn7PQdx
U"*NssfSK\hFnTf'wMM$#a=L_eQfVoRFeu*krl0u*g25W^I/$8Zc8to[>DNG&X(L=
U"%3=SANm4/HL*CI_3ewLF+5ihma%Sg:O]iAe]HLgl76m$GC*sIP'-+n5f6KPUJEJ
U"_d(l+#T]A$6_T+L:OrgW>Pg2xgb0)i7p:O6;K/e4Uw)HwTG6AN\)%7rSG*EfP.I
U"KYUW?eq4)E*h_s*W+pecPfSD.MSQYP4GB\m8F7CY,_LU7)Flb&O5&?T+)ix1eQ_
U"v.)5nxW>_&_XKH:D]t*yj'x&up%()9%%%%-%)kHxJiEj4>%5,%%&)7%%%.%%%%q
U"twi%WSxyOwf&<,>\]3iw-oxtP:[I[bE2[3-hE3R]1Sst>,bDCIhNIeV(yQ6-&zQ
U"A4J^h-E(dw8]BpWupr)9#'jpY%9nb4=R*8AaCuWHnt(sjX^;]#d_COl>%cEfqQx
U"MKCprFd+/4EZg=jov:#<DvG_M*0102,<0OMek&bum<KPFGZB0+aM*p,]FV<(sl*
U"*o2C3&r?g1NW\W_eMLa0Al'45:bB5Ti/6-Fta)AB-=/<K4/Z+<I:84-#)uGVMRP
U"M+9]7nLA_g(7irk.cBjk)eGoq>)SsFnGTAuJj6[KYu6O%Rud%S5jFjk=BjrJNXI
U"R6<&y16L)m;xi;kH;^p]%=B[LFr=*2fwxnD6$W/ow5roC5O2TmmgVj,]DuMFyWM
U"iv$t<)Rh7#B-UdEu2-7JD6:9M'4YkR702xK<;_M.;(WXkD.cop)VtZKAT:_)MIe
U"8y75;UQ#0f0f<;0ISD(ZcOTr&0q4MIAk.qW;y.GsZ)&0GoB-$5gQ$wb-7Yu8x1P
U"I(4eNt5H%OTHWkU3s?5$?R\)nassI5S2#p<bTcY8jCcrF41g*1mlCf#C:E/S(_0
U"0)qfpq&oUjF\]AQE,uld/#.>QIn080lQ2&L==1P;c-0TO?nnT.H_faOX4dIZN&X
U"-tajY/ZS1[vO<0uj>?,*M%FA%-\qH9?Yw#r8HaWpuX9iL>aaWr[2(DXkt+;IN5M
U"nbi[(lg(\tZVw2sZOtI+kqi_i_v(fL]dZcpu.H6AS31;J=68f(T0,P418j>3ax/
U"ETJ<gp/+h1^yobS^-k0%s&*KFFXRK&Mu6EknE#dhzTQRWelAn9v=OeMf8k27xFL
U">I?uW9?feJE</+MJ[t^]lOn^QL1KzG,7n+D>\U$Y=Plb/Ut)JF7o08#saj.k)6N
U"=,6-n,';fbd.QpXVAQnNaCoTj?GH4Nj\G4Gh%goUo'84o:McppiRaQqW1dX#B*/
U">n]3K4i[jclu:;TI\38*-dv:L7xWPigRG%hU0mQ%M><Zt]8r)?nO8X0^S=mt2XZ
U"d68_kX,Vow9ra\i,um15i8<l/QL4m'g?MVTu__'J4$aI$MVwDnUM(8tQ(JOw1_\
U"Tz*a*JjHfHe6bPt/_u/H'Bgia;3')K[A)l>JWkx>vYQs2Cc7PlFb:m#qx0iE8r^
U"]?G>h-^0T[eQ/7HC\\)6Y0l<;^;.y4duV,+PM>/gB2V(C3EOyf,w$T*T$,%]I+/
U":_ln?D/h^7Z(P;cveE,-kKfik4[KESn8ed$RIGDR99)WM&_:2z;5s)QPPx3_'CC
U"G7Y_JGU8W6Qdz?4ba/Vu&lZ6bq91trTbVh;MFj+UdACIaHns_i8ofi2'rZH^jPF
U"\<9b8]ot-34H+bK+nlQQam9te^V+7:d;.8$MIsaCeubxZ3VYUIGm6a,cjiea]l*
U"c2j#,51Qv_F^.4a%9&sasD'2v_zB[6LeAYDETsSM.-VasCKpn57BK5VC?C'OaDS
U"xP\6u''7?eXD\GjB2lB\d3k2VdD)J8)YZj_nrj#$HlZWsxQQQYt<C:'G:FaJhJa
U"RkrvS/#GL<bVF(-ACxQHq_fvK-6gVEL0MoSfjzQ1lNGs[#U-T)jD%(3z];DnJaa
U":27KWq-G^a+7Ft#G95fot.7mcb69Q^VKCrTy<S42,DrQ+)M\UoT2<-oSDWn\L=g
U"dU\eH4hSWZmkjkM^>l]Kl\Ug)D8?&3Ud<RV(.^fu/o<YpJ'-lSoi\-h>#ec5T2m
U"Ei^2vyL&V/#w6Amp[ST#]khGE0Co^$su-b[cYTIJpfh_ieO6;^0cLB]A-nd9\5c
U"'_DUOu>Q%V3O%Y7Nh\3.loAt+?f]aM>ZB4eC;o3qOk4BPA]Wq)ksQ-C7cl*u04R
U"1kulcMo:^^n,Y^uPc7od'*]:d/RnpKe)%59b511VVFRQWejN4K(1c^k^sbr6%4K
U"kpn=>C1*KlE_IdZH2ne81w=*Ly:M0YNFc;Xc]9Ertm9H<4=shBg_,2oSu_'clp)
U"Wj$rLt[s=i5oWEQhNS'v#ZR/:Gt*&OFc24M?uY?/hq*gKNc9kI3Yu2+:dADNl:(
U"%Y*[k/_%8c\oc?)zl6K?HE0c0RJL7:ew#U0C6CH)0tu)kEA\'<kKg/8M>7jeSU#
U"hhCxTIwQwW%IW&d<<ZX4n%?-aiOtkqnCv*?asloKtd+8nR.:iR]B<OQtYgj*,\>
U"H=W1\+k.jN%V*fZY*a\Mut^xo06;YK5WG?HrbOp^'_Fy2x$wkr1H,WgB;mL_KEC
U"DH&44s=SkLS\14a66atrJXMCGQXx,.luzeApVJ?a_ZP9ICq[9a%Hl>0_hA[CACu
U"%,up(%)9%%[%-%R%osJOFi6J^[(%%(%4%%-%%%%v%znyS[HHHf5&D99mf9F[baN
U"eh/,z%O83G35cFK-<#muF#lZ+bb?E-oa*ahIYW]2uVq;+3A\&](lUJq$mYycgi0
U"bMSE,RAJx<0-0skltwGY^&(*)*.GHfpRJp)9<FphhZ8?=>bU7-+I:P^bd*tdpd9
U"j-:Oq+\aet]RgwBo(24QxS[#B4UGL-6s=BJ72eFAI*36QbMXt_lg%RX_<^HnXs<
U":U5_p6VTZ4b'YpdN/#>hZU>:YZi'\)3b>Sy6s26%0:xJ[?o^2#ns6;.tHpHwmTk
U"G,8vD6\ve&mh>e##]RFm_c79Ta%8XE-hD8mOD\J'=\;%G7?%d^YFfjUovdYll8F
U";'S2x2Yc%(15CZepkhlp\J>zq%=(w;bE=2r'V'A8;sIqr.IE(dMyJd:nZaw_3XO
U"ZqjaDV+sH'?NHPT2x_K2^=)5ltTA3I]rk5V*84%Z>)Pup=vVIT[\Q9l0S4?TRC_
U"*W^W'=*RLF?b>,?J0TCRzc^rXs1*>-j5GZgu+sG6\18]:I;l/GkPi_+Y?vv?M<P
U";eWQk?'lcMGm)9$8m'2iI.HqCd\dV)kx%lgYjtM_zeXQ3E>NJzp5NZ[kw[60ed\
U"4A2gSK1W5:Mh+6=*05zb/CfzHf_s].qL5,H_u5vwgYMVGdx;PVcZ,N?7.XsLi$h
U",_S5o=I\ibH:lw%UAuSiw8X28F.i<iACYIQ\GJld>#HcctUdZHHaEG\6f3nkn_S
U":^dz_%z1$'h_)VDF(Af9a<^bU0'E,Xc#5ZKnn4FjlOrbUOw-jpLwoJY#<D1ot^6
U"_n.'6fr2Z?53ZlI;K5z9tUH>^R0uizvi%z2?<9JQ^2PeQpLHV;D_TL^ET/8DnoM
U"=VWFYR,yS^2j&6H1k1$oQ=p>H-sCHNrBe'r[I$Q$]FQ;,mj3ega3etu]6C0/&F%
U"aDu#7K_FiS9._^/7H,q;VI^tC-Z03aY0f(N'(y:F205JtVjA#[nF=ktqoP0s*P3
U"bCs\C0GH8JP58Fo8qDRy?IUa3O%MaY**W.LFm6+sH$h#((%hvAI3#CF:nRFc^>_
U"QhV8cKu$*0sG3ftUfu>pa)jh9_.iBgUzYY^rK)71CrLOmTFHj<F2.<U=J<+H+w^
U"sCcO<2dkkVwti2Pf5Wn?k?($gjHLU_'k\t*8jkoKvTtTxs<1NLD'u'up%()9%%%
U"%-%,$+rJ3,B5&&*&%%&;'%%%,%%%%hqnS%xywz__>t;me1?X,jqBo8KF7eC[X6L
U"[h-S3&3vAx4I?3:h=NSVb$4(^ZTTWCEY<nNk,TvHZf]qwnHxxkXRn'qc#q[nK'T
U"OGp9TmnQVNucg<7PIIW/u[J7X.u97dqP9aBLbIv5\x<IALHBCzzpD+?Zq*%csFg
U"Ic%aa1$SX$K=TnbI$9vc?M_n$s)=<&u)VtjYG5%l6Z0<\EYZmO+IuK4lMtM:NmN
U"c\q5/*t)4]b.^qO3g.E'R<Y%9sA<Y=0/<NB(M;'Kf.;Q,]o#o1:ZYnxoNd/8=gL
U"njcM&vhg=)BDU(c'JQCE;vfcq*7IcGaTK(gg<'<b=&;hKEf.?^ajS/K]';Px5cO
U"p^eKN3\/a1i\sx#r;'M.l\.%2??CnJN,#?7/IwwTHP-eZn_N60dhE:$n-Do$u-L
U"2ZEB8FCKL)t#^O]z_T16+YnMJbi'l(up%()9%%%%-%*t,sJtD0]s'x&%%&c(%%%
U".%%%%qtwi%WSmi1q4br&Z8f5kUhPu,VCfiSWF[43:RWQA3<;4?,c2W^xhSf7y2V
U"bhhlZ8$VyCV'%o3hsKVh#(xd$r.)Qq2#n&QP(Nf1&'H),G&Ph?/B?]frDAuyw$V
U";[DB>hEW3S/SV91iIFg8[gZ(U3$)^6B&Z(ScZq=_9AV)Q7VzEaw9e#3uKG-jjc5
U"9/u-C?'[Xc6VhF\PnZ0Fs20PtaTt:urx92qfiLP2Q/Al74[\$pYOVF&i92p]OrU
U"yw?;BvmR?B=MHBO;YENg0G+3hu([yOrYBQKh?qP$)(Kv\=m(0EBJ2&NJ*VLiB\)
U"3&VJJy9[6_UbKj%xQ3vSwN%1nX%V.K\3t?=Xt6cP8-zM\+x\&abZY<(X?^=UecO
U"s7?oa3QwF*/g3c,(c$e=U?:Fbq_=-XXdwCA>9n9iWIK]9QAM]iZT;wm$F#%f6W8
U"ecUWI2(HMgHh<;qfRe>G5h[MF=KhM5yi1j0hM7n)SoAuJ-hMu=UuAdw\y/#V1Rp
U"k\e96iV=pi$B9a#c//&J*1I?ob1lfrE6rQ6q;Nh]C#j'8(D\8:iIpYxEi;CWKGA
U":fgH#9wsws#G>>EnK*#fEvU>a5.OSeoCssh+<KOXb,RG5k#nOfJ.dbl2Eb%4;EF
U"Jby2Fa,Z^=VEdgKwD(h2RNM&%up()%9%%%.-%\i7sJK&7TUB&7%%(4%%%.%%%%n
U"s%ywtS[HHHfJfr=rde5T6kGDeQG6NH4A$m>^858>pH#8XY=E;=ctRP,B+Fs5^g'
U"GdTT]CO[#Z4Us*:C#q&MAJO;0ydzDDNzeXfwPH*eCCA2(4G,\zKVihl9%WXnPwe
U"jWd9pT4LM5HTk.iSXtLEg=993YIIu]8nt(SKlzM:ar-T7k^GfvXkxYqGq'Zn?ZB
U"iw;z&Z8Aex#93+oL/Lc007l%BQO>U(uSVyzR%ORW>XGL<Kx+-r>J)-S:WpTZ(iG
U"cdF&6o3Aj\ui2Ru[r&kA][-$*WraGDlDsi6+=$]D=zP&esoeP8[T;_rX86&OTsh
U"vYx)PdCPm$:uE$ed=NM_5\9ArcX30$]kY6h[T/qtSg3h,<;h1X>W_8.lf\vgw6g
U"Hr\)1S.ke?V3U(82m6&WNH7Fc.%LHqMkX[c9p'T(6#ND0O>2ap?I7ol?)G<#aJ%
U"q#m4NY,E2YTpUIghmZQ_TEnZB\vJagFMjxCeHnkj35BIbrm?Bl4xhY>f8jnrb8o
U"r[Ct#lQCDgIld*Y^S^qG=L&.Ib;EaE>TXy?BY?vL8z07?x>XrkgyDOncLM&H9pu
U"3_68ie\;t=\v]d%up()%9%%%R-%3q%rJW?<ZC#'7%%(4%%%0%.%%%n%hytw&(SH
U"H4HNfr,=TU5,T65e[?EUtH'QgOa\%3IFSSjO=ST9<__i=/%xL3G(>D[^pp^J<2x
U"?6mS$Gn6/zVQ9V>0cXGkr]csmrH]<p3k0N]x16uJbr?8yXX8$5R7[.eJItJLH.g
U"9HMY$PFvS[C+D'.^.d=bX)7Z[MP1pGWV]rF5mio23MytbU;I.iPF3IbSf/d0hEc
U"APgX=Ad_7UHK$6;$k_K9hNtYCAu%7jOSpNq)6R'cfc'UjUCU_tf^Bjx\%R>_Vm*
U"nAMCrsxIJmacE\QqUb&&\]i^FHNsz/tl(OTb83H6H1*lD^rK;Y?Pd*Wjt6KcQK_
U"?8va7+_pr0rtK;ZnHNl\#Q3r/gRT6C*).r4S0plI3g#KV'nH1k.qEeLd0$NKdWv
U")nHq0ttrDcHwnBB<l9^I.eQWDveLua]\#HquOwV$KwBcQ#<xuTt:6a\%jQh,z9h
U"F-qA0X4X7-KxSiUB,<BK-Qo.,Wc6HX6?bul:0Af3#QF:Bf4<&+sYCfLTOnulZTo
U"_D7T_Vq2]>1kqHS4$*B]aA^$J$G5.ST2I0b>H^JJr;b:gP_MBLU8e\cN#ukFR%-
U"6D][V9p<L>tuk^nKH8(NSCE<dZJl:^Rtr7YfwwBS;CXzEqMs?c0G#X/'^InsDZq
U"5HLxk5bULP/eT$';1(3?2X$QY>(&:E\d,Zdi/WbE]90#/htvIluZ:OQB%(0AHoZ
U"0tC7S=nR'Q/b.=>T9R:k(;/dlaq,B:6>5nH$=]icGP6sN+F6M/F?RIq9XA$%$i;
U"Ma4g4g&n?].bHi1kLCn,O*k.:[7.Y#>*Vls0l<GR,0FCU'[CctpX[7O$p&er#Mk
U"'*c58A2ZwBMW7GwoRTwoqXB,NUED,nP[+r.HdVvi9JYkx6EABb\ih#P&3,1u:a^
U"T6vnX\vF.%up()%9%%%R-%D1.rJ*?*.?['7%%(4%%%0%%%%xh%wjjs%VSHHjHff
U"D+o<e9\U0>am9+U4d/FaFe_,7/#cepfCGSwFCfsv??^,q=^c+)HHU(V8:A,Bt\:
U"Xs_SK^0hGK'c%kzpzU1:)q?OvMR=FeeTTD$4PHCYpS'/ZVlu+N.h*AI(:7Q(#]k
U"?n(r=Afp:jW^aoB+bshc&yRWrlt?lXfxOn*-NAm/_j#o^W^PH<T_cL1Icf&pHO*
U"7rpY3N0<pu]xs;QhInYrR;Bh&cBohr<#Y%VczoI/Dx5G=<_8uR8sHDP):[?g:FR
U"gW1cgclIOdSNndpbf)n\qNyi<eZJr&GU.Dqdh??uhiL_/kb3b4MXk\j4RBoqal,
U"#]eC03NSZHIT7s(7k9,gA,E\$vmVK_br\jDNO2RGt$=zg>;+D:VR$pr)A6DUyB&
U"ay2XKhc$l4u[u.&D=.#J^vSo*BCp,05OiX<Kx(,v[([gwar^<<_JK:ArdRWX,In
U"?Plqonlhc]H]SuS.V_yt\0U3J&7mj73k0w3+EEjymUJ&GqBjKGE8_qC3<mk=ZV1
U"pe*kpwbOVWa*K)hH4O1ao2f'Os+$GV(X#z]<.S2lC#oHR$<7;Dq5leim/f$vv3K
U"<2a82_JlaJ.8EYm:>;8\#wcV6vezs?hC2ac>p_?m*MExXwGvullFz]m.cJx:#Vh
U":jych_j$G68d>q3[SiPGx;(xn3IIOqd]h:$ReXP-PGleR[0/g9T&36c)b+jQkp9
U"^h81ScKr-8w'u%p&'9%%9%%[%-%&)$gG6J>(Dq[&%%(%4%%-%%%%%%%%%%%%E%%
U"%%%%%%%ijf%iSHH%Hup&%'9%9%%%%-4%D1r^J*?.&?['%+%(4%%%0%%%%%%%%%%
U"%E[%%%A%&%%x%hwjj%sWSH%HHup%&'9%%9%%%7-%0j.sJT0,E'F%%%%i%%%%+%%
U"%%%%%%%&%%E%%%%L)%%%vgSn%snup%&'9%%9%%%.-%qc7gGDt(t3D'7%%/)%%%,
U"%%%%%%%%%&%%E%%%&;)%%%rhnS(y'yu%p&'9%%9%%%%-%NAJxJ>4*/A#[+%%=%6
U"%%/%%%%%%%%%&%%E%%+%)+%%%wjf%irjS.st&u%p&'9%%9%%#%-%d%nsJ5lKHT2
U"#;%%p%$%%0%%%%%%%%%&%%E%%+%l1%%%htu&(nsl%Sluq%up&'%9%9%%%%-%)>I
U"xJu9.Wn%vX%%%/M&%%+%%%%%%%%%&%E%7%%NH%%%qW%Sgfx%up&'%9%9%%%%-%)
U"kHxJiEj4>%5,%%&)7%%%.%%%%%%%%%&%E%#%%o&%%%qt%wiWS%xywu%p&'9%%9%
U"%[%-%R%osJOFi6J^[(%%(%4%%-%%%%%%%%%%%%E%%1%P-%%%vzn%ySHH%Hup&%'
U"9%9%%%%-:%$+rOJ,B5(&*&%(%;'%%%,%%%%%%%%%&%E%%%%[&1%%h%qnSx%ywup
U"%&'9%%9%%%R-%t,dsJD0?]sx&.%%c(%%%.%%%%%%%%%&%%E%%%*/2%%%qtwi%WS
U"mi%qup&%'9%9%%%%-(%\is+JK&T+UB&%+%(4%%%.%%%%%%%%%%%E[%%%U&4%%n%
U"sywt%SHHH%up&'%9%9%%%%-%*3qrJRW?ZC'#'%%'(4%%%0%%%%%%%%%%%E%R%%E
U"6.%%%n%hytw&(SHH%Hup&%'9%9%%%%-4%D1r^J*?.&?['%+%(4%%%0%%%%%%%%%
U"%%E[%%%5&9%%x%hwjj%sVSH%HHup%*+%%%%%3%73%x'#%%#<%%%%%
END SUB
V2
V3
CLOSE:IF S=46AND 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
