'===========================================================================
' Subject: CREATE/MODIFY FONTS                Date: 12-25-96 (22:36)       
'  Author: Glenn Reed                         Code: PB                     
'  Origin: Joe90@wave.co.nz                 Packet: PB.ABC
'===========================================================================
'Please load/run under PowerBASIC to extract FONT.ZIP
DEFINT A-Z:SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"FONT.ZIP",4^6:Z&=29516:?STRING$(50,177);
U"%up()%9%%%.-%#AJgFE613*T>I%%ui%%%0%%%%ig%qkts%ySug4zf,.Sk:>h<(F
U"E#:jRA#CLY/nbY&-:l74*=%-14kC6c&cMOR6[(?Di9&r&,^PkZ#\eO6>i<o6+n=
U"[B'?.HI;Us?o0_Wsx:;^I$U'5#V32H2o\*TNzv-sDN(4iXPz8V<ww-hD&&vidzy
U"(Z7scg,:4w-:WOxHecBaSDmlYrA<WO.N(uNj5)KSu4Xl>sP$X8cmhNTXY\Vtj[5
U"7[Lrp8e+KQBVeRSlaRqp,r'NuqKFrw$uio(EHN)2.gsQK#O;(ca<wiCbHZ(V#1%
U"KHnyyDigOak4BgcDiuIpVY;aqSZo3qbbqqB3oyqBjo+3[OXe&0ju=vlgg)TbXR;
U"v0(f7)Q%[;\p9BnQ&77+-;kO=,I^GsZqVLZ)d?pS+HSdj;L+A0N+AWG?q/Rpzep
U":(+CmV+hW=Y1g(d1zV4n^7/r/.Nu?^7$NR0(I,VVl1N:[e>#dN_rS[;sRRO>KTx
U"sK.I\?#qX9d,/LJz0.p'vdrw+3JyncrB+np-IZ=V4&-rMdtF;*hMkGkG\(_s3[3
U"3SwCX*VM=(wIOnKJI=9Al+BjHnaA&3$OnS3ZR=nJ3Lv;Ol$sFUs6ZN:]\A$RC7\
U"FGuxzV_eED\n;C])&)p4D%%L4DV%S5jp$L\G\JBa-dscR&3I0sUd)q92O$iO:\a
U"?rPVdcr_T[Q;BTl0^U,?dY5x1wSMzaeO-[h9\N.[3F4SWF-e-:Y#+-pyRFB[yVU
U"]F'*AN1+w&PUQ-<)-b_Wr/R1Mh3(u[fMT1#%t#UX&c)2,g)WY78C9O2\-twtOTK
U"^nA-N>W['g.[-C(GUb%aZg/ZB>f3$)(1:lDrS+yGBRLAt[mj7DF.];2XQZf2T<.
U"#8NtXr1M/V_%_0h5+;3UC+1YmB3)LKauZ)qZ+ouKpWtJDQ;ZA^8WY(-VCT(aciD
U"*kyjc?fA(JDT8pXkgrx\#Vu.mT&%-)jZKv&qHd/=Z3TP^4<KYaP21?,K%'wfej^
U"+A.M/;D+SUBh*M%Gf#6kHoMF-s$(w;L&5v;THbSNntS(h/d(4ToRskc[_5\9oYB
U"Q\GwF2s#%iKU'hZh2g,2Q.VlOeQ-pQhj]&L9l9n\aKW*huj-cWJIjF%?x32EVz-
U"9/UOyS2)YaJ3Z>3:?4^#%56>OP#t5CWdO[(NIqT3iZ'%ceZGfP'0L2Cl0-wZ+1z
U"V(YSifZA>b8s)j1LSU,X;\'o\,(-AWMt.)7,Wr4<N4_&+Svnn6=rM]xb<tAo8VE
U"O07JqV?f(R/]fksNRpD#'TVGz)SxL*#,0vT9aRD=*=fB?e(u0[E38L0Sk75J,a)
U"^if>.\H$&Uz7l4<V$>jdWL3q3'V[wMkjA+w:*1Z?SO\:Wf29HC*%XQ1lD?%Kf>\
U"XvNIqAA-[59SX)fhJx<V7'1')G]c>T\vZphbT4*];lOSgA8:J&P0PW2ZY-sEB<H
U"'%Y=N-[\Lr4mO*Mhds:?s%_ayjfsnH;bDTmsI+ALYT)JK]dFKabBWFkW2<TCrV$
U"9U#2v/[KGK$9]SE5RzL[WUCr&+uHF8u;C8l?ewXb..s-BDq:\ej<&Z#9Pp>+0ay
U"LFrX?o]MZB3=;E>63eMw*.t&ZsV,U*Lk7'Y[RmYLF[?NaLf\KYPu3DWV'\dw7v=
U"*)CT]/En*=*_dSElmEp=Bx:)*Lp5dT61Sbp(,GpD_eAN%8=FQUf??C)YYlZJ_g/
U"d/(vgY<PHIY75z;oQP>h&YeGdzeKuMAF1m(3_?8s>Z3D4t<7:&7CRa78^%pgc5v
U"UfLY56m9bUNDL<qC5&3YQ(c;Y+6&;Fka0x=Ms,f'K%>>,OtmPsD,Pe=n/wQ[P&0
U"7n-hQ-Rd'#-4lQ,Uf]bzvJI$P15'&*]+HWN0a60cLZ:M$x=MJj*J-S&s0Ma+\\Y
U"E#n6mhWP.m_Ws=bl4&t7,9f9t&(a_:WS$i+$p>)):.Z#/spcKZS&6WE<0^>]XQq
U"D'S0j\?5G4Yo6niNU1A,S$7t4cREN:PKVR6a_o;J61>=Nb=MrSNSd<B>cf9rb76
U"$3$G9?F<[;$r\ztl\c2*EDt5/[/kRS#U?c7PsPA1+Y&Jp8hGSCI[vT\.nZB1cly
U"4Me2&o*ZrNx/^Q^cHF*3T?D76)o8+pC6;PbqE-fY^Gg[]yN<Yo+NpO[p3d?m7Y3
U"68RJeYd]Wvq&i=K(TNpb^j6M*f#?*i&6Ma=8&FjOH+^hh92*LPqpA<FPNxWOxKG
U";lC5x;0KNoH>QrGsv^j7FYnSIe6n1l#UNZL3?*utdwAKfYjY0/?*?&$Xc\(bS]g
U"FG;i1AC_y8Cc^#r*Wj,7F[Fz2X>3um&8gWUWLTqmiJ%_kdRjT:_<Nd^u2Tu7uVS
U"-hV^9P+ug1Xo7?Yu4^id7zF&>?exnu)D)NZYi7%I8g\AUWeUK?U9q:)g6+2>uZd
U"YWcDpu*9D0q/[tT4uFY9#%$w2#?H?2la>f:R+umMbBuT)x(+*Qs%ruZO.*>Dn:d
U"^-OOx#c.X?qq)kphLYqJ>uw?m2qD0-UMB=_GYnC6>P]b9nzIWStYT;6/u+2K9+5
U"W85IGBv(W,nt(+A$.\/<OFDmHu%3/=jH#0usKe[Y4T\5[^UV_^_yXqL;?w;q%8q
U"S_Cy0?XdhpAIDAcl647Dab$C71u9(7u;#Q$XCQ;&)L#VFRh^0'_WdZ'+e+PH9Wn
U"u-?qNs9^yMF1S8>^BSkf%CCUMG[.QBx?TK:PAYv1Pfl[REP/\i;.VupkeY]eiCO
U"x^FPT<(X6B1Eofjtpth$?I#pCMKfQ[.&PPc#7A\>Ccp*KfA'BJlj?rh&)nhMB=(
U")P7q-Z2dp0n>Imz]_e]YwB8(NpiZ&TsVO=WfDJ]FdJRm%jYq',Vu237JE(49&RV
U"l#,lY6PZe.T:_K7Dkd*1im9xT:K/a+;[mQ%NOfsXS^Oumad)QEk8G;Pm'<xb.8V
U"M8$WhMu1hg55fI51*e]p1okAwc2HAt.Aa0/q[1=rzC1F*C_LcKX:s2&m:7ng?7b
U"p&rq5)UH/K#Ov)c+F-N:w;^HH/2u&.o0sY>h,SMbeo].d2(fY1e*?+6G0,HBbQn
U"1U7RFNLH74GDGAu9H#VApfAWlQ\C_?Sc<)oETc(d>ew2t;'w'Z13arbV%u*K;hq
U"Uf.s1X;g.V=(M_/KOe%N-bz\']P/rV9V([.I2'8mw8*CDd;wo1\hQQH(jQ?LPZ\
U"gxStu))9Vk92Q\2,#8Hes1quMto>8;WeWemF.oMnJ4r[X,X)fdh,OoA<G/V7XhL
U"554O?7g$/l$atfUlAJ$/NHQ+(sx#KY\&rMK2qp48#qORq-J)?Pi*7Cl&xA\UY&e
U"pbL8G,Aoq1-fkH7aB-(bX^NLpU(Y%qa?9,EczPUWe-/xL>ixAAwxNk&0-+ReYvd
U"\ECB-7^.]]0P]U\-t/Zbuq1#0^A+'yUV>mD*OA:bS47,v,Y8^J:mhk8xk3<&YrS
U"8:C46G6_)9#/wk&QEP%-xE3Ll6oLrl8g3H_(Y+<l0PYL')T03$TZ3JVkBz83\mQ
U"%UMR[fOQnn08W\Z0aB#C*BO+d=d(kSX+W%x,N8kEkGFYa&j[_BE'jS;d1SxkTEv
U"D=S3yBpipA_CI\ntuJ_UEA,uI;saLi1AiFwxmUb%KoRZ^=IFA)GJQ&?Y3'K^XzR
U"xhrJ0Q1a&p8EEYq8EgK*vWK3_M7(-t/wrjATTvR4M$DlTSPE-YyR6PINLrU_qhS
U"CsrpKl#VunS&PIe2WLhI1.wq$O6N99\i7I+o#''yQ8<<MxM(7OxB^n#w11b6+K0
U"1VA$M3j(:]\A6hhtXKC5y_\LO$hf6T*lXeb%&YKHXRrHIqBh_&r.hfA1h0mUI:3
U"uIx*ZYy).rrsidceqi$HH$S:S%L_-uO2S5T\nI6X>=GOn'Aq_X>8c%.eu(6xgsz
U"'nE/L;Pbx<$,kQ#B)3Jx0P:Nd%,2=RHw9l(F=.R-(yG,CZNgxj\PtOn,\hfN3.S
U"[pDI5ga=+$UC\F#Ker_T$)0]MVeNd,qLUj$0(H_3O#23pf7:8TGnKcay*G.XI4/
U"S=vp3IQL.A+\aP%v#N&OZk?\Tjjl^M\J9Qr9LRuf*%SIEJ^=Avq#^\Z*]+H<nIW
U"phsYjgN.iG/ORHTa[T/Z-->bm8m1m\[W9ge_u\O-QY*(P78T1NI#18sTR=O:17=
U"Bie8yUS:/s5obUNt=E5_[=BpMN6mcBu0CjL--15TAmpEyuiZUY&p'nZrE)8lu18
U"S9XYar+c)xN,5QR2PU4UQ1,*PMJJ;*zFqnjg.ioA0'KvAPxi<wH:6nAt_6<%1sc
U"xfy0u33*l#-5(mSl<%:iu]$WUP>e\b;Jn/3dLReKMY7nb./^=+#&)$q]w:6U\K5
U"4D(+\Lmc&&<,n$0Tc=V1&#_km$Vv]N;6Xj(?HuS0N588l2:(m4]AwKlDuHZUlUt
U"B#Ls<BnhS,qYih?(vi21?,Q8rvcs1EK8xtaBNo#(PBrKMO>*6Y3z_%nkQ]nHf2G
U"f4J$$_op=+dWS&<Kg]Bq5jsJ:8IMH'j1S_Y/60SBP1eb3]u7G9S,t;dX\Yt^#-u
U"Rh^siVcgC4H>C+l,tZ=?wU\l>>gH8=zdC?k>n>8)-Ygq6l+531x<sYF8p,54lS#
U"F>voQlKoHH'SShGJ3Cfmi[RD7TJiyL]?8[h2O'#,7jt4cjPvxdVem(t228TKYY'
U"F2(_F&[RVvkjvY22D\f6Gg_kA2-)<UITK^TFgn%wouBa#\-V^IXj+5N23iesmVq
U"0(J/qybzb*E]mY2vw^AEkrG9f/ZR,qTnq3#bwaZ.Um2Hvw<&h_[)if&PT#)bE]D
U"?Bv2PCV/xSC*n<mA=i7M$NqSj5-jH'V)Q:&1..<9$1U%He.jODc)\OZp,-ZQI-w
U"-w*&w2nN\VEEU9'vT6q_iM7phVf-'x'&Px;wz$\Raap:2eN()s+TS.Re7sqZd^h
U"*rz>&=$X_Q%8u-bhr-BDu:m5L1gB<Nu(bOuneYj>MW.)]'.(P[/4[74GN?'4voZ
U")nw*T7mMaUqba%.c/b)yJW;cdSfF,z4dn)?S/D)o)PJ(ZNEW87$Y&nvF#[U>=N7
U"-'.Sf-v2eKv%CIIve>*4mex,/I2g).29DuGc#1*gW#-m]:/WIupPIF&MJ2=tQ9Y
U"4u4SLL#.oD>XNcGh_DG4bzsJ(7Z:_c^#O&lM>;cYiVOQ7]mk'SbS<;O7+_5e7#u
U"Mh7;7I;=a8iEINCYVKM\Tf2?53v_S4\N8zLp&$o<0)B-W6b'1z\6Jo7[+^9.hk4
U"K$.'TWu7]n)iYCN)J$?,NvYIT>j>Igm\nQmU:1wk5wnwdmGuus%dGLDj=K/Rz]c
U"em_[5I?3SY/FWe;am>2oUX7xYs>?GPuX*W/Pla)/*Kiwr:_9RPAC:Zn%I1=H:5<
U"S%hTqac%4'GS</=b'hM$yp=N0p)?3BfQ0V2:&jkDbQ('u7+M>Xi0TEN57A1(zJN
U",oT-ms.g4&2],:MMxp:L]Q+O<QqT::p[#.)aiYKWas9Niu,T\P3>Ry3*70(y*ZU
U"TlOTmWxYwM4IFQsWP>w:Zp^3]f1o:2dA%JI$_$uKn&kUr?JoM5*nSu2UOhmt\+j
U"+M/WP(4cO:X0=B?J$3L_>GzXFlWf/>(in$YS0uTikXqX.K>djcQQBuq2*Noe82t
U"p8E897Pk.[c_[F2NCLYs)[kWO<C.F/^iDi5(F:sdLF<gIO+:qV+YK)dA7zzpZF#
U")/ZSfLRe48j&q&K0d]]M8cOn.ZrkAA'yRJ0PQJQW;E.U]c,%-L,sUH?Ss.QqCZu
U"1I(u>V1cgGA+fWo-<H^>LmM'.QF#D%Gsur$\E+1Q0)W)qfsXcmBHKJt5+0HJp&;
U";1Oz:l+7vApT6<l)MfUb4=Qk69eU.n6Ys%0YvpzXoC_Heh?)7S:NeF^sX*v$%z=
U"ia4PkI(+F'40(,'bkQ3f'yvhE2Z%fGo&LIhX-c1nzjF[?h]cFWY3q4X4$1QL/z-
U"rV%YP:n<XxY76#-'hzJbw6B%sPWdr;&Kw8++6idJ.\G:K%R3b;ob)i6YVq7b_mn
U"k2iC0z.K=2w3_:Mh6$XT<>gcpa#p=WUSOa7P2QhODG5U=NwbjHYqwiE<C&Qn46Y
U"^)g&_m?sLL/k#dT<NOKZ$RAxGWbGjTtg\?(^Forq3Vio9&5$U>PxU&#*GcnIV#L
U"*JFw_'NfH+=:qL:<4e^m,'i:c>0M*ZPz:Gk0S3u>mjunm.7lp1hd#-E.-S.<WoQ
U";so9<0v=?5N54(tbZSnu:^_j;S$g_q9R8NB:#tgu5Y3'0n)m'BR2fBtE5][pPYg
U"qC7PaCd(&x;/r#Q,Z/*FbL7:#UVl)i-Vx+dGGNCkyr:c7?:T^Oq#jy^cjAwwSeJ
U"2DNZ&Ak&b%n694_upT'5FlBIl8%UjvX#V.&#_&jpg]gX>\gyu%DgDa$hK97q=+v
U"$a\]VMXlu(,qjtwjsc]Sdme(iZi?]:eN7x],0gV'de80QXKZ?9eBvD[dH[$==Ja
U"Tyn-gY*+l2)suK4'+,Bg=2jONm*LkC.N/^2%+2BBHqX#.8w1F%PM(\MX&,y9T\s
U"0pr0\($W>X&eAk/YL[OeqFJGlI%4'noYU+gvy?tFbJKQJOC&6n)Vvg\JsgRoga;
U"PsPA2iSr:orMr*,^,IelNDFwZHZ]2ir42or&$prroSrHU^cg.Dv5wmwJ(xgU,bp
U"m5[Nr/7iWU,jm&$_/BhaIdroKC)J3P$V;/5qnZY:;=8_blI=:aX]tT'e,?=7bMV
U"c&^IC;h^79oMr(t?440a0qw#:cvjButRwS^FasCH]mU32$+vJ0PKnummDc.udxt
U"D(t(0Cnu-Tv1o4AnVfVbLpdau+VlV6qTDFd5K>3PxH*qSGeHB'vVK-t>n1ji+XS
U")[N$L)VrIG-8MZOFm0ER*rpgl/o]lp$5FeM7>jK<ZS2B%8Lq_>FCE>W,v04&,e3
U"fCrw*4W,R,(aytZ#X*]pxBn9mmC%h[03gsx8Lo/A7%l.g0;R_&0)S(S-fTXQf.#
U"Zcfb?*H\&0g;2i*hOc;?l^gWIe3fFWZm%+?^wm0to0-5)*qc8tUK*3Y(C<L*?gz
U"^9i??0v8,nj<L[t>RCUtlr1M1Dl8yVudh'X)Vp2[lNkbGSgd2<Wosr<18v$KU]E
U"[S13sq9]w\.6&isFB2p2inWI;cq^9QF]B$5YgVGUQmFf]riE68F>ZKeF/9kK<aO
U"hBj[$tjQlE-a\(Bp\rtO\QbB,H__-=m)2s/qhXLN\Y/=$/cMoaY2b2B+L\8c?->
U",n6_rAhdmsD4MRbq%Eq[58uNiI$$Iw1l)6<Odylla$C6xf:Nc+b9t+)Llfo3Utm
U"%TLK=aJW=L$oYjXH-ebhYivjCjsVVm[TbCRJ+$>5$FcZG%d8Yet-XKtY&MVit&x
U"7y[/d,&o\<Jus=ngWDe<VhTr;J])hK;PbN\^,kL2<kbM^Xr'um2bBJAXse#mVBj
U"Um,+BX?J46i\'?Eyi$as9sJ#/L$$a?D4&:Y_)hp-3$T$tMFXgCo<XqR7&twhE-H
U"f4K<Nt-o3%4J,MI^a2bSbMrO8aH,[7>hB)IoSq3)?brc+rB=o0?vAC4Jli+0Iuc
U"l(R7I?kZ?p,6I^76V)Q7P37XmhiHrfIFSmWIa2v)v+9v\?&c_QZ1]ts;)v=r2F1
U"md310cL(;,fFSu70u6sfColZR.,B&_uAVLUK)Ek/qi_ZW;w,_TLNMK8%d.R90tY
U"4TxB/d21N]q_PZt,B6*ALjE:&-w29_fik5sc77(vkh;_[kmO]WQ_.lRS*$OEu7P
U"S*f,XfdE9nBGl616rL4Uaf9p:L-4RXhB]9V;oS\Pe.r3tqGH>(A]Ks\2O*#T%A'
U"E(],2d.?&Guv%*(AOhp7%,^MCoUP,l?.\YU?QsnXmC1zmG>0,qB7'<d036^H9dg
U"u&hUOpCfUU?tJ?#9mc+m:Ss1e[t3YGGTOEIp)+oJk(wKSkoWli.)oM^j&sr5B$6
U"E:WLi7&074gve&#Z<$Zp5oj,D2d1a:?ZXqK7*)Yv0i5'xEYulQ,;bnm&-mC2jXh
U"QU;K>?Z04/5JjvTT[Mo2'sYO;*o>N3WWchjr24VpadP\sl^WfPTe]odNW&YRa<_
U"DvjZc<V)ZY$3P+x5u?)0q_RnlG>]vZO[o#(<xqk*2vT_qx7K-#6/q66dgUXNN[Y
U"Ng>hmLdfkb<Wbw1vcIF;ZRpY$n:mSP]l^$XSFmnj?s,GHpVe0lxkttb^1HL1dL/
U"%7(NeBb&qRoAh(D>GufR6nMdFulb*g?]vSVL?OR6<_^8(<:D:SbM=G&mNv'gvFQ
U"1%$s,>G6qcF4H-up6[MnE^vMkIfAD7SB;Zd;uP6dp5/'tB;1O1XCwQIT[#m:0t#
U"j:W,sU+U.;HbWDp/tt0mi(Y2Y&N&up%()9%%%%-%/?AgF,G/h.'&5%%(<i%%%0%
U"%%%igqk%tsyS[gfxVk,d>Um[7xUF%rDSmGkeMsNqM\;O-JaV[BL:nZK6_:c=[ri
U",w2pnkrJuKpLXsQ=p_Ir%j3.jK4aAWX_<h$Z?mXqJKvgupV^/lqr90dTcNkucke
U"sY9x^^K(cKM?pGV$UtEhY-,FDlB#*fsR]N3nct>\hk.hE>:DjD4WT18H5D2d4r/
U">7apcMvnG#:p-nETUhK8Sm;Noj1BtB,rQp:JpG*lnD:UtEhNQ8UKKH78N]pDLuH
U"Q_+GHMC)WNuv0vPiDJv>u\dDd%4\lLE>^D-k,g-0sT7VUe;TY,_.E<t00l,vpRs
U",dYj[uwrqy9>eZDYhr/&>j$DJLvZ&o$jfgsZrZqX4ZkJ#NW%$bd_o>L<f<#jDpP
U"T^#*>ItgvKjj#KGMm5nCa_:l<oW7^.?5l;ZfV7Wlh0NguTShWYHsvbQ[rV&C_JR
U">S^[(Nutn_sc<N*Ak4tDtNi.g4LB-_Fi4BnhXS/8;=c7hOX^6F]$.Pa-rrlK6Sy
U"u6jUbKW)HP_VlHX:oKX)#Vv^uH(LjHTi;[]^RGuw.VvrsEX73Ozk8KRA,hXtxP#
U">\E_fb,l5GX:d$>W=Z$<_,.:(R$M>Zc0TP&PSlrNm9txU-f4gqrw3:X<CQ(,=Y>
U"<'8z?3L\m2tY_p5vrYr/U2elL(h2RpwT6Sk*kpVNq%l>Q0LLo7NMtK8VDZ*q%>O
U"vnU;Xhfbvtfh0_fDBQ*i2ZNo7M$oh_t9tdg*.,-^jxTs3oHEYZ/N0lOQ-^'#HFE
U"<bn+iuWn3[*$JJ4T0s;c.GrMJ3YqthM*tNvaiaNYhK'\q:bZ7:=cPc>tZ_jgyPG
U"0LFYLljshGBBvu'Q8Vp;>3t$4z\Pa\h[tcVnzJcw8NWTe_PrURrvCr*JxT2fLhR
U"YY[u9u0hD-F:&J.B6y>AU[9[n*/jfXM^^CF<GMqn5b0QE7F1[*CN>gIfS,tmTel
U"bHnWd4XkZFElls&/fhAFtnJkM7S9S>_,M6>DPp6\xmr^Zo<q6n.^onBJ,Nu,.%e
U"NtW*9J^6HYUDLQZM<#Q2yNoxKxT5[fNRt1&8mppEG83t/sO$kn#nD'95?pDj>cn
U";+2bcz-v&594Y;5*)S*9JrDd.A%_:)*.N)H3#y8S^r;<s[X.csu*&tk3)pwg/(F
U"^uoe?Xea,-F_%*I45Yi&(oAX?p0?pn:Nb9^158Fu\U;rO/W.aG(Mdgueg*H7xNz
U"-4GQ>3#qdn4R]Qz6+NXtss?hN,Bkbze]O&O,rcz].EsyEULLjsgT*KeJYJLpd=n
U"Xh:lzc-X#3s-IbK-aOJmtXGe(z4+5O_)+zhmx&w:+jT\gIc<7FE7]nLF94r1#^p
U"H:KM&I%3-^/BuK;i9-Ia1l1Sf7lDS1yH&-2H'JLD:e90+n2gu3<iJN^)YHB2o3&
U"W[TC6&%'f2P.cdCKCO1gR,G.)>hn/),jLv9Ar;YELZxK1YA$ep8uw5qMcpc^r&i
U"QI<24l[w'v3+IVd)qBL6UDeNL]s3=H:5i(mrsdt*pF0mXvK)V-Yr5MuZ5H>9/#;
U"?kU+?2'R[fTAxV+EDVY,'B>CJsJ2;3HA(+O9_Mj=/#zqMLe+LT_57jc*Siy$;,$
U"W6&qg0oE+CPU*fZbMnB,jKKhhk[f_L1b*EH<R2Tn[^qa9+%pr9q$3fJ+_0(z8_P
U"y51W)8CMw_%04D/w$oV;d=2-H\..-REE%;Fo(:dH<WVH+gqvJ1AF(1K()?wa<;k
U"EBK^e>e*tf10'Z)7%69=M.SJ)dl.XV1J?2l;Jt)qk%&j<Cf*Q;WAoS[JL_P'[kX
U";+$[2gA/n=uB3nB=8c3HV*%IgoaVU#5-FLscae>RE.MTkPrOVK+6lQTp0jY6xOL
U"kDgDIM,aUm'Dj+,K=wNR-S468OURp\Ou^mMoNu>\S-vPI)YzAfAac^iBTs5a_[w
U"3C9+#_ydN5BcL10Uj?B;o)c/_PJ/OnV]..tm19rC_F=i3h)M8CXX$7quER]?XX+
U"\6;9cefXd_DY-Y7pc^%T'?Sz:H-pF(qYP6g?tkbS-qK?6M)VrgsZld3V&EC>Vg2
U"241iA=U)%Y_X10.vXlHHmDWt)*tHQmA76MM\1gD>y)sFIHI\gtz0RX9of(X3.)p
U"=W2eBPQ*nae1<OKBhy'_lPi_ZAS\l9A7j0K?dmX<BM5F4TRU8I8&GL&]OiE*D4G
U"%:W7?%Zz$rBLSa;lbU=)G9Mk;/U<heOEE0j7]z0x%IBo$S=H8.,znH[-N^)>AYR
U"&XpCF/=V.DRw;3dYPAZ&fVMr](]W?S$<Li?c#7cGL-5tB:>p[WLv:JNa]R]FKCC
U"ES;]ONse<2CiJD#g9[#NL*0IfDh7<&URz$(NfE)9HL38i<[4Qq]4aK#w]U\kY&W
U"$e0O,.??iubFv,9,D)UR(gQt1i&L7:b&39&/#V6[<3/2O^48l)]:O+tqlTiL;Ht
U"3\tJ?ekS:rj.UOOdpwb1WEc\COr1UM&N2CS&g+PS&keq3PE.ky]EF,t.:+qf-'9
U"^&#7/D]=e,]Nmji5bLY=McBR)nBr$7Hl7Of)H&l&1syW^_,n8<6qSCq]9FNKCzT
U"r<'k=n#XP/cDlUXyON#I\TF$WI#m6[H,[hKX.q<uo&E;u$ku(,MN'%&g?=VT?Q.
U"aY&t02gZH8cy-qAnVy$8xK\gefoybRuh$\.yRh1fL[:Uk)plpuFkfsIFs1%HSM%
U"_*?ge<3Nt0PBFPvRFb*QhMg'QH'-yGGN='&+,:ekQQn9P[I2OyInlHbZ.Mo4M1k
U"9&j5xmS9OB-8rUA(.w9Q5<VHG\I;qx6s'DhC-Y<AIEA15OZ_D9tLJQ+E+Yham;W
U"s=C-KADYK;ps$_/B5?PSBoV>*Z;eial4Q(?^=X=c6>43yl1O3<2*=u'u'$H*Ad7
U"u#M(+YT482MGGR1O;,='NQO8uzrCx>H/[Wus>[WUJ;YB9U-p[-NfAwHKKt0^,k)
U"y)BVBZPH]Azz]vCs2G;<6fLi1;tMd'<nHym/eg;AP].*5>^V]BwmwBeInqvN-:U
U"G\'HX8^6x:Za9dj?DDbcti/2c%pFL\),UostSA=.s+hkAL>mu,qat/&$*K9pw*g
U"9y[rB:s)mvsVo%h.6p6GCS.KTJT,UoZ-3^G59R+T<7Eevsb$[qchP-5?BrEeS=?
U">CUHt3f8uL%>rnouK0(Rdmk2a,fdk[tm/?)MAeEb5m9y^dri.:p\k\J:PcCKF9S
U"581Jcwe^iRwIIkKn9&_Od8his[DE)RLlO>'^I]_5Lb8*ZKb&=Mud<Db<MDa>IcF
U"CL7hWVzCQ(v;mV^T8jmg90-j2iHw7I>ZD90ZHcS#_=r);>\0]Jke2gHSe;^TQQ(
U"5i>A\;ktjhrKCXJ[lKl1#0/<BSHNFJdQTDP/k8tkA4A)%Z8Dn-jfC#/NNZV6_3<
U"%-n'Z;AGnzkSA8_%H#&:jJs7XLm=_T\F-<+<hneAC.I+v?Ma/>I5;+EJV/eVp+#
U"al[<E[i5MM3=mTqLB73=&gS#kk;R\?:,qhsj9W[3Lx+Zd4p?(w;jvg262n4>Y[k
U"F6i$aXWCMdBpXWCEJ.$xbaJ)v-:g9Q[ZV<^gcW5%DY%w<wA5bMx#NFR_&UUhdU\
U"jUsXRFW-AIR*Ry_0vyiE)gBomq2<%XU2PGBcQQ0.QrnO\;QP[mp&CAjaOP$9hV*
U"J/+XR-6rTMvo#)$H42<:6.W4Umn<T.,]Cn<ZU&Jx0i/KVfMqkH&E6j9Z5jaZ5$2
U"P<:GqaAQYg_uRQAl6ikoquK]JLis\?&F$Qhqny_Yz?bp&le<pB?]5YaiY2[Mo#U
U"fDwWcqh9./0(&bY*A$(or;_FYACwuIFsqnV_j>2$/'bNw$2[J[6+OB)'N)kkmIB
U"]rjkJlSeY?d;)]=:73c0?dTl'EgPSfn?WeH(>1)Q_$.N(_O%y$ubP2RB<H?kj,s
U"EQ)FlDnO$07<S=I^g/7RC>R]Otc3Y90[#//4pj$#gpX=d3']e7$v+JW\UC>:u12
U"wJc96kmuHE)u1?0MkRS/Sn0JQ,fPM<O'^?LMDg0cnbe5,;,F4D_hiOxIFRk^XN,
U"r,%Y[>on^eUG48^%0EiUqECsgc6%Vm?vn.V#*wQAnAmsD/^NKW>YbRf02GE_g&(
U"GAVI,An>ldsJaWMJe3,*C[$s<kJ^kqc$sEB50xP_CR=eW1De0D-e:?G\eXJNM6Z
U"uqU6zOQ:];23QCS;(G0MFd*)cS%i'C9;I<R0-UAe;-]Ey,9PJkvf9]1km,Y,8Ft
U"e?0jen<3DN+L7g<jE'*)]3Z$*7:;5MW\;o5rryOVKy'g+uZBposnUL0R?\=Au=z
U"vjH^Sn9CoJtus7Gk,7w_d18n]9tf1JbLLL.6eHY^2kue%'Ts&,7=za/Hf,]K5a-
U"u=E$N(=&i1x1P=E\_&3C%xh&6QdGF4>x%DTjDVo8z*Z10Z\R4?^G^ksI7BM-z^U
END SUB
SUB V2
U"qdXGO8SU7Bjp5lwAw4M5aXGKL%F\,9Dpte:4^GVWh3bp_4lmB99$7CvLp*-sJ7$
U"MPm-BB]MEszQ<m5Ns8P^x1mi#C[cVF4QNVZRnVNU[1),,BydG<>BnI6qZ3g-(5U
U"380)Rg2+e#,f5)\mRB3l.2tZmHfL?g&h_mM;%;>Iu]'*dTbfe05Yyv?-%?F.8wk
U"hFzTu&2<6EeehcoqQ]$DT)J2F&)(Ic=Gea(YKHWEEQn/.IBg,rsI;&lnWJdS].0
U"#KWFF0>QW7uM9YHFdZK<WU+ED:cS[l]>_tSU^TS#wBS;;49zJ)x1f;]$_MB)z>R
U"oxOEUs.RcCt>f2_+G:SWCFh^LSwSK]tr6,4*e>jZ/eL3eUhEl/ZI*O*q5MVXGYc
U"Q^p[gi'Xrw[&mB_6.]*Zn)YDarE,IQjIVxl-5PvqGw6j5,Cd-^Lo_8n;eBB&[AI
U"r8AUZ&$\8_Cg5:)is3P3JRaXI42lLNI?cQW6a7AY8,_5%ATpfZa*\$6\6/L)?i6
U">BV?(XenxaL&D;KB_G0IP7K1TM9nKPkjELCd^aJl'DB7]_JaCbLqlTmq^TsY$1]
U"I/p=lwkeaI<?SH6)y=#b-dE4uLa$peo$f?kFSfO[;eE%K#%q\W3lZ%o/W7lRj3e
U"&/3Ph'lMQbNrJmgtPIlP.ub97fl-lrA&g-\)<6v<hptu9IP^8C0c^jXn,:sYhV<
U"xU]BQnUUCIGbZCKY%9bkFE+0)R*6vCdNK='R<jP]0E06DS+QTE_l>j3jO58Gsh=
U"1TDYhd%9#c$q\ekg^3vATFB7/3T>wZ>bgzk-W31\00M0CC2^)kz7-p=?dnzHkW.
U"*^\4m8$kiG_kpV0.Q%Xd*=WVJ+Aj#[EEIpyp=CGsXdrc7b>b>MbWBZe,TOF3UCQ
U"?OkIa#Goub$EHtWT)u=.XMd[D,fZZl<%ZE9?2Z=6*L9Y'g.3-k5rn3VXOV=xCk[
U"316BKQ)<=d&Gmsp$45lb1Itr9VCt<q&6Mxya6\iY(^:Wc-5bVsQ#H+g;Q_x4%up
U"()%9%%%#-%HwnfFQf(mZ.DI%%_:%%%/%%%%rp%ktsy%SgfxTfbvB7?^+d9\Ox4j
U"_Gk://CRdGb%\4\;mK:N?4Wll5SyM=%;E*skeEYY^tdnW3*K7P/)#EY>hNzOlV4
U"0gk9D0P)&%zu4662u*FQ>r$%$+M&<kEHZ$^^6u4OZCdkWGBEkG3*lWXdPOxS;p;
U"Y4I\jkz?e)GWRWAnAfX65pqGPhhVAx<(wam)e=G;[*FkBh],b7?,w]ADy^7pAr[
U"6m\g,?%x=c=yR#OQ4_KWY>G6g6dP>>>BcxJ?xp_ubF5/>AC;lW9UM:GPgF2X_&>
U"Qj':L(t:'fx.E2S\cW\/hHK],Facelk4IJ.>Mk<+V*%d=XVJ^JSW3>QH)de[xCa
U"[Q2:jOk(]HVlmDtOoA;Qgb\QRi1jVUaWvPs\:w=U=7%V-O]Yghn^OlkRIn>07-g
U"=^&\UKY*VAxN_I2=(5_I2UJukX9F%;A4C=-DGn)Nn_Y_-(\vf1vS7[jm+G_rK^-
U"8Ujm,d)Xjy9kp*$#Q':n59I)9k,7FoG2/*eXDd'BceL$5na*b0ab98zfe*\F8C*
U"[,dC,8gd?7GZADA.Eo]WB&GSJ=z?Q^h0ORDU6S=r*hT6mBS5LFjOg0'T]e:lJKa
U"2-(U3hF1,a,%C#R<2$tZ5d^Z_Qr<h,a4ZN=9B;c2r4]B4Ds$*S39ru/aX?t<2\#
U"fCkS]bfZPB^V1=]1b0rH6HD'&.aK89g*E#c=I^k?x>Re$Em9Bm%#tn%^u(H=osu
U"E#(p.$mkb%_;;)%^U:P_f)sk?D(zBDIAY<]:^2kZ]NMdWKJ_L;Cb[u6%+#HlH.e
U"NF$f_FvX=7Vr)G?3<bAJi]fAv>&[9L]cj>Va]PeyVnid&UaWp&#odkXiUiqaiZe
U"h1z')R,6wW,5WE&-^V#]Aruqb+;MFb[SZKO?m6:4;'/1?<maMR]rHs-+;xaW]^2
U"U^MR_L]2?p<Zc(($PZe-VeuX46Lu,HeQSHxH<E,B6;-#elECCgd1dSSQB7801IR
U"+<;C7c=,MJeM;=i]3VwpaeF5=N4\VR3A>p4<U#Kgln\v2P;?,=G/2vuqs6fstvq
U"],?8K$P-GvLUCQe[=jaxpF)*\04Xx$t7Gbr/Ui3O4$Zj'*/Fub97V#Cb[4v06[)
U"(=K1h(jq0=(/a(5PIM\WHnf[m'(_DRm=Jep\W^^(_,&G#Z$O?i&n#+NKf=R,8gT
U"Qi<)5h8[/?D8BMKr1EH8qnDSe\SFt3o*<?e&X_%vJ8AC^udG&eV#gmGDKxlrTlz
U"o?aAa&D%;??ZpmLt[^6h(=4ZuoZk\0W;Tw8DF36JmlShxc,?KJp(gTKQr[K^3&;
U"\QM&doM$Ct'dD^Y(Hf+t9Y>?<0jL[H4pKBEw^/r).ox/=J/Fg=CH<E>1W;Ug7#;
U"<5UwlD.l%g>nCtQ.QtZ2>Vzg(tjdrA<c6UOKD't/\L'Ljf'$+V7\\xk[[P,gflA
U"5_d^bS4npAUwVL]52g8?pbL't,?/FoRH^UhM$ZYoCQtDW#LI(+G'jS#_kuYk>wc
U"6Dw\L0_2VI;<AQvo=Z<n]Wgh*/104(laUUP:&BJwtOxxY>K?[5<mW?A<SqW5f7w
U";k+NScbIE%Og^bO9uj/5DX&$DkVex\tg%\\9oWeSN?$nMvk,to%=h]5p:d,C7rE
U"mMrQj_n51#6rG0AB=n;0t&vV.%/_>^JC7w.6U/GQT*7[K4fn*3qQ8V)j#Ty&3%=
U"XV;d*qCiHYn_OA1M%qO3G&t4cqK&D:e'aRJ*(+uz)L(-y=A=I-n$MOH0/WHq,9v
U"d9s)SB8f%TY[g[3KKRA2UKOj%'<2;f6fTf$re8Y9eNzik&m*KU[BR$:3c]k9X;F
U"JR&;eZJ_?(Z442#j:;K$FT5D9u3(E?u*2Z/iQ4v#^SqCgkp6^FCp'Z&QPg4^f^T
U"T+MoUpNA^kX^8G5xRi(&e,Q2J;FMj%fe\g,h_6^X,i$-Plh3k3N6Sw/),-BJy1G
U"HwBjZnh4RjU1_8[I].NA<>bD6F60o;%*)Ji[=IOc21]6OaXQL2KUUY\yMdO_EHT
U"NCl([3TTP&T/5IXjaeT1gL4$->?QtOD<?2V]][(Fb>*VsH4,>P=c1&)#:8eH#'g
U"WZJoF%-q4J%LV*+]F7_-*m3?X+u$Y;h;XI%#;<&=YL6W#vq*[gc8L\x<10a7_Nq
U";<4%Ec]u$Nr8BN5LyL*lP:_--tLb*L=St4Hjv?Pw0gy'09BSAT7iv:e(rg'yc6L
U"2ls;rm;;CsBE%##=:ngR6x19rTb-]EHY&LUJ?k&&*I#Fj*KoPN*X<Q#R&M8>/nR
U"P.9mPmF\BkNC)hkZnR<7Bbm37'OBs2vbX=i90[e[T59&)rb2Z.we/T_cOW9<UYi
U",Bd?5wl5_0AO(KROYU[K8^=It-#:(Xe]*WMX79%$wp3;&H_8L+iLn1#2sX$=Aa?
U"aO]:6Wo86t:neSC++PODEHMDBr$PG<Y%)KLQo'<.[Bo86Oo4>BU)s1m61G[l$w\
U"G3D9=jAN9.1]j?Tu[e:lT\7cdd4GipJ#]7w7[=uOD1>'B]dG,38s.WmuSH?1mRp
U"-YHIwf*)Ds;u5b.8/nlo6?cWcjMco;$.ZoaE^&Q6G5AQCn[*GjRuptv4xh\[GFF
U",6.Yjdp-aMZH3n4M&L6^2%YKT^lxGfVuUAYI&+>jvRKm'\am-&KvlHNS*'#i(%z
U")rs0&=PE^^Rs(r\qJoyx&%?;aLj2hfViV,SptP#A4^1_sV='beTGRUpP/c5Njq_
U"&lNCE<Ql%1Q4x+EJM*G_iJbEcirD:bP0;l\fh.5^f5:0%bT?VxI&AD?oUyIAnC]
U".%B)oVJUCR?Cw_+3ff6Dl(0YxZqaiamAo\k/4+a0iak8N8SaKhQMX7yCPJs<o>E
U"nsBkMHJ2cB?d;3\,-k88q.nO&]Q5OSK9A6%GC9pfg59Th]2^FjZA?W:[MLZJc:3
U"U'%2mxdULl\M^pieP[5feDh2s^%\]a]n:,tBilLs(<eNqa#ocdP,yhq4[-W%9JA
U"aUWuKH0absbgV7*[CkSro,$k%j51CbxjV7<95XLkJND?_;nWl.J$tP_[Xo]b;q)
U"O<$BpuacBt4$Dp]w/6pM5P[-:QWr9km*0aU$(_BnHVhjp3n]-A4GAEsP<Bg._]#
U"()?EK#)5q4SSMBkLtR6O5%R2?koWL'X^qkO..^Z$casn4iH1P7+Q^8xnCSlN*EO
U"v?39oUAI=K4jr^EBC1&>)YI;4$EIW)FA__x\]OQj:I5$f4HAbZv;YV.K=P#(-zu
U"5:^V;&Q%*C9]#ijoYY;jL0lkj#S64iF\Za&;CkG0e)oukJl_/%S_X1]i:8aLb8N
U"Dfi%fLMbYO[N#z7h5>[$(LBpWqtaeqf8DB:&A)g$wLHJ+G>M9SgcEQS1cp_feUt
U"'lz9Tx4R$jOVRp]V?KZ&$#y>hf$JS^&4Wc3*<H4H.<y%eYPo2i36]TCiYtt6%Vb
U"G+*TfXb0&Lt]8uC;95w$%&-Z]d'_PeJ]LICqjO&^JP]o(U;AhV1D\0z42J(>]*,
U"])eIM7]1VW1]<G7P1<r_9&7GCbn6=qr\JWL7W6:lHUF)P-m+;>-B=+QS4/[Q&>&
U"BlQ')vll3/5[U(A=5J6b:dEe]X*G=BT.ElJ7$0=r0DSg:[(*-i8Fhj:gdQjE$kZ
U"=apM?ai0*z>Jx$kDES%,)mba_Zay[D:>XS%$^iZ4j$5:Dh6e^,9UFy)a+gO2u)p
U"lUi$k&#BlLDBoA,raLc)FT%_<-T7V&wx9)rm&kLZb_oAT6/*P^oTg\?Te\(5%#O
U"2cpu#/sea<Ga0-[d/RuTP;ePzmjcKe&_9,'igMiW]97J\8Z)v6Uj/irJz(/wqjY
U"r=F0RqS?sS>WCpZY/_8H]Y$7ACJ=7K'a8/Yf$_.5.<,0t);aNWCB>nXJ_\rBotg
U"m_P2#AZZ;U+2KM9k0T$eOHd3o0e0B\f>Rj;3GU&dZ'7pe'-Ojf,?R]s(/qd8$&f
U"iiaO3w1V=sdq8+oo2^e_^B%([C.>UnR21$1/ph:<_#oBV((,$ZvJ0?dS(J?1vHC
U"KEQ#l5gsnBP4;LNS'QJV;D.j&6BRGrPW5*^oi(VmPAE#'y75-=v\08cDd^]9blh
U"'.H6Sa68UmgvL#a>R\3J[6oSNb0BEYcMLI<(NXU])R:XT/Lts;$?)y$c/NJJ8gL
U"pkDSTc.(J'QU0W^M6JZzK'nX13UCW_fx5SL(G++.*V2wjd&?f9fgC\VdXs-3N&;
U"z9;HW*xp9lsug1;-BC8R2$n_Qp$FF85sV6#P?nENM-0w^'fBiXvd$OK/NKfRW\I
U"zJe\FDWa)dKWb8X)n,Z46_EJrrW,qV50SNS+sra#/0L6\3]^vx0\P/1JjL:wXca
U"AH(>J(<7XdD'b$9T$uCUD(jqUh;g/uuC0DtsXH_pc&$^j$=q(=Ye$SWv-7;fxdT
U"fv5?tkcYuaEVD1;CV^>VBv3vj>o,T7s1axRomlXR?CGYtLqD%e2q89SDDH]\h/n
U"C/<:H/EkZHL/J(rEX2/4I/Sm/HOGzmjx/MCai>3a>Odk(,x3=6'D0D_Z3VYN(&f
U"E**d,LJRQTq:DnWmfHTsw^1mmS*_+cr.,U53AfphW9'[Ah>LH,YVc:nAn(m7YRC
U"Hr/FfoT&ilkK.$,_1WIJ[I66&AYwPK[(,9RZOs4HCr$Da_EJ-p59IasvH6tg$bk
U"UItchkJ>T_xDTgoanHL+p,d6hXvE[>3HAP<^;StXlIDf4)<j=\D\bE?atLSxH1B
U"-Jlzcg#V*>H6vwHl:X=6Um+hZB&8TK>yrcv<PJm/6xjI%=X5=>Z&G>FZhGlRc0d
U"&NOS^[&o]WRHAGhl>Pv[_zk98%RDzdO]px8-+HY9Ku>7g?FSEqFQ7#MXX?3(R#V
U"%;WH6q63\tb<vmk39qI^O.U$S/J2=*OSTv&?uPD6e1T/NTzd:=zdg(GmR]NN]bX
U"OqZ_BiJ>N)9k:KQcIE8xNL\d,N*A>Fu*%Gukdw4942:bf^LzNOeH<So)YY+NT7=
U"W$UP:EtxnzDMC>9_w=FZ(G_CuDWx>'=i5k+nJ.LY=?lcstA5+8v53RYHjggg$4[
U"\g2#UWxE$NWGv,W=.1,+qjD[v$dX2>5,n4Ck3<N,bOtRe9vh:Hu/0,HssQphZev
U"tnd)3=7sz9f#f^&K&ohD;pr]#oiuREDKDeCjg6j?<VlpkBlcTO.s,udlJ3-U(\O
U";,&8;1v7wtK+?vNpy1v$GY\x<tD*xppcj:7tM\du77x,:_<hdtqLwcp278o)f=e
U"P;fNO'tL^k#KQx<xP45>-Gmxaa\.?NZiq)w)Y>kx.T0O%BoHhr5k_>kg9Q02V-4
U"P#0W\9McU$?Y;nR,nd/%;KkJ]07I.?2Y<iw?zq01z#0p:v-3B6R8?nt)m)IWQ_,
U"kv-2GR-eY8$ZH'Z,s.w%.E=w$Hhx1Zm8^v8c>cj3eE<hwoPVur4^IAf3EV.TXEo
U"Ec;'VSwtAm%IDPHr']9p.'fr$9;a<_7v4YnRQmznL[h]7?0:uaFF$uy%:DIPZUD
U"*Gp-n2.n.ilo?rY3-/uGhfW6mJwI^QllYmEb^Io^F#PST5z1j36idJL+tYSl-t(
U"K+.mb,#7ChsdTNRHa]l)[*2-50Bq'yX8z#.a-RI-5[V#'#/-d/Uec5&/o9nr5n1
U"wi^5vEdHPpw[yrC)Lxi8+-2k+w>'\otIIf47r8e5*LK4Pat&-xlPMOpsJlJzZlO
U"_h]f/8RDDfGW,o^rPV+Q$677xFoB2cHkZxq1/-F,+OHV#_wKbm8rDNZ9Jm2HHPm
U"^uih.;X6j'b^Gb]4%;zI>/Fqgr1G$7\P;de7VSHk[72w3lV]5X=Th:;T-p>v8^c
U"<#p.E%R-HTuXW+g\J.'sTBRXth#TWC[s?3<lDRRg4-E$I5g)&kHR&V;LP'wmr;u
U"B7%Xxs$V#bPu=3=CpyV4O[%OEx^+=>W$8fRbMAu=z?,sGLnJerb,]vvqg6c%hQC
U"jB?<&.^z>rAx]*b$sFCzo#V&*j0e*3X$'C?Nn8PJKCvJ*Lv*WY%Cv%_IA$QV+gt
U"uMMcd,p%#H<Snm:^6-/J.rta6MaL(j8Yz:PZ\]WfHvCEW0MI-UGEG,peLV[*/9n
U"JmG\og>hY#,*k/Ny7BByf6<kP/cV//d)9D)QfA%Oc(%/h)%3mb1X/Z9f*g.h21C
U"v]jImUm6mZ\fAs&-3i=*G6VD2eyxVR;UC(_$OnK8x-K.3)ZG,-(\[kMp'kDeR96
U"PQ_CBSN%R1QIFGwr=HmFbIie3tcYc)Ue;Ra*u9LpQ]cC_6YgHYDa0ft/Rhr]NN&
U"tX^VE+1ssr(ipK%MJR;Lv+t<%eOGsr(%m)i(3,4z[u)B:3,L_XX_I#*bc;Dh\KM
U"*9Y+f(IaU1i#S0]X:-uY7M1[%S#2av2d'55Xr3<k,iu/6qx?jcR,O\I8uW;rbQ/
U"CXuC/DR-D9=3+O\W;0,Z%NHoIf03Oi(J#R^B8%Q'sv&jCiF:f5$0;Qcc.5&k(bI
U"nPOgVPm+'e_)Dudn'xg<_0O6Ph$6,cJ.Q2K12a7;vi75F<Jp4n>(8I*5g-X28:P
U"VATFQz\$wcP2V0fgk'%h)(Auw\<LI-]iA&Gn5x)B1LlSIi?Tklr0$itDT4RO?&J
U"1GbMOXdrP,R&HS1FlB_sasZdAGXDnm=.\OgE9#l(_c8.;OVs$rj)$FA9Y2&1Reu
U"+^_n7/'?Qs*n+(U3?OB]:W03a)44Se.x?7N1_t-UhU/qk9-2SmeqzcsNL>CeoeX
U"T[+[tW#\1;EV1-x;^I364_Cck3<',zIk3>yKvUHgjRJO.y%4zL<Q#fGCaLU6W$4
U"5p+0JlOnp0\_bO%EHV4Cv.Qu5cnnqB%]&oNPMwbkSvJ4B]-)sVWVA/?5%Rx?*%q
U"E3Keaxl,0Bvlu=KT#zJ17:YXwc>pu;sPnS$%n>m(UK_<q0J<oM0rnR<VDfwNvkw
U":(qHdaF#51er<.1F/anx_[RbYC3O0ddxQL,cV6P5Q]cRjHAYn.yZo+pT*JV=wYN
U"VWyv\+:nSvcW<]9es3VG*q&>A#/)J\%I>&=4wtjnNZ44UNZjh/(MRi&i3#j06%1
U"Fy&zU-lWW4>Rc\v/TqR*YCuZk])^<D]^31kxA^<gsTEEemL)cSsUM3936?%%8tU
U"I2:Q)T[DOBp(n%#8V4N^+a/[)VC4T6=%IdH/%A%*%fFxe6lB1O1R^4uA:R*B$3]
U"giC8_vtYI*e8c;s;\pXb/*s&3Nn$S>*VBmi;o[jjcF-l<wY+Y.uq;h).-aCKPeb
U"O6XFGDs]WChuwNbA=cCo;oX1.R)_KbY?qhTeSuBpRxx4vk.R*^/h9S::C(NMdBE
U"8l/LJh?ElKWD9IY6<P:BZv91tBxctV*VRjm]TorxreD'K;R;x^mD$^x#&ppgmb6
U"Eb^yxAEAwG$:Hk=+-F=s59+b#g3&N?_]kFY6*kB>CSIzwZS>5op^'Y90-rd\?WJ
U"_4zURGoa2*LH9x)Xac9AN>N(o):0*gLC)F?kuby7Oo=o1dP3P/KgHtraW:-Lmoq
U"$$GDXSV?dmiXreCRpXhKL&g:,nfLlG)L=2]18i0SH>bOgnQKM>\ETk_h%ftWF3L
U"T39MW::^UnA0oT8)Y\+k/Cmb;CX-aN(0^N]7VEOP^/0'>OAxap-g-QiT#xIql$1
U"-3,cl+klc:nypChURiH&h^'yY[mGQ:Ug1T##s8pSlcFC*mL=fVJ5tnXEIE,7C^R
U"\N.&g)JG4FN%[.80/R*:RB58hoGmkoMN&YH5EH#CKo[QfUKOFZ]Vb-=pE[hUIs&
U"I^M%e56j[)5gw0$NBW=65w9VqVrF/Oop=gQEHDFHvP0N;\Sxpli$ZxC_Qttne7j
U"PVg-l6Af%?D1U88NpwvL.R<hG-+1);WaspT(_Q[s)O%'jzJe%p=+TWdK*n_:1WN
U"u%3//JPFH#KI(B/A3/BuuQqVIQ-DGFGsJ1r%VO^:5g)$7$;eKu$b'Gk#A)Br%X[
U"]lomYL&LL6+v0_L-RATy%eI71akD>C_g4RJ>vm$e)gYIK3(HB(5I:l0Oy.Sq)Pg
U"%(6Nq/$'oVD<$Lz:A%iJyx6r[r6-Mm-jQXd2lde-y6N\#S?83x)F#uCaNC7HHmI
U"W$/_etCNC]/3/CU_YbC&2x094WgRL),TRwXC,A&XS%Z1f?'ex]\6z.UXtTo0WHG
U"Q?nV\g.^ww<W_B1SON*ayqOeYmVEB\tl<E(4KDc+nh-LCHl3+>[_%cM7b0CJaZM
U"Q#sVQ1TkXvTg4Sb:ddbIR*TVGk+\_ZDLdd21yg$c/GKjHCPmn_34J0^;f+:Q*oZ
U"VSsO8u5>#%,MeaXG-((Ir=AJ7?:r-3_d8lbs#4&=IyraL;C+A:4pVhKRNOHJJ5#
U"fuZ8VF(kACuUH+T5:^[gt9H2MZU8TSYkPfRwAkfU/RKwt'[OuC^;HF7OeG6C+Wj
U"ZvgTbx3[349>A^$9DEJTv.g;)ht2vH2%(7/x3;w$V_O:?SFN;K_;EkG)rxpH%U\
U"tq;Fo$Q=F,U5h-6NfDnzgrKDZYCckqwFI<xkPi[3i*>C+jUqor&PCYL2L(pZ^WI
U"pV;ZuH+0-:R/$;dVgai>]'EiQS^O8i#%x.^50eo':<Z#fwY5TB<6.aS/CEbI>P\
U"f\B_wmW$Sv6*apkcxmc=hx)vaLBfgmKBN4R3k/ggeXKLeXj:o)5snX\WW/EVchL
U"BU^;Y,s9t;+E5<X.+pwLX1lQ%q53YVZ<u?Ai:.#4K;is&/k#eM?GZ:d/B'6tjHW
U",,dzPKd8Gf.<lcq(-nEY6SNm)sP7p&e)D#I[SbU&e,cndLrg5/gDiBUjqNE2Eqw
U"N7YeTLJGncbQ=6?J]SngX(pj#9M0akM_mZjKP<w/sX6;IP7jy5Ld:[S.7Z0?qr<
U"PG=Oa9tG6tJ<\l*g5,0LOy]b\l3Dg7NB+Lm4/bd?C2fHmrQX=*KlgIjBp]Q\FeH
U"rO1f_P4j5z?mDBC4B,=%<<jL[#ai.cIts9%4,;^?S:S,c:bI,**NAyq/c/x^02N
U"w_V?3[vpuv32CAqQ/:dtcy\yW'NJrp'nCqSOZ/X,'zp-m&WtxKgf\&*wb.(%'_d
U".<0wo91SC/tpaS8EXo,H?,PB6AS3yVl7[P=4n^<p7xBs:MMOJUTh'GSxA$%^p&D
U"CCy:agF&r5']b+hw8W,sPWU5iF0b>r*X4(oteIo.(Y4.1;YW.>r$r;KI&l+?Z<_
U"'E<Ay$h4)rD%*5K9r-I/DH$RZba#GrT\KB33MP_tFGw9tACD;oRJ[fW$2o'9L8P
U"aSb^kLwSp2$LZr*mJQomXI_dO2Ioi/'BFNuJF*7*)SGrHN_:<^l,IVs'08T-_c0
U"]l/5ub/kyS%RET1'S.qNFjOI9v6CqviV[N&+L5>cTd^7VL'?j.EmnnS,1$(yG^M
U":HwJ;cFkzdM]>fcKBrda-eG3CD\]nqyqndd1\gE,vJ8?Y9+t7K]4K?NLRpv3&9.
U"ztl.otj0pk[W]?J&.chi.GsL$%46X3F1O&nWL4/45>HrKPmO&*-<l*'8#0I5r9V
U"Kde$.KHBgkl;,k&?63F_E8.Jz=m9TwBb6i5?U+5&pM)/$6MU0m,-QQ;=\yBwm'E
U"nFTH';8R#_0NFn'?tLtFij+aqKd.gANoERDWZM9hXO]ePP>DNpdO\3ohQ5hb\:[
U"O=SO*Lq3F\*nnLs>jQE1vzB=Nxcuohe)UyyCjJY?Gzmr+rr+'^'z5u9\O*pdSn\
U"m>E]Z5BRj#2CdL%zo+a;xZZj1PRSQ(ECAj=XC'ssc-d*egj>><]s-cu*F#Fi;VB
U"Q/Yeq:]$Kg=&.wy09*S15^dY,k3A_.Zr+#0;#%<(1$iI[V?NuZ9Z>+>m/X/P0:-
U"+V_Lc5pO]J/$Xm]QDnsBtO:=/7BAE,vrLOX+Ahr(g\=]Ad*XP1JGdWD\Tl<(T+x
U"OVW1G0k2=VQZ'5lK1Aa:au*47VD/qR,RPW+S.B?2&nRwF^bZ?#.OfbAa-M$D?=3
U"?dg>0y49t6tL\g)F?ocjbDO.<=w8^=d'>W]6Yl*/?3C)r*=4jiY7-w[gUc9TfQS
U"7m4/o=EwZOCUJ1=&GEIm9<91U)bwW)Y_Evg)/7e0s(?H/vPws>yKq5a/q<x<3_s
U"X()G$V=wntf>-(=(I4#-s-xQy7ktq%rTKsIw<&bJsQ0$xhKmPElu=V^0b<1)Bic
U"<D=YuQ4L%KKpT%[\M9spHIx%%up(%)9%%[%-%#)KfFZh$>PM[5%%_&a&%+%%%%k
U"%tsySOVf,*,AeM1BvtzEdWDwlQc%N48B$V[[77k/nT1Q'eiIL_%[EBn_OG=7ux4
U"VX?XWXccWXgk]Mj%Yuj$dPmd)YhZhP(N1-_vS%7MEHp-i^;'9pw)Fq+l/-O?1yE
U"OB>HGNtaq%.q&q.nq$q*R[5k(?_lr*woyp3]NHu%RMnu.IwE>>Hun'jCxt=^';j
U";Xyad^9%9T5=MDgllw0HjYQn(%=%]6vciQB]V&u3#lk:_v+=\Gg;pvw^2QpXH,]
U"Y=/.I[vVJlHi0Uex]1O0DaUd9.V?5Lqxx-wDhV/_E_G/_G_ESgZuHggegFHosay
U"[-Jp.IpRcs[5I:-UF7ER<vJns\mFue*]DAzG[H.q/:t(Sk<f=e]x?t^Qw]o)TcD
U"jcWVbvjKnim]&x=7L6oHnZO6eJH=Ic7Bi=\LtcRw9?$k$2_M?gZ_%%-_cEkJH=$
U"ejtp^l3i)Lb5nQ.20EStAFu>q\Ltr&MZP/(qb6gu^%Dm3*>4pZOiQgU3Ze&>ijf
U"jhq5$(D$NhOaNxH]d29HWhsE%+su4I;FCR\n-jrE.G8N6DO1bZLKL>nt?h#gu(k
U"/CNB$5B:i^ACfWb$v^>Rsm)[f3<\q9yfK&iDlUlLSD:/<PTbr?Vp0a4$^_<JZkA
U"iJ'$C%?*#;ce5Ro_>Lk&d0V0XMM2^/ixQ^I$Rb:+_#ETE01^1HnJxlvU4D'>\9Z
U"q*'P1.6gF2ybn6325SG\tuB2cu[nnb#cXb/#d6vhLV/bG'Hs0\$bnZe$P%A.?Ic
U"48'POS];$s9Ddk,skaG[mfJ^]S5Y_r1-iwloJ1'O4*'5+Db;(WtA/wW;xXX2\iI
U"Ps5[WMa^ZQ[)qT)I>w8h#c$s%2Mo[O(>SMN:]8LFj:8]l7bao*dI6rJ3N&%2N+j
U"'4wlt(UY9H^]?f8>;_](ucnCurmz,W6:6/d2BNQ=7g84hIg<ut?27]3_6-*mQa5
U"^jJqe<U$vK;BL,glwwgue#+qWn5Ab/2sNh60kR%WMz,70q^$Xvj5XYVFB46WRt;
U"*y8zpo4=^>PH_qWFc+]<5w+<sL-4N0?(ot3#q,]U&W-['1hrojVPtF[qY3#M*Lr
U"2]EJ+Rg41%N7wInsma9KprBLg]y)]ErJlwDs+#QT?)&%P3XK.7D9#^A_GmMDybJ
U"3)[B&AY#64p9Kn'bK7DeJ^,QeS>.YS8<\*-k#Q<+q)+'w/8_:?g1Y779Zswo4Gi
U"dhQ+Q)DmmTDNA(Zoi;;AC1fd^Ibd]\JT-V60F&c0lUMi_)38jg'^bhe8jb-8E6v
U"*Ls\wuPdHnLP#)N23A<gGGBw,ase#_KsYiKEwEdTaF.u\6tc')WDr7%bLX]Pi#3
U"0K$:YcM'g13l$903KrsgxDFUP,XMAfLN*LwtCm,C*7J+6#3TXYPF$]KdiImPGef
U"QgEkEPqb+fK+LXXYP0a/Lt<<6$Pj5&_G4fK)[S-nm%weLDAUfcD422lS5bvXhGi
U"mqUL_PR-eAeiog+NM(tK,/Sa/*mleq0dik'f&qZWN#)n*<4m6[0QtG6GHdU4eph
U"I%DVdLL+e.dm>F5oR%gWzl.8_n:I,4S5Yu_B7b97ce49?X7u8$Z4V5U;UjJzSf+
END SUB
SUB V3
U"VVLL+8.jo&2^q5).EfoW+7iQ:PO]_xI[EPwI[;=bri38;DLL.Q9-5\F<*N%%R94
U"VA7W+rn$,kzkpy5XmPUoA-ALK5q-5?\(LIDdKOrwe#PJ1,4aY/rlbjR\W6P#3n9
U"]:-YU&NIi-lSrEA(NIJ-YS5YZ_B70W'^S#>1T>Xo5:6HC80wW/$UzV_\m2R=\En
U"&2H33n5bU:C\NRHKNR?Y7eE19ClJ.6BrpDsjt3x#vum=l(Y-RXR6I34IdIt4opP
U"kZ&6Sh&>d.e1*L7q+.8-=njA<i#m'x\gAoR\EnY8-]\K-Yj:Y>?p2)KU<w'X<5A
U"j8HUaum\?70r>-eDmdhqD%IeO9mzT6oS0/)Z4\#Ke.D^6*3h6l#UH>SD8aHy1vn
U"qA^zJ;^ZKb#dov/27]^VRwfUDaQ,?hXc*<+DwC?aSoO]saF:'WvTEb3$QdB^]$2
U"8JG07tXcXlGn41ISFa^27_Sl2/+BIBA;wmij8_=SU(,B$'nhR=\WP,,$WL7rNGA
U"s;ljHW:Ns*&3PUoVXlohdDALApI_.wv5z.u;hd,)n;rANgk?F<]lsgDGoiSggO-
U"FH#]mv9ra^+5rN2satlf3VIN5FGNo4#$s5InL>=6S5h2Y'>P4X7JT6ts-5KnZxE
U"TKgMiGxF=iJsE<5;vA-RcE->SjbBD(c-(tiT7J]x(XSi4\KFFsg#4\/MvDSBnLM
U"t?c27vh5.SUYuht?2076Hqj_iL,f2-oq75A1;uR0FnOZA23A8*7NVS3eilDIA83
U"G]G&TR1EE>tP,F?t/2cYmb^W5z(<g5'B5>2yqMgfky5XFYPld\A)'lXT;\;1jc)
U"9_\X:Zg%<ZirSTo1u*xd5u(hr4,CP>&=5;-y&5R'm'Ti/1454as*^sw-mmlpnuv
U"OWPnffq0$GRY]rtu27VT$9Y3l=_eBl-oflT:WIuD$[5#5zuN=fPh')Pw[]XGnbQ
U"nvDZt>Ved8,1qn5i&MkQWx[on]upMsp6=qen^#??aFhHPcFxzR=DqVA<$G$-_OS
U"MRHxWbUkp^vjPpjJz=sgtRi7VFN\Y7la>W'M<O(riC?#;'BTVgBG23W&(p3/Xu#
U"1TDz-PT^Hih\vEIk2rAC]aU1SWe;D^hza8tVUPPE[-'zX8v13e)$>Z6Je&-C\QU
U"Q&G+-x_k;5eC-L^3CLDN$+II(L)j<WcX_mx:uB^vslumitRaWd&q\H8bhdLjKg'
U"wZU>OeWke*S6UG<65[rlLWW7D'2bYV(Fr5N1B)BH$6_82tbk6/;xv8]IVo=wi_8
U"8p4s2=\pZ+_3v'?37dy#\br+S-1(*9q_66O_.W+K+#BmmYmSW>PnjjHJi5/%oB6
U"w&I2B\OF):L]:iO>(V]GK>$sY3+Aaj5=rVQ6,;>dd'?]RR*7^zfC-AXD+h#TUxW
U"&5moNXGN.unY8dHg-b6fvzvx;H,1bS_4wPg$RZp4#8sHCzb=_R428&Zi#mFtint
U"lc6a[QAbWXGX-q]EPWA+U.47b(+7+r#tjbp'*KGPVfk#AeaWRAMlLnn7im.(8SY
U"-&lK0u_1nr[/Kq>knl<nM%]AAJ,%;=_5RR=F-3DnZ(?VxJ+VP^h\nKn0XX<Q4v5
U"ta)8tCYN>X54$$Wuv_PpsZMpHsK+-;#[&O3E-kdCl4H>Xf6F8En_o?.LLD0>spo
U"+lr3)gtlF,MEMehDB2J.^IJi9$Rg3BoiR0nepnEiFaa=s$VWb6RZKPhOC=tRfCk
U"XJGKPNAzH'tdiomA#rs/eHrVt/sLXP<O^Cl[t_qA24G44Bq5T-/D]Eg(?vxWOX(
U">B2O[#>)TD&?Q0s$lUmo8QL%nw<CYAqRID<6ihw)*7MQX(8j#Kw:EJ'zUhN8(+d
U"n;r\qo1I?*p[K16u+1ais(kA21YI0%D=:*+Mq=[KCx0RUESS.IIPq.7fA\:Qh-l
U"2_c:h$Ig#v*_(dpE>(ErQ/RUMlL%.G9T7Xgt_2[1o0.7>F5oRrKoIaAh<?\riK>
U"inX(*xJKuR-UpAes\9d5',lvF5v01ts-]oA>:\uLHj]Xx(VIY$77h'vsx8:zit-
U"N62&.9(4)%umMFD%jmfucK-2ZD7x:+ji,(>><CRaH6BYOw6^u91q^n<88itO*WY
U"'\H#z(h[GeLGmpPf>K))pPWR)h-+'=XTkm2E^q33*\$PE;2^N:8kK&+k>P=W^47
U"N&g6cHp&dbC-4RD&K(oCmMro7.]83+Nc^qN+1v%R=W'4O(tJ1prbeE]a9Vn*Mpd
U",':W78_$A-Qv5Ss4wAAvOH_WUVM4GNsTRfL=4R*-*wkl'\qekiK$W<%oAWv_O^x
U"cO'&mp87v$=sqEb7xkvJl72OK(kQi$tcg3%='(D,Sl$PmS,\Md2glmntFWC[ssK
U"x$Uolb0[=+tBkJqS+^mjyGRwknbN=KxISMDMIeY>+^mzWGRwJg_\h'^,u-w=YFY
U"xf]Ov(nACmxu?Ijq,.PJ1o$fWX3YMA:Z9u]$5$bFtH=/jjmz^6K?xCsb?Z$HX[F
U"%8N_H3yRODmFJl7X><uqAmp>J7x/ow+:xP:eo,S)?JeUXypb4<r[SiiTsmVFK7.
U"u8,okowAvpsPqp/jfT?BQ$wJuD?f\r>bKx$ix^v)G&SL&WGgmFMJz6*+8AsLYM8
U"0#i>*VIM&nA3=qhx]4\v_aI77a6aIs$F?sr8/tHEYxJD*N,fiDbw=_hk^WVZIJF
U"2wd&rXN_YkN8QoqhRxBE,M9h*A-gkuCrXGpf*rMODnD]t[RpXXg#[8k7L.=f'Vr
U"ju58L65MiI'ZRvG8o4kwDZWXb-mdPS-e5Yyp_N]EEQw7.&<GGm\>G;p-fhd:irh
U"C(X[isUcTtp^[Qcvl50vEHSuhX_vYlgnzZ,RdK?mptS:D6hDOVbJRq0;2'm>2Sp
U"8^QW?E]sn.WaM(nWPYXgimFL;<PbwVltwbhWn*0CpY-XXfb..hkXXwmVrJveO'>
U"wju-%CbOZq.J<v-H>p4HVYjc'G#m1Ftk3w.,%W5_j_up0Tf>S77[]d\Wv23XbTq
U"R-A1WARw*fm.m$N3_$$a,vD$C3OFH$GSaaoh[d#P>k$=3tX7.[.MmgOfkD8-S5z
U"#P*b>Af(D_2$0SiNjx+BP[[*[IM*&]<k,M7OgG^)DhW]M<F87emLa1t=;-Jxmpm
U"mSWZXY6M.?Xi16ZrBIi=fM<i%nU/l$h4H-?6Ozqb=#w8e<2RJfx=^IkS\MXgkMu
U"Z8L6MJGYO\qUjSlk6&PWQs0^#c<[Kdakxl,'M+VC(AVQ4CjD6:.r9xdpcGIX6]U
U"FwHe7n,mu+xo75dhlJ(d^OpA%m#'DTi*slhP-IlHf%:dMm#chn(MGfB-_mcVxOs
U"qT2qC71vfIkSlMbKb\Grsd>l5tXU[:#3K)4I_W6q(zna=\Hs&5s;smIIF^7Ttm%
U"=I.&_9l$rR/[_6ds?46P4fIxmqYth8+VR7cy^N8rspP4vq2I)YQW6C:^S)e7fph
U"Cm0pZxLK>>7P4&'Mp6OQ-[cCzxlK?_dd_W.4vGlKhmn<,*F#C6$Y%b$wt$(OPaW
U">AN^lfxF(8>7nT6i'+(VL;D\HPLmRMZL%Xi6w(Si/;.(C:g9DNB0lLfUz%M^Bw/
U"LK5LM\d$$_HE9*TsPlen2;lEk0^^'h/7+922^BfPMEtnkr56W_p^F,12P)fltJ#
U"(%')>'hxa+Kdlyno38et*':OtxF7m=\1PT1ivhmei.bO]tFixhZ.<*Z'oa.Y$n<
U"P'c4&A]EKzKd&6%fL'aKZSfQMM9kxB[rmF4P9HX#UOQv.fgtkiw_dhKf=F;nX*_
U"25EQv5[3s_.-<.Gb%33:l'CNjr.hQnL>3Y-(12n$xpv>.c%D2opfa&Z:riU/s]*
U"&1K3(PW/sEoKgK5ZLXTr>t8B8N7cu#t_Oax%Dup(%)9%%%%-%>E3eFR%3w*U#7%
U"%g'w&%,%%%%i%gqSkRsyf,;(AV]+1utzcgY(EbVYRo]rt[\\vv-'1%ni5%nvz8%
U"lbV</C8sEV_qHNk-8MxPIR-MQxSQ:FFpeM*xIFM?v='Ylklv4VWAA]<gNDFMiAC
U"D=BfDH4$_f8=H^3YQoRQzsVv(_6mt&31^[*gsY^ac7_MCH,]i7w$'zhs6XEldRV
U"OLW>>/d6ds7>,\^A=hDJ[A-i%[gJ$x=s89G)+N84ogq<&aw4F]vNr&s1<#90+J$
U"l]lW/;.w7#?KxRJZv='BS:-UKmqXKx9$7$dqevJOjZYRX0P0E:V<ZA=nKx%cgZW
U"=Cj=DU8PN6KF4_sD86=oF1N__<BFp)XWM+&.]n,#oRm_Bwkk_UgxTFHmfMPBW+P
U"fO\COZuXiXQw[4Rx=Q_s6sXwqHSwSUdV1iW<4^P?q\1R;q8H;>+&#dj[iVl]T=i
U"d_b2+K+QRaEP'k^]NuT^%p^3tdj:lW/=A8o;F-*ViakA##:J3TofA;+&lr#Uwkw
U"q7fV_\FY%^)z3L7X:Npcy]lTH6XypVa+u6,u.6itb_v-h^<dYj;0:N\IiAaYf>J
U"KxHRNK7sBW$%>wqmnGX8Se6FJ^CxA2:bA8[BhoF*t?._8jzm^(tYKA:.eC#Qet6
U"nBR=N*,:x]/brSMbet2<xP4*wn)tNdHoR^)b>7JiPCr2.vrVN;u^-Qe_8k1RFTf
U"5D;S1DH&/9JKnEm5cwk^-^Qn>QQjtk9wXke-_+j(5TtXZ*[\$pxnsZ/M\ffOI.v
U"uWFt3CY<ovL=/J0lps&Jiq^]xFhW_F.=jSnG]FdclS^G>V%-jo2G$QO8O$BD0g5
U",J]eMF2FX=wjxPN+D41$8<EBPZK1O\wJ[lxnVafmm_j,>Ddc-rHwl*k)o$WXeCx
U"k8H/RY.(65ox^T_15MnkYCudn.lI3i?wjjd94Z2J?KL3BrBN8rPNtNHt30u:HO,
U"$WsY^aSRXIx>WP;t\pb6C4>Uo'l=]PHHW*9sN?/Pktu?uTg-?LEMo&22nrd<>xt
U"=6fx?&HqD+3:j)CQ2DEZud\NRlPpnV<$<>&UPUD8(Hra?xQqDXNOKecdo6TY2D8
U"ZTx69F_#jaxb]QFtMGf_K>m%UCQphXH,n)b?jigf77b)Ygi#N^j98_wpZo?>EnH
U"0KAY#h,,o(6Tj;^]x^FR$5QKrn,,HgpwWr4Z,6ghnTS0xz9trSyfqW(Xx$%]+u-
U"H8HF:^JV]rnvjuHpDt&uM<NWEUsef2f#dPrH0/x.R-kPecup>x:H>gq=H#U>o(-
U"KHb<bbiqiA-fs>JxT5nu6>jp\+$Y_j[E=mw(^Ws>Gb&uu->]F6duu\lx?QCT=&o
U"t=\8?Xu8$]t-$wYJXx:a<0P$:6=e?V0>0eVN;u^utOljPNX>vs5gBL7mAfp:F0f
U"Vqq<,>]7RIx-qudwb\BW;_<ah_KVl/HimBzvZ8$oW\]al]otjWN?>w841?kN.4.
U"Tbgp5Dbs4JT60u'Ou0tWx>6p.$1#[WpNDorJ$oANp-=q^_7hH5]y,b%uH\eN?*g
U"Xdfp<W]_4^qNCuHfnJVqmabx5bTZD.K/DdNk3u^57p?xH6&x;6spw*j:d(X?TwR
U"#*G>fn(o.JxQrq.8oTGH16F2RD#G*]5*uw(Rx=#pq^>3.rQuxPexo6TxMuPuxRY
U"5xh(^d8<094K0t$/^:xtCBq0ZrAegYDRk^Zxi(Som^W]tA]oAuvKR#haN;w#DD8
U"<HPx#_j\U)<]+S1xZ&7x0ulu$C0/gGTcKvgfsl-Z86>rN76[sjhMkL*nTfpWdIl
U"uDD?/xh8s>xlfAekAV6'#<6*FXU[<fX&veID4<7d_xTogr66t^t,t$8*E2Hoa9p
U"$*^RxlAqn(f^Yqj-foc'YVaG$XMR#eVN3u^f5P\MA(\C,CFawe)^7W0sZ^aSYrn
U"xl<]Nvfu?xg9ox>=(g$\;:3NiN'okdgu1tP5x>Wo4KaJ]MPJx]T'ik^[xP8e3\l
U"mm;P?ZlXD6mw.7u#xEXD<_6lYLeq>-lv4^T8Zg#K8-HMruH=$p_VQk>^HxPrhtK
U"F>btXUjLr8P;NW3Y<dNBcZ/u0WrxdP0*uMaI'][kIlwtIwsh?x1:rw1K4$?0.N:
U"K,<]$lggc4wh#ux-uD+mAw?ZJi(H-/LEXrk^Gx1HALoOH=G;<x=H[TP=p\muHw8
U"t)>x?YJxPMjB::g=IwpjcIjTTbj3ABM=ke_fKaqLt)VL$(vA3fii^]x8\_wZX-_
U"vNp>HGkHHld=rwn<G\LlAlargfpqNL.CNxZJ+GV1vg:h%u<]:d_ws\S3vc_td8Z
U"Ij8H\HhbTaBpJ=b]xP[kN/W\fb1qD8:f%Z><r8G$w6^WgUW,En90'OWu2\N(lNg
U"K9(gU=fU'=voj;kXs3J.#k[x>dZu8vvRYOqLs?jhD?ooTA4Gu-cJ^M;Bh[cJSZR
U"t8>MQ]Nl$74s_^kI?x6Qqn+-j*A7>^9MMe\lASNW4S25H=0JdIZb#cAZZCnW*xP
U"Z]x>mfuSWOpc%u4Eq.]A&1IC^sF+Xj9Wa,s6O-LFj=w6wcw#b7q:ax';dUxH<w6
U"v265>3Du\8NpsdeGx#NFZ6?kBhQXvrXKDuZ6*ZwjtN4ZdE9>QDf3L^8VCunw$tY
U"ilxIBEZelm6UMtQ8x9T70Egs)yR-Ip[,C5'3,70Gs<.O([)C%luNQ:7a%s8+E'X
U"^bS=vB%Lt>^DjAPf(X#/U5<vM(,'$&oWgCx8udWH_=%PN:G)<DI#O&EbC%H8;#C
U"'YmgiiB&%4&PH_*?Zp%%Rs&:1DqAMQg=%(;wM%e3?/V&zU2G$PD=(YSYSB.;^Wc
U"hZ/Sm%5%_4$II/ItgGk%5OZu%/3E?y<0KdNG/Mmo*8gPF,wL'uLm&ho]xz_)4%1
U"FnaF1^P%7V;%[2O%$U_L3JWWF%8?,'heC&oHP-po%[7,4iw'Hi9Dg''$9K7GPI3
U"=dll79'9D4,Qj,gMZsotG[RWs*I1rSOiKW2rYH^mS^%VB(Pi96cc92DO^)uaq$H
U"*GHd61>&b\?>W3c5&1s]kdIF<:EN+%re5))GBhXLS#5_77d$*;Cc2T'ZbZ)a;%b
U"lCVX99A$99VH2-acq%&IB$7?QLZ'N\<WI1-Oe,nOlrka-_P.H5MX.DfI-/0]mo[
U"GhL\,Hd\*K1&CMQX%6/W=)?V.=6RY=kSQwAFFOTW+ZoV9#%c77e8ql:*$;Xma%Q
U"mYSwHGy:b)t=%/%#.aa3H68o^IY;Q:Hg7i&m#7.qr24DZrLq\?j.jbL\5Hds*mJ
U")%<A4'r'3t$\h]VHXUUdr2QR<Mh(p-L_ytpxWo^N(.Aj&fo4&dEHP15grI<b/^&
U"W/9HPV#rFgN%lu3Fj[?AA0SA9I(%y7edqxYC2g=]5CxK3(3$Rg.4%vP5/zN/.#%
U"I%L^I_a0nfk-g(buNjKU7OPC%9GP**Hx96Ag,S86.9q=%6_)VUs=WG>YWAME^pu
U"(bwla)L,5&'Mj'x-GUl-9]JOxDO$,7Njd_ghQeZ9(JOx']Il'v(sv6D]DFAD%Hp
U"%K='al$4FdS5mP&5P%j'6B8+'ao(%s;%&D[*Q#&e)oJ\)aAjcN468uIZH=W2tBj
U"\Vd(8I,vyF=6D$UeS:DH^Q*lLus_F%rK%<1.[8o+vY<=FGucVJ/WM,BB?i9gFA.
U"xq'(:h#bk'L$<t6$46C0z^>XNAnlH]$cZPH5)=.I<7/%6$I]Y5[NqU8LeQ\1h[e
U"0I']vG&Mdj'lT]DFi7i_nh4>DfZiK'XQm%;%WL156wJ[%X&a:HP'hi,TQhLQO^i
U"(moqSBhq?(CnpdFHv](KEIoC/#.%IO.;^P;A:%y,^H=4PbGSR1o+'I_R)GB\;ji
U"cs6U^%v^ck%e(GtU4boF.5QlamI(6'<.esmzH1E#fxb5R7\LPT'KnFeL_OV0VN'
U"Mi'nMC.s?>RG5WaWS<:LYnV_'H[Y:L%EF?6Q^66<MWl2\kkQDHbI(7pHP54[J)#
U"<PfdAMpH^A./BOB-Du.#rr5VP:FD.^P(97ck\k&J=]ci34)$JCF,>CqH?G_$sa?
U"r6926Zke-x0wrKnp]$o.XAC:(KK8gCo^fZZ7cBdmtr4r#k9HB3mEQh+M^i=%kAR
U"QF2F^U(KOl48Q^%j-]eh9wSY8eJsoVUN03A8K7?e8[*)lj'&XLP3Z9_3)T8i7s.
U"Ldm+oAr58;'%*n$es)FW5H9Y1[oME5X$2iDQTNeM^=%X<erOII$l+hI'M3P]'MQ
U"cCh'7%RG.IiEEDQjtKk5NSv%ZegY#)^clC^]hh[:;-h&rw[s>+5U3H)Le33Bbm%
U"sI9%M+*=2UiAWYT#iua*=7Jmj)r]M<nl[2C(33WqP%^ky',wXBaSz%AjqxBfB%H
U"#HFP\iJh%]9G-X%x>_M_Q6$JmWc?X-'homN%x>=5]LiR]w[#63x(o=A^_R>>QEH
U"kio[rj=qvXlV:%=DpSYw^%+Ii]a1tTWYW4B/U/$z9Gm^a+))l'\FbDxSt5xM[D*
U"F+KC>zk/V%MGkPGp2A.46MJFIFTfAO6%AAC'?Y$9WB/8;QknM)i.$V+%m$pac<C
U"_x%7Iu&oW^hdX%^%]mY9wdod*hS5BP3$$(-tw5e_Z>,HQq;7)+&m?.aieySGN'N
U"o.]*K1#_*]aQC'*ID8qR68)4i^&w%;'I7%EF<iGBCugXXM:(K&NVozlJE&.+L&L
U"4O%<-_gO,OhvHDPkGj)vOn*ReTlEQIk#AuM#9h'Pfb%gC#>F6KAsC?Yf_',oYoF
U")*?rJAOvHP&<CLp1'gC/Eq'xO/A/gyF%aTU-Ed&Knl'w%XZ96v>O(Z*;OAV\8l'
U"gCO.m$R]g7WNW4OP<&jg%75#k=ftN5#Ahs:OPq\-?f_]U]v&$6?F+ra&kfF.sxZ
U"(FDe2^X*t(&Q,=%ZL5j_k%mL;IOpfLbO^kn.(aC&hu%bog37;4(UE/[=ZLi_o6(
U"&L&sAu0n%rkR'N1e:,GK(_[i8QRKJeUR'=nk.e9#\8N<ioCXn8WX99%:L%qfJ#t
U"&,ABPuU\en87n([?w&b[6$Qdw%b'4&gm8G'pw8T;Z9w<4R&D((v:%mdL)]^S5r^
U"^gdXe49)A'b>6Ze5dI.1q(ZB:+a9tI2_Q:F0peM)Hi3GP%\<%VI45j4%FXH4F&i
U"TUZ=*(T*E[a)<iElZK9;+F%gC'=#\7=n(-c_Z$Ap7+1V&H+QBPt8Zl,OGe)%L_:
U")apQemgkj5L3B,Ue<JaH('A;P,7;9M$n)4[iN%]rg/k'CaQWGt+tqA:;+Fb:e^$
U")29SCm50xBK$='%AgmoU1Nv6HC?lRN\ncS<8#[cKfaH0lLgT\L/EY9SO^vB'r;y
U"ODKX;Tw6/zJ.2N;fSHE=%%>&Lk'4Yrq]-DZc<ta_(z\=nS(8IC'o=s*Y?HN,^Gj
U"8A/a4+Vm%aU77Zei0YHR\vWiAfI(7SkrbfO(cU'eB$)7jHLK-HDB2/#ixm/H'_J
U")v2fu._'t=0%.B.c$&7P%1n#=])d)*Q]4mSy21*O^):7TV.%6lhClJGdU0YNSM(
U"zJAt*a:OVs991$m)74]9#epWnwCJM6N+vr+*IO74=8:05$K6BueA^\:TVa)HIPH
U"mS)%qkCeYA)PWi=vO6RgIu=_r6_=9PT]#y%oS$eUjK7>$c$>)/Y'V_7mEWdk%),
U"U'EJB4OY>g>_r[#AvP&k,xd1)O\)6OER7-[)7we-q9Dk$Trd#<Ow9^MO;4_R<1G
U"<hBA:&QAq%^RA'\WgSAMX<h4HX32TEX[]GoAF<.+85NfD.iE=E$mb4i&MrI5gjb
U"tDr.9,*:%IE.GC\'$F4Ix,.B/oKR7mE,et6=1gXWu'64h7+U./UkZ9t3=\s%cgo
U"7$qo('oo&=5b/DBOdf._R_\XVv$38Mz[s%.3V1M(%<IuNxgR'^('Gpe-(Ka:HP=
U";)08iL17MnhrqLrVMI'&W?UnuDo.%sU+Be8Z44Kj%'w*up%()9%%%%-%3IGgFI#
U"Yxw%0&%%'T&%%%1%%%%ktsy%ijrt%Sgfx)L_fp'<e5kohgx<+liuVGc?Iw%,TV;
U"AYJ/xkW#<+jr#u4;DFLY3wIFhDZWzguLgp_ZFEr;8ib;p>bR]NMj^mb1<>?[O]4
U"6D)\xEXY$;1V05uk09UC7wQKTiD'2v=+b2X;5WrY\rMp1\T>a&9wZgjW;?/Sl6d
U")<vBiI$A#U:[>:QoRpcQNaWktU[Qb^y6>KrOr9)mE(2=S]N[ucluEuW<G\[3Z4S
U"$k+T'm*L1x.OPOda\\M44fn[6+Pt^Ur(z3myt7B%i(BFwdZs&Fxu](%L.=k2P^4
U"2\:)j;uUg&%:RF\]UKt>e[jo8B'[V2Vw9SKt3nZ>:o;:3MAw-0L<u%p()9%%%%-
U"F%\ximFSGl)G'(%(%W+%%%,%%%%wjf%iSrjA<yr>]U[56O0INgn*Sf;S8tbxe-$
U"80fF<9#:eI\oJr:0MnwACk?_Pp2jN&BA$:'h[i5H.[Mnkg[]wv<$TBV>P\u9tBD
U"Gp(\W_XT5.n[63J3(L]:0v66uTJ(4/.M^KQLZd>kj=]j:]kA-12XH&le'<S3_M3
U"?);aqDrwMpbf\b(:03FUqQUT[$i/(&g/W3h;'dAuCe#K$J6.Lk&WZcC7N4$;u?=
U"xF[W*/]:;kx<^VhvBl)X<C^u.FfwcvgBOm&iPg8-P,<UQl%S)Oy#*))PQ9Q$%V?
U"Z3EV,LdwAO$/\=HjoDjk(czY:fkb;T\+(2(23L(CC<f&2Ps,ETg%-sluCwBk\qx
U"Cs0l-VWLd&V1.'KKV+3#tAU]h%OA*u=FY]tCEqNL02f-FFJ(to%P/JoBMr8E.2;
U"<IoVCm%qa'ap([P,(sOKM;CXV#u(-+E<RX6Fq5seXhUtfcb:=LFa3b86FHGZ_=-
U"[=AS?9Xdm=$K.S9Jn^Q'4%ahlf.ED6vf4PO,SPPV=%Y&mx19j<1g95N]%IeBWtv
U"C41W&c*OT<*x-j^<]/-B_6w'r.cGkDg1aZ^KMwj'aExZ71rHfxjhsI-r9r0bW0s
U"])#$Zo\an>Pcnpi-0>eZ.*-xjV8j.U0.9t&&y$5ds#(XWDe6B;j#aMM6C_'B5Fo
U"gqg_NnpHfT4nk9_imt$0)tFRfrgcMha=B5?QhJG=;6>$TDLK8:LXfBz[&10Ah<]
U"e\li:beGdhB^se+\WqS$JE+;kDq+_/][JXarYz)VETLhR;RDE*6;h,2)[cr840M
U"4m;iMidXnC/)Q7>7U'PlsnnHnU/x;twE']wpKkVxU$JmYR0=egpMHoGQKL?>^S[
U"I/\(B-MH^o,]+_jc(wM^PXlC_(d?7U+jy[Qc1^=xjSR(Bzr:kim)Mf3fP(6peC+
U",ETMejbN2pSk_7+LE*1fq'-cuZ\41<aCO'cZ&%*d=.n)qe4;<b=Q^/zYM.$:_*%
U".-nEM*b+k&u+liTn6H*g\qo8G82$sL&gr'Z4imrlY+O)5uApknuZR])sVo.9((6
U"WIMsafaSx]M[\?:Dbft+m^HT'mT#,qu4nx%up&'%9%9%%%%-%/#AgFDE63*&T>%
U"%)ui%%%0%%%%%%%%%&%E%%%%%%%%%ig%qkts%ySug%zup&%'9%9%%%%-C%?Ag:F
U"G/h+.&5%.%<i%%%0%%%%%%%%%&%E[%%%'%>%%i%gqkt%sySg%fxup%&'9%%9%%%
U"#-%HwnfFQf(mZ.DI%%_:%%%/%%%%%%%%%&%%E%%%&SO%%%rpkt%sySg%fxup%&'
U"9%%9%%%R-%#KAfFZ$;>PM5R%%_a%&%+%%%%%%%%%&%%E%%%'.n%%%ktsy%SVup%
U"&'9%%9%%%[-%>3/eFR3%w*U7d%%gw%&%,%%%%%%%%%&%%E%%%*&)%%%igqS%ksy
U"u%p&'9%%9%%[%-%I)GgF#1Yxw0[&%%T%&%%1%%%%%%%%%&%%E%%.%'<%%%kts%y
U"ijr%tSgf%xup&%'9%9%%%%-F%\ximFSGl)G'(%(%W+%%%,%%%%%%%%%&%E%%%%\
U"&=%%w%jfiS%rjup%*+%%%%%,%.,%Q&R%%-#%%%%%
END SUB
V2
V3
CLOSE:IF S=105AND 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
