'===========================================================================
' Subject: FM TRACKER (PLAYER/EDITOR)         Date: 04-08-98 (23:37)       
'  Author: Davey W. Taylor                    Code: QB, QBasic, PDS        
'  Origin: audio.squad@mailbox.swipnet.se   Packet: SOUND.ABC
'===========================================================================
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"FMT.ZIP",4^6:Z&=27951:?STRING$(50,177);
U"%up()%9%%%R-%s1IKIqn70d5HR%%H$%%%0%%%%kr%ywfh%pSgfOxfL*#xHnf]Q$
U"659e4Qm+YIRZ%'yJ51gL(0J,e=_oqIJV<\lv[L/xOY.;ziwexfMQtn[)vX(u-Mb
U"?Q6oBg_AEtSX8juv(1GNBJ%dpIgWvIKA5IgedD'\hLXHp^HJdgbADJJy4)s$Xy\
U"0o[D+p-Ux[\&-d#L0BZu73x:J8\FkChH6JbhoV,lBtgU1=flnCh?FAM>qLDgU\)
U"1mSkf<M6rj#x-RcEDMGUpSH_?1/LFU10ls,9f-hil0(o870\iHq?wHYs6#E#-9S
U"sO\G^9Rw]=US[^D[hW.gm':,V4B'X>m0a6p.kXA#]q6oWdB1jnV0L8L$R(tk^>o
U"ZG7$<F=/6^.gX?pW3sA3wdp>X_7g0w6vG-hx:4ZgdX[#*VW\,=)Xh+PMNMxFJn9
U"PepAIdEnl5>g[AG_D+8tU'lY_1\\t3PfRZ;s>??)bh#vFxSXNac942FC-mLUmMe
U",TpnhBGfm$RH?O;H#,d.cYgE$IZ8Tbm'>EhUQ:q.C*hax\,AA\\hkHP8dj_sRXH
U"VW_OiG&f5Sg;?oqXh?VjGJQrUqRM]4d3HS2_E_/xRa,-hgcG*\Oi&G#u*hC_0iQ
U"q*3jN.4CLWfpb/\RgLrMXo>xUnyAjXj#$5+XEpG[X]]OLmI\l4;($E'6[VajRUL
U"0m#dk>xPGI^uO8Ph03hi/6Y7jYaRlT3^qX[VROMmu$j<qO\.c^rMl_iGhmimiJa
U"2:g?tP$X>bt'tR4)lg4]aD0)7t_-SN1k2>([l]0TS+2:+DdMK3[U05k=^1gi,hB
U"$ea3H]k2#,aX_JfKc;n=:&ZG&bM>Q>=W%qd^n27*YC.hZ(\XGN)l$5kbEMDgFo5
U"jdn0F#0Mf+DN,co&#k(=Iv9,2XQm?Lr_SEA6WC(;bEI8JL#,dLzYV=-uA>.jubs
U"RyHGKoe*t,tn$Gq[DfrXm)tt,pl>c4ZJwEt+MpvY]&BAUI,4=(VHHi&h^J4tc]=
U"c1q#5Waj%sar9,tW5,Ai8F+jsi/^uOdnDHCDSCZ1-ZUy)VNQUt#Zc;vJvI^-Qnc
U"iht%oYTbq-dGG\nuwp#,ptm+Z]E4h1*MiQcjH&YZv=xK'oK84tVeXIsY.2J\;ZS
U"cKv;8.8F#<sK(pi=i]]qo9^3B<gw-n2rJ^VqUB'EER+e#n3Gr<+dxI2ps[wvYja
U"f39WpuJ]5OoRlL:=?LIocV-?]oV$na4V4nlGjulT9Sb$q-Q-#KX9.1^b05iL]h#
U";QGXq3-gJ1jgkMu:_[x,]k\KIJ/roE'YlIdDWkUY7F?psp]Zx;;CvO9=%pV>7,\
U"W11tRv[0Bd(V0_'Mb?RiB[KR&+:s21dbNQX+gmg8%a;z0aaq$K<n%H\qlW7kH1X
U"-ewo^;Tiv*uBTBB^xUhn$auW0B<a:>tEa.2x)2TX;nCXXGBE;rMX,a'=eXSHLeO
U"g/he\n8G^4pb_#WL>GJAA=TsaSZ]DF\q-f-sNv-nk*nUbGOkazM&v$I^T)]Hh,G
U"x9kswiESMfS\$?ttt^m+L9dAbnUAIG%M?1DQ?fAP[\U:d-.mW\M1g$3j#jtV'lY
U"5asO1MULg2*X_O;a4UMKJYR:B5rN<7l9#mUf2IRl_'lKbYTWVd4XB*ld*2t%pfD
U"V#BNebkge5Ht7m*LeK95KF&adk%E'X'O0.',&cS6,6p-ip;;4n3$Fna0>%;>afn
U"42)b1skT%icCV&N,%NBc<XFhpnX%tllsYFW#^W3VQ]H2U5M>X(dgl?:h_S2\LA,
U"a3xUGe^3KGmjZ?Px[_'<Boxo5P^4j#]SHd(6WJKc\?pppnE&o\+s52f554bI(*9
U"x83EVvM.cOSoQTYjY[0:%>hup$2dA^;IA\=KS.7io.yXEhBzMBzA)3\K'n-N[J[
U"LPP(mhec(B;8X<AE+aklSfA*aTO6#yTI743MBg2%&10_zM%A7#0%8%w#N0.hrIE
U"n1&uy3;$N*Ns1XF6kO:$dUpyA],%$>*4dS]OKub*o&1RkVwhLmLc:>[Z2ol2G/S
U"WgSqYsdMRRH4lhR\GlWX_NUd>AvA0-VB'gZ=LsoELOni0%G<dtfmh_-WaP^I*TY
U"KF$UdY)ho,iI_h/w\_Sd4+gWUT3$\w=>Rm_kXqYd4LUEpfKSJt#Z-jMbIX)<s0W
U"zz#B<MF2P]-JLtASbOKtdaI,rJ?1cI0&Dux:SU=EFLs8B$_gl4:EW._QawgFM#O
U"+??5jCwsE#UnvFo$XLE2J'n4QWC$ZH$E)-r.R;#1::pAmk=6X4qdz>S:[$jL[\y
U"^TCN[&SSBkigtD\58=2/+p(dd/?$h=5jgU\'tVt4u0+3J)M/tmOe;#hJ^qA>r4]
U"0IloMA>2_RLE?3*Kwa&.&53+*f(DY9ktTEo8JaKAfVNt4n0AEStAI3bD$>&gb18
U",+./Z#*RVbGMp/'df[MSuGl;clLq2_=-dDUkAN^BgALz_\PZWoTh5e=8]fpW3Wp
U"uMEMp\T&M\kd%;4_=4#G?UY)EsSR8?]dV'#._3\NiD+(chIb8d=)*sf]_?koJ>>
U"-%%W/_PT2O$pw9*js-6VmciI,lp6V4edB:csqI1'Wc\OE-w1wRWMc3Ri0XY/M^]
U"oUCh=Jf5l_EC(E0;*Jv(;uFm%gP'ui3&Em=>w<&PWQI(R:oH6dFH2D-=A%(ira;
U"%ZM_Fi:.GosZnjpsN5R6JEyD%aOzw0/pT?R^B1wN=vIN9I_D(1m+IX,B?u_ew\j
U"-8[zO'moR%%%wn\l1%Ratk[[zlc3NO>'CRepg#pP=qbwh+)DQ3l-,NKVHl1=to:
U"W%'Vz%d2>mC+pRUWLoRd.azHW#;H*S0?xhdnSks0q=I]9r:V_QKchG+-mv?t*nH
U"BMqS&pHnJ%r:6f-sX6dFk\Hl_*ikyp(j1DJV,f9^fM>PTcf&D&i-*[=8cvj])4'
U"i=r.Nl1'G_cN,a<H&6:]9+674T85*\1%qNC40Q9e(_hxV^I3lgj3AMI#-]<BVs6
U"XB^=J;/2ZmdwH6gy_r+:W6At0akmsPkJ&P;2tYeF)9ceo&'[=CMFFuE(=KB;&/T
U"N-Q#OBC&(sPjQDx&1weo:(&y%=sDBd,NI,_&J_s^s+a#'Z:KwIsA2xr2q2%Pd/u
U"8MJAp$Sa:ECu$1\5H<c3'TAkk%_/II^)8C2c&92t81mcpsY=aAdWjCQJjd8wqL?
U"RN(m?A\ko>OHd7lXkSUoSx?dwLm?%t/X5g8)Y;Q5qP$-G$F\khbqPL^=?2aZ-c<
U";e]TZc0$w:'W70**Qav%,d.Z*wQk/ANC'6JZg>ZfF2jkW]>F$'-wcxjdx?Pxwdq
U"O=otH\F2e5q*2Zbz]2o8Mugi,H/4*,'rUS=d]^jIwc%mP0w5q\'lwN.o66]5kcy
U"g_uEQqu>)X2HUG4U?vf54+H5zMB5:Yy1?XrI8XduFCLpRtqA2i\aIqT8+%1Wc(v
U"dO:AyV1k/oNz4FyH_uG)JWzCoDSz2TO=x8;M]rF)Awosh.2x_2)hw^#(=l4QjAV
U"a,=9C&EfGGVHUt.=J':jOJB*N:F)xiS%ZR\84bDTS7H)x9wn,8''q>L3m'kH-Om
U"t$h5ZWR8&q7gg50q*I+wJiDIxv$LJODq+h=%P&a6-kZgVBc+igxIAWf(WXo>g;3
U"\S_$ZAjw<8&/+P-B78xGl28FL9P?[]Svqfn'eYEE'ChxS2j^i8:iZiUFAu:mi?V
U"<*)yu('La75(xi'oF:CO8UwDuh%#ki&Q&%phD48iilg=\U868*ZFG4,JJx)o0$#
U"_iL2XwUw>$&J-#CCAN1a*=PLGle9#O:^7ACxjA%Dx:_KKu*x_w2TC]+:*p%O:\v
U"=,+j:$UZyUf9>v[Vm71RUy+$j)j8o/Hkhw$E$_M&*J4*2(?x=*7_3AZF&E#2I?:
U",dFhr;fR*QwS7p%YQu,Z'Rm(48WN:?w(LT1])5L/;%YRe?xd8[Q2OD:_&]_VL7A
U"WplI%Mo%?bAr5(B)tYf[e=No*+AMv%9g;PGOezFBw%jH'r%(UH2eZ8.ImGA:7N3
U"=o-W1hht#&]4z.GFGBjnhHL9>/HuY2<4lJpV-E^n_*:quyfd1qWo070k(1+=aXy
U"U\6<YQeT$^*ZqRcpXa(u'Z]n78W3>92uq$FZ\;H_?lF1Vz0s%0Gj?Q7?^R0OjzV
U".I2'eM\.p_oi^PFm:nGH;0rcS;/dS(/.epf1CI3[9rb%B3YJhgD_o=1E]_Ke-tl
U",\'mk=kSfQ4K\Gy^'emum7_ZX,*<ciHZigR/_^7kBAZ=nhq;Ja0E)J:Dz%/Z706
U"%3VG(D*M9sn29&rvqNF4(fQq2'0k3EnrPZ%N0&s)d].eky/n$/q<8H.'-,$hPk[
U"WGb=/k4m+yOG;^=cUSTKL3-y[*Tqy8/^?K%F.:s:V-Krm[$qwK*.*DKXF-u$m)L
U"trmP[e,+g'Z_26?=DglH8rRC1wv>Jaib(=c;tjP(lObEj]%+F6kmQb)Mh,LcibK
U"dyRaUHX_9n5xAU$,L+5*EsKFYEbc(KD##;v4-O^SAoDrA?5ja[8Ra&I3[MBh8'm
U"4HA]dKbf9>RVWx('o7YO(bAtLe$Tha17ul2qx<Cp-tk(T8OG<]o(t&GA+9[$Ak:
U"viIXj_Vzd[FraNcM%=^2lmWrFF,Ih(jgNW;:1rVJ0qSG&2ytQlRiA/:[0%Zk'%5
U"1;Xs'C:55Y(r$j/5+u/:%,2&e6Uy5R1NR'(vV\Q+D#<KN<F6Jr0ZZ<jdo>L7UGP
U"f%i-4\Qsh;hT*iC'7*[/NA^:wZ.KLT-DXp<qG-/Ep51m1Y7)0'R4Q;T0D9B==2b
U"Sqcbqkw\h7)WrELkU*;+5KBN.Q2LTJ[.$R9gkVp$h]0U;]'b/;/?cTZXtSGCngm
U"$L&80+DEa-'ta\#Q[AN1WMAhStI_B?*op)gRI01jPt]\w9ffVox-2%IPISqGQ=4
U"-c4U1Bf'gRQ9Aw;E1%E&tDpK+AQ9tcEuA9f%0kl]rp^h*(w8WHn.*l%)&3,SQYg
U"h6(&FG#_-pNT6L/kU-WM)=I]DLV6qQX8K6di?XN4rG1RzDZQ?p[V*V2sSH:s'7F
U"I;2l7RggLOhQEMW+3),X5Nw#wNmvIlY?VI,0qS17(1)osqmgYR_ax^rq1vMU>2)
U"4hR%qC%*t[YL5rcJcXA:GLb1P[/ly2?AH4>iMew0Z/0-ef8I4JJ$wkvbstio*)n
U"-7/TQNoC>_l.Md_e+rG6E7nGn;nEKkTLIMOPBUTk*S%$KBWLFP1s21%;]$)r.#&
U"7cW#cOAdKPH+U4kipb2ua#v94&19XXo2#LjYuzr3A(-CN7f]-VYn#njNjiZQpno
U"XFYDpG0n/:M(K$<rCMB&TCN4SO3W:w5J9>48.-g:XEbRS#mf2P*SFbEALffHoNd
U"Fif<mheSHl[CbWcMdM6l$ML\%h]Gm9(6_GPlrBeiXK_o^S,[dV#D)I*.6p2bk*Z
U"^D)>[Jsdlqdch5NMDl?tV4$mHV4hgj<CAVZD4pyy/2O#W-vKQ5ibey\dYR$Z_QC
U"gp-=9SNCcx79amU$C1e0ts,C>bCUcFbIN+lww?AnEBUPPX9q>qLOVEV+8T5)7]j
U"[R#;5JOAqld>go8ZVDT0?aKV6_JZV7PT?ah-\hi)w1o9;W=VwJ[nM5*<Q-.,a/c
U"1o8S0:Ys((oVW^48d&maTo.dPFj]N#8KKaF$Z1\E'B[s%5G5h9E&q?zd[ZNDMXN
U"<:)V<I,$#8G*mEw0j3h]?S&?7FwQG&YfpF7AIy(Y*rAadK:DB'-?3]coPe6>#,>
U":tw'c0e'c?)eSJRE>.zP5)mdoh%31EA$xl,4^]yx*B&;3W'6;a)tWv0JX.Rz>k[
U"Ap#ER5,6KQunB8a;,.X9,7MX-jBKB?px1W=tjtTsa.Jxkw[Mj8u)mPee3fDF44A
U"6YmUC7XEc^W'G/JSq4q4l>QF9tE,ZqimhL1'#xN8k2rSlCb^B_GJnFT(xh8)Q8Q
U"8WjKc/S_?EZ?a&g8Ca)oQ$J7C3e2Wm<0k(h^-XY)->IHe5Wh\Dbn?a?DGWT)FXb
U">&u<pd.Z=C\v3k15n\M.KBUYhn(V#SCzl6FRVl*#^EdZqlUZjEfn*(KdgGVClB3
U"2PceEbyBml%]P^^]GVrbuI9<S7fW5rcRunEt,HC'oHGTl=q:mBfH?g&YOb4l=Z)
U"+'X[AQC,yR3ckZ<WC,aIV4i(7+?EdV\7$u&[$R:Y$coO6V=^<2DktD+JP'g3_Tt
U"gIY,m'$;#KW<HI%hG.A$_b#4.(^>PI,:lz4wgmtLl/'aElK_zoJzKYCvuse[B&U
U"P,:,39$I:./8&e-^.54Vu%e3i2q$X_DmVsfTu7tAu#F]Ij9HN0]]U+Fgq%Yb+gU
U"BjKDvJ2E.n3b7'eaR:=,Bbhjy373)-O*(2eu,'#6tM5(GY=u=>Q-Y_c7y27FZpv
U"#Q-Wroq%l5;_,09\t68R.WJ(kY0N[c)ShI-AhXs=44s:n]PGreRpxeF9;RC;,Mp
U"\GDK.<Ms+KddN$A#VnN7+d+oj.Wepvy%c_+Fng;DO<.dk\1I7Zqj&p=uIa#V8/-
U"N%S4BT]aJ-_thrdD](RrR%'o=8NYWGi^Dop;B4-?gKSWq(uen#oh]0V#1CzGy2#
U"P[PIJR_J]ICH7(YSaw/IcI[-r9NL;:u3T%qt>srspJJtEb7Nc$DMHWX%4Mv]';2
U"3obs9Xv&(MMS9<$gsm+G>xM+x+GaAaUa=+9vKVK.c.P:Yx(7Xw8LGITz/F8X'Xr
U"ocy*X2q>w9\kWbu4>Xo.jqsl,9lF1s9TjOp&]s)A\mwK87<]5G]Qr+1T3pZ?LeG
U"C'my4Sk[LpudfZQp[CgW?B.i7T1%]m<E&Z\m6;p[l#Cgt\;^I[jECL3YBGE[YW1
U"a3/Ygz1\$Mf.A5/j>6h]Kin(CR\j89.9^qaN]EXqQ'=FVxjY]myNn,U4?PWoQ0p
U";R(2O0*sX+n'jm$fN9,ETJQKpE<-P+$FYrD49kL]Fuq_cu-.l59&Wa]F1Q>4.Jp
U"DIoFMcFSUICO8R(h5xU<\gD0jsmz+b?F0Yqua3D\R9&YFPL;9*k:ydb%/)BMtx+
U"0VZRl0n)Wo>:cEGADpdtSsk)4%;#x(kUD=O+=bqGIY154H[iee,hlHc?8?EXQGf
U"3(#^FNv.xW[A6Hhs\$[F_C2b4yYN>jEsaLDaL4rf&BcuBYRq6mvB4YQ6C]xvKL0
U"U4A84_'f#6DT3U/Dlm(a\_^w5&17VaUhk<7Y*UFf$c\U'B)7<\?WmeNcj)*mUPN
U"AcM_DCA*G<jm]i7B6KkW*W8FBM_x[binbX:Kf5*uJs#]\P&T'^5NJ&v\#=Dm4/n
U"J\:g_J'C$BrQij#A&edOJ>dH]fIH]TETa-a]vh9q2]t^3<o7*%bTL$Bf2kDQ]om
U"-hSVs'$I<p;GIKqju+B4goMa5>0ND6KmytY_/z-/OeIbe.Og(jdM0Se*mtCD]L$
U"*K17S9;#?A*IJS(]'Qn'o_Nf3T;CS,'I%t3pLj:kb+g#eIXeC^u4AR,.]B=/#qE
U"IZRSF\ucPiU>tUmEj*j;g]5/cd1eElT'1e<ZD806[kR%?.=V?NQ6bJFWmy+7nrW
U"J2F6s%Mj&msQXa0uCYc1]T3Hn?m.J*jY1r;'-sw/bV6c7bJ1J[IB&f;[)I%c0E_
U"?2g/rZ/O,:9A#OUSqc3%9hcH+q8NHI\U828K&>;'i/t?%NhHuYYs+nTQi1CE,0y
U"?Bl[Q(Kr0I5;'0uJC*9ZEY\??;e2cq*U'Z-G;i+k*Ilj&J+eirT6;H%q.EsgUBm
U"CQ$4nmRCS%3ZLLdq4V&Z/Lb'-sir-p5nFtA',Ihb%&TDav\=H=nNKkp+T^.V#r^
U"BcV?,zloNIvyTq'*8^;W?=VzWuzlA*.)u&e<%;0s81/>4_>'>AkpZILs+ay$JEB
U"h.UsE[)vtwgG?AITYWeNH&zihhA[m>4lnFzlkUAGBqJ[oQp*S57eG#3U'Ymb-YG
U"brFt?$Q)$NVpkrULk$;RJh[6SvZkH,Ncz_nQJ=Vtt62C7[G'emI.AdQ/ut>sR3E
U"Y=aE+ZU*PQ&Pq=U/,m016RazI(9ge%Xk6$Bg4LYvnNjwr;n;v0KZue8c1nTxNmn
U"dOB#jepNAn;hLEN)qM-[MrdJ;L5F>\SA10u-adR0Lml\bG?cTe)GW[DSq2[1/J0
U"lGekZY-)g1BmtEZhm^>_HLt^:-8\JCd?R2u0BGWUoEqFR<-Mc^0K-%DXY::.)7Z
U"lnCdE2*0,iEmJV0BZ0[i(V-h$3tl,O[f2m*]T%6jl$+F*H+/,B9T6vm\HORU^K(
U"31hR0Z5g)ge#w0fWc\eG-(VD0nJ\0QpWI>4+)B'3d(0MIt/Q:6oO-a\:av=EGrW
U"enpC8k&$D19*n+RXWs-rc.T.q#x8CybO[AY8(sA1Vd<ql9$Ol(2=(Et?BBqX/H+
U")\/_b9E;z[[G]AW/3FX?n=%LZ:jjE5o<9%Wwkn(ABM7gr7?plGLG'iO^hhz+wJT
U",-Q,UXB0KGk:dJ-CC0P<XrburwwhfG(NQxk[(C?bHuPeOQ(51<P;vyR[DrEkMW+
U"K-m]38ntNjep+N'w4/?f>;[FL=en=[.FYw_[SBJ34qO<cqMdre;t>oA&gYW+O9u
U"$QqnKQ[<5eQq%9<y%O+jQJTj>+mPE$8RK8PibxrgHUO0.T\8fZ#L-Z>M.HVe-;B
U"g\:V063H]\mjoLt=k<D=/kHlAhvl-Kh%=08GT2qr0g2*OKU0sb-[jjJ$,a2=E%H
U"t&jhVWoq[=/pcpW)oEx:RoKe.K#:0wVeEbDBtdZwv\K^z$a?0iR:Ti=WvS7nXtq
U"xrGY>x;wSLLi^>u$d4LeXXAbp\]Id4?iz^Ik8>IR8]Z'B81E*KH:Y5M:q:hK%*<
U"BPw(tysiL%NMMIJ2oII+)e9CZi(i%Kr5[;(]'=A;_,vkM^jRa,j9v2H3Q%B,OQt
U"IPYhPs+.>U%WG*e*CVObLPzj;-,jReO*.knBAJ89406;qw9OEV^n(:I&6&U=tiP
U"4ig+A-nE)z.<LDd[Xjs\OU>8zDDd]V:N*_bLOq-WnQTqF:)Yvmc7[-+IoKv-;Eq
U"KejaBjBSY3DJnL1NMMGV5q;n_9/SZVXY*]#Ey4E4qFYD,P,YI<]h5o.S^sR2VHm
U"qy%srw$$T&H?=ZZdq^c,=Qe8aftKP<V0$goe[>W%J?)P9jbvhAJQz+AJf2<i_1=
U"9bfJ-^oE.<tGQew9(<aBPfFaH6E5vQSOX75<me#[=aQcaLd?>jKWps(V);l[z';
U"=2iWPlGEgq%/L&)B;yuO5Sj\^AAK%-K?GqzRc:[C<^Rkr7bMc48gcJccheX-EuA
U"IBWt*hm\Z.eu$1^0*wrU3m=:Q>yK-MnJV>Tr?y?S;]I8\[wxSq-?$un&h[sebc4
U"iB2\(aVUr9XRYs'pNA^&hla&(fxofaf(U*%^;^%p521DB_+814VAXrkCF-mA(:V
U"hlH*.dR=[jP8fWM?t-l*0#jmhs>GK(kGiodb?.>:8B'4U$\$&XHJ'Q1bsId*irA
U"^$J>Moi=pV#lq=5M^^L4\mP$d9+RW5aKfpt[iCOFBF0hx%)%Ng'9B0hx]OyJa-C
U"Ny.Pi.]ioNMu4Pd5ON02w?ji8+X35qimCDh6>KMif>*FI34RHrVb8>&r*)a7q,:
U"ffRucV4=3cJdXVD0KtvsHA7mw?<8QK_MT:D^j1('ox96[O<R*%F>$R%5e$T[h[x
U"'q)U5qF%:x^_(O&MlWe37MEwQ,\KS+9.KEu&b_TaWKP>t0X[lK*wTRH<uj$:u9:
U"410V[0>yQS,&4I^ZcKuD8u75]xizAD1r[o(U(#](4Wv*\Pcu*TiB('#zs(.Gk&n
U"Z*4Gcq2Zt8r+O$)B'5Wnr9+v54Y3HO=1/+iF'GqRLnrPB:t?9Fv2bG6Ha<Iar'%
U"Svu,A1kF.GsD>_0VfIhkoOBKIM<TREx86[Q45SKJi3:;tlQ[7Oo>5/v0DWQcLmI
U"&intsPwjy0d(JBpE5a,%*7)3>%:)fX4u]bD0UOfxSioEXcUNzG+';<^\7uDM5zj
U"0X%VY(wNN-kyX1OW*i53Fja0p<(l8<GVOb?zFs>(2Hg]Jv*GMe\B60*#?kEN]\M
U"dJ]fBe_sd=M2l]W,vA^ESU1m\z&P\g$Ga\Y3O1uE&X>z)4I49Tw;h#)8lkq>sC-
U"<O=0f(?sp3Im8kSPb'?EGoefo%Wcpu1=-fdIm]=wZ[$]pk9tl%o(+_ow6rg$QD?
U"dKls4bP>9uz]caqpl:jhSf>a=p)BFxRe(ixEj:>Hd[gdJ,:wXB,Aw3'd.62i(Xw
U"P2dgMT&0tH>LRtiic.Y=f+ott*%y$s%HyNmC/vep*-Sgj9YvRz/Qmp>pxo(+FmA
U"+p&9LmYc7i?BCG#G?P;4o+oWNn1pOaYoGE_ks$VRTXY+<WWcwl?s32d,8g>5w0$
U"?0H,7S2Dq3\=*n>+o&h]8>hOkkp[Z71o7MnJH9$c:Z%79x)5:q)K9'el+acD08_
U"wdNlVtu&:)P8>6/Fn[$BCM]%#7S^2uK[RCSG=2V4BU_>[v?pmHS[NP]Y4.*:8Bs
U"?5da9*xW2K0Jv0rE\EIj>pp55SlF)AdeBr&bNuk*Dni0$8_mGN7Xm)>a/21tRv;
U"fBd(*mG0qn,3<L#SC7*NYXgGqj4/Wh+N5JWXy2xaUxqxTt<5vH_go<pEF8i;O.o
U">bpic0xL3XO\G0SZuCt&5Ja%>bUACfJ$*8pp*..v;B*e>61l&ZXh_$,%PYT]3'u
U";NIx9(X1?j?wl]H3Qvjko-)j.:79QRJl/ACG(/dLx[tl80Q]>OdbU4ESSwDNxLx
U"0ov,>)0Ek&O-oXTZu%x/7M0hQi^;b9>XU%8H)X0>;YraxF(>+22ox_D)T%d30G8
U"0ss2<tfL/0is&SX8QgYLER,j1tlDofaW36:o-:hcYxAEm1SeVjY?]dVJEcN8,a^
U"Lx142#pRrg;kJQDCExeBnm2Kq/pnidf-mj-AN]H6adMnv\Vxg0_y5qM0eAj[krK
U",wQS2qbJ':wUpWj<^hiDv&Y;5n#D6y7>h8VvQ$Cx-,q%<<Kca[cACiqMB00:;DC
U"s=C4cR*^s>&$&TNTHbVB7i0_5AVbHT;k+,8KuNeprpi&]+mQK4qh\ig;zg6'6b3
U"/NNqQ:b:&AuSZ+G-\QhK'<.rouUIeQ)oo+KA+GZ):SRPZYg>24B5zRwK+emR*#t
U"Q(<nu)57Pi7cEJs$(9AA%QV6S*hZQIG1yDi9M10(E<A%(NRU8&rSSr*m6Mes&SW
U"79l06qL6DWjz/$u_L'ZIcxx;v('Z[1\%#LP6kYdi)5-^.O6xZQMxM)P3&,0^%Db
U"^9:SFED\q%C)A;<x,%ECR[NgJ0GQk?g9Ir7_F99QZLS50RVC>PbSCw&os:7W(yB
U"NV2h/c^$DCd5k^mz>reUO;-)HeFmWX4=E7gNg1/('^?S)Lc8ReL+z^56uv?:HBv
U"k)4*u>7tr?xYljM/Ia:[0*c^&y5j]zd7_\F*Lu:-zeCV0l=XP5;uLH<dRY:L;H/
U"S%,HXtLy2h1aUX48lT5QctnIlfG58')g%nQd*Z2TtHfQ\W(MbpeN^?$K\7>?TCE
U"KrFHris>NqYRb98jA&a;O22zf^a'T\crDTdU]\F%GJIbb?N>(ymY<x8E#5F'IwE
U"&0$u$]w2QKD<A?$^oaIGgPZqZP6)n?hJ,G+GDt1+;l/>(;kO;;&z.jq#ICsuzen
U"mp\Q1L[1'<6K-1n.6kx%'up(%)9%%%%-%)CaXH64>w9X%8%%v%q%%0%%%%n%jin
U"y%twSg7fxFa*RA#^kahYIctG#EV$;Ku?M%[N,)O)zgQ)[ZepFx/96Blu[Gp7<%w
U"vr;b4B#tFzl&Ju=w=g*#CQW/#yq3M)V223R<y/'A#eGS$%QEhl-:]?+jRVX#x7m
U".TheTh;>x[ZGR9h_CV(O0ohN?>Es4kLZ/L)fGhN]b.+axTSR+H>?*QrUH#bV6VY
U"EBug)uEc8QN+*7Ft&AP=T)u*u(W$kK\.$w3clrtZnC^tWV7_)Kp(Q:K0_$'&P]O
U"?VB5C4xWF2eZj8d2v3Xf['Lm?<w$T#NIY65ehfeR>07;fqOv+KcDVP58Vw/la-u
U"Z-uG<5;>E3(VvFOEtjeFhu$t$lj\T*T8*AKB_\UHo\#]>+6ZN/&DtbTvFSd+zuB
U"<&8'6*t(lh?6&%V#tkcV:lo\eZirBQ4hruU+/00Ufj&m.ENgBo&S+<'>uEiE*[,
U"<*z.'(E83%mYcZku0R$L=:Pp0qMF_psXw$QY*kh.66^9<mM_6jHoON6U\02#TaR
U"<Ht?BO0>;'2U&N[4<uDvvvlUo%0>2S[(XP*BXL$/aS:UG)-6R>1BWE-^iG[D4[U
U"]5MT3\7lcVj-F>[x5$<[60I;b_6cbXy00q.CD?z4oT*(6plSdJ28kAYy2g/:a80
U"Kc&vs8_j2e\K1$7\l7)e\-1\V#c2&[QHeH;vU[nf??s;_$;Hz;n:;GjlYF;dZ]%
U"-%I.cBSa.a'#LRvP%AnUOVYlG4mH\w&T_QP7%WcVrpC9Hs)(+%:4fR^h$3]=*P)
U"5F[xy[U]s'B_P%,]F<&\q^/=NlsoE*X1vA_d1_l:W1cY[+E5i7ogR5Rsa1E6T$j
U"pO+O2#]EpO%]tQP0?4swM,-]-Y:_wIDJY[E+1=<D>22JbJTlq762d\1Hb=[#w2C
U")GF0[nke)5*Qf(C//)bimIoE/IhvZe#^\LoZ=e1&Vh4^lGu:F'LSz?:rUV/PY:I
U"y&Zbh_X=Ox&'KF4=ZO<*ZiVJJd+x0b^D0\w$]Rz^Y[JHS(\T(m4kOBdH(_L;SQ6
U"b&Nbhm'(AA7y2V_PI3o[(sG8RpnOXdv>;5Lf#?=v2\RhfBNRRq5vnixqnxNuvN2
END SUB
SUB V2
U"*eCCsu(QVuPKB87s78*86,QV<K^YpNm=zxYux*OFHfna+iHKRQdX-\P5zIj,fYU
U"&YW,iHdoA2guud>&HS%xh)F#g>Sm_pxp'.DqD?QFs__kBbv_4bBw+vSXc%lNj#6
U"boKS\oNBxegi]K8Z[KBZ'<TDQA'PK0MP-S\>P16rb&/mggnC;kfL<t+xhFsToLI
U"dIbN5WbfLBruP70kS278kogLhGA6PsK[?7h]9xM)aGZwJZg[F-XhnlJLW(uTW[p
U"k)tbF<nuW#nwj(V66);+wrGnoyA)uJA8*rO;?wKw#:B[ZgD?Y)]B'HYVMRivZqk
U"o(Qrr8\ruz/ggmbcol#t<TIG>=S76'j>1'$qZ4A5$d:[6EkQpNTn/B>_>D,d^#k
U"'/B0c349]$52/&=1SD=4z.jc[[5JV&sO,UiAYC)?>_A2i^SrR+=Isv-ADrYTLZu
U"S]jjX<O9X$6X%+9_0&&,Ae]1K);R846>wGGZ.+<HO<M*^*OU6+2#393i>G8(TJ5
U"eGw2TY]xeB?8OM'0Hk^Gz,#O5+))%fx%i-Y)HM*h8I31iI9VeQ6lfR3C9%?5N%j
U"MFJ>W74BVG[_'GG\1)>07;*kwC7%tNsdu[A5,<DXKvsKe-r5[l=3>e?1[+NBruG
U"0-M^;3>wga(9UhVIA(r9*kwPC$\#ULFaij0'MqC/E<p=]APv\H#Y94F=a6Oa0ij
U"0Y[qC/<Jp=]P)#OBt,#Z],eYpv8mkAr)j,6&YD't-thI_\kISBt5.jM]gh#a+%p
U"-tWA1kp+QN,R#DmQ:hpbJK+kDPAG,W%)TOUh(J=&86Al'Z]ncVs2Oz(#?MDW=Xb
U"34NrUb9x3^8^4c<bHKIkh(]c<BR+;:#g9]b][h+'-[wK3^1x\F_QDO2CE]TMlhG
U"okAd%g\+&?ML_faQQ\[MALB\V1$MdM0VkAxL$-V(XP%c[.8%EAGjd*+?MPF_?RQ
U"'\MALHB$Eu[w;3^Gbi1%[j$^NtT?jg5/#+h7K3ZiJ#urY2E\y0XJr=k[hK3^\2J
U"YKcLHmRSJ90lprl<:7+ACNTgAms2t?kI+DcA?C#?MnE+pvht2bBgEL'QIIp?g['
U"gob2]Mo(&M)8oE(O7Z2*-k+/E,b+Dba+7(LwztPh)8onIw?wl(/)n(dR#o*iGq5
U"ecG*\vR/ekP7[Gnv\\2]-L6:XwcAK8pN9nUIH[?<\Lk+]W]$%8k[w27D$b[X7-B
U"E*%sz)4*%%Wx_W.lh1#W.mw%uV5ng$hudSyaQh9L?4$*r/l%^o$?[sj^+ZLrTOU
U",s/5yNn?XL,/9A=rCwA'DcyYhI8\7,$Z_j)i4+5YWS0bJHPP4Na62X?UUq$nnHe
U"-eX3wcMV$ioU0<xE[2gCJ7aKpJ#8UHnWNA<1x$+V:'b'RS5kv)_v.ONzlesvHEY
U"Wxw<UC5TfAg)_m&\KKKKBWQ'jVrFwTkF5ip,fxHsRZm?4q^3HoV2nd<+FNGNf$g
U"'uBn6(r7'BjDq$$mL10zqTXBrf%PQXXVcAFSCH0<f)/e5)PbYn/rHW26'*PDduA
U"8h=^?SjBKot1Jp.a5v_=JLX;<JZs7vQ7/<;oJ?%n-1.mNErsE=yB2$B??W'b*si
U"HtnnZ9dP9fH=PLlRsA[g4h9qx+evG[Oc1y4X#7lQ3k*%N-I?Lr*U&PtT%m\.go2
U"x?bzJy)DZqmD:$IJo#,_S:lJ)qRNG=6-[-BCCV[4jrX;;Y)>^#rnl0h]QLC*LL/
U"Gz/lODQMSV^T)cm*=Z(Ssl/9)$zwp9\HN4b3?%xEIWPU9(b3Gb?Ai+IFfSUe/wI
U"L9TBIn5%&TU?D)#O;4B::50;SpCVl=5BFsQqOq/%Xi?v9:5a]:L0r?ws(1dUS&v
U"X['45.ym4W'sU)uws18dU'kofrqK75j(V2aK:N;K\aKnUoqO]L:[[$1EK\Ik/2Y
U"-c=u.i\RC?7YKK&VJQ*l-K.1y(LU?VT/Xsed6]]+sY/LsI;jD12wS#^<.XdIHGO
U"F)ka(YItc$SLc<tn74PkQvsyMp_Lfbfw'EC_[SczEK51?Tr,vZN9101OfqRk*T&
U"BBmv;#uK(E[BN:Q_\qbf&Y$O6LT<5?jZu)%xh_=5=;BU#64kxc<%U<O6b'Eu^&Q
U"2oh,e?bjrj/6kgKB5#a_HO$_G3QIjsw.H>EI]\3NP1+bL5F;T-W4kto\)Y\)NML
U"[4wJDncTPeF:<5y-jo*,96$%XAd57nx3&Tw^pmpZha(+OxS?1)xcN#:=tk5Yl3O
U".:rt;6BKIOJdOtqD3HWdDiuw^\36nQ.Luxx.OoeL1x87OA\m;$E%L'd[(ojBEk3
U"O%&xN3U2XoqMgxJqG)aDsoYl&i?e5TYa.yyd:P)+yqi)?)_VAb3yIgpxzINak%7
U"rnc/UTt'puiSB3g(Tf%c,.z?Ig;)vE&awv]&WoKEM5nx2zgz5-U2N#>]C;VgIE6
U"WH;I7Z\b4O^XgTu^?UtM;_vZ2:c0sM7dZ$T(9l77GJKgBWa>1Mo.bY&^%or4SrH
U"2^oVATpQD*C)XffV)&DvLM2Ol%mk6'Ah68Q4(bVF_$ckFkG_7pSMeu(#Y#Hv3up
U"o#*fh.=yrf;7j3lJ-f5QJmUm4s[?Ar7MXCafG$<.,UMzy:9qbv&__uk?=&9h&'b
U"7PUgvrmF]MHrX1:b_psXXB_CW/2Gn48oXGI)Z_KfY]TZMuR:pr];=RV+aY[&D32
U"D12\uS3M[O/Ac'MXY]VO_\BH%X:G>[;ILc&'46Xb=BUoU6(\aTjN=fK_+da&$,^
U"E7*--'gq8kv+o>y?Ms1yB5(?_[ET:T0GM.q]0hX*;0P8#EPN*#T0&vT*t]Ag-S9
U"wj&r:i5mTZn,R(IjKR71HBq\G9v0NQvVgExWBoluiKAieY=0H*lj<Qs$pAX40wM
U"e0[;v(D_YmPNQ5E^IrA4)O]SDGV3v'E,\IYbTRA.qk]sFhrlvvF($nVqLil,b.a
U"afjQ$xJaC&onbTlen)TyyX+zJt#(LS-1^;GI$C$AL68r&mgfR\j[g%C*%DLr921
U"Y=#i3a0Z,7<jOv'%(682bjEHeEC2H+76s<hca'.OoeOT1k94HYdfQX1.\s/Uw_%
U")0e-SkIw*OsE,1+yamkaFjso^eu]=f]+a;ss9UsGHue]=f9]a;s+sUs3r.blLKe
U"y%ErKX:5=fl9+MF&Rg;.4Z1i<cn:3,qG_sd[bu^Ymz&8voc>aaf/3MD+rwQ]TZ<
U"k*LIwqWvlLYGO.mLOdfxl$a6jD;7bNZ=Lr8Ra4-m89,Q=PIHoWi2=p?dtHx6B.s
U"vijb6Q*CiY<W/<G:Lno/iiZ37T_(OQ156n?>Snf]>(13soCeA((e8:j0CVa#7u,
U"wPGnDKI].E+d>(OaB^[J2^%So#9aoA%Yvy5GWkN]>aFe+k,S62SIIL?Ku*qIv?+
U"(T/(F=>t:NOp7]]KOwrqe[G#P&[NP0*H']5<P7o6bd[Y2.In#i4$Ts2F41w'#?j
U"pVk-&mNZX^,5d*5megIDeBm[rgD<qaMx&H-YxsIuIk6GbI,\Ms&M]g9YSl.y785
U"W;:czsz;\>e(ovnD%HMi9BmfH_^aLZ%bWX>(JP5^=(2T4o7%'2l*+,%^zY,.Dq4
U"\YE/,N)R,[9xNN/bI1aAa_E5)>6,nBJItD'3UGc760EB):fs)G)#QBOZ?fgNHmh
U",sAm[?h6JUpN2vKBNcY]%Sb48umOoXLg$l=a[gVC0enYVE+S):XHD/QiEJ%DI,g
U",-,:]W1Zk(&78I+O6_wb^3\4<dDhbwAHpb*J:tA$N>:Xbv]4stQ;BYh]Gth\4L#
U"W5dB+2iEAi7#^p1>+*f%0n<u,BbRUi+k;(WDD3c4^#$lSpeJ>l=j'6(6Y#o'>pt
U"_CQu]D^[QpfR87Gic72G<i\\*&>g+\q5&X55*o<C2-<Zy%toehib5KWt+EhvF>\
U"M?UN<*3eN$emu9_bmo)Z+aMLj..jXaJtuttTj[iG:A\oq9Fmgo_^37jFJ.2I9^T
U"^T,O:94M]of/#p/c0bQX\ogq=Si1p$=nkV2Xz>6rD:=j64:gH.^X>7SzP9Xb:6K
U")o5,%$4.1nB?E5^q6quBTEqiH&JQXw7A2j\G(z5X+/X\HX]3d&D$7Lp+PwHoq/)
U"cq7M,14XNDuGxGi&V5>m:&y_#q3g-U#t;.-dp3.0+;B\K2;XF'_TfnZJ3MW>C3-
U"RwWT*+>8t%P2v-n$)O:C=(5ZbmMAL&Uul'O2=vw=F9nZG;Ib6wG3(t9&tiv(PY1
U"amsJ_FLQudbAR(409je4wGWDh1G%y*T4ClV&z)tuuE:Gt'7BhosE1[v\w&E$QT[
U"J:lq]Uw&<:2GDpuC-_nnXH,=*mf&[oSSn$^EOX/-#J,KZlhqIrA?#^ejMaP0OC3
U"h[nodY5fnb>LO)O2+TJq-Qo7+oer*7VEdo15#rVljMv1g#WkTPXK1/-?l)CBESo
U"H=SUey9]cAn^wJ$aJ=56+R5.j'z+MI9]&uf2=/d]\OK-LIiq)zkKLH6_,6;^+py
U"OwJH6G1[4w8WQ?(r<'ZH%7LrGi7E,k2t3A^H.v6rDPG6>+NdaeFvbKd5x?0QccN
U"+\PgC/y=6iH$iV_UQo*13WAK6Lr_sor,1t0QHBWdxM3qS\LT&nP$Af$Fl&(OWvF
U"Li^]gg\M=[jF^&n-tu+F,wET6q8_e4qtD=H5[.VNC?'0[BqY)IxI-M20Hz+$X9,
U"-YokJq9wuf:aNU7&5t42/FeGL1.#i;oo>])0['==Z\U),<_Qso#YZ^E.K'GnA?>
U"xVJ:1)P+H6Sz472q8baE5f1NfEoJZ-owhfq7#wa]Jq#0dU+)5?l%AU[%#cpzH+n
U"s^njYqro7r)&=Y\cj<V)M5SOTNxTnYaN;*u/'>ChsMSpgQ:It,2,?]*\%yU>#'$
U"OgJ0fH&VEvg/E[]k6Sv85O^H/YDU'&-S7l2>$-$#pQ))A3J.[RhggnheElg\Ehj
U"NDsxDG^[WiT02p5ra<\=PxkZh-hx*Z0eMDHxCjU.(G_d>QACQ?+2i\2ZZZQ.9PU
U"w<9.86(qUHKCuTXX6=99)%iq)O]Yvz.oD<xZFB'^IW+'2iZH9HsL'cqIQBw$,2;
U"G#6cd7Jf:Pa\o-wax[nQM*+Cn[\I-1CK4F<v=d5X-X#Hwq;;Ry3HGXr.=pHo&)'
U"lO(<:hQb0=pyS*-Sj-69##(TT&LENK?IDNroqiAx%*up(%)9%%[%-%tCsRHR[q>
U",Z[%%%I%'%%0%%%%k%rywf%hpSkIsyDa=V'<E(1U>On'O*7:R&a&+G*ibIf3_bD
U"Stlw/cb9X'm5bjNn5]_f*(Q[C%Xrjmt/+j_^2#w^/G&l/M0%:8zHOKSR>L0a=?^
U"G\sa+%STzCK;MTaFJfV3Z[I4VgRAPxPUFI&xuOtqfZ^Xc.UzxlD^/3ChGFglx_3
U"?FQRSgiw3kme&;Mi#a\n'o:+_HMCl&fK-DAHY-(<,gaENn\A$6gutHPEU)GFI(H
U":D$7lQ+3.'igeWZ0gg]DTlcUif4eFLU[<t^HuZW+5.ANc*?#)dqvmGL,ax(u%p(
U")9%%%%-I%Y:\=Hls/'5=)%(%r*%%%1%%%%nsx%yify%fSkr%nzxf%qAz=3w6e*=
U")34H3/)<x1;xmyO;6H?oX1<gZ-,leWp5*wnXS[BYC<+_e7wD91y[\6H&*,bF?MK
U"\g,b9ZT[f%_A?VV9&:YkJaFS#<'c[Yr5YXjRpnlDpu80XxuwhtWiTpQhCy9xbQL
U"#.wFqNYaXx^CGVHA56Y_r%6N%+H$TAnpGlU,XsPs\ds-;Z78m[VD[b1IH_+_/l)
U"lmrW<V,b^Y4sJeKil]?e8jqCaI8jTkDJ33Y%wFhrjA1T+RIrTDYt[T=*J0C\R*?
U"M)Dc3C7HR'RLbuIz$))Hl9+:3q],mf(le;Y'U]l*XBd?RgE#J?9]d0uwaY342aH
U"\<fBj1R-G<FBZ2'2JD[S8mQ9%nr;6T-<16aV^fn^Pc3I]BXDd1H;S^O;l]e<1_%
U"I/,K<&SN6;n<DBCF#:E8Y.9O*ypu0Ylf1H<#n:G/1$Bd1[FG#9p&xwF'GVlM+H.
U"_vs+IRV[JS#ae5/7dLa^]lJNBuKQ[EjIb0:XCjC]?0,dTLL=Yf<hr_-s8a'$:tF
U"YG7f0+)If-X5]lQJal72>WGo*gTgghkr27t3]f/7*XW(>^6A<olaQwDPdG3AjLs
U"wr>TZxo:rr71tv3ae#IoYMairtONM2XXlcpPAm=\:Drm)jCYx44WumE72b/Z:<L
U"G9.mm^sPde)2<v+<70S>fpXl#)sLl'87b=eqbCnfUKu._yARUfu(4TAl=vNA=7L
U"7p?v&3EA0\lTWlNhuHH[)$X.27qhJphSHq4z)t\sTlN?W[X8NN,=^MnU5THUF'1
U"(0,tQZR6u18'gNoO=+szWgIr9HxnAt,%LG#CS-Kotaeua(Ik0FR2d=+0'5Nf;VZ
U"<cSAuocvec8ITN#QVie'QX1ny],os#>Ir:e6C0mI/9nvd4/]6tNVZ8ih5OJadr5
U"Id3h3(^+;PZbn<=mBkYNzL>mTGB>^bRTWGKubK'J][19Qfs;iG?BL8&%QUt<VSZ
U"r8sX.3#ZULixf8Er_VZ<+L9=tsf?G_:_8PsasnsQZ67*$vTx?qcW(N_7HH15Cbz
U"4]:rKJ8iw_8Vy;W#Sq_/y0gRPI<H,qFkgRY>(vu2</xd^8&)[[w_xX.N*J##F5T
U"uu#)v6FlNdMjU/Tapv2&jIUWHS8x5COFTezh:Hf[[rx^V8,bl[0bcab-OgYE1-*
U"A-0TyhAT1Z4oqgwE/?O*#Z2=9iN0MffHX(iMI[H9WuJo8l]TuFC*0=VqkerZ\ry
U":#Ls/f:XX-rP3/T,rsL3jl]Pti_,bBkh'6,oTBU8m#3i#?XnG?e6Csc.t,;%[cT
U"&Y))re)Vxs7UB*4(j06Zd?'$;HWO?n^YIo%Dup(%)9%%#%-%wD<fHAV?U$M[N%%
U"9&p%%0%%%%k%rywf%hpSnmrlfV[2ex$T2]i;*6::mseP'QtHP+4jq;'xPfWLcte
U"f'ErVDu^'Wdy*.n$?&&*&:;<89S_#.hFW(oQzm&O--?/2(]ruDa#Q_O<3/Zdwo=
U"hp;C/8CxccZeUO^qBn$v+]$bL^&$Gf'3cgc.sG_DuHl7hPHHJQLsvbUMU;hhgw*
U"*8BNOz&>./RS>)&\j%jnVVK*_,agsfuLQ^aC%klGtLWrD3-Pl'.v34+3>?FB%s(
U"sALLo2WLCoLw&B^neIL&_JXRO[?nbc_Gqn;&f$I.LzvJh&*ZC0&;*vr_4bkuIaR
U"JGZ\hrtrwWWiWpp/rg=0XNXL(Aq\./o>nFbB$+\pOT,<Ly3VhrwOwp(jf8\BaPA
U"k_3Zc7a96lpnB:RF2xcv\V'Z,B'MLxDN+lT>H/WWH^6H$2SihA;x'UFb&*\6#o/
U"irBy4bD^<VZwWwpH,3YfFS,r6u4UVT;n)][Y(u3kZw1-A5,GwSN&.fHrO%gC?-s
U"#Tao'[QZg/SyYZ%^h%^jVKbZGy':p9LJQpcaVnAQ/Q(IjS3gc/2puRJDi1ht4;r
U"b1&3p]&xIN>9&F)5]r<70ti<t(V3Qh9*H(ttAV_mDtD%q]\,1rUrN'f,j%QiQl2
U"jt6_->Ph%rrZ\66rc66<LKKQ%z[$ZZ#&3oss3GS.gdwwiNBSB#:lCB8DiESVCZL
U"KU#q#8**\xnnNlBB<B6BwsI0Qw3Wsz#>RZ[[C2J1w22=R**jZ**OgMgkgg(GlSk
U"nvX>>cSKwD^r#jlhCxxB6/]sGCx+s9aWUZrrVrgcMpgHuW]s-ksYTRwPZ\6tPpg
U"#fl.Te\(sYnpY\Djf9pK>IQp4V;G8^[zu&4&TY,f/)u%\v\eu]bDc[CnGInXtt$
U"?sK>MgUyJezX<OJ3p5;?cRWF*8zRnm<\cgZh/3zgxZAKXW#4V6s&=pg7'f4XR/J
U"9'8R^X8<C5UHLq5K6hJ##%aXLnj<L<**.4;:]>Kn)aR#Gnp3\3vPa4Jw\waLO_3
U"\V^Q==\Elp/t^B1xXVMAYU+k=0tAhyZ$u$VrSqb#DlZ2F_hH=z4sXqBIZPR58di
U"#<Hna'gDaGYCh>c%c=xd-'tl47:&Uv/hiS-kyh+:?pVG:D9o:X0I/Ua0rD\U6]^
U"y-%GGGZ)O$56,0LVGRG9i,)YxRn3N2Q&Tij+J.6W798=0lyswderVbLjF.vlo07
U"Fu/i?kFA6C>xaXD;YI*kCe#r80BtDV$)XFS0LF.D&S5q.DJq=#AqK\2YY1#RgC]
U"j^Y.AJoA;fh-dh;x(mwUjC<Xjy#3fMYd%kY5lC\$mox/bA8AXUTspu/P</*5[,M
U"eJllA(.#'v-w9c2OOZj[6-.\hcnot25ZK7x95knlZvK*3:A6BCP8.,t[,iBYecq
U"%=.t_0mH^W4]R'rsT$*IhSUfu+$U8w%?^Jr*]E06.1+L9;rZ[GtA7bnEe0J3Oj5
U"r^l[+;db+k^A$#k&C.Jm*PNSP/UfBiI6a1AzYB:5fT5[^69]4<JxYI;]qt=Or_'
U"?t<F1IcaMD$A<P^iI7]P)Y/KE1hw$h6X_iGN=R$lS1e>(0MRZSBuFcjnZ2Vdj9>
U"uAg645XiIAUlaa75.Hd=EiK_cCeuM-DMpY;_C^jTwsjPK[2O^i;^l.0UY<2?Q$k
U"/hG8zmO<]i?yrmv.;=:CW?0KwaeymQJneTxMF00QIkrdb1V<KJwRM?aa9R*PAeH
U"D6ou7\yOy$,n+v%rMzqm>A>D.1mJ:bNWWc*WI([ZA_8tVAC=Z]Ai?l.OD6RU.Q4
U"6D:UQhqNi;2\>gW9wam]H>jOX52=<F0kYZICBd=_D^$8nm'Om#O>Bb:Mx-#nEO+
U"Pj(gRKiX(i&00H;RE(?1Rdj5ES<V3S2YVq1wcnrK3<im(v1DRk]Q6E8VW+Bi:zx
U"bM2MLS$)UJ[NetoIcm9,<QLlZ5(#1gybr>)>oexgl5;OZRLisInS#k(raj$uJjz
U"Kw'l'%y?1#LLy\c=kE&92lMSJC%HGq<betVJJ5_3h5b\9N0,MZPo&lJITIj#kbR
U"^2tH_gr3cI?K7.6.qiShttP#eMyzzyDyFzpRGFebCP(XfOcTO$hRl.x$kvdvEh.
U"3UN]lBD;tBnh2eVQs)vm%?'5C(&=Ya#'k-dUF%vVQ]sRWm%NfWu*c=oxGjjf-Br
U"N\j_^0XLSmzzfS3.z1<k+\LRA_c$1&;[&HMdLXwYNtE66gqs^lb,nv6]fRao8]=
U"Qg<f5xUdW^m$edCkIerEMX%n5:p\'k,F0k\[i>SU:)*/Zu-KIcjiRzjBU%hk$2i
U"t4p3bW+jl>3Y5MYYY,_7'z&jy+RwFdfVl5h_mWn?+8:lTF5lpLZxfY/NfF=)j>T
U"5')?&>^Y6pu81u8Hwld&WP3&KpMIZ;I*VmQNu0G/);2ffjf746):_wTDof0'*wH
U"\C*;3jf&D<S1a,(cj^gZ;mn_3^Ou&DDDn*(xO-^&hg#e90hZ:8>l4D:^4Nbq]3]
U"'P[h#Wi4QaD5em(U[Q3CkRw[6wWt[6U^W3>5&-iL&n0Bs&]X;JT+>rqFB:s0a=G
U"1#c<Q[\]?#Lo<(]ShOMf5kmaTJ,2:VhB-co=.z2IJO.(qONNGQ-F:QzogAX+q:,
U"$#-&z_nFsX:r%]iB6q%t$D^GL8m01\R[Teqc2W#:BXa;CVdp,.ro:uUs(]4$h8l
U"4eizVI),JQu<D,,o6EdC?H#s*qv7<sX'h;7tv,#t__DQc3IU\#%\)<=#_[9=uUI
U"\VTaBTkK8f>7XQECN57q:;uPc(&.\-K??9b[^D_qw7olEnOOv5+WT(g9d[eM0[;
U"o5)kBqoW4hSRFKh&$OC0I>.x9*)r\nAlK8#KJJLmfdjru]]HVAha-+Ou8xxBpST
U";1/Onj98ECw4u1E],5:g-im*/i,=/eJn*\]$A>QQ?sg[^$j<_*6j#P=G-H0k[g(
U"F%oQs;dT8(P,(:+0_KOwmjEKg&.n1/^uCB0pn(>dkNz.m-WEE1]-Ena_?xFOpKp
U"[6Vb:L-0u'TBeiZ4k8s$lw\Bp:jM^xtnvm$?h5,?TSfi*Z3mx5&*s3Th.hlVM7'
U"nnQ8/#G1FX7PN]n0<LfM00pc+%n/=M?*+/lRSTh+(Fl\?\r]OM4it(++Pt)+,l-
U",,'+e4[6S;I1c^+96sjY^Q&)Vdq=y%zQ2fU5z1yJbz#.knKlA)\P+whgIg3tO^v
U"-G7i$R>M0Xv?^4hplGHLcoG$hukKcHAH+Y<f<'?o)mL1:^M(e;ZsL89Kkwq4(s,
U"8e;nmfhS,KD+pP076LLf0?02C3c<baiu-A0hfM-:CQpMr4t4?I\JP>L)Y\mRaoS
U"KtkW-_66Lf:W7gvl5Kc4]goq5(0Q?G=FD:OX9%%c^.8ZPgqa$;oM(VtR04AF*X?
U"C*NuoM>?86;u5LXYTYLc,.<1>>(I[AO+N3F84^Y%Pq?&GCORQMmGDjUn>u49iIH
U"CnVURh#5?3L*'%Vxeh,_Z,o)OHYTA(C]3;i_>+4,I&\uMg,2/^r<mP.V*q+u((h
U"/0T_XBKczWIMt7fg9q.LLJeR*eIm1&$7_KfEBfnOzY8<Rv4./nw+Hsr?^3t4$8l
U"--m-Qw>kkox\okpXf#Mqk.+D]R>L-cKCWIU>+mQ^0364:%^iRd_AJ57^9=BbZfF
U"]Kx-no4&vk#bV+:cw_hrAT#\^=2_$4ud#++W5TR2L+R-hTBvK>kY]ZI5sW<I?st
U"HecAfCFjb9*oYX[[[MSS[[)[1UqIQR4QmolKRM((Xnja-S;jc,WA,=l>.KI#Rn&
U"J1HOS9V7wmpv-xQ1v]XP7XfXt.N$h]2\mt)^m=W=5EG?2B56:mkj&0m3W8(kpXp
U".]'=(m^OjRra%.^xcIQFe4dkp&0U1(]XA-%+6gF)^4MeSq7tuM#q0G0VDEU)[Pa
U"lm,XhS6c;cp47_fPBY1JsNa%bbB6SfR4z%9-.E=-+:1LiN6426vo==3jCf?r??;
U"fdT,;#;bhyFEn$0cqKbpu&1lGGJgq-EcJ8[C+fSDs7%:eueZ*%>dd*KgbQnW%w%
U"j1nlhOCQ%u;wWXKaO.\1J0lO'Vj^1;TEEC)D'c7KJh67bT^VSx,>r7RSBYG**6i
U"HkHxutXxK[pTbtBext$D-2-z%;WTb[bccW>=0<J(=59<ArE%=lS35F<PhYS?idh
U"y*rxEznI&5i-,HU&tK:>9[\VV*uq'qw^pfkwcH8s5?2[lPO+8_KKHbxd)>1)x3h
U"D$#MR(e/ZMS;m,gY+pL4lVPHGQ#2'Qu-<I;=t'Ca.PC(2)/\C;=CUY0Esw#h#\N
U"C2iqZfPUe.\Ku]_UYlV^;WWr5DWF0pA*9pRudva2T$ehh)6Ue4[wTBf&eQV#HF_
U"J/2GFIgskj+t(6?L'4g*2:XX<)QUFM+pt5a'iJ\*ROL\#81.g4H-VcfWK#8TK+*
U"'m.UbJ\r5=tqY?Su4ibG-InesMQpI-\UqUm5=M\8spm=f2j=cs(<s:[eE-<*_wM
U"[NkZk5TllrgEWqj#/#eFXe\d0u<HBHb9p1a2R2bvC]?tEpOeH;c:mgFiI5%fXd>
U"mQg$P$o?.FIty9s:*.(IE&^;9c9,%+V;tFu:.IkHZ\ib#Z2Mkl1CbRrCJ>_-qFH
U".1MB)Pyr94W[Ta$22g&C]sj57]>H80cU+-j$[1dkV$^UKfldbqNLn-GNZT*>66n
U"6dOh5v.m&cI\/Gy?n[6&Q7^DJ6AQ9&C^\S3,B0egvAlNNK/,UH?+*MP#]J,D]I<
U"Yii*8P4]kIkK'+)OG(dS3^5DGP_M+&/CWjr_VR#tW;G^El(P#iW>IB$0GVaZV+a
U"uQ11^KPS1Lgf?d$15Kr^5sT8uCmPdrBNl_Jq[C6)9rk[[tp&?DGDlj[<5)<A5,z
U"1gp-QB&Pitwn;,WPZg-mn239o66fm5&2laH$LGatY,J#8(O'mseA7Up>5x13aNg
U"H3j>8M49)hXgNlT(.yZH_b6DkRR'6j[UE.Zm7Ixr9<\W%k#v.w$kfdxQr^f.PMn
U"dnuxurJ1<\)c#nG>'_[OM1SXIYiK'Z,H,,5\;YRf[Xj8P11&7Ue1<YR?*[dlkG5
U"n8?&OcH07()XBn%fmg9i]S?\/\\'3L/'06Zmrj2f6/?cT[JBFuD[>l[Z0a$lH8<
U"JuhxbsU4KY>tN4g3M&.L4SKAq-+1^he%qeJ(AxE9##<BuROEr/_/A+%w#N<4I5z
U"Kt)7c.r+I+k7kpdFgu62lvFEGndFJP*z..?8AELGPKR<rPEJO((4MUUl4,93ip7
U"D#w.LL,C($%6U;J3<vW;A0lnD//:aT[is]O3dwxaWlvDNj(7&#u#Xp7iiK':=J^
U"^Ij&0;R_\OMQZnn(FkD&*#C)FNH2W<o8)4kG:p2vDbPCCFk&db=Hn+4khpY3Wr?
U"LvvE(mA5T>38li(4m*f#*Tq?/.Q:mf%pf]6g=oAd;[+;\y2+*'bhe[$_c&Roqcm
U"9>MMuN7+[)0iYVX$rcY$w:-MA<'W4%p+oCn'hYM,MI4_a2i]n+#-a$if_6WDk/#
U"eG+]c21m/oDuEBif'md(c[LH$G.T:qahaCR?>_8FZ=4SUcs/2_]MS3bHvgO&Z%_
U"6g_w%J*=/S+HMTgD'qc(cs:UEOzbSHNL6>L_HAccn&sv/QeW\OY*0&$-vOBHjFi
U"0qJkgyX_I;PWp]Hk]F%?-Mh]kU;db,XPiHQsYB20)_<il<97*e1A4^HRz1]s55H
U"u?MoLCA$-$[G7v2Q[;q#)I$cO]wC7=XiCx,PE4KY0A=89gX(q3g6U'FcG0grr<<
U"sif)Fq7U(%gE9rl$cH#)NASs^c/JL0TV?O?87?igy*xxxgj3+uh9U^EwIEHd]h&
U"+_rJ$=28,VNo<CC_qc$v3igdL'-FWC*un;gNa,1xN.r1nKMwo8GA8DVH'=ag9bM
END SUB
SUB V3
U"-(dU+%*)b-O'#Q:%^jbJ<vK7xSvs:M//duF9$$>(C>($GG]kfL%45f'g-gvjTca
U"h'YQ:Z0Tue9/dutj4%MK-Bu#Qii&g_AA?IZI%Us>&_'STJV50B3*n+ykFDV^dK6
U"xv^aP)CZGfL[W'-<M5&A^wdnSi4:kc%$ul&pDFa+ju++'s*bkQA+aCXJ$*2PUOA
U"/7I==;]lYnTp6%<a%\]qG)WMY>(N/5^$b2&>NIPOM[d'3HW9^0Nk?Q\sNVd7i:)
U"_sbZuiv^aakMPT<9UE'qUreS(4;v1+s%S%ZDpdXDZ<Z&P&Yy]ZB*8IxA_3aFFda
U",A948teNv9q8)#:%EX?3*K1;We\bU\*q0^28VB<&c88:;?hiHE<x'tLWtL;c75d
U"B-++u55NumG1rD240A>jc%l6AFm_7Gds9bx+t.sdn5%I*FsST0Kb*mb6Fg6rlo=
U"%BQ&MI:OtF#p#%'VvG%D+QEA=w8O>3ip.efBdgw5RuZ43RN2B9i\D.0XH^cHsa8
U"sX2U3DHh/SeSJxrxswJ>L3HvYxN%]d7^44):3L[^&G1I3k*]350C=Ce4juir46W
U"uuD\Q%GZr)nj.?/GM4_U8Qxq%pX#l<r0xc:+4D?p*#E%&V(f45u]e5S&-?4[57I
U"1^WH<6G(zpcB<x7tE1JWds&L]2R+ka&D?X3E+c1KX+aIV&sRJjH,:fQ'Nh%*E76
U"PxOEnrQ&7=u%9vXac+mt,.bW\<i%H*A+P_qLbS%Tc<6x?mbYJog4NrVPO67)KcY
U"jF_:IidnkbL'k/Pl>aCmF4TT0jh9Lb=Am887HW,1Ur,Wao?S[;Ear^PJY:QOEip
U"nmNbI,o]^i*#dXa+'ry'q%*LapVB_Oz^VT&;qU%gP#_Hd;O&J>\D_OFO*_>Vdmq
U"dYTW76H]Z6Qta9U$;8C5akZ.,u\%9Nmh-p&^QqK?Srh_3+$2;W^#pNBVHWh.aMV
U"-ookOS7idCVX[6(N)uP5A0tlV+N7HEhtO_jOQqhmSYtao3JRWEk4G<>VE__2kzY
U"v4<CT[3+dEMzD%$'-'<7U14EqlE0n0MIZv7*VBi6dO[$Wnb.7Djr?G-?UR&4RfG
U"h0B;]$&X/<olf79U_Q-,IfoY.[gM?dxu.SNfDIlYkHdAAHaC&>OrfY#+OJJLl/f
U"$L-DsvDFCMQ+B=40/e[[X'oH.=_/JEd&'4g%W.QXq)M^udGwWBJ&:*c?aF2l2k;
U"/R=$(#78FkX6xML(K(/(>ancTektneW1*[4k'fZfTEa(9NYcr7'+TgJ17U6VQG5
U"ITppp\HKbvc]BOBf4+MW[Z75'2b+oI/DI5m%BB>K]Y(t[)f1\oFNb>?EDm-Mi'C
U"rJUAGCgM:f5'-7-(FbOQ((%H*q&'\vuU5Kj*LbGrc??u/Nw(dTtQM-aBkX4;?b:
U"2.4_=3/#p3?G8DKqF*J2(KK>Rg?hVI2ls[krTs6ojwrW3[GBhIhhJhJ#05uiMg#
U"pgv>IsfLpkGrm[<K0GSJ+^UHWKXbaP4Qh+vCam#EZ1_w.kT34'LAa4CD;PnR328
U"ggP*R,.X'_H.M9h'$N/Oi?.0dn[Tu7q&hG0sB&cK(;nToBWFOiI:&Bn=c$%t+aM
U"bS5*e:?Y\#^?s+k=nS8WJ88Qe0T#]ALVeekqw6JI;OMF>]jrr4mFZLTDtyarp<A
U"/-Jz(#O71%\p_t]St%V.P;p/j]X%s$aBRNxeM2B=m6BA77AG\w>^,-=F1%ne+-&
U"<E-K>Ku\.\sN)7m<l8pQ6gV^8RDbaQ7*RC=CtoBXc;]7;fxGcX#^,#4S1>8'r3[
U"Zsv7[q3+UU_SxsmbK/n44Y?#1tPp'%ydRNx(N(zrON)xLvfjmbVZ5&Jk3g,1WP=
U"n1%?fURvd?43YfNv9-ghi0*\IaQx6eo2BGE1[%oRxu?9U)E_SBo'hg2.5AT#O1a
U"&FF95FwI)V]Ir5HRHDqDDFfDNJc1-oZlQ*r=;rov.c:l?P_iddCBkIibiiwSL0=
U"=JqHR]'eZLMTcE>1L2++.PbdP68&AX&)W8Al$Z_[qupwrrgo?wBg+j8Sw,hj>C&
U"[zw/.yQeTF.iPT95XS&7R6T$b2'.CX\VWih:M:b-#35qK9OaO+9iSa2_=Qj(UFJ
U"c(4I5duhwgjLLmoMj$)Kp[B^gKKH\(^6D[/xR>4=qI<YiiMiijjC\pyR3tMB(41
U"eYJ604+WWh4>+T8#S^=LccsMkwzzIXpDgqRaR7R*CD_q[FPV8L\QB<oILJ?Bg<?
U"[*WT23?Sc_I9dGI)QZKB([KNSa]52pgw[YW4qq7'Nkl/e;P3r?_(N*PuH5h>Np\
U"^^cxuLXTvSi<aFbl+V^C6pMxvs.AWD-e&dZDQh:=up8inYRjGAq7SP,Uu^vv)Ti
U"[UVT;ijZ\*Yt&oc#3_3q[?ff[-<YHqA,&oiU%<ES+4vS_(S/+U)_%S.&f+Zl-cz
U"HS[88n>MpBLk#8fmaCTUv_/n\%,mC4oB-q:c:1-71rQ+O%6qjMgN5,&F;OTeld)
U".o[q&9pRmpLj\dww-'s9;pO-uqQYC'asS[/g;KO:5:=O*7&NlsLnwciBL8E6J\[
U"Skn$#Q]asK,3#g6#y/;>)_ShT3M:9G+Z%oe8htj$eoilYL,Oq.+l5VbG;c.MMH5
U"J-kG7hs0J;_1F'B'Ai7Uf'\MKP'ow]wctz8vb^4XDVul9'\BQVZn3Lvi8+5r=Eu
U"2:.I*h/8*)3*mMI.;iM.I(HBB4f5M((V9dO?[<\5-qGPB&DP0K+]OCXG4Q)Xo7s
U"Ma2'Wqrlz8vif>Njo<L8vh<aM.ctof#6:q?Gt^GiBCXqc.+j>v=HxR?44dS#Y\#
U"oG>EK^I/\RQM,J#bd.+B6H'5UiT'_-*c3Ca_'%QL^wH1Ul_ls<2YZuV5d'j(8.u
U"QeB>N]$$UdpgUF#h]y5acR5M^:$)jwO:T&r-\8KA&yYByqdzaPBO+DiCsrc;HrO
U".D:1OS)19yH3Wv)QMsAgAjttqme/r/I/rPn'4rg>8qu>xxRZp8xlWhC:-ZTJo2*
U"#K?du]l3a[i0cCBqmD[/hL2ZE,+P:te0-.[Vcz4O<Cv==,:(rZf$nUX*5?Kp)_'
U"h_xsj5_zy'HuZS>GqNz%7YKVXMonP[0bfq.Ngp^<A7,NRy#Dtd)6;=X57g,;pbd
U"]Db&Oz(;c:(sNrmTqJL/5Oq]WzIY,;aNXCV3[dACI:oX-2AeqrHG91Gh.NErFq,
U"i6iR]q3A-J*ddX5$Y;YPn7dEqN1naIOg8p=opgqcSGLE*^eDqPV>%+^j(sdl8Nv
U"'o\-*)dWGMlPX4u^Fu8tRpVJJ4?N+(bM&y*Suo>SIl.7f#I*A*d_WsrF.;BBVCN
U"W<WT7#SnoChUV17'sc,4q'+=7]tG\LPM;(Lax1&J4:*QZ_c<tn5&xYm2D1wjT8J
U"ZqNMMTAJ=Ljjhu/ge\YO]r#FjP6:v7KaOV,^iT)K0]J3$7kp6=1,%hVnXx8)&)[
U",m]i8laJs=HvkQE_SC)xyZVB0zbG)=hbd:__o$Na'_kW2.Bf'Q+A&nNpenN+.fY
U"?H>q==EY29ddT#\UxN/uS5w0CNPrxx3-Czi8jd>4Av/Y2dc;5bCVD0W1tDVREY4
U"]D>_:u74JU2pqxQ6Wk:bv]CECJdSL3+'dY5/D_f*AlZ'8ZFFT5%M;,br6IfT5q]
U"#P%SYc2KuX,Vn=H/HkJP.gVOYJ/ex?(0Tpue4<^<XEbVdX;#bbPfJTR.En:^uEg
U"5_V7O;aQ%w7^Nau3*+.C;aY>#cD;H[#PeW8X$8Z)A\p?^U=qX7i:<Jv23l-O)9u
U"vh6pcGZ#JCb[^j%+*eF:2Mkbftbq'9()tioRQW=(L-$icn_ejJ>JeDaL0uD.XId
U"(A_CND$]p5ic&AuAOy0&:J^Yhg,90o'-)w54Kojp;0aPPf:y[pBIs$%u(JdD=U+
U"6^e8LI2Rw7iwhVcV,cq&.?rmSUOMev[5e8zZr$R[JKu,,pW(h3kkacZ%X)ZWaYb
U"NW2lZwi;>tMMTnX(SvaAt*sm2KPOlp.k=m_ISQ=oW)vCUCKI\?nDu?Q:(x%ZS+V
U"+f7jy&dRTvnV*FYSbHtHK.&nQ8GFEJSK(;^qc;F7BO1Lx?]0AMdgp?1xhMxE0Q-
U"NGG>v-L#W8[]nmvOnrnsSYd)ao(n+YTr7<jRH)pxQ6..OFtZM&y7H(o9V#CXCp5
U"EB^Deqz#IpJ?Gm;BtrDk$pVduQ_8JNlEvS7$<R,+#aWFh%Z,c27F%+sGfHBo7Dq
U"7<h>FfQmtm>_>Ac0lgWfcOagwN^&JA>F.&tgV[,4m#EZ-n,9B.afS/k)CTTFt=\
U"Baq$m0B)-C8v'\PCma7^LMu.^wd^:/=sPy&+*Ts\9VKcG5N4r;uT6Nk[)<wd,&_
U"s8l_c8cPo66Re,2sVK0vG[6xeRCtyP:QQ+4Ns.M&6,gqnU&./o,nsLoh_NKdnc<
U"Sj1X7E:a7w.t8fiP#4H0<y:>Bj/1W4CQ7oXr7Je%9sl)vG5)TT$aNWFsxTXnM5S
U"gO3cYKnb4;7VdNW<tMZ[i7]M8crhDxb'oH2slQu1#5gb7Iz\SY)pf%[MXMjsT3B
U"Y%jGNQX1CB#.rqhDJZhj#8]vC\LLG5M?4.N+geUU*9u(QU58*Oooa7be/sofWoR
U"1w7?]9HBu,A*4KJM]#ntaKc+iT*tG\e/MZb:Z</^$i%8<8qX4.idI5'STl=(g<?
U"[mN&vhTVUr--P)<3qfeMOuP<ev,msbUY<xAPuvKj#gDN++,b:0R_480H:d;xs<M
U"n9(tBIv=90ZPnSV3>v-Lh%l1itCDKv>KE(aZ/713%<ypn',&92k,V6*.4-O/8q4
U"HguG=cuYDwYIjPYjDixfj99%.;nY)va&]XID4C,]9hzYJA7bs2c8K/g9XTU^M?o
U"-hOq>hgghy$-6)xp>cg*$C)U(#'FsvkNO\BMv4Kl:J<dhAtV\Meb)1y_7JdDlco
U"Z$9]nyS%XnPnuUh3FI3/MRy$KP%?aQNLZ>T5vj27h<.DdQOp#Lxxnuafe5sI6R/
U"(8haxgu'Icj]#h)N>M;ZI&AUi%(1la5o%gn_o=T[?p#.4qEd./M6cO^QWC8^ML'
U"/z9eEx,;%o6xeSFmw8%wU958v6SMD/g.S:UMZgR\,jpp4QX(SNE]n\et.;Rk62t
U"&VABxS&UfZS(+3d&2mOdOr,vi3H6M90i5>(rX-8BgsMg1Hj<<N?(klMGM&xTP'#
U"KNU)^Wq[DtfSR)[AMHtp0MSb'+aqF.B(K^B_Nil>KfZ(aPN>Y'?J#$CB0HLhoMJ
U"3Ar3\pU2&6]XM>&^j=eWWPY+(c<'42XK0_>^0Jt9p_bek7wx,)>9cfoIPG,8J*8
U"Wcn+(Kh*WGZcvc98+[243o^(9ikW&>j-qrz[8O\7Suq*vW,z[xD8ve:ka*)qiqz
U"2\6Y8rNb.'KOg]nscZ6%[jh'80?di2I6E^LFJk7o=0UR*rR9-pPgqWb&H)ae[\r
U"pv^0T8>Vp$l>d&mE<Pzz]uxrX[4&4CeRe#Rj&^RQ;PZ7=)/g*.\K5hu/u]79_e>
U"3vXG^uB-kux(VyM'x044</lK<jC7/3glQrYSXQSviRBa/E:m'#']Jv6kT0nh&^r
U")HvniXZM;WgVc640NjGU(TjCi,_Onaov'Yqu6/OQg$z.%YJQ4k1iGsbcn#+R#\0
U"K$3W46+kvs_sZv(sIl0bKuSv2i5\Y3*r52HO?6Y#<R(sZFJt);dDFNzo632X4o6
U"KM(a]w8ul;P=aNw?g5+uR2;n%rgXK84:GiXMEMD+-is3nr:?T]31DJiVVKN3j-b
U"WdfHm]K;uqmzsWm/T0D3sC=61=+F3xRqfMzBLSldR#eg&+Ksr<8?SvSZ5ot.lwk
U";8=aw\2>oi,q':<3X0Mt+*=M'V2fZHOkC(N\MM6xny%(v\SNk^uh3K>4TUpkVaq
U"6%RbLE4itDc)cd)nEvYTqZ7rcdp;mWdn/n+[Zyd8F]8kXm9oU0o+0fAym9eaTMt
U"q&<r8u.\l#*Rdw71:.FA8;&bq.XXtuSaIU4:px_CSnH?Cr\'<[c=#qBnA?wi26a
U"kpPj^GtX_.4dO<wHqN'ARRF%H(d&<c/#Y6.(phmck;O:O_>/>G?FfGM/h(d$R6]
U"K]J,vjz]XS4EtHgg#\xP=%c_Om)d/mIEE[l6<eEMGVMh-LhV?[Un'f0pxl_Nt-?
U"K*2,-4CUs^(8tTLc-DMs2m/9<LsWv-xtfC4VI*]60dKk8eC&_<FdPqn2S:S4JTe
U"&IvP7vmWI0ONUy/\lJ>_mdmv;S.T$lHhs)\EHEl5$rRNuvumqm-C]m_:^6,p:?)
U"wY&o<Z5ER$PoBNAfRU^ThpX(&=B7ASY+uuK*tkLwp.G3._+tCPLe(&Vg?2rvG1s
U"oRtCYSA7?PqJZQu/_o[b/R]RWV$S=ej?kqf&w',qX$G]xSu8jC^LM+amR)FgryM
U"(FIAUHYb-w-qqn5mGGWkK*84L%oGWaGKcfaH&miF0+=e&3;I=<?x_h)f8jstg=O
U"&B9vK^8fv'97,%:TEi(KBjSFKkxcWsi2HYJSUo??X^gh(VQPH_tN5Hb[PumqcT$
U"^F8j*d#N6#ukT10\l\]2\5\,KnJUYjDPb<g\DwH3vcPnsrI(^VxMb.7EcC&t*^<
U"te><.=lF8UkjBa$X\'W5I+1x)fm'=I'mTwtr0v1^'s_NZ4Mio6a,xG+]jhq=v_7
U"vw8Y)82k]5'd+9p$IHKi*'n'SGDqY_vAj?%q<QUVarGck2gWUG_r8(2lqNq3rsV
U"<B'5irqmw\f,ZArk9u)_rO>e__.mbV9XxbwrWdQ(N].:7NqvYO65[A7Cd<;-_H:
U"=8>vfHdZ^[^z6B8e^ro*ud=jQuzjOh[fE$R_4:%rfl6'YFj.e2cpbHpeFp8dlAb
U"g\>[-puPalx;6XZUjb=>X>mhadG,XJmS):gvTKI3sYIiY?Cu2tQcuKfC.vYgN,*
U"^o#%iO/*d)roT>31FsW>nSBbi*;C*x%hL>JEOaou\P0uS?fY8vKj8W'TDHT5D=K
U"T')ek(C_n2DtQ/hot0P:jJ%1hG4d$V+k=Sqj0\7UcNDGfjty=LxN9)Knql,ZYL#
U"*kFK,f;oKX,2oN)QT=i,3G\R%osCV;hjizhiZ*Zmq$):XF\wAM?$cNPe%a'/lSd
U"hL/$0,dp)Ka$u1[X_.v(a4,IZ-nadZbj3Bj=$&dpCs3sxIPbLf$;.XTD5I]apYc
U"wb6qKwZz&Xd1[PU,%%'Nf;l2+bac;rBK%fP72ioPN.V4RD#RwFRsOvR-3[?k7wf
U"Cap,fnfPl7wN&'$b2UMm^*pj]dTK\ANGaBspFx.O0X-bXq*j2o)6QbY'q/nq#bO
U"icvR$<kn>uKu*[;r3lV*PiNRe-T9O4q45i'G?.>6GlTN[eX$c::Nq.KbzsU2xsr
U"aYSIM'w.JV^A0hu9dQm+3ZDWt,&7^%:c'oEMu.z=q]2w=?[rlB763#1;N#c[gv\
U"oC9:NiiQx93NdAMo3E()JX#HP]5hYKBXTu&XKNYJZvKPNa]cI1gO8Tn[nW7_oN6
U"AX.Ctjc_32KP>?M>zNd9R=gZSVTNeUPU_x:FE;\6OFLiB[D7h%RbzfF$'=&tMBc
U"*YOi^D3hcgd<TKZ_G7Rx;Z,'k<qTDhA,W9d9DsJT5t+7hjZ6.mJY^h&la8pCXdZ
U"]vi8,=x0%up()%9%%%R-%q3\fHI&'BO+&7%%+&%%%/%%%%un#fst&%Skry<F]Ho
U"]<e5?c,.TY#ro3*&c7un7.hUJLEYtqaYSh:&BQ&jCyWEGPZT<,?#)OCtAQ0M:L?
U"cDSK*80tgr7<P^(n]MY;Kd1<[\SbAWtr2^>JpR2T,jh*MeVr$Fuu_Pv,5Y&]RD;
U"-GX?OCfnk<K<(365p^V6>FN6kTFU#2'24NKs?/tb]D5<_(sK*KfMu0(C/0(g?NM
U"%EvTu;('^ulP9#;e#q0J9Fu;Uc:Si*oO]INgJ<ZXM(VDey*;/p4<->9)S.Mbs4.
U"Dxu;XrNTB43-b01mF<['8$fh)XqS093D%D+r[M(:iLO8Ob4Z\J+:\8p2mPM_.&>
U"+7pQT%d&up%()9%%%%-%.sr]H<e]-D%'&%%'['%%%/%%%%lwtt&%jSk7ry6v'Do
U"(VO96XRI-B)V1W,6[8rS&D.E:v49aaAyNpt\'7i0&StTQKos$3d+kc[A_OTu](\
U"X$r[LE)tWtY$U>ZB2]m2S*E#W65dQKn59k.XwEn,I/eGk7o*V/lcxufXdDAcnF:
U",lAg40oV^d)'oCyp.Y-:%6>;St,>04%i/]]b,X4TT;6/ou$pT-6g7DS.UNCkcKU
U"(3dmzq&#A3NQZ>G7$%<]AH/kql2dauL%Z%22pMedj>]3+[c_<KHWeqK,XA(H=l]
U"/YJMbk7)mjM9YyFOxmdcOtv>sG?TCiB\4A?7a\h);Vur4?xuc*^0ddsqbC*'<PT
U"6%%up()%9%%%I-%aa8\HP<0kBb&%%%]'%%%.%%%%hm%nqiS%kryr5^:9yIV9UB3
U"C/0e,t15N81_mW.q60Q\&Sh\aJ0FUaYFZOGx15pBO&j?+v-P<DNu0#rLTY3XmX9
U"69a0a#fq-=UZc2Q8c$u5Acpx^$r=Uj:uWwTBs&JqnaiSEHfhPq&Ve<O=?TApDoW
U"rw,<rIoI35$+Pmpp[m>;,0E3'-q#hZv6(lgHp&ev&VLjDXTaTG5JrlGhnjJr5&5
U"6aP-D($^4Ds-J2aQn&Zl,frrFp;6aWpgFrh5nd*gh+jp2-6g5.*cC)ZT]2*U[-/
U"2-Upmcq]M#zKp#Y75GG'=)m\O9RXu<r/;+?/nn<9<OeT\w7ak/RR1_=vq%G(ftD
U"z3wTkWix]16CFb&V'NO,p:l)q4c&ns,+$\gR_+7I2O'rR[y9+KsLY++i\hW#S6/
U"t:vP-O&G&ol0SyiDTc7.>TS6)YqC<UMT^A2?nj]OB,Q$P8LG:fErbBfZ1'Nn']p
U"c/#_Ck2+^I&X%io3N&XT:4[lOD+$ahOh)Ubo:kS>q-t?PZUd'r,up%()9%%%%-%
U"2&c\HC0D'&')%%%%K&%%%.%%%%iwzr%xSkr:yBl2[NoqGIsR13+1BmzG?lzO'k:
U">e39twY<0':X%qfHI-.1iF&sYTz&b&.]f2)Tsg?Q'Um1P'r'q(>C/mC]FIe_Thr
U"B0Lm1j&g=<rQvAMR+Py<QO;DqMKQ?c99<[Bh0[Oh$XPZupnvo#11AYU/MwM]'11
U"u?ux:%RMp/_%a5XV5w.wZbw.fB7KyQ1(99(0C\wZ7CY7Zw/xf8MG.4f*&*pph&2
U"c5%%%up&%'9%9%%%%-4%s1K1Iqn0+d5H%4%H$%%%0%%%%%%%%%&%E%%%%%%%%%k
U"%rywf%hpSg%fxup%&'9%%9%%%%-%)a/XH6>*w9X8%%%vq%%%0%%%%%%%%%&%%E%
U"%%'^H%%%njin%ytwS%gfxu%p&'9%%9%%[%-%tCsRHR[q>,Z[%%%I%'%%0%%%%%%
U"%%%%%%E%%%%f\%%%kry%wfhp%Sksy%up&'%9%9%%%%-%1Y:\Hcls/5%=)%%&r*%
U"%%1%%%%%%%%%%%E%%%%p]%%%ns%xyif%yfSk%rnup%&'9%%9%%%I-%w<JfHA?5U
U"$MNR%%9p%%%0%%%%%%%%%%%%E%%%&\a%%%kryw%fhpS%nrlu%p&'9%%9%%[%-%q
U")3fHI-&BO+[&%%+%&%%/%%%%%%%%%%%%E%%.%Y5%%%unf.st&S%kryu%p&'9%%9
U"%%%%-%s^r]He,]-D'[&%%[%'%%/%%%%%%%%%%%%E%%1%16%%%lwt(t%jS%kryu%
U"p&'9%%9%%#%-%a_a\HPF<kBb%&%%]%'%%.%%%%%%%%%%%%E%%1%[7%%%hmn%qiS
U"k%ryup%&'9%%9%%%I-%&cA\H0D:'&)%%%%K&%%%.%%%%%%%%%&%%E%%%(k9%%%i
U"wzr%xSkr%yup*%+%%%%%.%.+%u&%.%B:%%%%%
END SUB
V2
V3
CLOSE:IF S=237AND 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
