'===========================================================================
' Subject: QB-ASSEMBLER                       Date: 12-20-97 (10:24)       
'  Author: Rick Elbers                        Code: QB, QBasic, PDS        
'  Origin: authentic@tip.nl                 Packet: ASMCODE.ABC
'===========================================================================
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"QBASM.ZIP",4^6:Z&=30621:?STRING$(50,177);
U"%up()%9%%%R-%l1JdH^JG))JF.%%J]%'%0%%%%rf%hmzn%ySgfOxUL:bBTk+iaF
U"&r=dEc]4;.09>$MDq2c*c-Y(EKsqesPG9gb.*%'E*>[)=%M=H8ws-p5,(goEke-
U"2#nn/1tFt\FttHu42tpllhILYxpgKTaro.Z7Qvziw^MgedIXu/qI(?n$ak<.MLz
U"2rv+W='bLWE3wY3#G)5Ezjl+YL>_UXidNR5a)O&uc_4+KJsc2Cgnr$C[-w?T0gW
U"^aeGm=*/aKBHj?BUHH1WvD:K=TY7IZtqK\n1oCtpQ%P/(sxMUOXLq'E\f>)68f[
U"J:w53gBt45V(L8'_>Wt>pmKC7t7[Xd#a0/YhcPY$^#_Ccop0+iGBq:f_3hj>Cch
U"v#*BIXti[OSR*C^xg0^R7b0mHdO0Fee#KxSq[*B/q>C)#7f/^r)i2($dDW]([vW
U"D\8sC/bv%17yAobZ;QQN%wc35$^c.TNH4^#gwau>tx)t6x6Kff:X52%GpvoLWoC
U"xe.k7B1K':CO*wuW=eat]4na6oP_q4KK$L^S&acw[f-3%hUa)?8(oD%H$r0-.>r
U"vuY&We(/>]D?RRYO/':7Rr<,H/'F'BGsGW=V+;SPRt8QGei<KCZ'b1Wu3j(>vp<
U"Oc--_RlvCw(o?5d[NWfh/bE*&dBPNEd[^(q)F(sZ,ktjA,_9t7M_5-3iBu[1lFo
U"i-7GokmNDZWh9dcTIgFg3.:.=AO9DH--PzmmA/[uzUhi>e]s$+ol=GC:RtI-_1j
U"Q9&_fwaH]l-b<o#mdko:I:oIaFR_A+givouldu4&Q/Ai[%'tHo+D7Tr<u5EJAwK
U"Y&bIg<Y+_w9[*2&NYo6vQ40#)+:q:q4eWozY*'^R,R]>v$8bBRhKAO\%\(?,>g3
U"G?m(mY#YLha4n&W4C0G3DaIMsa3:WO<[clm#R7^\iV#Vj5a1$Y0c2_Xf\BRH.+C
U"%6T\^H,9rkaS*'ZboK\\F7QFHOvs72BF*;#%?<e1;Gz#G7o;3D74m[,\nm>(cIC
U"Fq9\ch.rU;%0k>kwBU1Oo.gk8ct;o[mP3[VHy%eeflSpjI*kHIPQo[LY\S^Ef=I
U"Cf7Z;EhAyF1_$Mc7UeHST]jgt<)N*k,*\9HJDWXCm#Dd-%huo#ov9q7,h,h\OHf
U"/tME\^C2S?)2F_tf)cvvmj.Id+pYH=9&ID<\_,5cRPwI8'7PwjC*&gY=t$bqv-]
U";H<H\7,]Z*kDLBk0:F#*:gV\)hlm[N#69EuQI(W3SXoBPW+>Z7p*>=5_<yPakUh
U"\n7s[9Y8u&Zxn6ZV0>[$6btBOs)&iWTHhKWW<>ooEiAUik$WFx9-v*FBgG2NM^C
U"X]T*m+JMy7-1\pnRDj;psZ%GqHd8>BPuLg0v,&&LPj9?zKzQ-S%pDRYPyL)9a1^
U"X^CCZU0r7&wqa2NN3i3WR)c.#zh;*4+1Kd$3g2?#H7<#n)a'_/(w14J=9tn/fra
U"k4p8[M[$,2l;t;*MbqkzNj-wkO/flZG0wRy=V0l#8HBN00[AF2qHR_EfbW%_9hA
U"%8Z,twOOS->n)R=f/QsV/QG'$5JZ[>n*+BrR15P;Ay)kOZo))=IFg72NcuAp1Xk
U"-)M=A'D[j9QOrlAg(V^=W^taNd3,ZDPp45%;'p22L'V9#N*Y%((ScUnqYw518?7
U"FDKDM^e(3YI/oCWt]D9P]\%pcU]*ewoQB+#[LN&#m[7/w$YM#$=w&%0dMl,ud4,
U"vVi4Ms$=/qwYL^)z)cPX(DB9UCvH/%:kf2jPb9fE2.evC,S[BKrK[1f:r-1)yu_
U"1D.$+[g7<Yo*S(XE'.N;jCm/ovc)VAH%NSYX-YMVA.uA_<[uqbIiv#O?DxBHIA'
U"lf(&68^fJC*Dv+(3B;NIB&nF%$<,Tf#T6KDQ^']1J2s34K+lTXYBl)n;G#bfkvj
U"'x#lR/9ExJ/D2Yg+c#-JGhkWk/.:P4JZ(g]*>x[AZiwx8Q,Oe),]GKo[Bjj-/3r
U"%NZ2lF-QAjP$o4d49-J(#<RY2P=5?ZWWG'Y/Y1y>7b5f;ppCLWmi\b_>sJ0-rr=
U"UOD<u4x;rbixm;X=saKi<&Ho:q<pxYiVhadziMQ<t>2m;k6ZHV*/>TSgL,EQM#D
U"wcxGt[-I#e0*<Ef??m(O\drgN.><p;Zg7/%M$9a^%$-9p[CYSU7p:Zsh',a)&iI
U"89*qY72GSrjuOS1;/Kj'&De%9w:dIRtv,$(66qmn93b:6pL3i\1lq>P4F63$8[s
U"*41u>KGE7Q627064>\WCh3(gH\QM/T_FMCtOuBl=OTBYHdElquS?xYjLKPM0%#]
U"SC?kc1?jb=4N[yUtC%w^xWO0,Dc<;y7o7;<dQ.sp:Uu?94Wsq5WIU*nG?H6]MPE
U".V(K(Vj]>URY+wJUlwEKZtzk$)o3gc2:ZUklY95b1AzOY#JtgT^SqCYe^hqGFg7
U"f?N[mSV(VNe_(0D&]?blTTtfY7?S[*M&rz:cKH[xR<*n(8j,M.rr7:'d%5H'dYA
U"2Q/<.Y<?*^RU/RKZiyYLPRI'c=bM61CR'[B1[>HF9.D(Uou\F,P-UD?f5]DePRV
U"1oFO2$=yBCjM(]'I4UB+<&zj5p\Z+t<22*u:au:rfgzd$R*zv(APhKVjo)NafKc
U"FqC.ECvR\9v^;(]WwRz^1(*oyW'JGw<s&06RdFy4yE)&d+]j];8]U$O'Eg,u=it
U"3sDMU*vYysG9_J#6*MjD9bvw,r6%/W\+H(B[)_(F$enpsb]f=AF1vte:_&U-tdn
U":Nu*c62cqYC[TxLugKCGjjr5?q4?>D&FNgjDdigGDX2'OWEdpYRMl]jy+P([n*#
U"0mItY:<$*jaY;h#cSN&T*w$GH/L]V/Xiiu3QgI;eIS:]3WOCUI*?P_RvQT#wyZd
U"4Qc<N&B]H\;#XLinv;O5n9:&;g]^Qk_ji3_;k5+Sh+&S&K^Q0JSb:)bq$n#^ZFC
U"J:h(Pzr6)90VWGy'oVeo'9?PE%+6PbJP68%E%?R%G:qi'%k'Fu,+L$'?f&Zz($M
U"1?<N(/[YlMnx.k<m(r[=CWLM_bI9_qfKdPN._\Z\ZFDmN+Kk=Ljw.2JX*lRg?4z
U"GjHjc%B?_q7Ulpe=3>vGbl28XDg-ExKLRj7O$r;i7H(p)5G+EK5C,&j/,uPayfM
U"5.Mm7<vstqb%/hwWe.\451/49(qz8<>cg(p(%Ob\fsOW-#Cq5,/UrX$o0\(J+)[
U",TPv3$#B2wDV2e_.QB]yq*o,WC?j^%l&?05/[FC,O\7JB/&MB8+b5K2NsBZfO-U
U"HkjwUH5EFr)=#=*9fZw%[y\4nZ_]4'Ede/Q[j\<K]T%s7W?XtWnU$'j8t:lv#2O
U"aX]apZPl>a7G=Rkh'n+jHcJx)$nkx'=r?k+^UE--RjLCH[L_QF1h:cK).TDchwX
U"CsX;3m]D<<\*JCk;'pcJ_FH&S04%q+uCe*%aFQq)On]%]J_iMaeR/;mB0s#TA/8
U"-8i+&#?%m5s-H(uMO],S7tdT76>p=4n.3E=6DZ8*Rn>6DTQaYgX<61N/?DX'tOp
U":+OHw99Eu:%cDp:#C7D\[EJ)9.AEv7=LB;'Lf>c4K;'9=FDa5w,yV7yFU(%y-/-
U"Le2_yrh,_cuuU:4?w,sA%fDy2BQ.yLQORs>JxCep%sDHr&O)sBEm0+rXYLB8+Od
U"%vv&1h_yH427)X1O40/(fyHB8Qy#w5x96y-KC%fAyxBQ(y>)z;ip0na8XII^wVw
U"W^]^5IoO&9[H)LzU.NXOmY#PRI(&OHBnOiK5E)elk+8B+fqWt]n:>ak.%+]_uSE
U"-YB(pA.7+)-z$r[6^6.n1n4.z^Mc0K=O1^liHYK$8,ABaUlvd+)$W:M4+Z#EBD7
U"IKek2G8SIQ#r//8+PRU[jAdu6[hGNgNv+Oc+P%\V:gcAcj?Z'3<gL7ODAOmh$l_
U"hW.Mm(%*NX9^UT%i(bE/rQ5UH<jT*kdnnCUu..-DK/iF$0fL4-HAGw;0A.bwnf3
U"qb2r<^36)8_YrAGe.%$FFf;[eJG48ar$=j>sa0c2M=8-ri(?->*uQv0>1./>HDq
U"BS8-i((/H0'hmmw[O)jtHV>fq(.8UP5\KE#od;d:kFF:#8iT*3qCkb59\KHhQ[R
U";PrJ/%GBZ%)*'Sb4Ddrro87WJsD?7iu_0-i,KCm(Mt*#Fi8^^&c&PEq(.W7hwde
U"/(U4=+o?Z8.g/(i%J3q,#ws/0F2Vwr(</Vu'Dehu>*\>E.BBX8^C9UG-wAehZI*
U"?:)X_8BLN0Sv:?;Be,Uq.3-&C4M_[P1b^>t?M1%ZP1Brv1<D'ZoU8spx#1g]DW_
U"U3mHW)CL2b2-2R=6MJR;^-JV^i6EV-ia>B^h?+Krf]GI0J*63Mr\>cV]0ba:Xvb
U"M'H3Cuhf]Ag_WR3.8H)e>L(wtRlQ%u&S5IRi16ECQ\5cZQ:F[ZNM>.ps)V9/i:F
U"?v;YOsqk5/\z&%4E'tCj5AQA*l,9(o'S56KKVEtS-.jI+&A%#vIF2Jr2L'*J$9$
U"R6MK,(7]GlGa4M6#5NWT?YuimlrCa*1vR.6)BWAp17PrKB;'lH0C/vT7RZsJ^'A
U"I$.T6E'4Zot>>B1\8#ZPhn(y2DQ%U%EL^f#=X-Zuy/mQ%K9Sz2/cX?u[ccN<,8c
U"R6bn/V0cuUSTHA^kok7+5^]v2lB]fTciFXA/Yj_/YPj^/RmBdk??vSns-Tw^y)#
U"/AY5Gl+$HuD7Z)_>*/z?'NlO0w8Dl9UUy^50O=Cp>C=U[N82=CZVg>8$9'1l(>S
U"aLGR)M#/.Ku2F,k+'e3&$a*ARMt-gWOA]\Q&s-%z&'s<nt=(5QW7]98bY/B]er8
U"'+$DfpR4fe\]2pfbR/3m4>%2GaGeu$o#eSMhmq#Sn2BAd%]V66VEyl*OGa\PbU<
U"l4bt2->A2Ux$p)0f'<G_:qmb]*/1ipG1h59QKGwJ8/s1FI\.\)l?nc1FM=(jSk)
U"B3-WE./Ur#Z')hdoUgJF=1]>AjOUg0J;:)m>OYq*J=#r&$Wahm,A+S)9$]THj,y
U"/]G[-M1/#]fl1&UIm^35fJ]9K-[Q5E>/m<[iqbHF4M)*\n[4Qk.HNi>vlqr\7j]
U">t,ACAaQLk_)B$ZH\;ksE?OS\5N:JLkuQGH:U]6iCMCCj%%\P(E<zLj2#bW)9mW
U"f<Evej[s?UAj2k>cBn=g+n5D2)5AL+M=X2:2wPDvM1';z?^][&/&L<ZB+S[a]im
U"kHIj7q7D9(._L[2E7c9INMd5p0d7=f#_E,4#0dL_8C)/v?1Z6xa\HKb+*7l2-0,
U"NGEoZwo<y8TER[PZ#s\50f'sm3;dKN#u&2<f1f0_gaCge<,w_<*iTQrOH=d%u/%
U"1^fvk.^qHZmLSY.Br]v?W.j6vfhU9wjMF$v?Jr1Py=>i[7';__ZCgcGQrR$/bGP
U"vj\T50U_i=%%D0G*dhC%44(IiNyo-?Xj=%<-w('iGmGl-ixc+IiU)'^dz2d&8'-
U"$K8l<82s'ko[jEU7y2>%af2s.M%WR[-jK9%KXjgaOd_l-a2C0JHLWA7L:;?'GIL
U"wSL9S,'+2F0chB9z:[>f1f4ul?)4MrhgM9G-?kLWkaBv:FvA)$W4TWMh0r3CMCb
U"D:ybkwZH:FYbA7b=<9bhwpH:6maw*ieQzJg^_=,8gL%[jJokBfVvRkVQVR]C?bV
U"S4Ea\>gz?6iLe&UP,)3[1YsrE5'GeBh[D+X=)6oHhRH+L2gtcq_7Rbo)N1<wU'\
U"jv/XY&$em1rfH[S;5>p&s]A$ZuU;AcL:;r\zLOT-7Tq4B7\d_Tr[2K#Svk\?tuX
U"4t$nJdH]t<EfBV$9$%R=e:37B4kudhNMO*A?'S/#[j^c-4;BG\<s[BI&fD63VBO
U"(1.WegE$Xa;:KPzF(jA[Z,d2c&;Svmeur,)RYDd8sx#VhEyE:%C?*](Vy%4tgZ%
U"hr]eOOb#O'e(h3k_VEC:&9:W%T]m?EhQ(s0pq6A>q/o,dAG,$dg-r_DrL.a+7HI
U"m9Fk,Ym7e/gHcer>'ua/.nO0[hS$&>jH5#hvk(hKaX&Sef&:td25IrQ50oYt\At
U"7t/6Ci&Oj2:N4S4;V4li]]UT=vW4.LqNFlmlv=Hpj'H]2#lA.jANxpkRJE,Jdr-
U"]$7Tq9TbkH1^/>Wcr$Xk+Bt0]k+\,PmOb\)$GY=(,r#NQ*vU(UhQ/+eW8KZ\9s)
U"M(:Z&w(ZTQ9]HqkjN$i]q(8I8(T&dT?1&84OY=Qkkj6^SOYOBcWUY&;ZB9Ua;$$
U"8GE?Ng]sZg13,=ZIjj1SH8-3$F2P2<D-[F?$lpXmW?HQ]rWC-^l4%(71.:tXz[O
U"(pd7/Hlsl5$<%NXaXadpdUbWn>8FC:poLa7vrMT$DCP_>=ZkG\*7W.H3G0&2fOP
U"vs[S>hKPYYVxEBZ;_9rTWpo=v1tM:Fl_F3rZ?oD5D53mo_:WrMJtG4#Fsf$rJ&0
U"XD;ku/9V8-pBs07lOS0-/O#B9:x%]5jPUjG&IXt-,uJP*)*3[KaBm;^s)iCk0Gt
U"fJsvfPMh*+-O7u/D,((iB,dNAu;rd:&5HEYjBA?8*n;q_qpgD+aiHdUT.e_]Cna
U":aRSE\\]s;g]7.<k;&<rXl:TG21<]j,E#3&sYCa<UysE;Pf.pl?CZj8xW41j'(p
U"jT;8wTE0qMfOnG)t=G6[W/PdO*(j.jP,z>*_bQ,*:s$tX<<.I1*F&O&OJ(0TA1)
U",M/YTR,nSjeVtCQVeFX7_[rkCNtW9nS'+XHhufeh\<9\p^A-HXr^J.eC3Nm3x[)
U"EwibM:u6b2'8M[P8GcV_XKl1;N+.3dPTisaS^h[%pw?\,V\WP&$S0<8)wr<Cdpl
U"+r0:rkkuqW9cTOvCi]40T^G4C+G$F[F3N9W?&W$N9PJJNZ)PS8jC&JPPiJNIqfE
U"kvE%Yv$cYFg4yw?DD&wBJNAt%qkAm\gZQK)VK*3&<+A+'0fja_Fqw1[.gMU>A&q
U"ZbZ_)<1^PGS4v^r7AYcA^oWW6]CMpV#'leyj\+#YlGwQI',ZgHOYQVt:$oy719;
U"HWY?0m&Y<1Whn_c)uwG=OS?JEcwh'ncr)]ec<+?XA1J/1;E\gqq_t&8&>X3KtWr
U"ikge+NAr4D0k]SNhYkWn%c?DHBx&dzL(BLmbHjvx6]*^'T.dM6kov^?2KcL9Gw$
U"hL;=IwvZx]*^FwUPLo?d6OUdHerhkH-bZlRl:<vb#cpo((mPHgCo>NkQl4Nddca
U"(g4m#tv-Jd(L7dN;0:>S9=p12yj>_TNrKnTck1kWcI7l4WR(Rm>AL=pFG(gglyo
U"j7B3eleJT.a:u>3,EjA1*S=_uQE<^QGGn<t/##gTgNkQ2ZrYa<jBuqTG.P0g7#x
U"AWzidiZBj&>bD_UZnDG?7n*X\Q>sVr*%>cKo>&0-Srznt;f*uW[vB>XWAXD%ycm
U"9A[8qsWOpiI:=hePMiX9R;<iaXl'-5W3/LhPpMC5.-[lVT:9fp?Zw,H3VxvX=h+
U"bqano3WT)dkgRE2V47c9lVM>NNn6ET6,tsRSX^dTJIOt]'EsL(pj/OZj9;mQSA,
U"s<36KO[/vj-dw<a:hg)lL[VY,u<)\mBK1BX+nsk/jC1)[\BK19bU:risaFG-2bv
U"mP?L0Q\j38U:_YTZ*\ulD0:rV.A=_q?#$wV3?91b&Uo?L0)Qj38iU]dVF]084F4
U"BrV(.=_q\?$v+\#r4RgJpRvHvOVuE70^cg[##<557l[6Gm/G?tvpWW-ME\rDV$P
U"r2#P)OdA\j8Txo>W$J4<V)(tg=uW8j)sSAYH);0=pGGQ%O)E\:SV<q(nlLnRt6N
U"xQ,6N&T[>e0>rqh>*m3:ZiAok)AE$vI[HQCXQJ(H&AY,_?U'M,3uEZW(3+tu$,9
U"AR4>[(AC)^3Li^7]_%ZkT*v>+MN6-Kei#'h*VDS1AyEGjJ[p*50>PlkKSA1s\4k
U"=MBK2WNkZd+b15G.HDhm.>WaD9*ApvlOLB#p;VbvM$=xc%8sM<z^yu+4Oz-I4\Z
U",88o&Ze_JjYTO>ntpZk1+4bsP21'WNa(.M#pv<uNQ%KYK4?gmDRH,AK::TW8SM=
U".vid\(]X*nXzVM;:HgIcq02+D:7>r.S1#]KQ_4TRRG;R4KMIk4Vi?hjPkO<jfQ$
U";s:aJ^d$)vHe4'TP^S2wrS#?/6F(hsI_MI_<[IB3fAT:KH0OZ<b6Ms__\U89,$(
U"$Evg0mGeT(gj*eIk-<-fDWJ9quz1wC(XI'mE9$/OF4<sSq/_^O]LUBb$2/0$24t
U"X^IX])h3LFKd#rVe)kD[KW?QxAFUc2Vi8/e&udBqfGsp3f9s<<NCI9=^JW\h[XL
U"]fg1w5jW>*YRVLjo3IB'#3$p>=)gVNN&NMcf;_-jAHhey%$2pF(=uU>bO$OW#cD
U"4Pxbm'>kyS1[eD5tb$B%J<FSBnkg&OS_+kK(82D;u48t^O(XJIl$$nA=z/w9/vj
U"R9%viCsD^ZY-i(0N]2:9Z3j48cB;xaP87]IpK)bfT+Gfi#ktPE'5(60j$__IHVH
U"%_Q87/)G=g;e^puw\ww^cg+pW$E33o[rX8ulAAthWJX4lmxM=I8,a-ThBr&jdq>
U"Qs0dns9q\[q6^tFES10iL8Lp[q6T1Ubbwv]U$T6$_mMY;]+cX>^jejpHMB59nme
U"CMaXJQ$.67iUxh^AzIHu=4km)xf626:^jk$:tQ:woC-QN25B^qmH+]qeF,ud>N]
U"jz\3h4,;ZA(AIm0($hMKsX6B2Qk?D^><[<$pKyPIW4k69O]EVP?,BGnW/ch_nlb
U"CJ9Gn-X1:*^u8L1B)YFA0A.m8qu<I]EG[oppo#oel<-ff^rGvdMB8Pf*RR/DfpF
U"KAHrB+Bgq%jmP(9=$'o)sDf]*A2/4G[$vH[4,'U>hY9*PF)DHNq23fFYKUu\]MC
U"eu>aY/B)4/OsQd^=rQPtgVO[hwq;p%$Q4A9?fBt3IrB(0_L%?^lnM)lh]#B'GD>
U"cq#UxN$^fpJ(b303VR1h:,NpScoIpYOA=>BR&D.T;#%E4H\MX/Bre]IUc29HFLu
U".CRqaIo(k#WdU]xcwQQNfV9gi*PVm6*^FvmIcj^GW)Z75)B2]sh6xyT_aY_QZ\W
U"2n8Q.mhp/eppX.P:Gaz\_?ZTnH#7#wd\K]t?kM9.2-i]ClH$ij0Ap8kYeRjsL3c
U"&I+D+-[j?-V<nY4Jq?(\XlVTsAg2'*PHkd%fyYKWUeNzsNW=Ie/QOc]#0+x3(Eb
U"q$(J<W8zk$)bdv&mbBk%UpBecSX(BA.0I;kHiIy+QI$T.KnYCbxEISa*)/f1S2X
U"Qqmu((S-D)C6edW.,;>g,RB,bH.7:d>[*99nLx*/PI$9U,.86A6L[kvxXXt09s%
U"f9,r*4fN%yA-Rz*;GK<Ec]L*e5G\XNU/cfX#gVRoOAQXzXEf-(DLKg0OBJk(dly
U"AwfZ5r'<w?4%-&\T7&ow:jBV_&q\37Q##kVRAQG$-.A,CAOD)*KEMgd:Zup)]#G
U"0L4R55*h\>Zr5>?%OFQk>s8QbKYn8l>L.^M/g0pW[0K&-Gqz:gY,4Z^ki(MMdtO
U"?oQqkr0jqFzbb#ijVg;\#tut&>]<xa5moHaGA,$fdkBlcl-jD]EsbII)pz>Yck^
U"36mskvc5TrlD<r]CUkVT#dO?u.W8uA0);lV[jQ+.cIUkIAfOSNy,et/P(7P-PF8
U"^<=zHJ[%.*l8)%:[T.RKjbNi^+0U8TfBv_#E(lUJQZ1k5e3'zD.&T1XSPbDjZ6s
U":t?'DgscmW[jfU2%XV4F6uiK-n:Dk6yh]$T:Y[;'I<P0Yl9-eNlgP4P6)NOzCK[
U"4$cs10-L^e2p<1H9KzNh=.nPC+](LrYys/u_Sn6^Cv?.o6k0:3h]-Z/L0.*/Lv?
U"_H,/:9=Pau,=hEh99kPGeSmD^Nr0x/?$s)0-$7)=x<V5UCHE8mR\nQ>0oF&VjY,
U"G$m(B]Ka]IZUa<<fgq_ib+tWOb1O>>[9BSmnLzZ=qBb5P#(yVhI4uVXEawgWI5e
U"MGA+EJT;:89[;Y4fd6n&kQDvS_]-vXk67M(EqyoK4s#wQ;]mJL_3VM]fMl=3V)-
U"hk2uZ(natGoQ\Dg^,r(nCu5wH4YpO>iEPX#BDu[L.1sE5DDorATqt5l1v>LacU6
U":l/&q4wG'p:Mo%Ls.VLHB%sropK8#:MIYXJEhs;3.#w7QGS]?cOsbZ]ePj,uoxx
U"J?%l8FDi<x1.pY:d1di<#oXFt.D#^fIm_RR/Wh&8Rr0<X(>M0i0lpvGR>n2vLbK
U"$d.m2M]q0jLfEk)bf4asVcZ<1DQVkUB<g3>not&ii*up)Lnvf]DnSUuES>saZot
U"jvh5/qp9$&qNW4v:.$c>hr1<\Z00F$4SYH5K-$MDI-ATXpT_9kHCPo'KXOPU/%5
U"gL--SL=98ZatJ?VjQ&T^IXK7YeeRY^.^/]Bk3V+;/?Hb-t](RXuEVOn3GEj<4=k
U"#&o+.F'N.s02/O9r&1DC)c5]6.C[9]ROGrR+w(OW.>+Jg/tCxg5.3;aU)ow<Vr%
U"<Nc(?p$+x\mUS5]ql#0>oEjx;W/[EKcWV3hrQr(Db<66e'Ya1hUVFr]F[f=AYlv
U"u;EcWA\R:#Gw0Od;b#pQU$IET'O]nkF^pRq6Qz\9khxk9k6Isrom2$Bm$4um:h5
U"CU'.#FfSKN[HSc(30jSat2tg9Q]IE*1%bM]3ca.$\pro]rdm,C2%STJODoggU3X
U"-I8sqq:#sS(A\#Q;k&J4Y;t_V=:mhh&),$uJ8RmoK3nXmAgWm9Q>YabNsO4^f?l
U"E>]JT#e'G3>,$[?3DhqfbZD3eIo967WmTiAHf?tuVB>)%nK<8Mw>Wd]KDbqSzlx
U"i2[pCaG#aLmX<S3h,(+Z$A0Kcw=;k&^a=kT/0LM=63xElZOFl(bet_:+We;-Of^
U"q:kE%7r$ZoE:)PLJm=s+UuN?gB_v^v%1gK3z_Zde)s'E_O7#8X2#Ap1&gBUl+%0
U"7O(Xn?d#a:+kE8tN5:1mXy?p&jrAQRVd&Z+>5hkT#;yK-S0EYuQd+>L&z[e<]8K
U"r:n\;ak]hby+$)78%NO,H)ECZEVD'&JllPs0I:)\4aGF,OOek?cR)9bYV.R#M</
U"6<B^dPI)S8d^gBtMW^XX$Za>.u9y'XqYN3sn43u.0W3Fnu5fk?h#In'3mLFjn]F
U"ZAV+.x0Y.+kmn/q*SODDq,ZXzGr*/QcH[Hg^+uqzSsk5b+CTAvQqdoa5s13uT//
U"Y$<mrm]M6N7BkoN,$XCGzx&MM,\%m\y>7'Uk'FCp/<NtysPR'30d/jXQFRRT*Fr
U"3+XX,fZ'tOFAeWx)k;0dHCPn&aQei<CfEfy[PI1e,Yhsw,5_\gH3[?W)o)WOmm4
U"Q=)cOrqj(QThY8KMTr(GcklX>fF4,go<0Z\;be:_q7,vDZxA7cVC1\(U#]q1q4u
U"[T9UqbWYWeihC>DfMNKnkxAhHuKge110%%Z4olQ6&FrYEMnOW1Ue04r[&*.h>K;
U")cD]rwJ5e--'SF$dc)$&G8ONd0HR.a(up3'kOZW7Tqj7O0Bt[3iH[/_*kA>9N_q
U"rfIO<TGK79VOI<sXeM>20_<31c3>D(wSG(?Zo>qJH-GJp\9Wd<FJs/Qs2o=.'Nb
U"/'dP<f^UPoHl^+n+[9vSeJv#/cfn05<Z'rJ6K[DXCGuhi;$tV/7[=4/YNV1),Uc
U"B:9Q]k6,O5J>bqo21CbVK;>Y$c)54BQbH&J)D^h,L%J:4Pye<S5B\,I^QbC1+Ss
U"H4i=^?br9'3iq2;m9nOC'*wlEBFTS%]BR35j]/4kYt2k$Z9Um_'A.kD+P>=qlGq
U"3$;KD;TK;=w%C9X+%t-\Ab^(RXheFvBn=8xgb%gyPe=r.j9wNV6t=7?:72%i?0%
U"]^-V8(5WD0DELp%PExVS6,z<S,m,=+tjLL'l2V$njIDUc<O+jZQ,:(>-6J#vuG<
U";fg%O'LO3*IxF/Vqv+RbUwX-CUPqqI=W79WWi/6oYN7LsmddYH7cjZ4svgQu4y+
U"VIChy9vqiIr)GFg2P(l&Fn\.9mW6XXzwiei)R;wN&:&1UYoAvkNn;[7^kE*%+u$
U">t8DK?u\(Gjmxi*VviZZ#GWbE,0Zgq7*5x5E>Dvp3coo#74>*5uggq+nl>dPS5O
U"O:qERcbc5h3)\Z-_\[.,Ss\wgufmc)k?t606an\-W1V'J?Ys_,g$xZsr62H*-Z4
U".ef5$Q%hP3lI^T4R-?n]cp(oV'tHqN:F9Pl*MKgbw[%DEG<iFz_,KVk_LR_vUrD
U"6gqo/7CbUihg7RudD19?*aGKDM21?&S$g.ybdipp.aF_-FOe\+r-1v/EsM7L0Yn
U":h:UX;r.sdOhks*#I:FQFDh1B/vm>K(mrs-[<%/Rxxd8w;OD:Y:T]]VOxZ+,PLq
U"9yk%S(/Q;T+nR-+H8Os([8>L[IO'fLrU#$95d?F(_\pRnua(Z'>$VY#_4CK\c7\
U"O_d65v5mt^dW*Zgv3U7wxa[8r[/qQQah1d%h6C8K&0\VHdei2Uo>tro.1s[qYi=
U"Cokh\<f9sHBoDj</nhEeCj5X>U(Jur;Q_[ekE?_*>kwcd)n[[K4Z5-LiyZS6I?C
U"AB]x6ifCWs<5IrgNeG/p<>n8rrv]-3SYcwPjro\BVWK.0:f#'xGPCM67t6VXCi1
U"aTYO'C-kaGr95Vp-h#-^]&bFB)qLUNT/%w:#j$rPb7NRsK)p<Ycx6+,,o8+Y1j4
U"A(ryi>S)bIi(/n*?f9ZE,FRjk*.[F%eAJ]PBRIh5MInZcXoVVf5mM=rGAUpua<k
U"p4BP9,/lRDel?G%n9,itk*FeL*gRM(nib*xHr3[?+P+pjL>x,Q3mf*e&<gnMZa.
U"tqhAxXY<W4+V:<&ejh;kiLW0EG:DA$J>]%nn'.PnY(29;<XU\*IW-j/vSTHj$gl
END SUB
SUB V2
U"UKB]%b6h,wTP&v:>VP+(>>3#Uj9jf>OZ/3jbA1LPUEbO#hBDY8^KvMCksL=KY^X
U"L^li$Ywo2_VL8SOr;$=fbglr+RXFdb=%R3qO09sXXsDWFYgTHj59DzjnYS(h^;S
U"m;jX3;nFO$u6P7ufSJ$UyEkdZ%uK#n&uGOGm3nBN4)N^BX#(8_TJ0RXza#1<Da9
U"]*XTrM;^4(5TM9-YJytr)uH3o).R[^$7LL'XO5dAisagE4\dN#temAHNXr=q]&I
U"(EeEqij)jujS%WC.L#38Y+G6VlnKb'4OQApJtb.B-N^L\xuMUei^4uP^jTF3PYN
U"&dS47f;CP_K-1s>O\wmo$UTAD:6KB&cD>w$]Kl,T[h&s]0qaanMW*DQu2lB3l5C
U"SVp8wA)>po1Pm_Tg8kQ;.'5q\h&-A^]Q]Y_YNk)]hs.xzU:'>NuYiofYwj$4jfL
U"IE2FrS.KQhcY+Oi.EvFG)tds2#<:huqs;om;$EIc(l-kPbWxm\-=;AfRcdQ\Iu4
U"_jcx;aTBvA[M(GuMhR(+I<$3rfK0c7*;0X$nl)V&+:'70?iD[AEKR)E%/;)eCsl
U">][+p.)L'tq:<6p/M+:8*2ogF75L[?Obv8c6,ZD38.FF+)$xRh0<\l/%(HE]&#7
U")b+Z'][z0&T4yt.<T'0zNW&D+4<YlTF1i/[2g[<H^>%mk?Cb_XoXFA'DWYWN4Ds
U"IcF84D;&XiBQ2R'77h;^O5WKUO#NfynWJOB6_FgCT]=vP)b5%i,bi;BHY*_5?b_
U"7xfE1$vK8s5L795uXCWgA[-7NaJf3?c6>jg*KlO6nq>Clv,DJgI\:Hit*RwuVTT
U"d:7PQJ=cTw(Fsx=GRD-XmC#]TI:X^-4Dj?lY4D6.xQV9knJqlVS(2AcbnR8a;H8
U"<#lR\V]UVXi=jD-kj8u10LN[PFB5Q+OULk&7\b9,X4BjSO/mO\hf&q,MiA2DU])
U"<4ng$kuUkIP.xM]<DNu_j0Ug)1r7;tE7K&v1a;R:j/Q=asP2.Fss$rKqS2+X$XA
U"/UM5JTK=E^o>BT6,c^bBp#.?.lQh>qVl\&2L:tmGDE-cwYPX(XY3M3ONih$]=i?
U"*+:dcFBI)2;tFg^6W9%l&'DcGWx<K9we%W;CC.9hFZs\u;6aPh&ff(ip;XnT3)O
U"mT.]Xu0*k>S?Unl9\]PX]Cd<mYk9sUAbgx10kW$Jo=/SSE6M#C5*6X$N>,2*6id
U"f;nYz0(tb\3tQYU+I6FJe$XuiX$MQ+&mPnzCo^+l.Yhe8Jr7ZCsK0j$\%k.XrVY
U"5iFm[nfYO,==O)YpRre;L$$Y49]$;HKUtsL$)tlf/K066CGFyZ$K8q70^qGk[N\
U",lkcc*2t(%Q/3SJEHPp3Ja&0Z9dKJr,k0m3y?6U:,?+,tFlD?Ed0Gf/Ixar'*<I
U"?3gd%&*%GrP<FQ5sR[2mxGXf[P=v.mFuIa.hFj<?1?Rp[I:8\::f-_W79.XKsIW
U"%e/Yr[=Hlpc/&)MF<))8=ncj^e$,E?h9mN.5,3NdRp%ms:eCh+nDyYG6.9T.I4N
U"iM\6a89q56-MZ1h;a[CAPx+?91kcAyfhk03X1oR\=6LoN]]vSYgp'.S$yn)a9S+
U"]c=79J\ZU/NjO)P'B&Wf[>1SHtGO,WP+i4aGE&PI1-qDnWqlJ,aZh;P4p8Gl3QH
U"geSx3U^sPr:Xrj0FJYntZ_;M&/.l8ju%)GD(<Y64.z'/spVsUhOORwAR#-_l3BB
U"d4Aduv2j^+JW_XA=^JLKWWBjDaA#FoT7MEOP)ll&i+VMW%Oe(rMhA/<itR*'iM$
U"RMr4cb9DIlVaL\_<dzlrhqf_FRCtZjcs\ZG.Gn#jeX[NtJ)'DSUVH+R8s\bHO+V
U"uacb;9Jk-hj+^WW7Jetvu7q]h]\RucQs^fnRMRDHxd\rRQQ/OBQ7gDvbR>db7DO
U"Bc%cd-Of%LXiG&vOT&upVEBIu%a).mXv'p9tnhxsi-a/SMbYn:aDi-j;7*;M9rW
U"1Kc*EtS+8KTc=b]\%_Pf+=Ta6e9<9Te;QSWhG5gi31-OWc)XPw;0?V>C;fg<\5]
U"I\ong,]'7Zw%\q^R>[AtCo(NPNdiXd,A*srhC/.j(T$f5/d-aCRbhU^szj9=LEE
U"C0ua6qJBc)HQwIuj8G%l+B2(;dTsZ6joA4Zw=\HktsS?<j&SAYn9dugsUzbebZB
U"tJ7pUI48Z88lRes_8;u7,2HrN9;lai?mE\YsNtqlN<.Z]V8HW8_jw+pY\j-V2A1
U"96Bo6swW/w42nAeO,gCJtf6p<ERCl<VsD-\$-92'J,VFY9aU=yL)?Xp-E]JakL/
U"Xd=hK9r.1d3$Dr1g^#8ovq*h,UG4Z&;#'DZ^LDc:$QNl1H4>_xjR9lRPQe$.m[P
U"B*4cX\Ct[%bE,ZHqtoyEC-jf4&NT7'2zv*+1,_T*WuezWuEv;iXc9qSYbpViS.&
U"^^WZ=7YafmZJ3$K9X'g<B(cGUX+TMx.Wv,XNX_h*EO6(A(6_d6aPH?Dj8bLGYAz
U"nxkjOu#B+ww5B$e;agu_qjrir%y,GSs0_(Xg0IYgF:VlhvWkj]i0.,glQ5aQX+>
U"<u_#9HDuS\$P5l])**Q<F$T:0q*=ITcW<-n(od2SIjOGUBKI$&($Jwf.j]3.K^*
U"eZoa$KS8bi(ND\Gk#78b5;r1JKq:[ZlTPxpK*c6l].Hd^37u,bl3Mn.#N5*>09I
U"=:*6Yxn*99.nQ8[T=.qW\g?s=nM3,q-;0dgT5%ko#Fw]3p6z+.ckiYlBq^G,aod
U"ECph;(n]sw$f$HJ'i1NC_u*:4pahi>f.[\Gro$XV0ol:VPO;^Nl+(47$fT>TdHl
U"QBD?-44tY5vVi*-FpJOR#l,Yd9/2SmSu^ib:N)e4rH0Sv8wr,<t,+:++Oe9C6p0
U"g<d_=o*?P,TAE-4IJZ8F9F#gZfrm#a/1<VAWLIGzNlK-lq)-HU:bXL%;FP;M\wV
U"0Hlik37gzF>qZBc1[?V],7fJWispm;$8<XAl-lM>s+Go([r[5ZapcKsfvZ'CBX<
U"lC2;?xqQ]XYgO>m\WGsc8(5.o.HpX=xj$,UZ<dIKdb#6Xk,HN?s.NJ+K;JK\epq
U"w$=vf.p>-0hOSwd4&PZ[>6xEVbq.(e&PJVd5OA9B:1dpw*W:j9I$Yqj5nIQ;fjo
U"uMLnJd?dmryIhF34'i,3:L&0fm7CB&*uMeZOTv^KORrg2[w_MPGLI^kEkhbV1R0
U"/J^gu5yRdlo'LW^fYH*Kl6#dQB-VA.fu2r$Z=4?'Eup\g)LN.dlpmv8#05#EFHZ
U"\5eI7d?2)eRX)xlmXPvi_RmKEO*;rB[='PGx/q+3faOQ)=\(jT(l9)^aa-9I_4U
U"UO:R(H7a_'#,S3Uo8JGe5rH-O[)G2*cDV9sFC=4MU*$%]*Fm4Rwjsj<B0mtRh#9
U"W#Q149.62ZQ_o06,i70TTJ(=uC,qNR>%R6P7n)'SkO.jMvACBJl9ON?Hn>oxaZF
U"Atxdlk2j5t4\\?tt#,fQ,EZhjjpp6v<jqq0zBtkGZ,H?Armh-h3&Y3\:>'8lmZq
U"EpC#Sl7(xQ-hn10_/xKcEZXnz<4:8\E.7r.IbW7L5rWmzW(>NJt;JcnQo%ILGzW
U"8RU[gX:9-<$D(1)QZrswJ8GQtuFDWZ4LoHI#kc&mK2^r<60X1[i&Yl1xF\b=odA
U"XD7.D^?DV[bXa*bAVNTPURoK\=V](M?g&(r5K*D9G8I62(3N\?w#-nbU\cvYHjg
U"iiwk-m_us^jl'bn,EjCtj;&hjRCQCNO\TN*#KI2#C(mEx]qR)T%ACt%%/uT?1kR
U"N$FCg>t/b0/M#^U'AdaQYr1f'5'?gyW2a.Q3xg.y#mu9=iNz1'5uoOA</5\w)-3
U"=o9;yqX2M,=MCEu=.SLyDX2=%G8TQCLjOTxF-#U'+=\VE*aY%0.x6]vWHQwtBdV
U"=(P9)A\$7DyLFUmT,sBCBMDUd#kp1bK8_C,M6\x/P(MvV3jo3O\p#Xp<],0)UA.
U":5CB2OTx)0#U'=#F)5CLZOTxX,#)(d=f?.d[yPi;0y;V[1,b?YErfJnkvQek[jO
U"+B,k)U,0)X,19Y/iYDC;YKd1rmRj6q5tf2aRh,U0M%,7eUK3140JD>U0E)wm0nC
U">C;]cW1<\5&FWtJP477?t5NlGQv88[S'KZ\JYna=j#]3</EZ8Md\X8gb,rKLqn9
U">]?PkMt'y&fR[UM\jiDPr'U_);Ut?yZdIa')Hsx4^KmnGWCDse&0WM\JIK4/eDr
U"U*JTj)5OkXm\c&72^F+vVjIL3J>JX[wyg.q4WPD/-7gZ+^(CT\?o3UmG=*ZRH=#
U"AqRnG5*N=71FWt'(QN=YU:;7[PiU=.%CeADjqGV<:si2(Vubpg/%=I+#VQVEbV[
U"LUwt0QLj/SY%0Pu),e0?kI17RG&76L;<jXJtAYwLm0Gq1QUZWFx&67#Zj4%i&6n
U"EXZtid=LJhn[t++*V-C,X6*2V%3rQ%7D1?//J^;v%PQNe]HAi=vz6PZ8x]7j?.B
U"n:xUa/Z=?m8B><Vom&fI\7:i)Pl3&#t9=R;CJ*#A,[(f1W,NS1a=f0^S%40T&/=
U"[0+m'YC9FK\F02A]d,_?Mx?/K3j?]Xb0qvpPtkV2A[I=kk2<uv8qG6W$BP:AWDB
U"3$=JdU<?.EFC<:L0uDA;/Ch]B6XL)Hx)L))Fe6s(3)kx-UHRCFDGP+U)]>VMxJG
U"IWU'tH/haarC?1k0:rPnKs[s<n<tPNHL=U1LGDRXJDr>i$,8H/Hi%+rhLhe$rn<
U"wV$8zGPzW7i5j.sqd>eYSe2FWGhbi#s>,'Y=+0+h,aQ:0,.nAN[ZD'\=+0nrD]>
U"Co6ULD6ahx50Rms95.T?ljtMTFE?wl6qu\N-uS=?OKv::G?Y=Uli1P1C0*l1o<m
U"gpS+350.D[]Kjx/2n^.-srMg5,39=<%d.>#%REP%>t4Y/+qiD/xgUXVi<X9[c3M
U"rWfx9ZV76h<I%%HjFmB'N\lfYeaX)p)K51MIJ)(^-?iV\5<L.#v*Kx#z#?QS2wv
U"td>GUPG>fEPO]+%%i\GE^mr-ePM8*#;G5uitEqT2)tl120LHQ>NX%KpUr?+i$up
U"h'rOyUjhp#M0s=uj,^P-VuB7bqxaO_pE;M)t%dLw&(vpWgoE]AtNFFO&?DE/l/p
U".OWw1heu*UDuu]rhmtrG3.,tye4Kd:umUOJOUsw6;=uX?9/$'u/yGRo6p<nr+D5
U"r8OxBpt5sgnRAzJ8,U?B.Ao4YQ7c.NqE+o&_2'7l:o6&EoX8g3&?CrPk>=bD-+c
U"X<O&;%7K>VKV/qGUfl>]fo2?D%R?uU\*Mw*LywdYxqrnqu4ncdqBNL[p1?\Ze^$
U"$*&ovBGkUyW1J.zJTnOFU9M<3dtjDUTBMMA\9&/nZ0ifTucRLEKj,MnF-Jm[Z#/
U"l<%GLsm:m*&6An[_s]il6BcDHj?TDrxznIcT<(I/?4utUs)iQ,2>Ah:k,v2K<F1
U"ML&t4by1[UNP[Bxsv^A'WL7>:B4:xrdwXi(q\EeasL5O0sd2HJRYMr]&C3iv<0A
U"U0cemN)%\XlfM)=]R+9<C.MPVT1q\:A>q51l)+5%rd?C:')RkP<uu9=;*I+D32b
U"B**J'\>jURl8Y/K=h/0n\M9<+g*k,$]1X*DH'-5B-,3ERJ5j<.C;Y:i5$ZFDs1y
U"Z1lTTC:D82>D_p/**Gy5;JZvTVEWhMQI>VPR)T/lrqY1%nUaJPVc+)5e[emvmo9
U"*,B#/000sY.nI%h+jUJ2+c*?/3'YJx6Do\]O4D=;P\BCbS)z0e32-HujZQR-WMy
U"5SH5=(&W>l(%1,7E]2H(MpS#ypUyi*=ven5K^wxyI7u_$2\4T9W?y;xpG_WFHY,
U">%V_ZJ(D$\:'M_^\3ST;?xr;w;#7kV<0DAxy4R,=]2mH^=*5D021N9m5rT#-q;T
U"?-%w+G)h=Dj\::s%mxQ?tshYqA3JX8Bsw,^Rj8<d?LKqD2UnAg4.]2]d=;AsIto
U"gi4vP?Kg>o(g?16Xsdx3m2(t%\q/bEESJ\,:*3*wz.nOdoAtw.^gDGvKnUh*,cQ
U"k+7_0H'h*/T$+V26*4:3K<W+*WRhpCO*,2'AV4ACP0dd?aVVqIeeZDg;Ue]m6G>
U"YULF0TlM0]_1:(DJNAC=fW$fw.y8LE;yGlX]nv7b)7Tq<U+%bEPq1>d\v33ZJa_
U"s(DJBWRAJn1XH=a#f</[7GMV*JV%iq$9>v-DAub>BItOkOI3YH;AYX.Gk,75DQD
U"\FsFjLDERVxVFiY#jDI3Xi1FTEP/5uN((&%&FS[-.kI%cJFq7_f8J\E6z]lNg,X
U"CM+faJRdIN354h;EY;)(0n>MY]FSpTCbh^Wicbn&2msXFFN'+1NM0K-Vou*#3%%
U"cHJH[3jFkR\.+GlMLaA1kp.NTt6sumnIc95Tw/tvxUgaxl\Mh\uNCAp;e&>RgM'
U"c0g;1ntRiWM=POukF[CKs+-u._,MkDt.T^Z[sx1xtRf<9HLV+\I>RJ<qflJ+n18
U"6W9h1(ciMVl_ge'1<ATTsH1KkG;UcmJ>fSyfZVxGpYeCS+rCp+A7i,W358:q5Qe
U"La0/$SCk^Px1^x]2?<fBUYn:?<&=]Z2Nrh4?+H_EosIdqqtf;5ERBw>E7:7Hh<l
U"ybWjyeeDOKUN*fXeC.+;'m3:1&%$\hVO6x4vDNG$4*qxpjTGeevuMk^l<,&(O_t
U"Z'SJ)6p+Zq.68I$Pdi,#l*)b\Gr6ExFKgH)LAgljepDPvVrh142WNn$A>is:f'-
U".QLz:)=mS:,1W)Xjq64&R<l=-*JoP5A>VF=T2\OE*t5i;eYD8bm,oP$IS:N2%W0
U"\dGWv4Ck[;^)83>/,GKo(u62c+3+,[Ef2F'^x\_,\3J*$rhN\;]55U(7_BfwC-_
U"T3$LY9$NgMc<)4N#s;bVe\gWt$]C+5$U$nccCOdP$+Dz+QJV+-n7=^FD3dnhC=i
U"PLD*+0^Zi%->xRO_4Ft)w94:<l&[CphbOF^U-\FPOCw6c-q0-0bEkAkgLRU=dgJ
U"x<3(Ygrn$ctzoqes70BCkID=eDGh#Q8dCJNK40P,l/HrPM/D%h3Q\]B[^%[-R-x
U"mP&ZXF9;j8&6<bp6UJ,mFa7?C^'RYp]%aG;N10(^:k3WHAj*Hq.SZUyaAiypl/Q
U"WQf5?eBqZv30#Nl6%A^#(yXBlMcR_7HT>U^0U^G-0'?&e]s9/Rsi=ScKo\U7:r2
U"n<hT6K*Iwm7qJd3oV7i'L&?QKAai?rNt75HB^SUS:osZW.^TzeLX;pbd%;cUd?Y
U"VioV=x9hq;H0FB=;l1/\ggl:yj\%pQ_lcvm.)oi6f2F,vb]?xxOB-6+KUbokb5v
U"[tYh>_-8*T;4+ZVw\ch_zMT5)r7ZnswsZ$Nzo2,SM5Cdz&u-R$]1iDuWyb*,(ez
U"W+]&bF*/wERk<*FK=v>?V4HcX>C%Lv?h=4:XRW0Zr(7j,haCQf$OVUJHm35c-e\
U"rl_7&0x\0RGYk$Qfq.M\j+Jzm3)5S54Erk.u3kWDJ,%>t.F%=BQ/&qa4'Drf,T(
U"=ce5<G5Zb//-&VU)'=E+s;J,9=SnxgTMauiip&hAF+5:C+lTSi9C'<i2SKMWMok
U"/NHgEZ\G6rP7i03AO3%2[[aB(q]*riRrmPqr;+M/A&Li_*.eii-f*l9kKJvd\nr
U"Sno/^oS15UnjFn$?LRs),$^VDZ+vgmvSvJ/(w_*?XfyG7lq3dC/U/UU3:5IJ3Ui
U"&dyC/kUqY>;(eQPU[UKr,M*W,>TJ)nH2>S6jeCJc;Duku[Ur#EK;+BbF),mO=FD
U"']j0/s>:ew*s&sx%ac)9v\k2$IA%_\_-s8fqj1Bm7SDj&yT+5b9S#6Rx^]%$Sd%
U"20%t8v%AGMI)HgefVSC0$44/+g]EU#SN6.n6:%0t,wv3Fgn[hPR;oCFQPCme$TJ
U"<L_lc4d3/REP.Lt6C(xLp\G3U=IUaL'-(5V>grnVv5ILa[.O<Tij*GA^uLOfnrT
U"ElC%a91:U$_>Uea)1<Ao7'I_O]oaLJJ+y&+97:X7J8%Ds#+N*d*rH&Au=yRgi:1
U"7A7GBMC=i,)ZHzSU/XCX*N17QR-bvj+;Qj-1IdZg)qq'q9Niq2MiD:FP,^p/Mww
U"WW85.noayC+I*/5pOO8e%#FYBJ%=t&LlY'h8CAkdG5Kj='Z5]fXdb]ACp;4zVA>
U"'TU_I<JZwQjL/0=hcUI1Fx+9:7(Dqfv*0]ro\>>#aB(7f-p[*GrrK)$,$td#<i)
U"'SzX)oAXA9+p^U_jno0-dA5c6S?Fd/J%-j3/'%7(#6rL?j1NR';u-.e1%2G,*n%
U"*$]m$dk2\1l^L/.TXA%&t'p>_ifc^pcYSYveAj%jq))*rbB<55xNl4ThMAh47ql
U"dU'>u.LOs__UU/'FS;yv]>We'oZl&sl)GUvusFY+NV6lb2=^E2J(4+E&/beXRuz
U".2)zy&zsz4mQ)nWxsuDT<=.?I,]V#Om>On,8Qt#A6\frhyV4:ePGud**$51%#7A
U"pPk7oJ*Yf:Q/Hi]46.S:ysieSS/HqXRGcq)Zi-SO$/\/,9&%TTr7I9'l2[%V.E9
U"WY:.r5;SfOa>Z.LZ-.oBSR$R3D#EOnB;CM_usQ'4-E2]W,bQ$MDfRAfF8?;8J$Q
U"<#0,,KCzlE/dPrK(F[f-)rR5K_/XAZM?^#cr/7))ENl=P\_rAZZ8kJ8V5Q7TR/q
U"V?tFcU3m-'ZKWFifSAh;M_\b=;^j(SN:[V)n7I^dA5l&Z(u^MxR\QDYmmt.%[ql
U";\.[7k$i+(fSMkve\KkW0pSkKeb;4Zrd7wcTM*gFZ,i^g\Y]xxl<b;%&i%VV'[o
U"o5qam=(6=7=E0S]eZ/KmpK?:'Kb5-l2n%DWczr5gkAKq,GVp1.+Owc^[;n.=>&e
U"Q8LP78iMPy-Mln<TL;98^qXm-]/yxp(rQ#tI]7>3AR+(SR[8<;j8E8PWA;B#]Pa
U"[ErA[+<(rVK=Lua5J7c*?dU8ui,Ypd(f7E/o1U%.MeKBF7hpQfG>.pG:.:-IS0z
U">HU46HuWKQ0=c:P>B10tEq4pc4kD$g0_UjMQeAJG&Jg2)$Id=CY48VeZ%J78M<^
U"(F?$,^ON5,HBF71sNGJw1+5omT#fuJ+sVZ892uVR:t\OHFDl&8]8[tia-B&9q05
U"v:nU/-x#P.1%WDAS[3ftp>>sK7\X9jqW]onQ5%(%<h<1'b$8oHsL<MNr]Xmanhp
U">=N]wx#1G6arIc*g+_>nYpa0B3'<*69t[A438=XjvA,anoWZ_2WOQq92=z0856M
U"sr3SKNTZkU:[DlYifcBNoBH8$t8);ZXxEIdnW/6>i%MQHUnzp//8kLWWn912Tc1
U"6E&/J6d48&pFROZ9(c8JUTfD++/'h[Wkh8O*'iU]>VF;N$U+\prPZ$Hl_w+V+&A
U"vR4]Vh5kvZYrSzz1i2ZJ;G?/iv=Qql6Y8Z^9?$605G/pkKu&Z0Jp<cb5-gvNLwZ
U"%N73kRoJ7^_U0GtIV8/l\#A,rAIfoY.lj206u2WGj1Tv:w2k?4?1TKPUJT4FY8P
U"v>BLt]BMHQt4w8I0p;U8+jr)57%4#aXox:UG0<=yzrm:)eHXX*:BxjCm<^rCv4M
U"94]TVCtGOXe+jqQ>WB#p;n,'>B)O[x6S?C9&]o/+OuM]3R7ZZ>]ij%;2U)3\gd0
U")TQz8)HBi/LU#*QF8S.VA%eih#0g:d1]wC')t=QAMSc-R9s;Bhur=rKOal*Gt+v
U"7fP)4j4N1)rZU#$9,Ik>P8Ln+?F*-JAm1?At,%Bc$jQJ<l_%_$g_(bD)->vjmXg
U"'Sv#iVL)nfG3%6f,bz0XJKfeI03=U'%ZgAQ*o&j9E$F_*T=9o<E0h1OLRS)NR0z
U"LNd<H?%O^^H)yemR>D/\Z%0a?&GXbBNng]#B^8>XFi1UBd'&=J?c2sGdh=mm0_Y
U"s_/=kPmQ,1-v]6T%L[up$Zc:P*rxbN^T?;os^fWxJvnpDION/,fso4&q4=^*4RP
U"c>KhWlF<>6rF,OtTN/AGHA2J2B'E#(dezKYF?4x>F*:qO'jHWf&W^F.Dnrd5S6*
U"1U\&3xw/<0el3Yw9A5w)l#IXH&:MI5E[dp9('CK6kh,ya)rKp*nJrqC>l'CQUrF
U">=O2$'cXALedU^Y1_=T2^((ZSN5j#,d$5/BeBP#p8\sEV0WHYFM<9KWVX?pC?p=
U"qkc0k&VRNtHnk:YSB\gr+LQn:T>jJE<U^Ae'G%k]M#3G+9;.?DeY&l[cJhd-VVz
U"+:u1+XNqhxt[\r3)2IrmWb#.%/X^DT?:>7t#[#J:oAoBMY(;N35z%gibt&k=MVj
U"tl01n2lbdZQ5KWkM;rAapf5ruLV3qh'ImnY:0ab3<Wc1waGImlPww(k%y%F0eqX
U"W[ZXA8dbbJR(\ECCWE52L4P_0uX6MiLJ4L/9f4y$76*'h\P/I45[pk;T^HDX=5j
U"5&dPg9z.,Y?>cnO^<E=<wJ[l<d/j:(cEd3'x$/\SzVq)9&f)ir:7_$W%xVaQl-a
U"z&EkBR'.lqH05KG*g-Npr0BO#*8/Ih)6JUn$1iw=K>tui.fKw&EFIb7Yt%VswO]
U"5,?:pR#kH:;0%l;E/H^s#?DRT[l7]6/;0^TS4.uMNB$h%fL3Wc+0((%qq[qU_92
U"*\bw^\&9wKR9O+o[-P&JCuPYd\dj8:fdn(%_TS9^JZo$djxn%aTcSoKHH&I+tqi
U"_Nrvw8I>T4btIlx,HbZBqcTwrG27g-#%F;0vmYP(Z:Ki=Sh<v6a&fI,9\G?,5r[
U"09*w\u=;%XfPeuU$3F=>zFc(B=5VGgrhq38HB'_;OB#vne^A[Bm/C4N\hBWIN#b
U"qq([*_dZD,5%[UjIUkbY2b8DEL/kb2<5;>cqe<Tbrax_BpT-Lr>a,V>Ni2xy>9l
U"ew.bJnoEeG>R*A2+Hy34ylhAPrBdkgNsV;h>/\<(Z&vo*Q8^fRG+Ff6>Zg5Qb)M
U"hqz?f2P&8i)g_>SdQK')*N<4]g8QP0:2,dj:N[qL(YSYXqUzg;$X$H#',RQ.FRw
U"d+02\&K3PJ4XWfs):u1irkaoHiX,k&x;Xq%R6\WDd&L'_j;G7=Dl2YiL%g]7.0A
U"jh+UaE#OYKrX$ab:op)&:5<7e*\'UE#8gl?KxK]qbV,C)7rD6$7A+7Tk\9&lB9&
U"r4+qy>*qy,hLLhVF>ASmsSc<:O^8NAE<6hFWZj$<7pTdcb?Rr>4#dCyZa&cW-7=
U"wFnJ?0m;>%nYHrD^h5oN0.SAci8aIj+\e2fIZr&ls*o0Eg?m:F+sP==6Lzs]$-%
U"ZujS4K^ubS$Ap<\rKiH]ms&%u8vC%K>.]Zxa&%R;/;Av3kIn5tOj7+/l#%HN;N$
U"xVgs^e,MO*DBo#LxAB<wzdkGw;_:T=ro^>Iz;kJw[Pn(TeZ(XCxr3eio3a<fJYr
U"deKL7)QI),K;8/%^NE)W(y(K[];^qqyml?(V[Cj+A$Jfa#$G>gNwp)V<-_SP($Z
U"kE\p83BheaXn.\DqqZ7w;acOPONcbmc'K]z=c0o6?IRN[*F3Z6vIBkGOWHV?&lG
U"9&w++qO>9qOX%\.Z(X_PSV:hFmPhou#Y4QA9F#U]Ko;u,NSJ<sk69dx/>dKl;Tf
U"\'_K4eg^S'?TKo2k8I__p24fqnNsvFPybF*,vfMj6n3\n9]m&:5]Ma]no^C#hn/
U"n1Q=9B*mYvJ]<Z3#%^9nH<HYDG=N<fk[sv17\;<PoHU*oh0W09oF^V*Zt8s0q%i
U"Xp'DRS[UxcQIS/E8#2(lhLVCVEet%3<XFo)UjjU9j<dE>U7Sgf$,(^hCUFaWUFw
U"RjLn=/HQElKI:lcSs]#7cYF3c,e>Y*f]DlMY(JtzJCZ?E?dl2K:gb./IclO455D
U";%OAI\TIA=RzAMqlis(?RK4bvu0atIvGtGzZ0bDr7[_W%k2z7A<[7fk$%?3\g&o
U"DI.E/FWl.98xmT1ZE77TMx$\8#9Q3TMxd\8E[^DT\X%U&lhC<jl7Tu5FU6T3BuP
U"I<_T(qg,UeI_37l'])_\+[ci0TpmyC#gqz'+]KwnF.EbAN$i4_a4TP,xY+A(<#3
U"r2>(hVwewmgA(pJ&vczXVbYxkW+l'$iQ5fom;/%?3I7S:Df;$M[JDiI+-fHV\ep
U")B_WrM.vC.gC'AVPJ/II9TYT6d>+-BjLK.fR*kp0_._L+WI0U(j6TFt;Ha1--bT
U"#jm_a,SL-r?V]0fvhlk?K42ms$YSEuOPBIiC(m^Lh0l#0Sz?6nYD=fw?xltAJPr
U":Mk&bEQV<*3fB>b*7R=AKwRWh4mR1ki:i>CsTqp=Z],9_ZkJS*E&ZW>SAG[=hd1
U"_j;k5k9E(3'\314,Uc6e>g;i[3g4?Fo<FiHG1Zkcmu>aQINu;(L1A>fnz&[us%N
U"7wTB2Q&S)=7EJaumPeX80%&+?4Xw'3M:d?4qV'Cr;d;;_f(Aen*&Meqg:U[N4ct
U"iFL%cGUPoe3<Wb;zoB-7d6\*h\Wk6UTgy^5wOnf.)emx>Ru.I\m&'uXnb(4):6+
U"Ml+AMjNxT6tVMLP&o:+J]CL_uCl:9:z0d7i*N_5RHEaWiwL0-Dfc96V>hE*Jou(
U"%:HrLDr_Mk3[Rc'tU^1PM9ID>cS+>,$5o;7tA/S4RC/wFbxA3N_GCJ7.h:);uH3
U"c9(b:CzR..vj3P1VoFa33V6&;=pjl,YK7WtSM$-pI>)7UQHcOs:RFmi&Z.G^*v2
U"CGdJS\PqC%0S&)F5h3uCs#e\Hmr2GNJ]*?4i;j09t9;))]&A0uPUD$$(z:_3VI?
U"k4+tE:lerLgDB>yx_r-4tAl4nvfB'av:wfwl*GwqI^FnhCOvtB6Cm5M0gRH:GFf
U"i4A\MoM%bIPjbi4qY5W_8l.[P%$W]f+;%m6#rdeJUUb<VtP$'&aUr8'dvlmclo<
END SUB
SUB V3
U"Ac3nFYRE9arFYmvO/ar7;4r-%l,2d:-kK&n-FcPK_v<gpsoH^g<*ne^;a[ttpTB
U".XGw^*ODCS]Z?RxP/'>;H>UOnfJ>e2AI4OH1XI80-j'LFFTJfDkx'1gq<.3W(M*
U"^lpkl+]-_XivB&aFEy289oJwFsR+OM[,F6[8+VaOGZ%f0(9O&6Mp9FE>%;NXrSC
U"oqHo2J0R<8Lu;o(++ApI$2'X[d.VeNpA;h=O_4^xd,0>8)b;<*O1=QE)gp%;1#q
U"srFrEKN6'72]J#/qcsdfN.SXBc/OFq*^.XSIm]q[2<M6QAZ>Tl:bHr\J1\ME9jV
U"U#a^/#i3w6Xr^]k,4uBmjH.Cm*)O\41.K/&#DA7G9D'W_+Iip0Hq^FPl80O8.dI
U"?6b3R%().6&,_j1Ki+_^;0<qGoIWYLSps;iOL:Mv9#=;i?FtPP(%+[8_E$iu*58
U"HmYRU0Gd_]9#;if?FPPgd*<wfrnRAE[B0Grl89&j[0O0R3.50(&>A7iqo6B-lWF
U"N*0O\3L.+S_1hcF3$Rp;ifOFP0n<kp6SVQibUb(6<ElI$juR0<0ua0R6YlFhJc<
U"0^7YlFkJl<0h7tlFntrL><Ht5uvTHX[sNR7A/LsQqfec*.XurVk.K9u#&m?UJS#
U"rxicj?AnpYVi<vLsUU'4jX*(A[J44t^;fg7P<Kv54UE9MKgEvPrurmHUAg/V7qd
U"^pF*r.mg3Qs%M$wvKA(HN6RFNhPVtq*wDvKj2Mx30xNePtyN*wvKLz2x5A0F&%$
U"//^Nb'Mxw^y2^FQ;[E&_C2^Lb'Mxw^q2^D<;A/,2eB\j=b^HZ,elQQi$J/2<I'M
U"xfwg22lA;A*42D=G[H+S5O[-H=.U1&DTu4S^n2UU>ET:U+=dNZQZG2x00GY$\4Y
U"$:7>%oZzVY2p?XD#gp&C1C_pAD\-YijMLN-f=h>o4AeDF#UCiT^omt%ZQpcNraQ
U"hlNg('kvUO\W]n:#'D$d/$IavGuC_i;T1c8)COp,JawM/G%qM=#>si__AmX#PU[
U"J/1&gln(]fB%?T41K(Kd_R6HV0]3u9T)X%Y?5JboF0%U:te7-:)6K:\1#fU/V#1
U"4n?Wk+9G;^SptQsT\*U1IdK5qNOpk4^DB\4RWvtAX_u2<J5]h;cJ:oNTrkclYY[
U"2f-q;>2z'IW)[,1J;kLj*5xr/w(Y'yueZB9F3'0.Fdd2&p*W9wms[;mwI%R?Om_
U"$ucsi(j?eOmV7G?cuD(Ni=waS$CLF95>yj:on\?*.xH%#Fsp<^Sv'1$KBsqw%o_
U"nSinl-Lt)D#yPNKN)>/Zb>>,Y,xjisYORZf)5bZl?1oR6,_'XHUEh)Gn5lir+XZ
U"goVl_kt.GX25Ac789=)Hj.B#'VdTkYgFUxS)P7e[5mH/N^o_p9.rLkazdhi_s3'
U"\zKa]ROf61<8USKYJl%2ytVp%fwm-PH;]80nosfPt%as+[4r7cK(.*:+9\YlGge
U"HB0XY[A-/QbS_aH*oA5V3Ddnie4bG3(pa(YG&Kt8#gd6[)\FM5V0O52:7YSLH8b
U"zKG\bJH\RbZK_%rBkhgslh-:7A.qHb2/S_CBiC5bgw$f>%s*\[35&LMtybrh(P$
U"&(&&R,5%tKm6h052#V,v#ddg]bk;,U/jqQ**HYkygG)=cD/ybNU+hU(jy]92dow
U"#v[iATgX'vuhJo'$:aTv%5M-znkJ)Sk>X=U\qo3&75G2[/bPc,Kf5nclFJ.WTjR
U"Z4riXH/*bpOFK6Tg[x9;rI#EKA$)gri>liGZvN'NQ.1+161X)1zO]l4,hMA#W-S
U".uuIv26Q2$,(3BI[;ep.GpaYtfM-q(5]ZI?J\E&GK>q)>EaYw=nAo]=Es,>GF/o
U"=N>K)3S8o2>-\NxX_MMYQA\Xx)kf$xMBxZjZHQmdSiYd6Y\$Lpju7re4JMnMBx2
U";8:K+FVOG:,Ma^mOo'g<\>M9LLKkYRpJifw)*2[;:/tR9JSDn1P6cTv0uWc(Al>
U",T,&_-K(CA//*k4,t#79veh8w>n^8^:DQrm]Vmsm=V4RcGQG_:UjA<$V$1+D(Ma
U"%GPKhIPqV%oLdPRQT]f8vu))DB/w4&9=Mis6?e%l5Pd$2m87l1t-=;jw%\hZuj(
U"$[]pFVb1=iqOhnVBuU0A_GS7+bN5?jSWjY7Bkt./nehJo=O>;^\Qg#j%,-p]c(j
U"WIC^bnU;#lt9z,g\.W*1RH*WU+.Z/$_h)99kq5bR:#I'GF,,EeB(%m#\<rWK*BD
U"W<G,)i:Ocq-1.nk:a#tkG)Wj%mm-G=Xi2_?n\^o1mZ%DdGXqvN5:2i2tXtP%=u:
U"/MUMMM.,F:[N]Q9*>>^sdS'QI*,;qoqv,NV*,5sYtMUMMM.,F:pw-i6MMPMM.F-
U":pu5U:<iaru>\hi<E>QkV#2mhKQmZpvvd=5k*>KBwJN7jQPgo[tA1xU0]XYO%mK
U"Qkm2>14oPX^V30VP/Qtc'U&Vx<n07iDL.M88XOmLX2M9Dd+['jHbh#8rJgjvZJb
U"NpNr\oqX$80gjfD.Mr&jKyd5XmL.Br#J3oAFj8ahEZq9^)81=Z\aL,$7TF.hoWA
U"J8^LeR+uav=8j]?1+K8l,/BXQ+uEaC'Dl<-l*3um<UWk^DDkiP*I/xFI6]fiO9v
U"CK8hoAY4n#tMMkbvz)3H*VL2YOp-:9Yv2Rb:f:9\h'>N:[d[PCU[WGnr[F=KLpW
U"8GnYrvVoqI;l[TgAfm,:ns$JP0_?s[][aUn*CblMageM;,Sp0fdE*Sh;SKoPl,$
U"86[?6F%,d0NTq>0x%_R,s1rw&?.bvsLGYmwY0mu$f1l?ClW)B#,,3Ifjh)qWq1^
U"8t9;8DaYF%G$Kni98_0$T4\\O].f\egk:>usbi7dzwGT:Bdv8b/p;0Sj98ec:Yk
U"^yraNXMrLx1kxnsdsDVk;cqufGrufrB]td7tcsb]kV#pug&F[]OUr:M.w$uf1_u
U"p$Dup$uJ0_up1$up_bu*dB+2KV2]VV2V7V2LV+2VV20NV^gJX$up1$up$Du0_uJ
U"p$up+__vMOv#kO7$?#MGMFt9]#Yn#:YD#Y,D#Yrf#YD#7Yz#Y9pL2n1_ux$Dux$
U"uJ8_ux1$ux_B_vM#f#YD#:YD#YFr#YD]#Yz#%a/J>#VR^1?=(rn$fg;bVgeggPe
U"ggeibgegVgecgcOwI0Xm#-Cl#-C#o-q#->C#-y'#a/JiggegVgeggPebgeiggec
U"/glpI#HksOZkPus,Z+C6\4bRChI)cnS[Md8FvOxq?%0xE]h6vOWLq%vUj(HWE+m
U";47bJCChRaW+/m;4b4RCIk>cn-M]dNvoL=cs2GsGENTFtsW$b_6LKJHurRlq#[)
U"g]CV.BZ1_HtlwV2[g]C#VBb1U_5=CWmWbwF6l=ck3=Cm>Wba6BLVHu&rlql;\gG
U"sLP2Q$dmWxpWB.lb]ST(K7T(VT+(VT(]LT(V7T(NTGRv#8Oes4oit4otV4/s4Po
U"t4o-s^vMG#81Cf81C871q81,C81yo81og;fPNT(bXkmjUvbW7TbgPTnbO%L+:1#
U"MTaEC#L860m[p7/G)q4I80**m7qAWE/1as#BXmg5,?Zs['Xi5:F.;'#JNg4Fa:m
U"<FqL7=1COl*seVZFMQY/,C(N][bHD&vi1N&bl25$$>'$]K6/LR2[reiSp-naiU0
U"3cN[K%\+XjW__k,mBpMEcEB-so6A-+\uP4tA[EwDeduwp*4Z.:#PU3tc1SH)LdC
U"2%CJ\u1ZX*v3kkJF']JM_2Id/7bxdW;c=G&V74jtj8/LP$nJCet(+Z%QEo*S(]:
U"sW,pU+7w]>DductnTj+DeU(=n:s.7SXG2<dFSchdA>QOFU;OPCeSpJiuNn$Wz9V
U"gqkpn/5'>7WGuoEQ3]4bWLl*)gnSk<J$S/z1mVsuPJh*l/&y^nAF6KK>3AW2hxF
U"yDsmnmJmSHtr01E9j2XSZp9+t7*KNtEC32URZNv1J9^-fLAs4]1kd-Thh-ggwoc
U"lxEq:>>%tSN=He*M)v'uo'Ol$e*R0c)Sb_:ZXRWoV/oP8Y<pa#n#_tpXbHHrC6m
U"H2(ci41^Hm#^BH[VSx%;?f4xP,FRG3q*bSG,)fgRKg5']qO)bek>Jd4QXL.eJCU
U"bB_D?by]D_82KhMpBjl4*YkiID9wMBl.k-ST'>0x$OIWYW^H]:LEWkN)q.)S25>
U",-9,wBm.3IW.7?[bP'AFf5?9gs*)J+QQ5Idqn;_lE(5'RN(F_dmDe:x5(ig>Q[U
U"Xyrq^Ovdd2giFp62:4HPkg6Uekn(3-q*1(,vb3/;xp]'qsl'^$R^+I0ZB\sF]m)
U"+doH2YKkO6ULWa?qUlMOOX(C)oPufJ9RlSKMAbMnjS^<bEjI(&f6GQW+Ww^n'au
U"Kgs&D];8E\(?1t*K]?f(P?PVFE;dx=RTOu%nI?6z1jr.*Td%k1*FscPX7oz27>2
U"*e=;ZdhVI;PNO<*'vh,[>QO[4X;0G[=30l:G%oJb2a'cp5f=)uFa\_p4)b9=hA^
U"uFK<:4>L;oaZWEw4tO0\lw(eGCX&6i$.+-7=6x\*DwY:i=ow>3_ZoYsu8NI9C:g
U"axR+><uA;4#]8D9Uws&7dQrbb*LfxHWgBkDe\aOxFM&wqO4&tk6;)c[Kk&YPjkt
U"^F]SkMjS^,T/*$j2)I^U%XcdM34sIc.pz6C7,jdL]qhxI*nu5KOs75Qvo]iWRe/
U"8Mb%?9Yo80TFvr4o;[dx5EC'KdiX40Mkvc'8Vrs9='jHwK&nLPa::MU8Ah_3q$u
U"sF4i)_4cd]t5S%(NgtbyEI.a[tWp=3CFsPzLM#QipPY:#r1VWwc'&Q\j0\AQY85
U":jVCZ,*rr:J5qn:K\POFr%i3&t$Oq?8m0/HMRqd]F's_>jc6H#6Gn0_ln^qiR9o
U"CgeaFu]-T[br93MeK%xq]#MxI:U<_Sv*1sR*aPmB0kl6UEkTipO06g0a\C7*LE0
U"3?a%BhP2N,bIe+%>5zOJULyf.3V0[.oxq_??aH**6'>0KNPZ/>yse+i6<oT\97^
U"0jPG<;7VdaH$^7WpK$j0r[0F;oZfda:r=NuTfq,>uA6o9H*R\MJc/SnH($E[8Hv
U"=PcEuFY'a:Tv_*E]4ZWT[,40PY48HhF$f)9Twp.SvWkK3A14=bItgp/l2#r2)3+
U"bLxB._rq]XbeS_$2X)uX1Y2Rtinmp1h7SPStvU7JCjEW#O2FEu;8x=i)bpRgu4L
U"o<X28&M]RzHk'kB$pi^gL.[cZYqE1A1\E((v3?ewJ8\Dkt11i4+K6V3l>12P%k9
U"a2MYgG/v%/PCr^tc._):r#9(.QxbMKh[^%=5CXy)$wGgE7rC#,mMHCAtFI\U<Qv
U"x_,R,T5W98W?k>61WLOh^VU?o;u:pVZkPhgG=ZD:Lem6/mtiVWXV(xAyZ.$Hi]P
U"(;x;CJf#_ejjd_&-YH6*D=D81emcg3(L9<w+:>gk-cAgu\pom$\<qPxAAOo*cqI
U"?e/S^/EQ+;QDNQM[Q:-?Hqx'/r8MLc,MY%t^:hV5FwO5*CeW.U7(NA?Y>ODs>c)
U"E1+s&&r6+/otQ,7mle6pI%)N3h_pbFs/N16S<1k]Rzlh[/NZ4Q,I=S<;STw$D?<
U"B[bOeMp)'eM(rHaST1X6<%brUl84TNf1zF-NoB($aqcgYq%fQchMj^QcgEl6hN,
U"sbio.G(iiA\DGU;4sTn[UYR-o?SZ8JpAh0hy$wYf3Yb7.T8z+Aqer-F19fNt8]x
U"'<Tk;nQ\f?/$xovSrHOqwE)kM\YOm?9rF4eG;kuJOc<,TDjP3R3xSbJ6z)U5&dA
U"Gn_E)Z,aW*_A\g?K6.&BM>,JZchj8M=V*^Vpmu5sc;([,*8Ux-t$>unC=T(*m'*
U"ZaF<9B\\&c)$8Y8\TQ?x'ctJD=<Nl6oAcur9r%1<J/&-yeNs'9$Hsag<G<d?Cv*
U"6wNbE>Jv2gw2x=$)-]2RoZIl3(1Qsj=YsmAzIm0PHq*$Yn1,1(]l'>>&fHTEkss
U"TL?b8Rk08BlTwjwc5liwqoi>'3FP^e6W[hm8C7g&6:0(c*1j&2_kT9Z8BCPP21]
U"_TeF8F5NiwXrs>XN%cgX$gV3+[Z^R&*Pa9_Ou)7)EY.;P';M=Ulx<)JHzSJdUm+
U"RN+>$-^L09rqq\^?N^^pDX,zeAC+OwKkLWtG2*iT;X<8;nyr;4LyK5?V,-\zoF7
U"5idphOG.R-%b))$bO&/=C6]hdFE*COSV/E;*U,u\aZ#]$0Y:XM#]mL;KdrIX-Yl
U"?lR:#8<IGQ[pnw#U8jZ<jN2cgCiNC]J8-I8*ZP3)R:vVWQ[=_U;2W*gS&0u^S=H
U"8o^k:2mDjW&h'?\;Nnl+M-:+p.#UQ#GmVv[rr,5p33TVD<^i;ta%0:b6mo;hU$)
U"9JpGbr'ajOp#I,UHZXpxie^qB6oqSB2Hmh7tEmf0kLIJ8W]Z#Z_5Wl(N5xo:_ev
U"c#o%;0V2pn^zpAHpX78x*IU\=1Fq%<mau'e.uF*s4pRv^;eja3udajd]hen(G-u
U"ccNm<C;FzKZO#1z6j,,HR\_Z<bPRFbPp[X)^vQ,DU9urE1Zfucl=NC6dCC/ND-;
U"/i=l]'3[JLB)_X60XKjb%rB'*A+YbPuFp\pnRh,pGReT;e3MS7H,cC8:]:(TtQ[
U"Sg9NiNbkD<+/WxDboEO'-o$O'-/L:63[-Z,><edU^T_B2i)BVGhn\X5lk(8,8_5
U"fLZ/arf#Ep]V3;h5j50fRmB/D<NDTe7;L6&ah'FbWO'ZXF6DaU/mjros>,,XjMZ
U"_^p-b[=?lsljOy6<<nZvelGUwc.V4?QjjglV=hi,CLp4[Ck>btJ>KuIj6h7qE\0
U"Be##[b(QrW[C:9RGKn,Z9t=NG7w##rOMdTv\A0/Wx[<G.*2u^SR<;]#Tl67p985
U"CHuL;EC6*\TVJU+5S&)*3/8de),Z($YCE6^zdh;k/q^Kpd85gVLI<[g?:s-N0lE
U"lfGK;Qk4L76Iqdh'mZk)bbG7Q?PN<H%$wSYuEx4aqnW+I+UM7r*6W?Ty>^Ins/v
U"Yyz/cO)8?6iB3YxZ8hVC_l+f0,[69qL^n7F6/U<^=E=W&Z5(Q\8j#C]fd()kHk^
U"ZL2HjECny4(Y4j9d#So/7/rWY[bGYlMqdYRIFP_u3;V'XW=2t$o[VZI[hAcKq+y
U"C;\jh^S/ZGK#5J20bLZBZye0ty#^ZD$65x,stJq#sX(.Cx>-,;iC2nWwd63btV,
U"%^p?YSX0T#&#L/a#o[LFG3&WoEdCW=J&/Lg1[T=SaP+F+S2b799v,AW=TJApiCV
U"C8n7-5ieS>AY6Z&uc[FYOQ[.hQ1n-4AqHKSG;4XW:Ci9H'97\'[Vw%+jcYe4WX)
U"/x$&=(_V,z6=\=Ph+$SaZMobpRTll^d.?b22)kFDOP^(jjv9-xCP>1eIc0);LD/
U"nv3J+0edjrGW,jjOL+Vx,WW(fD>Y%eZ<#Z>Ry8[oIlE6S/g^pqB(%]RuY1TS/<Y
U"JL$cm1G4IU%BoIFxOQ/%%[*QAZiYkwmU.]$KhpM2KgRrv&3N,eWR23GZYeTXIL?
U"Gn(APoKQQ+bcQH:Q4QyP%win])<cDBdNHPaT[TQ6m]%<OwHm%peFEI<DF0uMtqw
U"=gf$0J)L[R/Y,V,YH=.v;T3/$18.meaHd?HF[pbb'J.XkTZgk.kO/tv#ewhFc;l
U"+cH?gh:FrpCE8(\y-RU385SIIgd$E(sy5fac(9X65HLW4^A.:ey\H7'63fA*f-F
U"$*;jwJIaE*QQ[s5FXLq:PT+I)b'*\hhgtaZ1]L*qDf&d=YXN/Z1dEC\qPRV>Q_.
U"8RT4.5<Z>X&;szLH/J14u:k]8RJe6j4Ag]S?aM,Zl]?C2A]]isjok(Dc?P\g%bZ
U"PJV;u;A:vWa=[3fhlkTn6lu.QuOH;kGtwA4/JfBFHEbe^A&j3mgIQ\QEfsn5#h3
U"?B)oF,k=eGe('i9gZ[kK]>E&g\-,gXyG,_US,]gABdiWsE]UzG?]xl/eIK*E#oB
U"zK/_[sfuqt;d:r?V_*+FuWh<J;L+^P(kC-h$Nwt#>4q%2aj9LB*1,ZgIh3D]^dX
U"t(w0bD2&5VNXo^,I65MZ+c'cRVmxc0T%j>.VkIMFubXKhJ21fMpL21-9d=GuW$Q
U"b)nGG';W.6&)tG[\M4_*Ys=.j2hdI($=3NRi64PkB,tLga(cZ;lXn$86DlH61rl
U"2\lS,,Oc.aPJ]58,)x;9$\v^VjI\Df1OYAKNQ'B;VH*]i^=n8[+p;%ib\>igvcJ
U":'kXEG>'U;R64W37US0&im$cBNPgCr%K2_:$+nFx?U&G*q*C.mSE94o\qoMDXlg
U"hQ.:Tf>-mf*(/e8NlD/-Tz/q9^R1,'=]'o_rPwFOR1L)Pm[(?q)D\muB>3iV3w*
U"kh-4Yag&StYCN2=r,M$vPdV'#_M8gZ*O<1cHJ-X8Xa1gEPJHn0mGnN0_&H)TpaM
U"+GNTzK<\&>zH]:/>.^pEP'5g4-N[Z(+$Sb*0#E+/F[=F?[>,6s>+/l,AP5g+/2i
U"TG;+P(GQ#]u6Bf*Yrj'?C#8UMmZ[^abW=Qe]?\<NF1,GZ.i_+=C;h0nF;.SS_5V
U"ho=7[&o9KHu]<S&X)wz.pn<vf]HN=Na%=7T2Z)><#<_]e-k]CgS9?Tvn<O3s=TT
U"t?iYC4ftViH=g0EA.<6\4?66uTmY-YtOPKi>,1PYu<f2V0I9_((Mv>svGl#c*Iy
U"3\7Ym<IwX[k]$2;di6dcDjxh7hHM$&,Mx[6[VDn'+W#]2Ld>wy\h:?LSD)r8LF(
U"F'e$Pug'$f>&47We=:4DgtcQaPd]o0[44P(<lf%5f2tyiVMV<;wxh5iN-J&QA[c
U"S&KXYnpow6C\R8gl.r..dL*7EA*tsP5>YIbc6YZs/*Tu>B)t%#wlj[;;\Tg[\)I
U"El;T/5Qt%tZkCQ=xh]'#TC9V?j:;;h:e&mbOoXNAJUv.9N1qGTl?E058rc7/Nu]
U"O,/h6E^6/gCNETLpjF1D=iDF0xhVbjOZQ4F+1[3x/<rBl4M;i8b_d8h['L/TqV$
U">4w1alEhjrOhl?E%23;WnlV/##iKGnjnpM#uAA)PQS:rX=YW\).<>Ttt\?:dDVR
U"mrpN\#vZu6#a4S2EbVN6*sLp6NS5'KhyhMr'KelN*qQw=n?7(r=E[W$\S<k7eGe
U"^[7NN=PMi)VHPD:?0=Ro5mR[9R;Zo&50G+4fS#3<i>$s_x_XG+-HO/o5U+A+Vjj
U"w%uc<NnWMgUC_IM]Aej[H[Ms'eqs6[Ep4I_))WXXdk_W,Fusn.^;XnHj1puLfU^
U"xW;=;WtuM<(.'P>?(S?HRJE2O[r,5wB7.NnlJ.IlcR-\mUTKRzP+JbnV,,s>4l7
U"9qWP_23b_j-ZU<FA5Y7+dDiI\E,zg\GmfB0,_[;ns[J40Y;IB7;\pc#F;$3q6.8
U"Q/0b;/l+v9#d+fc#hdzO/GI%N?HfX_HP(=)^4Zq:[%LCfw%GGp-IV0+D)bAq.'D
U"y%9&X^S2lfBHM-OI%PI1^&?Y$+C;EPb(>[mhACb(tQg+<_UEMh^XG5s[7'3HZEi
U"lIM6un[5:Mh%;W_O:Lp<fRkkh#t^JBCA^GK51PzNiU?l#-.nx^5Q9BB5WNY'[fB
U">NUf^ii98v*1kc(6mK.AIVPS>6FG&la[/.;q;M-IV4z8z]vJ$D^'+U&1hEhh3:4
U"m0[#%0FS5WAzr4+kkhI-b>W4(bgQ]+duhGB#eIfmh0fdRt/Qg*48Q,AuOthT7hL
U"YeA_+X2F5>.Hkh0/-49t_8kqmg^)'VlvV0DoBZv3L1b\Gr6rL6vot44X758/B7E
U"3pF&HGBnFW,'=/>qFuJGk[e>u#%;ws\DDS,k)E+tALw%MqgjUEGlm'qs2W+.81\
U"T,W%1MUbL#WeA^62b?CaO<-1oO9QrZzCShbZ98Kw];gJ,qpCZl5Y3rq>g;^h]UB
U"GE3P%%OZ;&sxbb9VA_9&W):'iCFnb?GI1=2Or)4mG,*u+'.2s.J]Yqu%4Roru8/
U"KQn\0f:7s6oWg:5Gy;VyIW_^2TpXbiF$xFzY&[]faQ(X2bJ>Ih]IPK,Kc:+K*$-
U"FI2X-XdB^8%FBa8i$nrt'Stnd4mbZb>WM5q6AFT(E5H'bEz+J04h'7A:fDz/eI9
U"0CAHmVgvT8Xd^/p*^*:-,?%cB&'uO2xEn=H6a9qNQ.o$Z=W*fJ&<ff\fUZJ\c\W
U";'Q4J:PcFisfe^9D1Wre:;Wvce+uR8fu_cO-F[%7e'w/G10?T1&ODx>t#amKoLF
U"S#]C]2ieL?oaP\Znvaa50q5UJiUc;6HrEe^J00g#lQ(NKO,VaGu*wtNR6Y]H5j(
U"TDDqJjj6&=SJz6&%p<lg9B6CHQ<#NX;Aa'aAL-CKACs;5X+2)O'cm:/l9,/:;(m
U"H2XTkuF'*O9Uas&r7hB-y.:RS;Uh3B>jqd9ZDpU'=HYx1jHNasMxg#,SIEd-%>'
U"hmkY<o5WormjQDNRlkC'=nR$F69'x'w+1$=_3'4ETL[7b-.$&oo2t2nM88M?(dv
U"aQ4r'2ufs$0RTp^ADP=T'\zu(j-ApCoo5)69UEp*1eURBWpP.i&F1:Nh*Ev1M<X
U"[rUTSix6u-mZ2NH-0h2eMRZnK<c]Qsl?2W9_j]YdH/$>0((D[hlO?GCgc0Q^K];
U"Gz,OU=Z5rH$i5jin5IPLeI[$:4Fn37i8V.ufNOgqk7-m)mon*NuJanvZdBdNQV8
U"-^rQA6K;Wy^?1W^xK_GThbkh5d%05Y:ZUPz+cPZ%v(\(LYhg4(HxOjkme?+k'JQ
U"25#u9(<(HoRQ3uV(EDWF()O>k5DW,KKO:5DDv]6J5#iwm%GlR4;)_<Y&h53No#t
U")5ur:74iDh\p;Rb&uld*IW^-_Tgh7Pgq_$%Q&m0.N1Lc#>d,]8/pJ%T6CzS;u.0
U"Gy+H0KYW[QKE4Ox^QJ[sfxGe$>OG/e$),T8qu(ZiD(1:mZGM,jGuf5e-*Iej):/
U":->RG7%\;Urud8&Ev*DC68A.fsUS8st.hRqoGDxcpTY>$HUL2Y/B_Q*q#y]f_ub
U"8T0X$DdNjRcoJsLsa5MM(e]NP6IFiYcaD73W/*\i_tn*)w_iW6rY%<[3<lJS*%9
U"v*lKE^q\xW)HqTSH4j2Wrg8I/15Xc50gNl;_Z0MYVs>*gj/Em,2)+A6olEhDh;G
U"%,UK&YR)PGLSNZj&eWopKjDB?/NV4\V;TehDg,ljp4Qp.'WSN^M>awNKCl]*$kz
U"Anxcu$]0f_ZbGFZu<*gRSZFYK](OZN^:JN5;jJ#4UQ['DqfD9It%=IqgEcVs/7h
U"4nGb(kY62uPc6ILjHP4BuR5lZB\Z#J^0=8^D%M=n7aC2?2kK,QaMB:)Vk*:g&P%
U")ji_HBqIXn_$bU0tCB;si+&i7W,XDvnl#40V.VOsqv&P\6f$DQniS4*/U<B3Bd-
U"9tWfC1XbPPW2+=[mAKxk0b^P&k7h)Zer1)%fNH-3LjFSAnMBWK:nSzO%ppUQOXz
U"R%AlMud1-(Al:>.E_1gnvp,Bg=hnIjRV)THE<fI>n$+/CmV#D+WQd_KBDTj8a:T
U"<s[[Uf.Isq^IEVqWEO_E]wF/;\5(,ie%M*Fes,E89J4GSY+iOtVMZgT%)uVXGwP
U"Sfe1$DvOH<]9n0'CtF^$88IJ>SyA#eIGg9kP$rfH0qJi9fRQk9at-3Ze6a.ku0*
U"#XfgLMu>Fk(G:0%w_Hw+1f=xqRi>FcP8&nf9aAH,?$\ETm4:<sV0HKg*8oi[3$9
U"m.CI(jQcn;eoCflM7jpt*\4W+g96tVm'I$[k[6VuITq:k12(,]51Ox['sy%VY;*
U"Yf]C,:N=9&H;MIw1+sLY,?vdGrq\\\$V-F9LL]),/lld=,Uc;,(2$\:Y;SJ2y8O
U"5h]1(f)\j5qXXb_i*_eE]=;+cW1$ZPi'f>Viu+NJeAqd'>fP2p)ihJo\/Mi'F?N
U"*MgN>Z\tvgMv,2_og.8nVr4J%q/DTW4(]9*lk3FQ3TR-G#5s9[r1:<bV8\a9<Sy
U"Bz\a=TY[cSVo0oBS-VQ1d__frVpX5/s6.PonnUP0*aX;Dj'9U6l<'22/co0EjB$
U"G;fI'$rK6;ZZ%h;uRb]YRIbyUvdd-)Wm,a*6hP<hkcdQd;l%AI=S5.Fr1$/hP;o
U"^(w[Z(6Yj3QpB/>:'<&]*/;,*NkhCoGZ^dYrYVrcG)And:bB4b=*raLV-FJc]WA
U"G)V_R:YQ3%]f4P^YsfZVlM59:v&Cg\>5/<Bl(Qt)C10s+tSq:S'qXq>#4j>=>9s
U"D<n9#/0zv]DIGb)$7m)(VrO/-i3g7mH)HH9ngwS+E4KY)^CfsuYV*8SuB6?O5y'
U"KjIAL5F?HS7=0C19abup=K9'&=&Ccs3?s=L#qaxSMEOAJ1R%G(3DB#RW]]>*$9/
U"E./:L0gZ0B>U+w?pUL1EX3xBm#RA;Aj=Rw%t-:,%.joVLr)2jqu9m+1jcXbQXqk
U"lll;uc7%Gcs?r#jvtH%%5q7;?QcxHV-;)0hVPXTi^OnLE+RA7,>)A_o\Xd,J9>+
U"eo>%utAs%tAatd>[NYa&\5'AnB$NH?*4\8jq^H+rbo&ZXcQI2nJ]qX*TDqJI#'I
U"$'#$Q1Bxtv#rCff>t3gtK:>%2AF8h(]29&AAXJztMa[fxIwF9Hpi\=3V0Z]qN+7
U">4QDAo2o_y-7_^m*_FP.rv^1bkRS1oTI[jQ?U&\i^]<IE)bav^6:kb+#pY&Xe:(
U"];+St$Lf_[wq9p8JdF?De4.EHai(KZ.]w6MkE>5f+GcWS0_\/Q=_NAq9rW\g)r'
U"5*so1;.NNI7XyDU9J4IR$Ea%,STwiHT55ni1eVSe-:9TmWo1MRFh_a$Wd)kCY?=
U"?2Ui\tx?k;4-cq^e.0<50oz;b^RN;mmb/rq8Sk:Sbw;,,rV0?[&cX:&FU?_>.1h
END SUB
SUB V4
U"Au8qc[w5(6Zx8Nl.p3QUm5e(;]G*SI=#)i'5-9ct%G.?G70^73(UCo$KvIKC'BQ
U"qR#(XNLH(l_M\OX:cQ+X]eh\.tnGA?SF(eM1D=jt?7dK&e>KSM:=bq'iD=:AwK4
U",%p1\xtSMkfjc^l*s219wv>TrS7['*tTP#L()DqUM]rrubk4e\QF-*MTw?>M26w
U"J<9R<gZSWfgWw($PgrDHsj(JPXlq.$'^jEn=(5Aco6X=/0t$mcX56e>5r^x2,lU
U"OFj4$w?HWR7Y__<-wP<FtuM#)%B,AVAZ'p/'%Mgn]iq\=P^3)LEJKF)Ss]$g_uB
U"TuET/2JYGkV98u-8'Bg(Xo&vB6?MPTUAm+uUZb\x)(p-RWLk)2/kCKaaK#,G'#,
U"up%&'9%%9%%%R-%l1JdH^JG))JF.%%J]%'%0%%%%%%%%%&%%E%%%%%%%%%rfhm%
U"znyS%gfxu%p*+%%%%%&%%&%^%%%%s&F%%%%%
END SUB
V2
V3
V4
CLOSE:IF S=122AND 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
