'===========================================================================
' Subject: Point Of Sale                      Date: 12-22-02 (  :  )       
'  Author: Tom McIntire                       Code: GWBASIC                
'  Origin: whizware@bellsouth.net           Packet: GWBASIC.ABC
'===========================================================================
'>>> Page 1 of POFSALE.ZIP begins here. TYPE:BINAA TLEN:38758
'-------------------------------------------------------------
'                  INSTRUCTIONS FOR DECODING
'If there are multiple parts to this file, merge them into one
'file using  COPY PART1.EXT+PART2.EXT FILENAME.EXT  Remove all
'message header and footer information (everything outside the
'">>> Page x of..." lines),  load the result into your version
'of Basic (QBASIC, QuickBASIC, etc.) then RUN it. The original
'file will be decoded into the current directory on your disk.
'-------------------------------------------------------------
DEFINT A-Z:DIM SHARED K,S,B&:V1 'Created by PostIt! 7.4
SUB V1:OPEN "O",1,"POFSALE.ZIP",4^6:?STRING$(50,177);
U"%up()%/%'%.%%>*\AR,7-Lp/%%%%/%%%%.%%%%hq%thpS%gfyu%txhq%thp2%/u
U"p(%)9%'%%-%a^*ARJSw_w0#%%%#%%%%.%%%%l%frjx%Sgfy:J[T.&OU5)T8:e0a
U"0))*%**Pm]mYflZY5YreI8Svei>eBUz1eX(aTJ^]peP:J9499BG[KPd=g&I:>8g
U"6-OUk3%#P,hNufwQO,V%)IUn1.Oc.iF+m9]q5f*>x&Nup(%)9%'%%-%^G9pQPjJ
U"L6J[J%%n%n%%,%%%%u%txSgIfxtK^0G#>H2a9ko=t&n*)s=La>OnI_U\RDn^IdQ
U"eXCe%P'/4*[.nm2HA/Aj$QaOB:FpvM.rEta/+-^wI/Yt_-<^wo8B]-r+^5/RAte
U"Nf#hxmP_jAGTBBl^cEDtR\uhxHe*'3L2kc\%CY9_x6rwhxvBHQXJ:qb$OlXuL1E
U"4^_&r&CN(YC3A<nu4GvI+Z;l1lpvd*/LIsICZLA4S^Nt.u6ojK^n9fb\CRLbU<*
U"]>,Lu'1o>rfL/Gnk7P#_<KA+:h>;131o#m>?-aamaDeuhXX9fj_=*_k'2OK2&]o
U"kwJ%I3Ap2toF]#?DA\GtA7B:JQ%MUi_g3.QsVkgk28[mWT>oN0'J.p9jSEOZQC<
U"F6>[.CQhF*rEz*b+HW9sn\1=AaC,,TL+Z(*LI$X].wI7QqipjjQ*w'Yk]=$3-TF
U"F)bK)=ZQS[R$TMSkOnH8/VOy;$ru4AHEqf1Dd&9pQcCm-V.SUr0e'+KTQ24J[Ap
U"X6)jJkW]gn[6,^Lo;86:Rm=SZ/&vr?\*SyJ;uuhOi+E;J35Epf/d$B=I?AkQD.W
U"?mThaj4E*c'uNW7WFu)pu094Vx>aRg+DI/:hF)%hu&x11k^lVW];*ev]=gA9lcA
U"es?FcL-O/ZhsWT]RD,C]Qj/jH1E=2Evx/3$a8l%tpYblYa#:s=\B:&7KkHpH2*S
U"6G=/qtubZ=T^9ra%K0O3T[UHz*<+CB3Bk#=AqyaQGO#>oh63JPKq=tX^Fo/bj3B
U"-c#m12te2>g(AEY[cP$AmY<<WKy&]M]X?gdYm[_^?V.r8#K>QMNmPb98.kveZAH
U"7)s=FdiFR(W$Kd$%G;#h(=3[;Sli,k1Be=VX\qG#hb^)BjW'.&4y*RO3dpx0Qe;
U"I_h0Uc9qe#3Cw;bQ]9DXYB7qYTUHv#PDolH8lQspj0qe5I[6tx#U/XM(S^FmshX
U"Xb4Rd&u3Lhu1h'jyA>?\dgH(<(tGM'thP)Hq($r?bAI%:ZP5D37Y$FqgK.3.MSu
U"Jz^cF7YV)(JuC]\/]G_\ZMffwNjEFa5J%3CW9<[?*7#994?N%iQwV)[KV,HFJ*O
U"i]$^FD.Y))ts%><+%'w6E\NP,3*Y[VH*]MsKs=()Wq1YmPj7L8bfg5bi*fm3X%]
U"-^5q'</+AhW]Pv9Av5BDNbcjC00q%++LC#djpq<T9K92tae/&#jMLVU/\=F*ET?
U"n56Ab[IdgD#2w/KI0<IKI%X'gFEL3Yl07a$'p*ln0(Xeo('#Y^HPN+T#;cFrMDl
U"$R[N>7vg_ADK[>hZSmn1U34AEpQipGnQ/ZGLF;3.L?C2LWEs/>zMec6LF^>VM&?
U"3Svc<\wQ#ZMNEAX.bc^+',kJ)dDTKuTi.96^(K_Y3\P^$P:MXS:.OZMuTX-h/il
U"NojtVyubYwfRg(rgaAZyMU/nf(9bd6-48LYJ4Q9-uutUuM7S6Ca56oh&$q[aK\u
U"BGUZa5;wGm/eTqfI5'eaNt2l*9GE.jbRhTCuZ:>Ctep>UEebP9o&Io*>j=r_sIm
U"<?;T$v/.<a?H?(-M><?(R<1SWQ6P83+1y.0KD+0k*KR1IyY;:(-+z'[RIaU^I&?
U"%tDOll3qE4eNm*mGdU)5/>n1TK?Cm2j+;#gz)1V+hL/O=APT/^g6Dq_yon\LNjd
U"23f+tq*7vCgzA,VcC3k2&=2]m3kzTtTE(v6Nt/$c\WL0?7eZfc%5'J7I#pIUOw]
U"lTQHHrL6Wex.tuf4LXqbAVC0.*KM6%3kDx#_xCmyO^Cg*B:TlitFN<&9J8C)e%3
U"uXWC:,#(H?7C\%K$w#hFRaqs51uf3B$G(d0h(+bH9N^&Z3O%S:nw,sA#[wFmLq0
U"4uk(IVE9U&&E/Mz\DBhm=/yQgt7\+,bISA72(_egB(EVO23l8vd+P_NLDjyXiHW
U"Z,n^q]yS-$L-eJOK4/fjZ/iaig9#Sa-Zw(+RcxONGv0(DR?#QT6*Vc;Q(%D;c^G
U"A1btmp4$=8A/Iv-,o>,i4_(8cT66%+AP;4_XB$&nC4EAg3gZ3rAYT1.,p)OZ=.-
U"x3hNlsqF7)iVf86n;cJV3xm?.9IUubhk$00cV(lL6lqtsbB2'C/='v)oOA=d?(f
U"YOBUE(k<h7t6UMA4pDlQHf<R3,X]JtEKa)%1tYbJ_oO,7>t/YTN3?*;%$rz)f?I
U"87Ebk*k]]CO)#sv>;m7.?.C^kR1(r/:XI+/92g2h&Hd#nUN-9dbaFn4DBi)9Q[?
U"vlxKa3C=/f4R,CAzo#dQ0/va#ZPk[Y_^Wm%ua=.:J8/4A+rssGX&s./lw%/SD8-
U"8D?;MRhehYK,V[&5zo#1CP/a5G6irDnz>uYB)1tc.lRK3)&ri/=;V=vh;OAAKEu
U"+D0nA4yk=iR<aARc%6GZAo53Nq$(^UBUq-1wUNdzBqKh*X5<%AeAC>[J7:?,$e7
U"qGT<-V#v;a'C0cOo5=oXD5^_e9,V9<\A$n;=.mUW\LXv9lC%&QrnqnlYiLxF9dd
U"-Bm1l1l%PEPPxg=cZh'CA=w0qja3E]wsF$18+s\]a&8ADC^f=HLLF7Sd1TMlHLW
U"unr6jUDk5mPRR#(hK$m$;8<9*=$<tB7P.qlhhn?9qXSGm_-[-jc3Y/x$?+WGRN;
U";c,n7U^FBVpA$*8otxQ8L/7:)MAY2K,Eo4R:N+9uRcHt>M+1)O*eF-(Yae:>[ie
U"4F,L.?/6W2s/-:3AgK.im,o+A_a[g65X>Ktf\(jt0^+P7nNnJ[\lNJr>Y-]6Js%
U"+.A&a#tK>WWY56,zoqe\P=Ie>\q/_hul^x[[cT]A2C:XG^s=3/4Csu/[(8d=oY#
U"vO[xf7(<R:oclA8CXYsiV)P$%bT]C3hd(0Hls/^rLO=n$Nart^)<3?/A<:k0HSQ
U"jXU,^bM,c'ADE,i06'K'#m0gLel8nb(Tlg,*gx\rwD26puz]riHrv=zrLQoK<qN
U"ul(\9DZH8n\H.,_2zt)4YHau*s^irrW91w^k9u#m#M%dH]wb0IXPr$#T(9m$QPH
U"N/j&6mrFJs7LOorhATc_^:B=KC)[%EPx'Bd_+7v%s+K+kKk=r.-eT2Cks*%?C12
U">G4f7S2g7,N:Egg*HHd+z[P07=.Ysm4VY,.q[imaIB2[[#0Y(otT[4*1gu=9_'P
U"_=b,H67/pC(/CTHwDK>&LJa/Q+?:Pq'.:o48<rjqV?eXFyI2v7:RP2pEU,IVl>l
U":'%t<dffNgt<,QWg\,>$/W[UD,4%ST9By*cB/^e=)2lg-gaD8VFT#n]K:Zf#+(9
U"N,L36J[3^[6JE?QQ&R9$.1yf;l_Hjtg8j67m._Tu5)lNYT8Q1sY5kV98z3T>,Z?
U"TDGUAhp:Yk1A%whmPXFS$^_#(r1lK\2*p?sjjD9)mn1x/n4j;YuK*;+Kp5m(-v_
U"wTL(&%\9wBU>W,$V)m8=jtS'9Rwk8-^$5rKBzSaTrpTPA[e;mVvyON&0oMz(s,(
U".)=%9nlTK-aQL[BZ=W,P&$rGuCZGUgg*reHE7n5i,YuEC-X*[Whh*p&[#k4(.YA
U"BK<&Os&P0KER3$FK2JRR721?bIe^Z(DFHDG8W>jsd($*ejZLP^*.+_ITc/D?/o'
U"OpCe,el\q9/e6x$W\_,'Su,5CQR=;ArPaa+[$sDLWnh#Cq$lDg&T&=dlM.n3t$U
U"4eSpg/.M0n+p3ff(w/G0'Nf7>dIpkM8e0*gI=q1(cg\rS_,IdP'dLxJw(7;QQ9R
U"+qo>d#0>T\)+w.nrh]U9^t:98_eV4Gm[IoA+tbo;&v7&JWCyKA^'V0o?-3up*Se
U">%bk'aCeaY4D1IkeUTN&?GQMTNnzuPuPm^bT#9xRTA4]MkfH;7>m0W1u/RgyJ&$
U"twqgE>(w%.q%?_:brI8KX]CWFw9EERSd+ce#gwkr7hU3,KM6^DPa6-55-VG#*po
U"Y*m>a0Jy5QO;HWoP,Vo,S>T(37Eg*/$;A\&Wp>Dfs;FFsng>jo__t<Ma9b6IF7A
U"s(:sU[4XP3+OgLvm=XS[8/JD6i'jZc6j(dOASBIOd3'Y't69Lc^U&sKES]V#HZ8
U"\6?V6+dQu&$_Lod%IB)Tbd1/#x6u<2bT=AJzK66oxixw4ZE5fs/4Jah-(sPL>^,
U"?%NG.+U::nv)0Tx(u=e1%DWUu7E5(eRCR?lu=Agi.A05wbf7Q*'8ve(w47R$NOg
U"Dm0#;LysJ&7,](PZKm>z\SGM\o,]Kvjy;H\_N_h^j#1S:z;[:efgb7s;^/YY]t]
U"r4Y9OFHJC8]3/Y_aJIV'E^O#k*oDf0A?Sm-A#AQqgB(V(odhio.L)y)Z,It66M?
U"/[&Gg]%g?'D&d]:kc(En]CXNC,MowQcanc>#m\6*/m3qhzY%APG+]bUW?+ETe%j
U"f;K=IHb*c,vfJE4t3i\Hd_m2LKjU[%pT<v>\(Ea8?27*:-m;b]_r=-EYmzROzxm
U"CMSp/L)RDSiN^VLJ_S<^X1M-TIT(p#YRY#w^kflk;jpKoPbU<j])wC7].ZJLy5s
U"Pr<9&E>MNZ53aBvDW8D:#CbIgPYZT$WBlt2KEN=3p-$1Q0:]odK0%')E]TN?3T)
U"++F)rDPNtGQsinbfq0o<KL3Ke(YRsl2U7IY&iCKti''+%-fGREew7?rGW<QRIf9
U"xW-_o-?Fl*kc3A.%]b?C%TO)VRWIZsvW&J&bL=A:beoOQFchFYsc^g&VF7#ond/
U"PNZCkkn,1W/gGm-tMcks;,P:V8b?+h[K6ob/\gAn_SmdNm:<FA,=SuLdi1JW\P6
U"pkYGM-0u%qAf['_#$sJTUA)afMkGZ/*N'j>,X=HXjX-gY(c/#Sh<skT8t_pu<<f
U"h2(%7*YIe+7O883y7f/2b*C2Ii(0F)FJ.Df>loU5CG,<c\k&k'cF]g,ZB:6]xaD
U"(R%b._Gj/kjPrX[P(GO<VX5bvQ]$Z6rtPag\Kdv1TkzW>XwtrPYXO65Q^J1y=N/
U"_9?3H[9$s&CHXFac^aJK^_lmsdhW\y::8'u:1:Jyljm)5,7ijMev>X]$P]x/9wZ
U"lkoN/%;curN/<pSu'F/LPG?C1s\pIkc.#\<H[mAos;OQ%&bl59XzKx1HeKCt9oO
U"A%1tUP+Mh1EgMjs\dU'id\88m3fS1q/RyIXyt8KaPP,F^:$OfeDYt,K^nLJsR6P
U"h:[ScEC4^OO.t<Pf]BYSvXi7mnGQTHC6uoo7aT,v&=<[2m$abe=]NIq]5k6&%1-
U"-lZvuR+ikZ-.<JyH0$#R(O;*XNpm-8KGa.y#rVO.OSI^:TA2..%N&V1$B-)7ezE
U"&SjKt:pedq_4):>Ovj4vm'-6,)r57]SL';A\?TH^eJ?0o772=cP*'aoEELj:Z55
U"e2I\Wroo0&<PG2;3TlLqnZ*&EG6s2>bHrGduAE7)-qVKNbKvS]4>5rsU$Dk.w9H
U"CZJV_kLShtuuWZQ9=3S>sdiZ4u5&$VJZr3C)Zn1f^TGx5fnTfYF,;3\h*PUX_sp
U"l5Q?53;wuNJ6=dsuh^rLtc3sw+5GRyolD&O6zRK[kqX=JZ3Oj)i77OtVm1Q?ph:
U"RACQC(aePJ,&ORTTFHFmCti2vaPELf:ellx:mJ+sMPhDv\jlG1^o$qPorolul:R
U"K:gw&&bc$l*6?'FrYhk,CA=:'ww%ot<E_4]p59VZClZ6?Z5u*anMObb]/IUh-Au
U"f=vwn6B_TE'zo6j0aN30'PlEVNEV)bi,1lZch:\NiTvh2CM+o,%NduUoBTwBd7U
U"'V1sb:H$]o3P*vpK^1FIHRDW6jnElAW-s#&-L=^Pa4/*^bCV#Uyu,x-wU<t,T&^
U"^KJ4<,nNsox(sA&od^^?&Z51&G[%Z/upg5A_1ygtCcs<?2-jOI:UFg&cJY+a#.5
U"-Jqe1Pp=k%M=:O$M5>MNu<#)rijUBC*-eP#joDO_7\Aey7hGH\k'D/>KxoRwRcP
U"Q\a(s>xg+2r*mqq4\*j5(RVR#Umu7gI?(mjHMD$^#%Mc08;X?ng52)<eH.cq(h_
U"$88*.\[cv;em_JYn7UAR;\/edr5x*o6qnp?g?WW/I#g[RaOS%dK#UY&bQHht\TC
U"m591q<E%#b&6)n37gnAL\\_3y%.(>Aee2HR]6:?s3k3KP%*e)qGUhMSGmj>T3jc
U"/D$g[,l0;DFu\?/GSYUVFdykigONr(730LQ6z1Ir4dx;hd)C/[%3G8Q2&fa5k,I
U"]H$U844ks-/X&T16Z*NGOs'8I]%1wII\fi6P=?R,K&-Ss]8uk'h>Iyeg^ANLL04
U"6EJ[lj-7Pxl5=Z<^>gp(M_K[VwTZAS/G,u/RbXe_&IAzqZvc.mbV:^?9I85j.a3
U"\w,Z:^:uc:bK^I9'[i9hKc+-*cRWbIQ+dRA7+r9Ao,,MAYVF$pmuBW1zncf<GI=
U"F?O2c#g?j%&Y-\%(4NC_rGEmm7m%_1w[dzkgn.ZX9:ZAK3)3EA<kY$[o9Tz^1Xg
U"f3mu+rN*l_9M);ya<s:0t3FI4qh'o:/YBNrzfADO;CO&(Pg.m3RM#1%7tm=[''v
U"5xDi&G+,+gsSHnEpQd<+Ue1n9qRmF7Lue6p3#&J1p83hc8_f8>diC-6'BUp_j_+
U"-i5+WxeC4;T-OaI:Ut>&7MWI$fg)ACA4OmL]]On(so<ACAKm-Wf51si&F3vNzTI
U"XuEbMPTXb[QVVeL\_4:.W+'yA_V&abK]a%r1(:JRrmot_iceEW/HFd(+-;-7eOI
U"feN(CZ0-f-DGGW61T_;I(&IU7tVbzP+_:oQGTdub3Go9%<S]EQCm[4rpaZt20m&
U"t>G>]7We7\mBCgs]S/*_of[Ia'n6*ZB)c6#YB7[ciE(u(2D9^*KF'ld)P^6xI0y
U"R3?-(k[c9GiwVd%PeM?U)Scl55DsngWf7::,.Xu3t:UJqNkxgz5*sr(a$Knk52^
U"(('gU52nJAAT>(7(?^g.0cQZx%-=[)Vjmeu=_jA.s-$rW&&uKt-[u,KXTd7)m.#
U"\DXoWeLOT*lzKR<<X*=9rolnf92/GeRiF)q_Th\:FlZk:2x4*oe92.orH?7%nTP
U"m>#g:',MWq)BU/T;p)9:%?K13Jk+K14jeANNA+Qq_KXZ*Skk>K(>H*9q2gEd+,d
U"9is#Z$)o.uZCk<+7&pA/;%tORteq0Re%.m7mpS0.'ZqcQ67%Hq)/#\n<P=,92]w
U"IT0Qsn01%n[0QnAnz-X+.[Qo*..j]#8h*Zs7\9JOo7/0sPidLG<f%Zu-W&C9S?A
U"wOUeM2ECu/V^ZQ5GjnvL]8cO?*f+kaSfj[ePHd2'AjL.Et^Qsd3N5re.h?_0e7r
U")gdd%)&VH-=f'^N(4^OF>3TalP1q^.+&B=&.=#n>JDf'kzsy]HcP8(R*]RAXeY'
U"5dB_^t)0$K*9wVDk-?Ol>oa_kfAe,*yJiIMy.(e':lHVEmsULn,8elN&k&iIBe$
U"'Tt+_nWD>H3^.QYt>)Jm<A'Z$/7y$lLDk:b^TopCrlo8f9.ChT#;&N#Tkl;e)X<
U"LMzG7$n]edS.*cn6^r/-Zh-<NK;O$'S:f2-j\nR9l<QiMso]T&)UAov%#)LwKMV
U"83I_Fc#f^]0:^bl[D%BbE6_,]3AU&NV9CT6+C*Ss\tMpT5ECj:UrX^fBEfmq(B4
U"#&1^?VD2(H+wsz&+cfsK/[d:gay+0W7k+7[teL?J,>g^Z.w3%S%TZE7)I\be9Fz
U"Pe<MvEglggMDQ??BMH;?,/sAd>ZI4\Osl/(4Ri*0kp&KP3J0BK7s-988UStJAA0
U"cJ\FeBS\\_-H]3bD.^uDA('iTv\U\degWV.FL(uaw;s7$ZiRf*YOD?dhL-G8BL3
U"^r:]3\*HIEs-R)wlZ,[uc>ndJ=k?U9snrksb6GgrH=s<D=)E0&WZN'N/lZ#_H'#
U"xu7/yv4uDBTdoXNHN^)'bFW=K0wP&Ii#b;&SAq]1BB-nL]EG-SYak9pV^b)^f(4
U"s]&/=zuRJX.+BLMyk9ps3<<N$Exs)+(8)B9YN_RBggH)l5%/A.4JHq8stF'Lwga
U"dp+A3pY,0BwuR;tVaz?.kOHpAre5rNheE?(+,'(B\WM2mE0ckek,[&AAb+2#w+-
U"jMkqmUP,LH(=x&Z&[Dn_Qjq8CUE8?t5QbOa%[\aNbYRHcbWqr_Q&h<l1)TMcmOv
U"9\5OOq\:Yx8/-).Mq(8yI(vrRtfJZ=qGYejk;G\E[PJfvCaS\XKe/SvJnr0mDQP
U"L#_/vx:5q=nUFi.XAqr2.BaVk,H;w$ch5iQqiHcg1F;YA#.N,IOY2LGR)PUwr6s
U"LeWtMmz[Iir<Pp#_Hdx)2xFtMP\3lEp%H426F6ch3\Gk/Lc-$H]p,FbIhVc5V,D
U"^+aL>426bXYplJItAOvbkgZxV,(X&$a.7doZ'Z&RQm_hNKjH<HO/J-?g/G'H\Y\
U"MZfs08cBP.5^B=KV_5A*jN&b\_l5q$IoIDU$e8S(Vm.dprs:]p0HW8.yiiO=_^G
U"CK^lK_+)6BQ<9_]3m]$I9fD>'+N4\mOG7&[#_FCT,dvHC,83(\]l<kkb4X#?'UF
U"?eUNJnzYa*D1d(>i:k19l7JFz%GkI,mWIN8^ls,iOM[eZ^YeJ4gpP_h2rl_immh
U"l2q26tB5UWkNid>iqV/)M0bXgaauB1y1JOd_Ka8lq%9(eIt,8AoS7*m#ztqWfC5
U"GiZ\];&]lxGM87*pZos?bArH(GVv-6%pSag/j+.bXpm^_3W[<&9(<-\tt6i3e3G
U"79I]Sd/Oqe+VO<'El0i_/E?gjAo&;&<>PZ^.fXWD$I$'qugI5^0<xrtQcVe?9Wj
U"^Y'Kkc4/F._^,W#.\L1nfQ*ga^t<n.DZ,&&LTgX3bPx/._l,/PoT<t(Y%Tjiu1W
U"UeYnYF:6P.QLTApKuWF3INeVN&B.c]zy*xiNTX04LN$(X:l1_I]02fANb=2*GF\
U"%o9VsC((FCD74Ud_H*m^9hAodd)'ce4Dm:p*H+?llQa9Y2u+FdSAF\+<LyTYMri
U"zs28uqX:9(ETu/[&F-8_(ojD8/;_/YNg8U_)Dg2*_>2:$Hiq_H+Ap=cZQZ\O^d0
U"cMqE%Tt'rx_w9I0KM4d]<u*nj^j9A:Kz7RnKie28QKRUU8K-'*E4)mcUJ$E)%aB
U"0f.p=%D'bx75Lj,Rl%o;/\iu')n7WWhap:>55QT%1Ib1PTkBlOkkeRa1\ne/NH>
U"n>,u2G,qz'apo>oTDfF8s+u6K%8oLfSTVfi2?1JqRH6jfGdB8kygWWn3bE6eZ_I
U"%r1yXr3S:h/SZTq&j.psbAPTCb6BOK6*qq-XQC'Wm>0>UWz(P8_LST#ZXu'hW4-
U"7G;f\:ihI_B?oDEYe62hfVSKb=*)/qW4Wq%5'75ho\Q>X,Q&U+T$:+.&IU?Q1*e
U"lV8(^GJ37+O8VdA/IVn$[STE_<0U#HG#$K%4-:;m2PmV&?8h/<G*k(IG<Q#H?a7
U"3O-&F[\,D:DDgt.'#6X$a.]Ydjps4iE)H;l/(kv/h\tv)eIGzNfk2VFW]>:6]FQ
U"V;rGtu1R;CJrglky_<iu9Y2%Hf_mjw*Zk4=h2(4K5X'oWPJ<;7N#,]]Ro*S?1;Z
U"N1ZsM(r#Co<l_HuZn7,qP'GY*mA<=>m)Y?;L,Y2nur]P(#YR^e:TcC&Q(hx'nR1
U"Zmcxa>Pw6.S=]fH#7Q;C&KPMI8?WP>o=Tc*f^*3;NLBZB?_o4:Ativ,Ed<7qP5v
U"/E])5$By^X.=IfDoH:%n8)P6:e#tQ(/a1F0rkVTD',c,#+b=(_IKVrW/,],eDBc
U"Trf#)C0lRjPm%6iNNq+[qk%kTd3dRJ3g8(J3bG?[OEBES=Ru0[;n0Ig<%p&;)Du
U"^/8/-dydUHSK.e[S+:RGpkSPiRuK?8o3iu[(vibiBQ7>0>RB50Y9kEPmIXSDe(E
U"RCe?0Ug=4Zf*a6j11*Y$ON>3Q:;=QBcF_JfNRm1DKlCtYBXDjlA4pTaRcBDjR.,
U"m*[DE5+5gyR_)Slx\l,Q%:M#iqsq__*,ulf0[ds60GCbs7U/Mg]E$Kw.E$r;m*I
U"/R9c1EtGJQQ]35[X2Fe*_n)pq_:Go$Ru&sX+4lmz0^.1%?p;XaLjb5XGr;Bga((
U"c%beC:O$#_;^*IvO++_(0)AOV^*;27_>Dm4mzmWcMK.RZ+Pc:K2O*g(:#3hdg/,
U"N^M?YIF:;O%x]_83hPsYfArIha'5)5Sh*U,*:)czhe6DZ,58'pr#L\,$v:B.eWF
U"y)NIM/4m(SyfoCfRP?4gabG#rAb^^h:K,e+^Q)$[_oHrM=f'P_Xlj/VRmu]bYNZ
U"N,1,,nLZaR,&A*bikmb9KXK*Glk3+:v\kn+lRK6uK>e;g2ocQI;MvPHA78.V6qk
U"w,t&a/Zy$B%gKI#_=0iq;z55(hcEM/)I+T9$C-Pm/4qlv.K4>bV<:cuQw\ca-B*
U"\'65*N&3&F#/e3$3hDNJ.\6n'%ih#3).o=?DX\3uuB,VtA?q[8U#jMs_.h'HC4k
U"Hb9V\bE/Z>WjAb9)0\[R.X>x:QMJRVz[%l5Ky?FZt5g)0gSMHHEI#b#4Np/Muf6
U">C5Mn:KWiE<;NR*ZnU+JOU1l4E=ohn(a4-QZ7$:6;H7%of19C%%Qq+s5YX;sTkF
U"9OFQ%V3+p8QeDshQ[[sC01py+L1S^bdqU.PZ9TZqN2Snm0L4P[xK$B+&9gwYX;G
U"lGM&&B59En-Serd'RhVwTQJ\uPKA*+m4P--penOtHxY],jWeBfuZai2wvI#_f+I
U":q%n:1vABt,dnx'1NK>yl>x%HYA9xMk^Ly7daoMT_rKOwdm_r[?x'#,ZqhoC>(.
U"Po0B<I\k*r,L=jekRp=)4s]eG<m<o2$gM(w1t*m?'RFR]=GrRfof7sh+P8auhM.
U"gz9uACxQd\u2ZnLyN$.pI.cVS8zh4J?MWNRxvAP57Ivu5CM.9TBR6&S8e+M2.CN
U"femjH3'p_PzhZg+F%*>p4S9^12De,Gbl60)J\?,f+tSx:5H*YkFVK+Qy+>^SPs6
U"sg*0+7s+?O::__5R^tOCYB>:11*bKA'x\(fEc+%ceGH;LV%MPHe\ZZpM4]ZLYH0
U"=n^sCnyThkXj,iSuUIp1>dN(%go1Eq$-TdS]p0Pc5X37n3?F&?Vj%&P1F.1<S_v
U"xmRHddJf>/IpbCX#9ob<tWQ.k&NlBTLht($5.o1Ek*L:z7GN1cf+r:=c0oOGnCE
U"Fs[AJ]2fTnVws.5CJ(LH+<5usnevZqCsM?Cg/HU09(Y,K/-.XZ]xelWn)).GNF[
U"kHx'RHU]1.l(ZGi0DN\hZo0In_<3pNk/]jwrYzW9ylIIks._3TJKoHE\%qJcc7_
U"o#U]lr8d'?:[RP3<DpKMq0C#9a3\[6D$3hG\(kGPj91T&HZ\R2[nIi7HE^OOE>U
U"-*xK*hW[dZ<>24WnK_kF,\&[9bPW=Paz*^eQ\=iH'>tbZWj0iu4;x[aVZDtKl]W
U"\f0/b/#sV<i)VKUu=k2(\GIs+=uWr&njKRNz\ExvT'_;+rC:\<,vNveXf1p]eD.
U"MQH-W+]u'^7ag[9QY=6TR^,f[L=TQ^mCxKSu4)r\)D&QccWa^k5^K5T_G^W+>9W
U"OZR6bY+A[WvFw63H>GLN[I;o8F\Y^>:dN8W$GUe+D^Y_=pI;=n\:omXYG0DtBcq
U"v/5=3lprtFu\Z<u(8[FA87vj3PIJZ62Z)MA:iZlH)uV<2tnlXlbYGe[1+mCu=%D
U"ax-RLjt<>1BaV#ti:(RC7;n6z4Y,VJk9>/C=C4aNU%33S8.OBqc>i0AJ5<vv-U]
U"dS>I:/<PapjBMI/'0ZL.-9$l:[nT^0i[.Kj\>ra6xdY:h7WN->M:be+,i%G8wKt
U"PZ=MR2DrHs0rc_:n*gcbc'Su;9Pq,%VT,80CzsNg0H3lR,qUg4u,o1J2Wkrb(J#
U"M[e2#BJ>\N1c<[2qtJMZI)#Pl#IKCld>bxUaHXGsPAS/-mn#4E=r3tUGc##<IsN
U"&_L2;7uY&>;[44M%J0g.;xM45Q0eeiHCup(SF]iD*ecU-GqplGYng&7c8'j-L5k
U"&RRZ_7zM<?n]cBKPt,?iKBP*%TTtH2c1VxlO=t%^UbFn)G3Nd-9chB5;4>H.EdC
U"*7H4CBKTvV;zMLyWS2JR,6a7U?+/:Z-a;.nr?04n%GLZni/Xrc4=HuKmxdi[>VY
U"3H>'W]u&fKSd,E4U>ji8Lf86]E/(]$#*T,-lI3ugA]os*CVY*6Hed4*qDeG5NUi
U"&gUgO8<rPPWYyg9N8NhFe,-Wp#qJXr[mP6ogl2kDpZbk>qcJlS7NO]#<?\>tvMa
U"GWw7x/TrL[+KfPlkLHKVF'3D#tM$#PSc73$bkS;3FH;.&K245-uW+MNi[lj38hu
U"?Z[<_*u+6$CBmn'QR/6Dba_oQ-V,J1mvmv/tff2-G*$Cb7&65$R8^+HfT6Jg0NZ
U"M%AtCPt>1Bam[/AW2b3TVtd)Fs+-kx(u%p()9%%'%-F%H&lOQ1pW*+_0%4%S:%%
U"%1%%%%utx%hqth%pShtOrfkN&?8zCZ9XT<W+<Lu*n]&it<0GBS/F)jN-8Zpa[vf
U"*9K[m,IRErp,\-hnkJbuaNEXjNMgs?GYNUUGC\Fq4PCm)?1'\i'EPc+Y%W<2dR9
U":6XW.BpQIdeZ/sVFWTjjIBeM\klrl[t3slFgJXtLhtWut7pF_=.76Voq.x%%u10
END SUB
SUB V2
U"'->.:TDPFdm::_SEcywBkhR1'-((TP/xSzO3'x(x?.+Uw-03IH?lGE19uw=nF+W
U"jRAC%;wAAyjy)dykz$,yhNSq;MqVIVs8ln,9(os*?#I1VN6WW5?g[01o5/g-awb
U"a_KvCOXp)M_kb+bc5W2aV2^2+H2jH87iF3QFLi6(Z-2%FkI+UTapmqL)$Hh$rgN
U"KVC8o7_IP<5I13P00iOGB#ye0+.2DQ#n/0-<bBi'5L)2_q[7NRNjrv]sO(n69a\
U"n'nCGdrB$-$[Jc>m/3AYcsVub0ap]av?JtnK%;94l'8)/vqwra.#lapr'Ot+27x
U"qIa27,k^0/5[Pb9bU7N[elNb'9OXu(h3on&l&(1tQRC9(QONf00Ru%OjD(w#;AH
U"F(k'OidQQwoA->JDE_L&rwY-BjYTMPK?2rtA^WCD2Y%YOWt5$rYQn_JHVV7x51s
U"8(Q=d#9xMo<PnidobKWg2fyQ]=P[b[^jOniadImRobsk[#Rz(NQs&;fKP<PXPna
U"d&I1ob:+M3kZd4ky9(Bw&9kBok4uuNN$#,$$ikDK'Z'9q\CkPv^j#CiC^_j/D^C
U"::iHZ;gbl')s>P9X7bFXeg0,dfV^sH4)KZcQMXD^e9ek'T;oD5z(JA]g[Mn,HtT
U"jK5.dn3PTRR_LT/k2d)Qo^3/O<s^,Wie\5*p:%tp7\9HMiTUx+u)N%2f<VDo0\x
U"4zs]fq(h<y;,GB\y(c./3/03ngOW4y6:Gy%w*Mbz?-&iI^Z2PH8(P$>Me=Bhl<2
U"Pl>pIk0_[_^OfYd<0j9)8PC)2-<uD;sTK(jYe<m4Ag:9UdU[8lI0B=7D&A,BuY-
U"tctY%<PUKH8sEEqRO^\LR.nyo>CCkZ6n/FQ\;]hO^LzMeHSTV&FUKGR&6_m\kG,
U"#OOfq6C7sDaKg=PQL\O?l4Vu+1,'bX8V[=NY3gFfuKM+j2X7epx\gAuu4TeEua*
U"p)q.mpx9uo19T'/0f*wC41K_#Z\Hg$5\Rm71oF\uK9l<n%:o<0\8m$N&M5fO'Y,
U"Ph,(Qo8/?Wm6/-?NS91R[^<?.Cun6W\HiBaf)hx'45%TM;KOgC8%ad,-eXA;&be
U"O<Mwb12_L,B>tRC04VmSo[L$Z>8?n3mRqu>e\/(7%3EpABBC),Nh.J'B4/ht(:L
U"BL-O<$=9'0ac18(.#wm0TK>c;User_1#lv(Tm4X3$.#ET#)5QtuKgmM3jP^T4J#
U"$nViJ&tY[e'-uJagVOA?6P6>EHPeJ?i[PCL?61P;G%YC#BlE8:E31AqLJ($tE/f
U"=);AzrfcdSrpX*tH7OsPBaZj*%*'*9&I)-tt2f44E$::<);VTjM[t;tJK5::CFY
U"eC:$[7F^2wf9(qpJeV'Stae]S_/0HSQUc5e5l+)f\I#SXI=5tvV=HH),v,r8gY:
U"/q(n[fa+a[<em,i%9gXu&CRKA*c?J/Gr25%Z%D1BF;SBq2pRDWgO;a24xF/#0q0
U"T02KlUNHc\,]9ijH^muJG(xwQF:?au5Ii8P._aq9Y,ViZfEXqu%$p12eEOuenCS
U"cZq:sTKO1^DxV#:/z=Yk$?H;=KO5;'$ckAw^CwUoD8Y^CY,c+wV<u,,5l(a(,Mm
U",/5L*F+_vw.]C/Nl(r)2f'._[ko5eWGVP)4_^D#.9Ib4),I-jU$Q\t3QjBEK$[*
U"=C-cJgp\oJ:>mL#2*.fRSH;PtM%X2omeB4kY/NmAog)Iu-Cn;+uBlD\m<-aFntW
U"QQWgG;-)SgyC;++V)H:.2rAw\Fk.'&-0,2\?^\/7,+>MMCMH>uIloPd<L/XqAVJ
U"h+LpXMj.mc9\ObZ3k<KA)%Acx1[fIAZi?/?tTv21I>F15<YF4dKC4?n^pI;2]I_
U"tPL7O^*V+=qLbn?TiGb$H+Depa$o>4hnAo<84(W(>mZ^(FvPJi<]K6Z6B;T9[B)
U"Tg)U+-pAf(=a,T%<p.h)Ss,aC_KFV=5t>V9R$k1bL,Fx+If/C::2_t)F<h3n0bR
U"^4K\KkWD\m4y:Xg9SR:SiCHk/HxsAP$rA9E8GQRj-HfN?)huFwu>F4,,FMxmF-U
U"9fbko$bj^bJ0B2mLRfF/38Cigqh*WEl[QFG\ew\LI3^U5hYy+&N=EOqU%<fZ,D)
U"DaniJC,R^&%[u+ed5p$)WIPL2F4qpRU1/NTl2ibKo1;--Muw%5Aq/.6[:(pR;4D
U"]s&;Of8kTLB;*G1%kw^Ut/Nb1EG%C92PSUz1%+&wXJ/<n1ef2p%[zU0z>'Gt)n[
U"BN/B1mQrq.C=Je?bW*z;)5C,i8tu5wuVnTqNjw*A(>bEmAWcN#FL\H1,Kg;_KSN
U"Xnjg#6J[r]RsqwS$(\G3_?krdsvHNQqYPb)HX)pC8PKIvdkrRX[<H1AR6_qH7s:
U"8Wk7'3,i<7o;M/L?J?DN1IDK<Asbo/')6&2=;FN.iAWK(n=aQiU'N[;t#p,/fcC
U"4&Z75w?94[:JZHLN\Dy(=+.YyTkG0b[ds+:uM0u**qYVlk+,5Y]dT2]Yt4M#AY:
U"tS/cFNQ%,Br(a>SidZp<:e>A]KD1tlq)UqQzo#2^rteigXBtGz6Q)a1O+^%65LN
U"cZg?pjvpXvuNj\X[wDkQ_kBywTjRA\]O+lMPGfe*PL4tEkd^90jYsas/h&WHNOi
U"D\<j0e7ba*-Ct=jJ='9o5mC)R&d'(h.kaqYYQs\PTX0d_e0E)7*r#<(bo:d0XwO
U"^XD;dJRV(lHsjja)7Y7.R7o%;iL^%u5gpk0cEV+5=EB9^CDDj4gHx7b&I%40Lav
U"sbKa/w7*37)<ZvTrh1[#Y3n'mi-mv;9)m7yfX]s(1Tw8Pd49Y]]U4L\>5AbGzK5
U"rEfF95YuNDrvXT_%,:W[^ebD>hD?IrA1M?l35CNvfxY'_qiZ>aeX<*7KoRldAiP
U"-O(u;WoHu83A8DacGGy+:^-#>eD^I/rU8dee3#)SS('ZvtYeH5Uv6E4LP*j)c%/
U"[K.J\La*mkSdn^Z0.F[RmVX5w('0%#<Q-H/dO4d\i+,eT[])5CeL%5-)'iZ%\$l
U"sbZ$)d%lx40b%'tPil5mf\am1k,McV*:V;B.0R%fKLSx&>a\qA.a\F:])BX98D,
U"A?]a1aD,-S:M88<:P:fgX9o:a/X]/-QS[;Z5KqD.ooDV)^P<f]%#7Q.SZh?lk-b
U"5dL,^S.)^'Pe1FNjaFQs[HT0Lcr\2P3BkXB#D.<8_p4lRS;etK/MSHNSq+&PeE5
U"R-dnGV=kGGKW[r>?I,2apJm$)r>]oo^r3(cIq=^K_HN[r%yjE5#-d_mo$r\xEHl
U"#lSl'b&('PeEZUetTMKlP&f7d7Xq7:4^$p*MjpaNs[>H&&hW)<W/eB5&s=Dv(eu
U"#^ckh\;TFM=>LceCIPiknlRHTN>n;P,t5E<w[T:PvQfv6DH4pS)A&lpdZjI:#C?
U"aQ/G0<LGJv5#iaTgi7G-VOI-b7%sE5-F);rWB$a\<j&6y6kZUmXWCn#HY-r7)g3
U"*:fu+Sf][0h\WGN5f&ho6:%<kME>;8.'SY^87.\ceEuu-[rmKve+x$&8k#il;-(
U"3\ACkYRu5=cl\XL37+,30#;*B+#%37UT>.Gu'Pjr[_hc4ZS_)b'wE5-TLBHvoh,
U"[w%2up(%)/%'[%%%\^*AR79c6X;%%%%;%%%%0%%%%u%txht(u(Sg%fyht(u(Eu%
U"txdd%UWSi%fyEf%_OSO%up()%9%'%I-%3S9dQ4t%N:$'.%%w4%%%0%%%%ut%xij
U"u%ySrxspNOF)=je9U*/h'bEX2W\C#&<iu<l-),tyo,y'ngRw9pqd?lxXVu^Jf>z
U"M<)-#QfAqFfcCkUJ$Zfl1Bfsd,X,cR(\lNaNwZ2w[eva:.]8-=rtAuXjH>8,R[W
U"$7Y\voRO7<\JBpU9?trVKpdZ9HUt_9DqVmq?nqV0)*k9ndVT]w>-j'o2W=?aA^#
U"=zpfA].tY%IZHwxIG#2J.9USv+c=kOkr(O8Vk$nH;koRffkbk]K]T$wDDc1s7(l
U"Zn,A%dpN#Er]qo/7,HGdNkfI></+(/.oKN<jt=\Hvr)QT2QY:E]MMKWo4=fj6XC
U"ggmmW;9a13JP9EvW.t6nG.cjK^IkD4TaLY/lt'CVWEs6FnZk^=fC8.sK^?r4kp%
U"pABlAu8[QL=vXdt8nb,nX;t<igH5&nFch;KUqQUkn)zUCV4FZY,=6GXH7n[Jc<O
U"Q0dN^ju'-mIdlK]9qAj^Q[l0NiMAZG<1OgC<#pH8&nLctkKLHSixMCtrpET4a,2
U"G874_]HcN$[]Y.)p9NrP,'aB]c]-Tr^2sP1WlYDvt:-aH\]5eAzbe.oKLT22rcm
U"TJlPZnhp?W.rdz:mNPI90IpImthx7l9WGgTE,dzAWt6n#GcjKQLv*$V+bUa*Uba
U"23vJ&T;LiqYrj8[Lr=6Aua>[X=;6WH5&nJcp;KeqQWj([Bl=$WH(6nHcglKmqja
U"jH[ul=$<lxHvx#L2_sX1tTz6'0N&%up()%9%'%I-%=;S<R]g&yM$)%%%e*%%%0%
U"%%%ut%xmjq%uShtCrlx>.q#4=;N]oo.JN:g$e9;$OV>(/?Q3=y7QLD[^M(qD(D4
U"NUZ$/c5U9_7voLYj&=D_6Jcn,Vw:F3j(H<_-K\7V&/*TuFN0;76[<8;?d>Fc%R#
U"vMbI$7&uroeJ60rhB8$qHMHh8HCnU#a91C8n28_<UC]uXtDxJDcnrYBF9VxIDgK
U">L(ZZON%=,HB0gZP*K7w-b/&BN52F^','detG/f=IU/:Hqb5%*JOF%Dq^lK[=D2
U"\6%BMC=B$*rtgS6jl;ezxh'=uL3Wr#wL3pw/MH2Dtnv(LC*Xfcj,BkPsX'8g>n(
U"Xb/ZF;qz*2](8R#U[)D>$?XQCr0[s/<g(AA3E?=b#*:>JJI\sO-BQx1/33I;2cV
U"p*Lewh0RW3mVNtV[R\+szIOt]z/AI\xU:Cf4w1K9Y:XNKe(s-BVTGfnWcPQseN,
U"t.0dDEEr(5^xd8H8U_39%$J(o];2f3r=UKkn*5e<7QY/5$>c2)3+Y7#ELSIjxIP
U"eQ1QiQ:s3>j8N/S*S:mWAHT_?aRpp1sYrc1raD5\X0BNJe0qruorBtdT([Zw.Og
U"';B'XEP<WMd431NEL%:kLbED_ayd1taQPTPnOs#gc>W3PlGTQ$CDW5ZWzW*2Xps
U"np_:hG2LQWlDr3unM>x;P[QE_cHCIx=Dk:BcAK:5[6e$*op1e%TPn+PIrNi-c'E
U"LTGn_#(M0ns^?P,CY>[N,c[eZ?BMuD,YKK]D'K,.:PHF9;kS;?>[i/P0/:o[Z;s
U"*R&HHn<dhCo&iB_j^8+M3d)thw7E&[CPh#C#'OWIVpnQ>kYVQp2)G;Es;'&)UCP
U",ho>JetiF;fT*+/$MpM$4F^Ip=NJOznLvdS:^+P*k_v;%\'_/pb8lw>3.6#D;HF
U"g*RI>(A&N;0u<Y<BM]]M8^Z/o^D_PIH39#do&nexZ'=,<15jo_)X=&arg*'r]Ix
U"L*Qodlt,h?M4eP-;&%R4%I$U\U%8)MI&vxYuq=6vDOZs3_:=fpN^b<<CJ(zCZ2d
U"r-6Dteb,;uv8CH#YSpl.6]ZJBhbdVBEJ^ZZGGM&TACQVQXEBcV0_mC(+7qe*4DJ
U"+K.z6XadTSk-B_Y15&MYUj0I^>OCs_R7zsIUIG)A'0u-h1,Oidy*EUu>G#at'2h
U">&zVUp01%wto[i,mJGc8+d?k(TEBbxEG).Jn[9<TU?rpxw&;(%zgrh>uU)HJ0)1
U"7IHkY=<2rO_K5lJFXBoKZSUPD*xP)tlYoMkV,BPFQh0YyQ]t?h.co52>\bo/o-D
U"#,Oi%T_/7rG$LaVtU1irhBWj_;UVG2+G\C6+s67ct\1#G#1F<V*GU,^-XJf9FCZ
U"NyoY07u0UU.cA^1?v>Na.U-H69cYBsMZh>lNl%2&jk8-Dw#%up()%9%'%%-%(*&
U"ARc\4yats[%%b\%%%0%%%%ut%xmjq%uSifsyf6dJA#&e=Sq8Hfs*5w?]Ym.&bb%
U"o>a(3ABNu94M8;X9>$/S60lLXq(5()W-ZE)Nsyq&u+%L8v7Tv$rrm>Opu&.oWR.
U"g/+'^_LsIiPy3m6igUtf.P^k*0NwVvNwvXqx5NhLIE,Pwwk4j,#VRt#,W/lN^qH
U"6W8d4QX_<hlV6Nxspr[pP4T4nIrddNQWrAAu$LBv+Tx^3Z,xHNcxDluWrN\+TG[
U"dD?Lo<f>MGG<UzfFzV4hFil3Hz3$DYwwu4e+utqRYt=dxCqPMG;lQ\%./Yk^+kQ
U"nNDhlNryE9_rtvYR]D4-OE^)6_L4zmRdAel3+nSPf[A-*M,Ttr]LNM]BEDjl$P6
U"k2,&A?Yz+W35HHNTZD2ur]BS#ufv6RYPp/+e3PH\,cPNQ'4-dj3GelInh,4vl\H
U"ZP,$XJ^HJzcJCHKFC2c_^$r,8W[POw$q+K'd=_'XY85P*R-&(B^c3ukan^QLs#e
U"oP*wrlVs#/Y9'^seTi=ku/A]d08cb0TROvEq,5duc+=6^q(.&CoblhBV>*G#fWR
U"y+oVB]J*l5zcEG=Op?U/e\_<\B_g.2-LV^iBr5b3GQn3JT9qVTMkB'4(KrEAw\V
U"2':.QxrnMf+8&WA1dq^1t.5Wk25hpuNgY3S<STK>dNFrrO=c3/yT4cUTI2^h\?Z
U"nDu,\,_XPOGr5w3nOWXU0JnCl^r<4G/G\UI0nGA&ER0#&e;b.j382E\e84V1MoR
U"Q(,jWhy^O[4_nL;HL(_a%[dXGh^nj<T;LG#[^UQbDFL\%;zXl-k],f+yUtFA-35
U"3-93G?CUsj0WtD$9]PkS&*NLS4Pj,=NdCG,3;k3WSfrXfUaDI/Z6^dT.5Vtj-Np
U"cy=<g<LD,Ez=o,lxsY'_++[[\_xFlHDBt=U3EPhxzudTD3Rsv6FsX[(4K^kEL4N
U"<Hd,bvenwe)\di:>a[*/%LFq]glVNhPmc,1A*SJDPr[(t&&O+U3h2K:ce4I34j6
U"p\hX303>jS:rBFd+LQ3]LJrH#?kL)7+&%[v3.q3t9BwJdCjxE)GYC2U]M4z9k1Y
U"M$R?]]juJhTDsMjy.3VjIL<Ektqv*X_3_EX)q.ZwTXc6+:,Sa':3cG7RTi?F^;N
U"=R4BFu,3c+]_a^>'Rq[leMIvT_Jg=Cn8A(E&fBD:a/Ai-HM>I.\1/,^<4A/&khB
U":k3ex[X_:%Prc;mu',c*+scfv\^Eoq&:<SCYp38(-hk+8N&hj^Lta-Ri2F)CNyV
U"%s'#tZp$r?4B5:uK$GV=7.UCK^\AX\TaTwdI4FLa&lHToT\9#B+uBSPs*NcdE63
U"w.K5[,ZO1<39gA]zJHH;#tjX]Tb=HECGV*0K6]'K_^9GA]\*Be7r,dVd?4XCg$x
U"Yf7W'38654T&GVzTtOb]Wd&W3(,$=Fj<nHTCi5:rZl%mjPRwW^FurmHcF:g7T%T
U"kM,exbedSNX?hC8&mhK.Q2'TOt*2]LlqdJkQd\um,&fo^(-GNj#X>=gZ.&Z0ee<
U"NSeWqy_JASok-5VKHALOHlrMK:3jIpkb/t5-LVI)N&YA0+REwu69U:MREo1^wmY
U"6ZbDEWD\\WUmxeYLw>fHp,QMEbBqe5S-=PVK(111xR<rke;N?Hk%U'?G7&SCSSl
U"mG-B1Nfk0xtAA/KV',8F(OSU#dqA&:I>=AxxEB&v0s#>>%DiqA#uZXYZXk7U1<h
U"94kZ^4.;.<]T1mp+4FeSPX1LN[FlOT9jw=#ttD$qhb3XX2x'H1TWz(\z0>F>X=6
U"+<k?#$8x^8GM4S><Sy0*3Tv_OcdU>wJrdi-E[1>.YHx-+j0*OqN^;T4[sKG,6q]
U"]3#H0PLtsxfjkrx,_IJyL22befgs.dO2JW-7?Pyp>)EaJ^E?&YV-2bH)S/<_ojC
U"FQwEMu;B(1xm0oF:]j%i[34t;?swM?(j#d)iWnD,0k]$DxGyzCos2f64Cxp/;_d
U"=(j(\EnMFhDhkvb(M?nLW/8=qM_6d-0oeeA&q9Y<V8$_eU[SwF;gb>D,,5Y[cTO
U"D;'TV7uDh6OKLg\b(7hk<e5P^U[XaAoO+>hEp+DZMQ:7T_tGWopV5(,GP\/\w<y
U",WsV71/f*SCilTp8P.$5;$+tz.yZch8#E76/rztST;ZM$M=\7()DPRDlr;mV2Lk
U"l\hff/mf;pAZL':pv=w'VD6=+hq2oOOlAv7sM^I:>^.*YT]6Q$#Ue;.c=&hn6-[
U"\vWw3iR)37WN*)5pvXsOOS0&PU6MEUd][y\SoZ%[M:rwhSw4$(Ep^QPAar<N,Ch
U"c\)Z58//U#N_I\d5(0/CxDwhWV&5cDhJ,A7DWuE(6MSpksU0;uzHLlQnoHFZ^O^
U"J.wjdLG#f9]%RQWr5xdwU=)/kVdw)y:jJsh-1w'YFBz'v](U7#vMi;+us5a.l+,
U"DuAbbfL78T,YO*6j/6-?(36M_irWyWJ9Xb,cG_G1=^TGTb#$/pi*kz5NnP<)p]4
U"W$-/5;cCrQ$ds\H:e3C+UAQa:l)F2C<YTe%eVS.z/p5j;:Z2*eH07PVZ44uX+tc
U"kLpA[3lc;r%[escuVMd1i:lRG3dfK\zw+LIHXcoI)dm2Dwkt\9**N$)hRu39Q%M
U"8ok,PMT<)\dT(X81lM2pGL;yQz:Rp,&HJDam=fP)X/$b-Ym9ck/Vdwk9S*Qljg]
U"c7,VzDhi**wgE>a)9V9%;V+AaLrh/A3RnI>)[oGy$'4MxDRV5qN$qN,9FGW*X8%
U")\Y+wP%'ahCX9XjlU^lG*X$beq1F+/WAcA\UUg);F::u*st^0IofE4]<pc]_ksA
U"EJWqTKTGD/UDEM+:x#MPB_o-mq9Cf3w'DVwQf>1\%$>i+.M%<WNv$//=i.<5FWD
U"&752'WX^EoN0;(\:vwe^PJMxNl.oK?i2xk4oTN&uEqw4RS%1p.DsA+L(jYe(?%K
U"/KSkwv,qCFIW8aTk:wnI&'FO^-7CGBETgN#P#_J,EBMl/JtAkem9F.^^LZBrNq*
U"mj:aVQ/oP5%KlsiPl'a3-[AlIgYhrHl>xI<3tIZK>+$Ct=mXWY-.(GzsC,9_u;r
U"cp<T4:LHx<dsw4GLd[Z#YdG;3^C5g\ISh)/D^Z28bFiQh8PA*mcH:3C'JO00'EC
U"_\dy(HY#<4\&XI9^k?TRCZjX>A2=DqO]?Rk]31Oe/_NiZ&6'$LltQ,L6M64e?AJ
U"twY$.<CkLFpa%EDFtV637Or_>TC_eJR+ERW.ch31heyInz[*lL;.t?q^I/UU9Ud
U"?OsYi1a>Bk\1Qk%193nqw)n.&\&9.yf;BlYOTufxt9/r]c)l^8>7?3,H#p/o54O
U"5vDWv=5E%'*cj),cP?&N0T\J#htMkmg2Wd^6sk?A1]?8;FpfkYF9.rN0]^NxA6I
U"*$]O?Qjm82$Ju=rKG8;#PDUVArwo(GitwuhsQvAbalWmE09ftwV3]BwB)JWRIsR
U".AJ=D9CIH)-[&arWYFv1kj(EI6x7AN?Z7w9h[l(xnA1F-d\qUmB:u^-KU%^j.wM
U"Z(+RrB%-PGJ^:D2S,O>3j/CW=i$citr]fBon_.^_twW&t8O]n1]4957.#006-<<
U"zsba>W0YJr3<S<Y>qxw1Cs?>[5gjI3K^,v]9ej/1wG5*z'N4q#skzqrVTIH\Y#5
U"%oU>XO^8^V,atuo]eEcFuF2CPfA,6]D+[duM,%pQHY+o%pUH/1qyw]AG=cg.z:D
U"q((&N]Ea5K4*]9AJzWTHt$(P?\tETjcoBI^0O0y=Q5ayH>-NF2</]_C6aTPXAl2
U"dUfJnlv_Q?'7E7y_+)X=48TTlmY_nBUNSF3=wdF=BaF/xo-BYH^o#phGp]*b9o7
U"&s?fE<h%QhtA7idY4(E0UJP,QXQO)9DVnbW(d4'3md?dlq.Mx%YasI?WicKnD7e
U"$i'UbV7G*TwhF_c1o6snUDcK%'(MKzsecEzW$$Dg-<\2_YXuZO<jNSiIA9%s,dt
U"L3aDI,sHL5gDB[xLgnB<LDvawnhRXTU?_;%lXRBQ:l5.<#aGgOg#k,X;sXN0s6t
U"J*Yj4n$a0%K'%$[\?PkmHxM/+%QjTY[ajYv2A%XmatJTS#4OF32f34UMW+wgt:D
U"/P/,LX[8SP$E'C*U*b$SRWa<eMUeDZ%OrDK?4>^*eI$?I2)j-ICQg=h=5Sz/rtR
U"7c'nqIV5XT5747lx:^L9d4aGGN$R)I(DwFc'IwQ<^>1h=lD'>+#L=.3Lo8\swuS
U"J')-XPM5Ij6&1IbV?U']7Y$AN=-=d(;+Fh(25%;cr*^R]JHdvfs,O6]TDQQeW^Z
U"Bx#ip1dP=#Cg#'LQj.0'p1QbMp#,q6r=uFZ>&>)l0Sdl:6oT>CDJe/-3hQZh6%%
U"_z9kv,,/j=?4t=y=Qp_T'>]#mXXR6U\'%Ih$oqN/*'qh'2Et;>s+;L2.1cKXK>A
U"fZRT0R0Zr1ql<C_Do+6Y:QN1ykh5QdOa&(E\/T\-6dkGrZr8'2tGA&0Dbp7U354
U"Gc=A4&0#UK[=BoI[I&lrcbr<Qs/i,%b-TpfWDv#oj_q1)rPN(<dcE-D=C\=-h;c
U"KE^?emM/uAwKtrdCUQq;3L?/n3pxj3s\#(2NJh9dZht'z5o_sdL3A$qtc6px:HU
U"F[(^*ou&>cs+'pm#t;(=&&y;a.90b;9D^WnO4_%,\6G^W3-lrY6Ih0[cY/CzaK=
U"0J8WL_^v<$Hk9qV9S:jF;6BbbN;Wr3;zEf.<TG#RgmF]v[Plv;.L6TXjqN%g:\7
U"7Y_,B4o)8[u&[)U+JBs7d^f;LMsl0Axcu^)_\V7FAJf$WR5ORE;,<^*,z&R4Cgj
U"BovIipqx0EU2*3P7:,c'T+\3Y9c%(n*Q#9cPv0%5778^a4^k<1-Xn7^<6ik^eL<
U";P8MiP)8Iz&:K_P;cwv,B]V-Dcc+l_J'xF/kN7*9S:PU,9.R/nxJmsFc\k:yO[q
U"6nZ)H*8\htI']>H1H'Cr1umT't]P7/[1o]X=BirpA-4c#ccLWx*N5Ow7VG_g4h[
U"l>mLqR)^CR_jb9eKXmWG\3?nkZI>Yp99s_6M$Z3<uCO&6.Cl$:FU_G(8FA8=/I,
U"bZ5negm%pk4)SZmeeOPq>*C:1Diu#IovejLB7q,f0XJzQO;0a4^&o*,X%Q4BC18
U"u0:d>9'JSDHf6u92XbN&phSA=<E39p4sKlr%I$?6V'^MCzRYARn>)\0l8R*)C5L
U"SMi\wRgfe4HQv+D/.lgdyT$8DRSayh]g/(Ih,pUfHJW;dHV1joy=0C,g%+ggHR,
U".NXC-D_j>&^+EB7cPL(LDMMK:yM43H,lxXBGF[Go=2<LI*&g:8G^anfl^kpep%_
U"^C\)$:vQtTHkdw.-b'VZc%w9e]Ej?bGwdw-HQ[Nk%QrD2jZ6uO1o=q#Yq:2]PMB
U"8&VYZ[+cYR>Tq6NSH.&m33&Yj*HnZ]+ai7Btht+/%cbDwus1r.UN?<1%605k/oh
U"123:nL'&BD_)U7h6^MLCG%3cFwp#Yb97z,LsgiK06vTE+#kz2?N49>NAj<2.lKq
U"lUO^qu)Z<Uv#PDN)kOC]e[g70mn>775FiYjg>hbou3A;r;[?a7\38Oz3P&aue\x
U"'\&o%L29AE\4m%k2H4t0>:&c/pvl$ic8+cjC4(3*o5JcX]r:i9I800FQnGLP#x0
U"Yxu1xlard8/Y[nZJDJ:*qXkS-65P>G&jW';)2Y\UWiQFI*epIbTa>Un^ld<:[K>
U"5/.3iWQO)8,cDfdl?awr&>u.M<Y?j_;2Y5)*<NjXiG5?,w99<,++-fbkHbj^%(H
U"DV^\6,P6)[CHdMNfINCSPMmPc<h\#rA85-g-:HttKR%P]Tb6H-xs]]1dQpmE0L-
U"xDLNq.X5/h'hsM,]$f>4.1p<-dY_v*Eg1%;c/*VF_rCX>-oUC\\-\]y9)XaO);F
U"l0:VK]V>p3cDW;Nl(o?V%8R?Qq(AnT&0kty$FFsi?(c1^#S=77KPw0e=ipfhj01
U"/q,qi\e'ZO0pTj?893M[?vY5N5W1T4/MEZ4ddhyt#A5\_N[s'\630JxEGdvAFSR
U"H\LqJ;yQMGiT<fQYTl>IqWRPqIs3Q'tfd5a_b;s?<_Fme;,Urx_[r=o<K*-\IaW
U"N/9-Fhp=P&16AAJ327hsst&AZENMSFgN2-p8r0Fr4X)O:KI]a7K5ss/kJqqbqMC
U"=sYa'^TT,3/#29X<^HnR95q:iYmwmqQ9C*u0qqA28+gEfe[6zv_p-]aC8(hgz9'
U"ZQ]7v>C?8KW1Hb8+Ew(oR+UrMD7%#Y4erL6I6d+^GVfK.BIAcIheW4Q8uJV?(nV
U"d6?,15s]>TMS:.d.u0xRsbsm*6TpUD/\r:ukFE$I'rIQz0e$U(Vik,&fT#StCfJ
U"JrO*5SG\<$q0JvH+p2^y[33<&zz8(yIH2<b8R4G3<5qgGt>XyQKzjF;7VlI6:[P
U"'EMI?E$?BC;H6CRbu1A-XYu7r2np6bIT;r:*U8uBwQk7)t#kFI-zBJ:%%n+X'(k
U"qCY[VgE9yPg4^.;_/]F6PV:VMxb1[%MY2J(jp^k2s*S=-;ezKpL<%Tfv]Q$Ff(?
U"cke&[sN='s;qpl4+S5kv4$/UT9Z3(u>rCd>]_(S4IJVR=7Q%-P^s)B'pO3U;dvV
U"FGFqfgGfHknGLmo%r>gUcfVfg\VrLW:QV:$UFz>e'YEN%WfmcS+jluz%mhXqhl4
U";imjn/\/39Cq70?[O+UKlSi]GFND1XY[Hi^n[/u$(5K$riKK9UL'#bKU+fTo+wf
U"CELgL_e6^Xyom[NZQug^Hzm'\IP9;I#(+=%nx0sSQceSF3NZUer#c'>KVe'rs-a
U"Y%w=FI#m](&,^vtfkF)_gAooMaP>CO1T8o[U:*xk4pF.o-3N)pvdByR;RwE8heb
U"n%n69+,fK5KVVqbHmm**lv-+f-q[KNoq*&,jr^oI)bbPkWafFi*7$)8FQ:himu;
END SUB
SUB V3
U"*FZo5jvm-Jg0FrkYT?'T/%Qi2[P[#pO,Nb-dbC-kFr#]\&\o:l]0o2wdm;5<I)j
U"E:iWP4L_+Pz4(2=LbN(9T-^ZcsW>=DRb^).8f'cf93)lwXCLpp%i<%d7&#^EW1Q
U"Deh&Q&s;V>u.\/L(anUq7B]P(9YJ7$m+YI=dFFC)Gy'MNMFxE$RUyVYON>?.+$2
U"]AHdUR>#o]Is$tgF^nKaG;%e=5O9UL7MDnCe\OefcQI/;=BNR=Q]n8:]s-(CJ-H
U"C'lgnF]u(w2;7BK6+-(8=w3,bp;AgPC3/G:7lJmLXH_orQQaR06j[0O%s'52W1(
U"GaLZo<O8MH*S90zhFe:iXF%Yk9'r[O0u31T]stM34Snz,Rlks2LlfYy]4?4gOHM
U"[-gb-c%2IYioqzcL2BRpMvdX=XPlnH4T]1>PUWNrcFOwFMd;4kub^QRTv+l*1Q]
U")QK1Qbxz?G\]AKsjCcxVb2u5n]F?i6'013=H;[x'mUb1hYJ9Q0Lmc/]Ngi>RCb1
U"dRz:<OWkF4_9ibx'-&i<t$FZ.?6IZekA$sX^6CD]k=lo/8XTW#/bKKhAVXWB60R
U"Ux/hr[_JuTJ&+L(wF$oW7&C0/?$k)I.6n;tEET6;U+%$ial$orjIdhwVaf:5w:d
U"-=_hG:vf51ri-#uFSu=K6FIB_b,/7S;TUdF'#fc*#JKis;/m_joeCPRrYwMb]#,
U"^8+$L$=ZhwmMnE%Lrb?$QH0uAh^,r9$WTRUd#,EpPG2aA65.%2fXcJCzw,=$qhf
U"gsA)1DgXqQ^wN4%az_<^A87:N;RDI.zI;UX:Y5R\lURs8xgu;8JW7j7;eRzk>N;
U"i95R\=M1zFdO+#\y>iOpM=$I=3L0aHAGAk_\^bXTW8l$l9M17+y$EjjDOT?POA>
U"xwU[-0eQW\;70)Q\#')k]/j:kO]/45>#'=?1de+KV2%QZ56wP:>7&Oro5cI+;/0
U"^?+p[LQuRdm*U9P<8Muf$H_+)P*+$v<8*3v+S%36iLe:7k+Cq8LcIHAL[LAC1ch
U"W^7l88w4b>C#3r=ajRDXs8:$.[Uh\x#7BcWwsq/z'[Wi:>WCc;TV3mNFU3dYcv#
U"INB8>].39uE'?Qgqm01tw^Udb3;IM5tYK3#hf&rXX?^OHlga'e>]l$Gp=fAg5e.
U"xUa/)JUssXnfrZ'#(]7VC1i4=iG)O6eh/tR=_1m?KXow?b(lYs2,U=^VsG=W3Db
U"[.;4US^PrnUw]UM9MWe(\QeDvxZW]QZ-Z,iQ-JJXOP.PxT(#=0#RQo/sFa(I[]%
U"IJ;%gtsMi4DK2xZq];C.445O7OOcq82X^-aM%oFUM+.\ook^f\V'i]%kQR&V$C(
U"Cb99wWYI$RU6fA9g:^8VO9Z/bm?=tNAwnRk+'S>g=;FXQ6+VLz(_.MIOjS%)vK#
U"?fHiI+4,g=0,pE9%;_JGxS]%'I;,V?491>#C6h;HrKohsvA/C:SyD]2e%]uFFuy
U"XML^6Q6kMkfX1r:N.8Zgf8MrPFe%-wWb;jEt9OyQ%C)TI#4vG&9gbgN_/+NU0>5
U"RatPjNIc'^0_WY*625Uy_2x1pdX]9M1ip#+t_3,z*e.uo0bCXBKvseZi<]&p_wv
U"$ny5UnQN6;0>][(j4V\;)sU#wS-H;alrG[fXPms)*iT_CI16Bu&qc/::kGlt$i;
U"]u#AW\knBJUJ+hqN84(wrW42D#]hhFcR3#,_Z3Rr>d1Q73qQp'o3C+4K=#GvwRr
U".gOKjzPX(b_dS.8Ol:%LiBi[#(yiZ9b^whuhDDaKx+s;1joC2'u2P;t[,$;X[=o
U"$X4aZ(q=<.Et[(sf.cS/XI4$qhotF\.Bd\*(,?XGv?BEYyGF:B307]qsZis]8YZ
U"M]lXu:O8nD)38FV^I9h*Wig8Cbvv;k$PAIf^ffH;fCl<D.QFmVR.3%ex4+E3Dw'
U"'MMsKY[&Dph26d0_f9$?ErsP$V.<xkW]CSE,cv1gW\tSVeGYD')hT8rNsfe.Gv-
U"]+gT[,P&+aW^=EG-\+R'7dpDNp_lFBzlZe^bzul$Q?2e0yE*&gnZLWJ=sk5amL&
U"Nfn#.=8189_r,As2vA+'jY.gKNB)enx9abf4xr1tZC:*m7SJie.[-p-T&FbRhfQ
U"/K?3'pt1AA'^3p>4h/#ckTBzqXsA>&.Ta%6Dt7$8nrI3K$Jvt^Mb_$\M5#_H$'W
U"^pxhDg6W]OY>oLD1w+kt'Tx=a;m-<ZvOnRJCd*s,q<h5Bd3$r04WwW$<tj8]/7r
U"lDuO'*K7rc0c%q,_,dJ,kts9VUbo+TO%kWfG3lWVmZonQ_SKur2\P.&,O&$ka\J
U"\RIZiSh2S6py,X^jz+UA)jbWZch'KqAjT-w(yZZF'7oUsaG&bI=u>&Af;Y#:==]
U"]sW_Cl:&,6Lgf(P<coOA8.X^gV6$<)8wS<lWDWk]-g<p,oc,I(KErZZXgM(IX-j
U"P*K,X-ABmbz,)uq+M8_\g%UT^K23REFAM%JINSy3Yqe'dD:+xvP*J*#0/*SB+NI
U"BVg7^I#TH(e[XuLS9wMqh<?sg4ncZKYLq)+j/J<+N-OMTX%Nne,SF471+QJ4eS9
U"nl)/Bt<x.c5DlYj77kQSVBfgeHqB_pNkd%xI_vDgooI6ib)\po(gb+a'p-Dd9B0
U"4DRCi#^I8M\ibXNbrib8a.s5\XpBFiYhP9R:H&Ti.[t64tQt#F9dn?:BN^yj6[%
U"$c_dursmF_ZbXDh/0OwLs_ojr)\7rWG6\*J0#FX3$tDZ7k#*F]]qyfWP_q3d\VW
U">%+PA%Z/YjeG]BXG:gv+$'3;)/uuUW[/8qR<4r6+zHMxgD]?9rWaX<I.;8;):,f
U"6RTREc]aN<rq(joI:*aGFE.9EU?\k_sd('=M6+BBsbs.Lb-s^q2Xb2+v+_,)(Zv
U"[[$J?3BKXz%zqy[Wfm#\(DtKISd3T#Ij[QI4zM_[ejxF6CvguhfK/J4LQa?0p1p
U"L*e/66QeeKO,/y>=Nke]tUTmSMZ<9yMfln+8lo^()NRt'k+3e1imT[)L+oR67Z9
U"^v4Ia/g,::y5StBXNZg&rL>y\rQE_6Me:=^%td4=tJFc*]0)q+LFavao.PJ&'>D
U"IOjN)7]D5;9bxFJ6nt1a=/3Mk57dK$Y+PP+(Vh??W5R[FQAEWQoM4czZAsc8&oS
U"4JO[EJjO2<%%/%LR'5=oW5zJp)paOyY#$P4pBO=+l4+SQFa;a.q+>0RaSJp#,/5
U"*UGju0/]<r_I15u#&\ocSc*dGi_L.n.#;.gq%J/QY7eW4NB9AN55uzVq,Z*23&'
U"psEbWQhWnnAfevn$DXc1'gkCJ%V%:Rd_=GoiwOKkw+fi)Q*nH-l38iV_<5u)6Y,
U"7'?6%[-fjEniP&rcoli=7D1XLtrZJ:.b5fVw/$HVH:rd&6TDafRU#K]5+F?.ZrB
U"[ntq,vN.'P5iVy*0WhhXs*7lSEuNDk+M;ZAdb&n]1V%b-BGZp&ZGw6Iw6fqIHCL
U"*V\a+t164sXT5[]2zPHqu07Bc/GY<3'16'MJCu'a<kQO4+vvoRvo]laqjhV-6H-
U"]5^$x1d?[])vw7JbVEXflDRqo_SgJ1Zl5KkrWr,\I<T38^d=5<R%cAV<9hB.89T
U"09\Kc:kJ0C_?<bk[0-KCKO>kCs7OSu9)as#?S1KfXG[P]3gcVFkJAdY?6-d^+Qg
U"7-?i=xq8SZ/6#),8natkI-?JOU%JdY*kioBJ'kUg#['2tq_Bf'N*MsiQTIY_kR_
U"WAz:A70Mu$3k*o,cCpADz5<u(XJ5b/a<QKpA*KK(/-73Icc=ki*Yc)j.g;w3eFn
U"P>U:?Y_Ui)o1vC;DJJmF-*2h3o$V2=&_?B]oy,jwO$I5+%^V(-Pz]?^mN^oY9eY
U"-,L\T,^Gh3M:psr#$<u6T39kq/i>_AiMAYA[5BQS<]IL,B6H]U5y[q?W11\d#'$
U"O:30H)__qi[E,4dkfFa9,pJSnCQC4:$:8X),t59*YEVH'n]M]lwzKsi6tfk[TPn
U"1?*3(%h66F7N&p2xYpVp'-u%4WDHsWJapxp3sZx,wCHoc5*SDZ_ke=.lahjo%PG
U"tBTJ'_,HwpfMw/duBJyB;%;1:0d#]^lgqwlJ%6g#x*Pa7J\UsPD(E>=-sk$\cCe
U"c8[OfTj)7=w.'FnR+ud#vTCU+]aZLEg,H0K4Qm%\3wg_I9ah&G]ZRT7(Oqk8*)C
U"<,y$qg0k):V%fO2a(7<rC_%O3OSluk?g&#6lE>gCOi&43jv6A__,8j3lpNyD5Sr
U"E;&?(4xHD4B2\OgS4q:9E>^t9MORY:ZY2vsR]2:zZr*htNa9\]BO:w$-&(4y,:F
U"JEL:Bg5)^k>FnjpeZi^dF^9EF(AqRqwj:Bhha]:Ki6c\_fqjjd+j(C\WCp2$43J
U"g_<sT5M]:6Sj87r2Bc.fEn4q-3^)CE%'?b_oF.m_wt,V_%]2er#Js\S*X#YmG84
U"gE6>xmX7\cJILTBB;l6M5Iik[=sVsqaQR3buug-^/hM-.=7'?nQV;CkyS++S/h5
U"%1#%c)j.Gnk,vSmE%JbEJ0GI1)X^Fkm^ADWB^;w>pjYHT0&>1NPV2?J;+(_7fgY
U"zwg5CMnZi$v+*'$7pg5=[GoIgr46P3Z6=W3M&>2ifv*[]66]CmbwYOeuiY&o%)X
U"zm([1baSzq#rZ%<Mo_26</Ty:\pCII<Y>eb&VL7G-KEb#^vkB]L,zL-[Wo^<\yR
U"u-('+KXoQmk$Z^jZ=?M)],s;^yro+LL;YmjE'#Df,CQZzDmo.:=H)PV%IgpmO5.
U"B;SeP7]e-oBcb7=1aJ%SuwZpEg=9[=um\k[<(Q:\bkq^&%8.4hjTDL\d952itQ*
U"E:#p8BChDQ\D$>SnibIf6M+WQXNJ1o3g(W+HvE,)s6hI-f8-4xYQ0M$<6=,oIam
U"G$p>bjRXY3:CD(b+HteehQrdS_<9)PFa\&w&;*?l\Msg\,HXR;I54+^_\5Y*UFk
U"Ha.gDqiBFQ=9Kc<e3U>cw3Xvok3kJ5U14QL/qDQ\355Tkfxd^r[c_,X$sulHZl;
U"iPx9k-+n&VLrS[6mlg&fsFhqwK^kZFenLkHb?FBpL-(7$vr'^=)&$:Vz['=jN_)
U"Z>.M_0R19+hmOu'tuaNX^mK2JalBMLJA5WTaM6KY>Z_K6;#3,tP+t-D9(?<cj.#
U"d?,Ih5rv>[,;XX5$jaF5hp/zF[Yi+XlYg>Oo'<cj*1(Hd32<Y7NfM2+Mja:*);5
U"FI)oyHp,5:LJ9JytF4^.txr5btAmE-N\Ux*?Pb^C%nX-<dI&d4y/$G7N_%Yof]W
U"OoGP(G6#:509dzPab',u23)3Ayo2sYm2D%Td<Y]Ws&k#)&e$.Yxk>#1[I:vCw5b
U"Zt%jBG+&uvm$bvQahlSea+%D,._ni8&':Vb>ejO=N0CY.p4h/uYGPoOB\k8/*&q
U"'mxJ6jt*^>]Pl,YT+KSvDC[iHRHT$1DPchQ;>0H2a>%T[:/[f[%Vs^e8sdC]aC4
U"gAT(Xo,5W?ZE?:d',&R#1YSg1i+s-meu:E?$q=;N\]KkRBd-IXe4;dnQEtFdT>E
U"jLH9/=zKJ[,6J.Fc<gr31-Mc%Z),(?R1iwh78<<)Q<FCHn#UBwE%/dMukNPU-#o
U"8/o8FukCV&Ics$C;)78i:;bT1\Rg^]GX2vRiBfe1eudWofy**#Xmq4tUkDZh.-i
U"*/O0i];vwOCHIw^3#]#115I1?rp_fmJR/3/Ka'-Ncg6A-U#?4RS71s8[^z7u,MC
U"W)Ii]5wX5PM;KZCE.wJ(u0H1JgyClD=IYfT]g;I6vOJg%d.'Ug$<hpAbagj1%zc
U"P:nd0f$<W%Fl>Hc&2#zV3$d3Ep$IBIO^J2w8kR:lk&^C-Sv7l<R4>pETYF,I0%d
U"tr3\Uit9ACE2ri]m'SaRpQ<B9]y2ye>_42vN+S>Hkh44WY5;8=3h2zZf6KKdGI_
U"IEM#Cr?N1[NXPZ)6V,MIZEl,jXh8%%yuwkj[H$[Cj4g=6ijyvD[We5B*$eGN\$;
U"e(bRval&kdi'bVxgc&M^jaPEUbK<<1#%Z^'iUfLO5MrPD8C(yVMmZbrpj8Ow>$8
U"nABfCRu'HVM;g5dqlhWF,L-kbc_-o=gR[5sS's7\cG&scX.:RujL7ijs_7ht+I#
U"szfFq/a<X6pwde=54)Bwj^&+?BuRWR$^A5-?iwEt[/&,*YE+/N%1+gMW#_w-GJR
U"IVYhwoH]W;\3awKK^O[mEJNX]nl:?[UfZNr,j/a?\AI;_%LO_6b($ISk:9KR>3C
U"_<-8XYK>fu#kPVV#ExB6rx&1>14xzMEEa3%[7-<?:B'C:zA(qBV(k+aYviG*xE$
U"lK&EkSH>k9;_c'N0U,iJJSL&(R&s:mCkS^R=P+2eZ>)c&Zp_kgD4#/VgXyXP>aV
U"F<#:QBWgI-hiLEveDaMiz_.D+7qT_N93/4zW=,+f[iN[guhN]hyIx]0rZ4rKF;C
U"kav8,)JAk;ZTD3\blP4o:ZIYTRZkZbdX0p&Qcnu^hT9C1NaBO^YUHT'ou>L0ISj
U"c9F%iq(;\7,bc=[yk)Lr>4P<JIc)wZUBp[4\DjEKS^g\&4sZG*^u3B>hoF[u'mZ
U"4)[UW1<Z+Jac<G,;M.h).]q4eAm;p$T#,1q)<GMa2SCs;]'8gK([\[4D?C%>oik
U"iNY\29EWYT/1GB$6L*HmpIKg+vZXabRG-]wF[vIJ><$F4g.&WGG18WmFPyqpp2c
U"._)faFzgC'l$38(XuMVwwEAt#6D'RzuJvOvje0e]t.x,Om7V4).X8#02G9l4+WL
U"H*?xh&f-L)dPJs#q0OeqnP1n#sdW2#d2bIil(LN6h,lLaS(nTo/SMow=r9)P=gj
U"*OPLWJtVVPp5g-.SaT1bB965nmtYb2Zz]0.$/9%YS.QG#<S8CN>-]9QzDtx31s,
U"vx4l0EC)KP*oc4qQiOm<c>7btLnm>7\Lk*cIBSS'<6enHRW67N$NJI?uFW>I(*:
U"YfInUohxM*AWU6an<f^'3b.pw10i5Z-m'<;sex7y8jbJ0[1m/?p>7&Pz*'b0l6p
U":[xj2V=K4I(g6MX=tPg]nm5:cn7a'tkFCqp6Fd9/k3USI1Z\VfFpyf1.5e._Ud(
U"f4gVLsuI=P2qq;)$n>zKa<c/rP=E&=eEC:V*IkWCL3djBqQZ[[a?S^\h=QaN)Ha
U";^LmqcG(Y\zkQR1E+cOPzTfMnTg\.Qe1sx'Tv-vLYG5pd$cL..Z9mGV:V:0<r:r
U"di?T[VNP*i%19tp0\l:D-'rfHmaKbM9g%>*RcnjUE^&RCpX[)3Q->:Srt3T8sB1
U"OC4s_)l'-KeY%MH4&#-*)3O?*^b%RKWL^)s?9(sS+Ff0u[>90?gW\zVqT8iDz#G
U"mBq=$ABg*.urdj6Jsst\6)D5]Wk5jdLw70&[$C(9DqWfj5%cuplxEIkjjruK&0q
U"D1hiZsQuoXVoe6a]xAIR;VVwMt3a6bc6Hl+()H=p?e5r,'us:lX_I/:E'1B9$R3
U"D<>DDar\uf7;GY-sLtvfE5na\.>kr0vX_IifPl#6o/Qpvswe'=[6pq3jSP[$q+j
U"y_/KW,g+E35.*C#wMQ,t(9Vp/8>e^Trw%Ikv1.XN)*C[ETzv1^E6^?4J[sgtJh+
U"1k[f^rR?C8&Qso4'JaJ2)E3;Y:DejzlBVB2y%pq,zbDWW/#)n?>_jEn-?B-fVJQ
U"<1O=pK>mM69]T#fRfmf8G($3T4(\:p)rU6NFv6B]Ga121:dRRu&6,c6O%aYi^.Q
U"p8icK2<eLU(&/p,'E*hJ+vDQ>Ebiph30bZATf]XeOn=lT$9E#_r=/Vi3&G+efiW
U"UgmF1OjuK:F+nW9\J$;[a[ocRT>6Rh_BmCNxa%uAB:u:FvDDZRb*Mo>4M.(mp-r
U"nsPAe*eJ:p*BNRl6n)H>h>Gy%8.9eTcn<g66i?MiIg//7QQ=nPX:It#Joi^$Igl
U"IklsH:)j*kR15L'Y'I($V2'fi0q7hh_#*\l;$F*S=XHk3(J)nPI_rl)3GA/VGtH
U")QDCrt.sV=.W]WPUwB-:9:9JIDE%3/=xM+Q4QgJPNTh[9$ot:,)N^<^^\qXm%F(
U"ms**NsW_d\TI]c1Uxz*Meh<W$QJ;776SZ\.<EFg0g6A$<P8Zt$i,.;34Oh%6Ym_
U"me8daGR4#6%xFpMhhE8rE=^u)N^59.(2kQ?C.8PHD=$xMswDE]CjiR&F7]s'dWc
U"tc0*YgjP6Tq0B%$?Wd8>JhcG>2U0-LJYvN=dx==KZ<nX2pLSDHb(,DrT2#F1wzH
U"u[dc]wNs7kluY(hjq&/oSji+zwS;/M$;EBNC0Mnb,5*.P\i#sbL[XptWD'?NK#f
U"MUrtDCabqR/;.=i65*-?M'Y.1,R[?Y.G_)%]bACwaZuApkhnWSyRC)ea5QCUY;=
U"L+Nz5MAzwn[*\+n+#5qPlnk%GRP0Q1g+V\'M9r5,2sbxASyK/\ln>-p=NS/;Nw_
U".IGAp/G?)^;8=h,ia>o4Orqu/Y[;:IttQ$ms6kLW,J&FHX9F0'k-htIh^(:b0y)
U"3U%F;a;1Ojqc2g*j\kQE5Yf77B#;SEnc+3RA05td_pq['Ew_'Le.ifoSsRc0),q
U"nR7kU-7K6=/C&ujT3GcEh*&Og-6/VViWjkc<I=IO8'R5i[8]EXYK=&>MMIIubB^
U"Bopg-b(Mc0PF$BBJ>?aP&VBamU5W],0Af#=*.',to*XQ(&4kZuK:Ur9\DQBAK*]
U"pclWtBMA4U*Eo^aXm_XmX5jJi+-iBKV/TNG-SM8O96vnqJ$7jH<[PMU&L].Z=g1
U"lAJfBRW+_dS?g9yVKGy8wU-h'P,7vS/nUGfO;*v?j=&VI=MAwbaa?dACys<N+cp
U"Z5DSW]IS91QEsc>'I%.7>2WI(IV7''3]GLG2^od*n>E'sWlC7bCfr.IQi8b?pce
U"6/F&*M+g$J04?n559Si?5(5F&2Mz%gE_1THUKQJqbT],tM$;%C*'M,8fgUZ$84a
U">d\i0ANaMhh9P3^Dw\=$]6\Vu[BXQJFUuML<(1BIVrH$%\z07Q0u+DIVWyNDl%V
U"/]]UKf&;wG?QW[_2&FmQF#\z,k).dE#n0GWSs?/'W(HH0p;HW#qkp\$G)fQ[-%6
U"eR;aO'Q%,(vSFy7xIJ?7h.'b^jy#BS[fP+1RZD-2m2AgMI2(Td#W)p_([*m]PSC
U"7iM*NV=5X_'TY\dqx>0E]eB1Zf?RHH,kW)A)&*pA<F-T[8#]IC^C^(?^NKHE[7^
U"INjg<wOPF<ne6Q59I?Z?XT62clWx3qX_Z\Ep3Wcl-Vkh_YRcz'pf&;zOY$M0)>Y
U"?*0n/6C3o]KtqqbX$OZ):A]G'fy9;+q?hOp0JWi+4+n)*DO^E\/WJ3PJc^cmIs#
U"Kf\q4oDw=a&(.zDjt,f,1<1FvkC74\[K:vU<iHE#4wr2[(7=Z'\P>W3W[A:>haX
U"B,;25C?d]#l3DyOG5a_Dsm8K;NOIH&%Nr?rxPbTAb2OY;B9[E'd2e^WPXGqXwCo
U"5hJs$O*2M>Iht^uGgW8KxjeL:4*aXS$<RlmTKk8Et.1,VpwC<%,PQU7[B;]NR:z
U"4C;zkv45Y]$aZ]aO6l?G2M0v'KPLhnnHbg/I,,u.UHiHDKKedMt,[1dmnVn?UF7
U"C7l$Q.cwptk2E<mGLgpsXOLfBi#PEmnM^:S+88,0=u2V7sh.YWbw]imxtMJNC[C
U"Zsfbjuevp;J9--rsbvRlVb>8dh#XV8^d]Z2=i_%EQoWn7_RO]KtNu^hltl&NVJL
U"tr?h#HH\w^n/4gaNWp]z--E+.i5nz3cJGG:NF]fkuUH'pC&4hke)_a]Tgg+tzc[
U"fZJ7/?e05^OW(,U78$\:KVm1d7CO\SkV5o0S-vx(Su.[eChwgPo\'GS#/FT6U0=
U"_2l5(1?1J->KT&jJPQIKHRdNAUO5x4-8.J2^_v&[p7Hp##)0vkScQEOkQJgL5b^
U"Og2f*&^?gEl'qh4ua<H9ip>8sKXx1O%OSm_T+eZJJ+Nuuag69HC8:g/NCu??S4A
U"&?0^H0[B4$PAB4C%x;4rGG+8Jmq/8p*R3.gLd[<60;pk5-Jp;-jc9r1^pY:AcUV
U"Cb]q/S#AYSXxYRRkYT3b]?)wIs.tqB[_Ket9s+T04xE$d3%/r2KcB,bzQfIGG;]
U"4j6q<mm(Um>L?U/WC6z)b]6PhSlI\54tZWO$QC)STY-Rk4uD%V-sF]P3c#r&-5z
U")9O6-%CtND8K9z3PCN2?$\oY6D;[HEsdP]$fo(RBT#of#qbXQnS6_5r?c5lEl>p
U"LIW:t1gl?M/Tkt4EAS2'[CC37.7O+5/x-Q[w3qCh(?WBeao;CXPr^%E;8r?HJ6_
U"nRb0i7WM.oeFA0sV0ho:tNQ9^>&]Tl-xr^_LzXzY:&p:xO?gt4%4b(y1XM<46&L
U"xXp9,,.qBx6G,xrBg/$v+,YFoGE<XuGqU7TekAl%1]VEcWpij/NhicMI1<U-[sn
U"i\:A6JEMZfW$</=nhJ-S8OWggZp&(7r#,'7WPQ5(9.0t-^?uNB.3MKna*h^8*)o
U"Brh>DbLRQT0e$-GEriPhk\[C*#a05ER-Q#ZCn0ZD-T1E[lJh*pd(E79iDVlW#jM
U"]?/Tr*g1g>yu6p9jdH]J?\pE^$;G-d?Ve,N%o<LAWK\SdpO#1k7b^T3ZnV+FGWI
U";%9wM;;>(1p'2Q44[jY&OO?$<>'c..0JD5P[ex<_BhRj_unQM3E$UK43Zg1UZ?)
U"2f5e[WARRNx5mEFmcUwzLO+]BE'F8;]oJiuP_Vxn7ob_<mAhXwfH,v;%4BLMU*;
U"HqJ>M'E<$3';SfhU82a16uTzCuC9;5zjuz/tCbKhKqd#B3O=gMix2ZqoPP4]7m8
U"g6NJC>$S.f#'*Cb+GtJhYMZq3jpy6l)N/9xlpAwKsu/,.d:e,+OFaY<i2myX+JC
U"9'n4RNFP>z<_ZG\XWTJxr_%c*rqBmOHS%GfXFuVx61IOujDtj1H\$q(OV4Fj7S2
U"5DiXZ2:j#b)X/y'DQYbhP?GuCn:\m3thamn.^ZBTg%30(#S?FR*(CI6;0lsiT:z
U"gMPugWRkb(^w?ivPlm+VOF9Z]t/cUiP&szmnJIhG%u<i&?B=a&)=qHW8o*a0Ow?
U"EEKJ\,0(ZUGWC]_2<=$3jKR(U.;uyEq&WW9?C6irdg&sWIX[)>\o'VEX<:2%=Yz
U"NJgXSLcT*'SO1vy4cL<sj7Y+0\tk)f%)%8)$U:au]D,J[)67mxZR+f+^d_fcK'<
U"2Cms,HO+S]I*oPDKO$-h,M&319<Mlf8T-\4%]'5Qi3lK3<yKjehW3b4]V0L]ZUj
U"TiG?T3(,;q4KOBPqYpB=]2rzp8j/PjYu\Z)<:.mB6VUTKkzA,V6)gzu8OC_]5U8
U"b8OQ/;tj_AdP4Wwhj\1P\;Fz%Q3;M/4>[X-g)*Ka2QSf%$9.cmW>:u6iE.,f8F4
U"Xa)STcU-LmjdNL5oVZee+k[9T#j#3IK)2PFRp4]G*La9lnAT[d7kaMeRLqwHn<s
U"Vu/dS*CM_jqLLsQsSY>J$)XG8dA+,2P,=DnUV.1.%QO&BTEB(zq,Ca9Go8t_Ygf
U"h0M**Fu'#xzi0W0LKB%kajo^XeD'o-753txMr450[#Bff5NXae'20/5dH-W8C4S
U"/.=xU]M2#vW<W#DQTX$I9o7HtF/W1EnfR%iC7ua;NM5_6*.v5is[tkEDTP:f/%u
U"/FD+G$]XL70F7#?_28SQi&YzT%#I,m\j&dn(&[H]rx5W..N5f6A7So/Y$gOY_QX
U"D?m0#gH)\6q^&.Lk7:Z6bYTcR]R;'D&Kakh9O:-&KzBVPmZ7%M\kRTHYoOFWQ:x
U"gOc#'b6Rd4I,$3F?G$g4T]HaeibE>$dU$x>36-RQ7;r,r:_(4-a1TawZ5<:S9?S
U".?o&O+Ql$]N>k-X#a6cJMZ+8R_eLM,5'u]wc:=)Cp#5GcU69*W%K^G7(vxTK?+j
U"?'u49%rzEd=gL-ZKwCY55m;I-FaLZX8p:oOatFvdoTj*&Xu*7McI7p8PI38VU<i
U"EQ:QjfkFw>pCPOSZOZJbK6C,F3\WJk*,>PE[^oMxTmd(jsg9k<piORv)mtH;lEu
U"G=ETYCR:vYVuf(n8Wc.rb%R:D6V(4KGKP)/.-GhWMNN>\gvREBeF3N8SM(oNd05
U"Hd&_0_PX^-H_?6=o>x/2tfClQw+s8$$dF^oA^XN]tlZeEV)a4Hha:LEkSXI/XDM
U"Z4qmz[7F1aR+,PqQTmH6:C'Mt7T=m#KAC[GE('+l\Ha3W&,UPMkIRo?hcYigT>Y
U"[/sX__fXQnnfBZ%JZAjV^))yplMg.J$dbu_<IUu6Bg3L8YiNT/S$OdxC%j[)0:A
U"ti+g&o(\$r&Y7-DO6G.,=9JMFjpGyCr7njff9kjMyB,kS]vNP?j)/n-t$PvWc/D
U"z#DTf<D5NTEb^[))f3wiKTVDf,[&k#Y=FCWxu7ga)j)x2S4$E5n0po99%\F%W^6
U"0:FqHh1uz7gI$E_';-Vq3prL+IYOYqfr0Ip_T;Og3h-/_q.\<pgdu;PhcZfraWJ
U"(/AYIqGir*x]%nKUa)r:$(Rh=L1Uj1sfWVavFyRA9'Qrlx21JuG8[^sd3_,7[3d
U"9-UX)680Oogi;p7X)qig%abEzo;hN>)1u'A*&sRTL62XtKrwu+\:vd<O3R%(5EY
U")00l+f>kJ3I/]x:JaU_AW24e[b%5X,=w/l5X+XG'PWEDcPsX'&Jgm(8V?\H#Psk
U"eO=.*W+H+LY0p,qrX_F#MYI2<LjSV5Yi-R]$0xH7\wh\7uEN][?8lU.M^Ju66;t
U".s==*-iS#qsllC7)K6:]9^>__i00rvN43fFm?WeEE2apBFN[3x0FZY#=A1Q2Sg/
U"0)R2PeT$dq6-8*vwMn2mfy-/xCA$A$k.n#qZ=N[yg'*+##y&0rnSqdAwWu<],77
END SUB
SUB V4
U",<OQbIT5QjXXR\pjmA]nL;zH?MuSgAj\U&F8DyJyV1[&f=j'q^TT:Ne[#Dw6$-'
U"'s7CXS']21QVGD4zJj/i\bk.V8N(6K$\Rr7fxmMlMo?T1%,iR]._ug6HU/J?wR<
U"M.ko/JMN_V#l9ISQi(k\tHkvqZR1<_eu)'.1hfze9gpIf]2J&X[ES#]misWCL]C
U"I1hhB[g5,%v[<#KmpDTTR#(xOCEO)4&53k37%]xm\83xGRh:Jfi]G4*asHIg\%E
U"dz)0S>Uk1cl%gE2<JGOJd;V+K1ZOSFR:G0%%EviGBS\PFFAbqcxj1U&rB0Le'as
U"6hAm*&p6C+\;>9OYij+qUHHd=Ogi[Y*:xe$Vu=J\CZeC?':(+66n]n<:pzEq-xA
U"Zq.J;Xk(.exF4uf%Ru83MTYa/#iIs4FiU2*>e+QL9[3X;?/J(&rQ_2U1*rL'x&:
U"MJNtrs?b6Aly:%Dhs-[^h6iZbhiQFI5gW9acT&Odqds$k;UGGqUULW)'u(H2l;r
U"En421?tFUVbl?+;P840K0)\VR;\0W>1Qam-9YA53jH;+YVK6RDkE*VX:ZB>-+Vv
U"6*)NPxBM](udMtRYXu'hDDS/BLjE/Ef3d*wKJdtLV_THag1.H5DT=sovr7?um5/
U"ODu[5oP4iPo^g/1RLlR5I,<3mbVBUpTq+etbyJA?mdmXpYxucGtjdp+aLsjxOeW
U"VNRgJ1yNaeJX'siJLSc1kh+aok[$X)5aaEwfsZ/H^&#Tj_Y7_4,lc8aDAlTenMZ
U"0SwbUaJ68e(tyF,-,*ua=b0e.x0t+SNs]v7Do)b?t.w3dk/l<d0I>Aj>8#'0ATL
U"NjtbL=)n6_#6xYr(kZw9cmtg3Mqh7:+]#9.K9m&fz;G6kJWAY)]Zc#OIdc#Mh-g
U"]cxRJKHQ;:nAM+l-=<*Ix?S-OPw=*$Q<v1,s6cPD78A;UA5zEg/-'kSpmd9+m;v
U"4&3\x\g7xn_9xxXOv$]x&sXe_/)a+(>>gsj=y0dbk>+8E9W$(j(Z0WVtS.dT&\s
U"s0I$*0/n'Trb)sxLM]Oxs,8PF[vC\pc<EGkX5%N6z#JHg4p8T?,Z1w8wm*\:So?
U"R:BbXL%r#Rr,Sjhrf)T>ILRL;H$(>LByh87;=V=T1eflK[#y6r[XLii0'iG,B]1
U"S#.rF8b]a/%:$P8E-DDsC9n1gZaI8qYbp,qK5snYY#JmrF*>DZ3snXWVlC)C/%r
U":eL;Vs)cdGlmR;c*GI<Bgvb7MJ4)Q#NjE-i^FmXaU5RY6uR=Zl:BpA]k;GG?pU$
U"7(cGnsZa9aN<1cL&2N#co18oK?i7ly%=MNP\I9*<Lm:c5ug*-,H'_hxJH0KrJor
U",]sMS)5'oa8h;cOeyG]8UNGY?Gr6i4-[H/c;)b;0pm5EEG_PCg]b0_IhgA6?;$U
U"*i8Ol/>jg_3R)[m5e-.#GjIR)jyXoZ2)TR7P>IFu4cFU00jFJ+%3VD/i^O;q16.
U"Ws5I8g7nYIjYfSXf$aOkR5E/gblWl7;EcyyZD?U/'Z)QO1c5ajaI#qXNhESC]b?
U"5zrn)#w:7-g//s$:K;Fg]l>]96qJS]E->5y7M%::UDD=>mFR#K/u1#x,^o/kFS?
U"]>)'\3%yV=8^AqRAi[=lBcl5eR>a\96T)%m;6=&i4lUDG)Kji\S5WO:bMd4HcgS
U"3CSzQMhIT?t.d>2C9e'9AEePa3:=x#/;:'^Pd$M]G6M8*xp??d(7$Zpmc<V>fM+
U"iC'+VPrc\hW9/0[i7\oZgufx,<cf-/5aK=dodIFp?p#386p[&iPGp*&Oo(zkAK2
U"6Rl5?=2hTqLuM_jd/W,Z_$&lH?Xn6juWV]n'TRLQq&/-TOACWMRBk8jWEF>e11g
U".)$'A^)>34QvK+c62+T*0mKMN7dfFXhNj5*x$E'jYHLBM=CEAc/Jl7.hce1dkM<
U"AKsVFkS=;G<_RM:aznY^QMvC77N-3]FJ4)X'ZWL8MFH$Bei#X2/B1VHi)2'\ghl
U"au,J6eJDzOfIU^50jD%)wF36/>%hUo9#L&cuXmQMPIBI]1bPm.6U7Slr+3tFG90
U"AJJD/(/_3mY%_:&E_k#h%fqY[Y-)-JoC)oNmmY;2K#IK35ut6C.=<C(HmOwLXe;
U"hO;\7;,nD9*$+)8$u*=/OQ1>-vnM?,nKn1y0\pshei%lW>VY2lbYS7a[/ZJkYY2
U"Hkxj-#^)\_vQOXBkpwDU%Qko^&$0:Au->t*f7r3'k<Y8i89RJy#SSYhM(ik7XJ5
U"SyOCKmfjB=>(&=wB,qPrHt*u2B6-gsc-72G=21_MS#6?CNSg4o6r>5(hRhy+p8)
U"FwW1pRzW%M%tNkgN6LDTq8LVtd-sHmBI5cmsXc(6yM7/1*0tP8;mF9)VDWLd^vq
U"v6GTgYLo,1?]P#tU1*B%8rx%C=6q2<'Tx=LOZ>G<kuwIO<T*hu\#QG95ocPPxgm
U"[Hb'AWZwaKt-#CKVcGqCP]fbB[+'2/ud%OwqlUBV1VP;_4W/QI80PVO7Rjk4wdJ
U"jF_=C^VyBEf1(oi^-9:,J&zJ:bzrE%i2hJZGVy<AV[V2)%#7I9j9X#GZ[-1R^on
U"-C>7i7,AariBc]Y%p0?KFw\(QO7c9)pi+C'ho2)S^-5l_[\M5Q<2>Np#e,;1G\o
U"3ESq;9Ju#MUIg+Wnhn0isvI4Uq+qJ5vF>kAd,&gbLo7g86#Oe?51'C_nGXPvIO4
U"RJ4Pde<3Tjq+%l3jOQyd91loI7/udL/.&MP'5&G.Ucf)1+R_[\oLB[ZGq'd_x3N
U"CjE:R$LxRLbDeqll$.>1XdrxfF%:Exou<1[4Qe5CwLdx9r%6GD7oEbDta+[CTV/
U"F#F7gf0QcAB#(>^(%TU)TR*NE5uB:K9S(]*nBS9[#sa<?_3fYV^)7^g=WIR')f9
U"]?wzkT'D-uHgY'al5RC<#:*ye83VGE.m+FvTZ:6\/RS<;,lgVY.H4q>a>HWr:[)
U"$p7yJ.FUk%5bc[4V>u;igG=$28D5+'VFh;7mPW,<MJ<YiaKj8/iOTWFXNqLsj9*
U"4z3zee(0bF9EUX]T+z&+nt\Op7>dHV(vAz/55'4qYI=%/wbTGYya0&CEC)t(#Q4
U"0.TtZ[]Ajt6I1Vh:1%3Su3-gb[IsoaT'7vYSGCG41,o?1H'60B,:qAWj-&r$l:U
U"k]'7b(L8)4cN;CFAZQ>%RVtljnv0VbmupUfZr5nmctbs<kP6$H3SS11$$HO,xAW
U"G6Bc.bQlq')$f78iV8UR,A&u.??A7aV5-%%_QJG<S4&0US6bDmBVl*xHoK8friT
U"xhUTNJ&>x(K0O%Uchmj?>QMu&e(dU[F'Zr?F()mYEKLsgmr(,o**+G:*rOkt>(T
U"b'Zw&S;4RSTT-][1cJlo\B8rZ<0Hk7KO#qb'_+Rp>2l$hHxX4bF]#Xh(gv3*H4.
U"0b((uAMlvF]+7qF60l(sZb3,i$ppfO8?E\n4nF/'SRlQA5P_k2^?',sV53kx$X=
U"-'9mb+0IAzu#GOiTEsR*)av046Evs)1>v2<*\5HoCGm;%HVykTrF8BE3Y_f$UZe
U"E[01.EiiIx$)T)#s:P%V&^nT0i7DN]_rKR8pJJr$<eFAtI0hlJ356f%ZkO'7S>/
U"dVGVsB6\D$tOU(^ot_qhT)t=Mrt14jdLHb?auWv*_H?3LxF_JDYEGzTdtjthLaO
U"9x0JnD$gU)uE$rNsZJF-gUvjG#s4lZNp=p6EPD5?*q<F.a.axXDPx_j8M(j[KCi
U"x$gm^:nn+fhk7k;s(4n:igI\o-_MPmbGsq1$AFP,&jJpqts,V:x?q42M/yI7-8T
U"XlDoCZDi1f,2Zjd?MeXv25?DFciJ(GiEQkT3=+(r[IdC/HJJ4wr#n(D'w%R#k<1
U"fd;ppl(;r0.VvTvF\fZb*8'vd#K8w<,]RMF7KJF4Fhi(Oa5c#p1cF3r0Te5Xmi>
U"+Q6G?:qYTW3%\/E\qb&&&3#Q=,NHmcN;g$KVb2/i4pLQXp/e]>ou=>a5Qs1EM3U
U"bWN2kPZF62UM,Sg53&(/4#y>8LR4$+$lK,f%w/sF7+m$/qz[GVCSQ5TYLs#.-?C
U"$))r(6>B**UE1=%&(8^JE8EPF?3mq]aODEhA6EOVv-Q%ud]%U%V5Zj[a(\NY-G)
U"(HU/Q]4t.x09#oVzS;O$TLhj^9OidI*%.\YzZ,Gu;&XhyjlUNP?dv=n07O_IvA8
U")^px+')51q2QwEOM6bp+&SWqn1%?7NP6=oT9OyFZKMu2Tk=>N#Q3d&K3Ru]jFlV
U"%4^7I%xluVARbNUyPRM4OVFs+sPucckIf%jdocR2>#9-92m-I*lQ%yZPf/>&/D^
U"4jG*Bfi's13\l5s\f7<E8tEPf)mDde#x86*v=Z2HKR+nAr[Z/eHJ5lLhd%H]'p&
U"uE?)EI2(A^WUh_EIS8:&r$l/gC*LMIgTlCY5Q.V9z^VqY%f6vYco3OMGY(;K:,R
U"#u9JZ$&uJ%qVv%<?wP$/P?Ak5Q8<ET7Xn^4b(&9jA_X&h)ICdF/;\a>%y$)dGYN
U"*D1=D=,]w]Rguob%nwyb*O<f09kDJBOV0T8Wi2%v'kTVN$79HYW/1,z>yX&Y^&b
U"RAmORg+)(^g_68pbU+t=MQ)L3zg7g/fEPZYKgp78VLOhP^+I&jvC%hcyt&\pZT6
U"6i<4*_Sh3]Nl&'PUO6kYf?%^R-%b,83d7nX1-]D6+aa=2HA=JaFA7%^e.w8']O[
U"N50A.g#\;8W=<cf4Y]ZU9D%S-0o&[b$5jdI,;D6M#O5<E2R%$e39h1^4Gt^G)Mr
U"kS\&o3v7T4^q)O/J:y>\NtAWv8,);:aOM#nP143Th/ubEmBhVCYqnT,<EUt6LKW
U"hzN&Skj\fpi\[+XbqU0H*Q0:]d>[X4%kJArD+^^Ytut]Da5B#Z,4TsPC>QBF)'3
U"EpT<u'hP8m$4G?#W)LCdi5=7ho>L.281AwXkDq4.$Nj7c$2?gRtBZ5C=-U6rL&)
U"-=WX?rHJ(\tLbPmynjY,]ITzCH0jjdQhK.cT<?;.BLzJk-#-$T*n+.YDgO'Yygs
U"yUl<$K[lQ/:_[2\28ob_)Jy[:4ITUjo_UI1LW+8ORSAeS5Bpf1w\b#UHBRy599C
U"M],7Q[e>AwByZjKTdteO/X71,sVb$4xR=:?Rti94ondNs7>_u*JMR]X*+v.sjYm
U"K.R:KLVRo;9.gfUpXmpP&iV96GCL1HJz>5$1FyRI=\Tl&OUIpJ&++;2C_p<4L<+
U"Vfh\:.tmWmF(lg1Q[+BEIqi<NE.GcN[4S\z$W-fDD=s'munblbUl^<:49TBE;du
U"Wg-Ga:uuOi4*H$f%g%Nau<AVS05W6).\b>,9%vhVH06*.Y.XcmC#Z,WtRp[Ng]u
U"m(ham$6f-k,gTK'KNVp>(:.Lg6W]PtG*/AGHAep\CP7XskTA#(r=[*_W:RiTS\F
U"bc\uMgKMI+WG^n5Y,eQ_%[0C2ktC2cJ)0lI\X_m,)n=OaeRa6-\*&D)=)7GP$6n
U"+?]fKTBG$p]fu:,[MEU-PUMF:.CV1qoI=A,_F'M2kA$(g;afs#_6Ah1A3msGSGi
U"PY'QOHze'29iUU*Fb(2SB4LS5:[ahm%7E=+XUY7V1dU;=LQH6bRNQ,Rn9i]js,0
U"?W1f/WL*T\wZs3UXHH3Q3)?R2Gys$stI)WIF&FO_y=._\[ww4=p47gio*$&.I%T
U"=OG#LINm,CJoDtXhq3RdmfQ'Z:.8Nf#FbHvz*7>juhEe,cFgj+lP\YtOf*P)XLM
U"0\-W9G*(;(J]r$f4,EV#Yoe[I)OUG:Q'27eIWC0b+M0+RxIO58LoaEm4^w,bng*
U"UI\U#]o'/f(qb'<rFI#9Ec4).p&1L(,146>RMInvAQ_$GJ$YA_KXBy8?w;s+Aep
U"[F5[pTBYe=kGDw-C<OV#<OOUTwT[VQ&ERC+SOdWKV0428<>_)HwRGEY*N.NLTD*
U"wNup%()9%%'%-%05o0PEw1$c'h1%%%K;%%%0%%%%utxm%nxyS#gfxl/'.?#T^:w
U"8YCP.1k(/4rhI-.41y%3LX),G4D(aR3N#%3ajKIQ)Y4#:eCaa1S%WY,2#lmEP;S
U"r9)/UW_n.NZhs%Lem$'9)oMDtl[T]9Uq*J;Lth%q0Rhue7ph3c?7+d+J:fuwhqx
U"ZpWp]cNU3DoM'rWZ8noS#[3LauIMMaYqxe0HD2*F+fwK2sEnsAiI?c653rA&1Mn
U"rEew7Qu+/QA*ckvXA*DuQ_a29cij(CM2r9$(L+]k4>%mlaWm/H<J#m'+2n#-3R3
U"%4p+K239XBSX;XDEq_5sN-LcG(7?;97F+^H:c0:P8FurZ.Wq?jY2a.I9_8<U,.d
U"]Oi#(.800&=Zm-[u18Jr(%U5skp7;-Iar-:upImiiEA5mS1l_?lA0<6)S[ia[G\
U"#Xc7L0P7K^1vCW#qB\s>KZ;EdWY8*[6AD=s+X;k=K3ugY,gMT9Fam9REx'rS63]
U"e.gjcVt2kjiY?'iJn^ndV*>LO#dzEFQZN]f#<TD-^BG*i_Av/190vlmB%daa>/6
U"O$FZi+K(E>hfF05*5bbu+qCBQE>bVm,ReVk1P#Hd]lms;,g0Ne*83c::keTm<d'
U"hDDB#D.L2fj)JQEsw+QrFxl0/Z*aA;Cv_C=7F6w?Ov1[#c]=X<,f&t):oHmeV0u
U"_WoX:5;X>O6In+#x#d[50=Ndl?0a/$f#F_baT4UapEw?y=q^\I0[?7xJR62qWBL
U"#w]<^Z#kR^H?\i7(4JSz?iC_rp9.1=^ApcJT?a$os)0,v,$MVsrhXN*mqb.?-Hw
U"6,476(gj8C*UWBM0s=f$LxQztiJDTdGY?K&;bz*.^d\rFOrFWD:'K,09h;4;j\3
U"e18eY3SqB,Oak)c)SZa3UDMHrzTBh8GK+IQPj/6upTgJoi>FMcwWDG/WO?v0aXU
U"qPRn+G=xFS^a0,+13B[pNtUQ.BjaArku_/KKxxcI;jb(n,VL;%_YRYmCj9n8\lO
U"jF+s[]Zt[<pq?ah+mS72:O8?c'q,;K;OSA.w-BFC-=H[<H1)e3)S=1\848>%RKe
U"%^'H=p?Y+IBPE03?fSp4Dp&6dlTI?o,[o#REtPGcC$KLNF.FiH)7d8CY0f(Po54
U"U?J*'$]K;]m$vFrWuzto02.ha%bF[xZUEbT^mFcBHbfFhUy,fAl.1Mab7dgGPjI
U"WPHi_?%ju+[,2*$L0Cx_0m'7[-4F1=HX^)WrF.R7:N<j#/GP3tLiq<\0HbV3+<D
U"#Wlac\jM42usfQTf9FHPa<\NLB%=A$$?WZOm?ac%dhJ#Q-iz8d):J-83%.G=%>2
U",[i1sA/Vvas&fDUpcL-9k:nvFE1r6wjYa=w'#7jF>P%AJPM_Fm_/f0LwAAX/03)
U"kiqu*+Q/\8:h+OD%(-7,jPf(eBE)l9:zDG1Tb)Myym=6KKQJ3N\&<q-:j3js<3T
U"\MRq)az/(SZ&%PELuz1q[TW_?H/Q3:BZ--2B*i7nJl(St]/5YBXTC,FlD,FEaL*
U".T4vG^*uWRPVtzi;UWWc2'0W.Bd?#a<.0AdT:'s.E:oeD/\>G7Rlpe7hbA,4MGt
U"xLLO#,>2GPkw'c[e>Ji'JcU]:qtMyfsSYwQxV'LobNfeO[918Gt^Z=Ow-uNB9b=
U"6b]KnfJ=Kfm<N5ti--m0RTHa%5L$wi0PsH>tC_TzUZk(RPHAvum]A;Uo)Gxk,#$
U"F5k^Y>e,\_5-G8gFDc*0.1)p^_s<82.oy587=\njM.bu+6a<#wf,>R'GG+Zd)AJ
U"BI?GOW1MJ9U.e&+OF-1DOR(w_>)R2wJV3R7uP]m06hSfOJ6mh&hb:>^Lr<D[+no
U"z/>0?5Cs.(BQeDAk1UCLP5B8w,Jde^o%%yA&)Z/:WvVR<ItCYWwqi%#v)r\=.x#
U"m,m8/&M%WqA\TJ*G\aS5EZlIh>6^T7\GTs^9i13t#T#1E$neTf_wEQsCP:ot;x*
U"C;^pA6Zt&adHPf$Ch8On.NXvR29kCk+hsvZ.D$G'i/krhVph_p)bY+lA^1PL9)?
U"CvI6V.0^+-&W[PbpxhZEf:WZ+_+v<i;ACck./QWVSO_YfrDmmxZ]-hEPTD_MrS$
U"g[EPVFwo$D2L-*<NQR4>&x)o$Om[h0#QC#Y\Vl*o5+R.96[uGCaTtm#PJ3K0#yd
U"RjBJfED=weo]GwU8iaIEEeQeb'Mqs23kGNjE=aL/%+u-CQjR'Q(K.;b9TO\ad8A
U"U?i6f2j^vB0bY<0:^q038?_M*Al*us6hW&L=bncGfdf4(PqUQTlKs&h?n01EF4w
U"z7U?4V8qaRJrNleRWkI6Q+O,2<Kt\Ur#hOxx?;-E#^rq0QNBAfm:+Zly.CJiSZa
U"GDB)T5aQHZQ]Ug,P>E$w,Sdfb]]oI5takF-/WwTiM=],o[mAAOUhdIQQcA9?6Ox
U"W*)(5%p>_7<J\F=Zl6&X#L&[&hI7eA':p1Q+vj(b9Iy^thXPc21xipT,49>D\*Y
U"54XNC/%k+(v/lY#,vWe7>W>miX6Jki&j4r1XTCzwK'fApxYpp(KHIcwSgD,s1NS
U"nyUwa/l]:FdN$B:CyjP>rEaMWDzUaN<%c4:XB/GA1#=/nZPhGk0,4R:QkFk_;j\
U",%PPDeF[m=>d$]'q^J8_9;M+r]2fu<tk_Dua=#&HHO#iHa/nO_^WNpC6gyPqr#'
U"z>PGy%%m<hRC.4z9u/#9M'u2[OXT(9wLb5&racmbBFVdT+uFR(7tMQNd+Z_^nxb
U"u/wm=Y3>ibgWtnG2*5&y36RQ9d1ArRqyypmTQ*tz?w'#B+NC&JcQVaQpH$:]tqq
U"iI9?ITwKnN^F+%\B]e<j8%qMS6bkO=m&'s4OJ:YsEs^^<8sB6H]2qpbiTTbgoAE
U"NF1',Z_.tsz^ZS:)PFdD8-)n;QNCQsxStLCou(sT]Zo(+z*&]c+Ibe\K:=iKi'+
U"9T9shrfpL(hZApa45twNTA,XaIaK;7<_=E>%UUsX5ZQ.I8ge,Ew73fh7[y9/)UM
U"cAlqqnsXVEKFGYNS;E]:?(o/O3-WsiWGH2gZt>j)m,Qe9$w+?i++,:_)R02?\PH
U",Z$G[I0A75$E\auZMCb\&=J$+8R+gW6+]B=jxUqG%mMyoLNklaQO1Bv^Is<\Jcy
U".Lg0X0Y9ux75aGVdbs2j9V1Y[d](/Xm]cW86[gy^%+=JN086436lNn=Iq4lh[Dk
U"lY6T8yD[p2o;0[P#]wVIv$.xJc7i,8Qa4p&t:7DWT&vsaGcn6+LKyQ3*Fy4#NpT
U"OhVq?ER%<xwY>4cJogyn(iLq<g7utPz)L-5ba7L/#s17MU2RqH0[\8,Xr^hJ11s
U"Gb0iZwQa0g9LwkYw/ZS>t.2U9l;nSXc:3'Zh3]FWr?0<CO6>K&.Hc%hu&s;;uZs
U"4>YF/T$1Md$*\N&C76qpDDE<.0:okR0Bar3g/.5*OW0&+<$$Y4,/>X6PwQJQKG-
U"oWYqxOH#AB]Br0q+8.w8T?Ts-&Pn%y_#(hNFQ1iMFO_?ubFSR1GiU_pNL9Sa9SG
U"x*#0p$BNM=?2Oc+?S*zh.\y&blsh&+Klx%;*)\YNg5mi:;2_:nm2N12\_j+c_50
U"lD/.rfrjj$:JZZ:\_.n,#G:'X5dU^&,cBqRke/z<KZAl9QGhxLg\n2ymXXUqmdH
U"N%J&n1Y_):>X7gWI9h:I>WwQ4PwUe+BRYdGF6HfMc9EL2FwbE;,Qv0p1D_(_?pZ
U"9sTMc9&?DsKNc>S%AI5H(?bkgR+,eaT3H=G7v-iwP7%Jds#))g/<W/z-VBA]B9a
U"aK#:3Phl(g2=K<zD6G[RD=uQw3H5[C^EL^W?ZAMl&0_Q=QbYj;m\[Z<S(9OVL\G
U"VDqlZBmn?Zr5G9ZC9>(;.8s;>?b%<mroZ4.%P;xALXvcf*%4^jAa?FWems4jK.9
U"[gf$4?95ggmJDqv\S1LcLek(BbaIB..L'Nz9PfV(4#-_iTA*1uFk%7uV]5.r)3u
U"U-j_P&z)n+vYFXzYvy\Q>\hn38EOE)PPg)/D2(DuCj3&\2v8dRS81$RS=23/0jn
U"L*HIuo8=A0FZUhPEmA5'*^Cm.O31FVo<P*tF?oP#&#tr;*)f?3ZI7C*+9GQB4Y,
U"w2.)fR-9_T1s%L3uD#ZAY4&)sV7=#*4Matm8IdHG90)WVra5(iten8qlkK=nwEr
U"DWN/1KCr#Dp0<^hA2:=E\7Q]io&ZhDic<dBr^v*q*bNJlOmdM1-Zvq64Rw]S8ox
U"?hHfGO=)28(L]br24'6Q9<)J>T__jV4*vNup%&';0%/%'%.%%>*\AR,7-Lp/%%%
U"%/%%%%.%%%%%%%%%&%RE%9P%%%%%%hqth%pSgf%yup&%';09%%'%-#%a*A4RJw_
U"*w0%%(%#%%%%.%%%%%%%%%&%E4%9PV%%%%l%frjx%Sgfy%up&'%;09%%'%-%:^9
U"pQSPJL6'JJ%%'nn%%%,%%%%%%%%%%%E%;OP2%%%%ut%xSgf%xup&%';09%%'%-F
U"%H&lOQ1pW*+_0%4%S:%%%1%%%%%%%%%%%Ej%9P(%K%%u%txhq%thpS%htru%p&'
U";%0/%'[%%%\^*AR79c6X;%%%%;%%%%0%%%%%%%%%&[%E%9)P8W%%%utx#htu(%S
U"gfy%up&'%;09%%'%-%;3SdQ'4tN:%$'%%&w4%%%0%%%%%%%%%&%E%2OPwW%%%ut
U"%xiju%ySrx%pup&%';09%%'%-L%=;<OR]gy%M$)%%%e*%%%0%%%%%%%%%%%E4%9
U"P1%Z%%u%txmj%quSh%trup%&';0%9%'%%-%(*&ARc\4yats[%%b\%%%0%%%%%%%
U"%%&%IE%OP&?^%%%utxm%jquS%ifyu%p&';%09%'[%-%5^o0Pwe1$ch%1%%K%;%%
U"0%%%%%%%%%%#%E%O/PcW%%%utx%mnxy%Sgfx%up*+%%%%%%.%.%'s&%%)%d%%%%
U"%
END SUB
V2
V3
V4
CLOSE:IF S=163AND B&=38758THEN?" :) 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\38758,219);:END SUB
'>>> Page 1 of POFSALE.ZIP ends here. Last page. TCHK:163
