'===========================================================================
' Subject: TextPad Clone in LB                Date: 03-16-03 (  :  )       
'  Author: Alyce Watson                       Code: LIBERTY                
'  Origin: alycewatson@charter.net          Packet: TEXT.ABC
'===========================================================================
'>>> Page 1 of TEXTPAD.ZIP begins here. TYPE:BINAA TLEN:28458
'-------------------------------------------------------------
'                  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,"TEXTPAD.ZIP",4^6:?STRING$(50,177);
U"%up()%9%%%%-%1eAPRzx/Wm2)%%%=/%%%0%I%%C4MGC?0J3SCGhC\%D&=H\595#
U"idAC[&ap%YZqqgjfV^r[a)8OBaq)#)7F%3^E^Pe..n0cK6ITRk)UR4?+(;,,vEF
U"D;_u'W9<(cZxT0B[y3CYFtq?7ttuwr7ggki[f>q?451BfD[uXqW=v:[WRrBmVQa
U"_uss_kZ[k[]]&>X8TkvYRg$&1C]Mj/*b_jcgX.5A[%J/^pKW*uLsW<Y;eUqu+J4
U"')q&A=]TY7HM^E2_r;(/b^&Gu6P*(WRH0J7A\3r%\vYb,W'At0B]V+:J8eOtG0r
U"$;D:[/-deSqC#xb*^EfKSCo=IPb,gN?sqi)qkV.i88y=e?OB?u+wm:PgiQ'gOPO
U"[vY;*Z&7KR=auAb6lYm/_hoXxZ&+'i_.E%[K.]_z1,I10AtOo/QC(Kg2qh%Vr:8
U"dIf.dY6t$E_=)(mvl+)gCRd;s6n0G['$VV_^4fp\#]Qa5ZBT<TmT]yRwb+6A*uC
U"-*ldBwV?oEbVY\,pLO#umnB+(CKu6ENiPT*FSdxBn.^BWrpcKPq8)5Wy$7:E7mx
U"?+u[k2Fq%2yuabhD.s\gj0rn=g>nW5J%QT,/s[%R.&gQET1m3$KCu(/z0g7:'eu
U"ezf'2[UO.u*G246R452vf=^]BtAFS+0Nu/E*<GmSayGwV)Y2uodB^CvqgwO4bIT
U"t^G6])Q/d/Cz'>2'l'J%0BFi2IXHuRI6b%7Jb&FSzV\hB7\.7/guPzsR&%GD))o
U"'?-o^HDShb7faDGh?fz%d3QqD\=O\9:#DXp6Xc-9HDH>A7vmxmY#\,;cCO%#q>X
U"i7s_/m1R09ITA$^Kp[wAv*aZ#5$b/'tuU_>SFJ]qfLK0:>C/./uSnP;]4N*wO=^
U"IV:VZQ;[04+f>pE,<TW16'/DdYE(^X3Dfn=vl2tDbx%l<Q&\S8y&$t>=ksPSE_W
U"_%9l$oQ'svH.fAVNdH1,CBYy_\#A_&)8+Mk*&asLrC2KS^R2/NkzeP_k)D]>PN$
U"[^Yj%,sku7t)J)0K+Q.c,v-QH]d?umlan$s4K9mh(LBr*dDD_hgHidU+LDIEDlH
U"#L7vXfH+Bi*&dWf=h0==-NxLIDCZ]L>[eXoHA;RCbo86jS*xnuJBgd/#9:dqe8M
U"PiFiU6A%N-NecK?rgmr)Nq#cY'<#GhK1r9#T8,L\4=1cpDKe[*<0>3RL<nAJ-Fy
U"Ybx0D\\Y'P_wAPr(<s++f8H48hPsN(o]#K<f6lO]i/k;f.$tMPNGnXVoYmu7xns
U")5Q#qH;V\IREsAvc0SVL<,.,(tS9XJgWu,Wr?pK(*hh_(s7pU<&L:8<>GdB[8>E
U"xcWNJ'\&w%m\&\MIXn8VC+j1Y',Em(EI^3rCJkVEk5?sg9b.g7%D9ZV*jFLZ7;V
U"-^ag3R#bqk^d[fOSdB7&iOdG#.T3B1d'hF9Qg2f$0Mu7fiH?Yntv0-M8?>ma(hc
U"q;?bw,%up()%9%%%%-%AeAPR2L1;YuG.%%tx%%%0%I%%C4MGC?0J3SC:P=FKHAF
U"#la0$,Xd2vD.;&P'u]GHX)#G$1f_<[TtO.%zT#LIGXcmMp7Mt<2T,u/e/Vte6VL
U"lL,>#?tWo,*TWOA(*W5Nr8h$^=8:5H[GXGkC<h.tr1GwoJLuP9YSwJ^S),*q9(=
U"C:axpl9/nMJGG12)^j3qa03wGnd2[mna=Sht30o3]t:Q/D:XwDF+At_'zHUW[.'
U"Bz4C2#VJORRaC&N2/M>7TxE,59Nq3&;>cxQHqbT^qy3dN29ym59_+j.V\q&E8?9
U"zsYr6#?4;bvM'7e]KCkq=+R?OJ4M]AaM;?d+_O:[Lg*=<(Jp*6uugG-O3cXIkBV
U"BSce9;?1Kri1p;)xiju[CB^lLtt62d94tm0P2_k%*k&N-KdA8-(Oo^_-pTLjpuQ
U"e/Z%&dz;2^I6-49ErR1\WVw:).kqJXE.)GV,SUgbW.m\bdg(Kj/ad-PVPr:tfp]
U"aSPd\$S=PT).hT;x*&er\E2k<;;pohkwYI/NoNbdSH\ZTk#E9eEuQqN't]3(_Vo
U"INPcR25\q$D#Bagk/r1UPe[j;o5M(8s=.vD=6)R2M?QYC?\w-Ok(QG^c5pa5[9w
U"Y$)mT=01loj,4A/VIR09RA0eS\Jev9YUk4e.n/k#/eVYOSBAOL]n0$MmF])vxIi
U"1z<\&FrO-i/7V89ZCQGslJch(4O&hAyaTdt^#GOYsE&(BEz4f'YrN$9Ew%k&1C>
U"4]*ZrlQwdN?c.6+1;;OP4GFn;)4dx+XUa]c4*M)b\;kpRh7->RF+.+(7N-*IcB+
U"(A8HY<lhDOa/1#\0HGkHf4S0Ye*be<U1L'$KpTo-M9j(es1VSgDSBlgKQ3lta^(
U"eXkS[[#kL_5+4sO[45sr&aPKnO0E5/4q[o=44Oq556+;(?Tob(/)Z0rZ+-5s&1I
U"d.JSilq=gGch7#I-N)m[4p0'%P3p;dfL:>Z;_qHfT^Qew[aHM5Qi'uZbV3<*'l=
U"b4mCW>K;Ysb05n\oP.^S\oN&Bh1/+YY^YuAL3)(x]b')R);6Q.CwRHi'M;TY)/D
U"]Q1?MT=c<50ISEX<R++N:Yk^wgHYam]4)+#cSnJr+QFpO2(ZqO9a9WjqZELN8hV
U"K>FHsu%s4BNM^wPZU->n'm]%I<l'3vA2#Cg^)ppu+r']bI+(5Bt&H+n5eiLhG6;
U"'*_Om4eTbt1:.=(_HU;X,dOgRvn)u8a:Cz=w2t]JX%#&)1Ph#$JF$bo)8Lbt3;>
U":1?xd6IywI84;VW/Fx*-./A:2^nkKEBFBA>/0_v-qPfo+h2K]z(-n[AJW*=D3R8
U"27]'')pw3-%ZV]SjU\oW:[rX7)VP(13g44F8*)R:ZH.O,MJqHGYA1E:iMuNCzxC
U"O:nSI4^/b^<I]AA]cfl;i?ahaIRYIO69uKUU5?(Q,]s/')w7/vAyAKX*\K[09M^
U"\MSePJ1%a.QnXjlg\8%Wpe$PmQM,K/XJO+IFaG7WI6CK%5QCanTRqYyOPK<+zFH
U"L3B-&.2'p=RIB]2A+9tb;3O^[KOHBH+=SU$PKFPqe\ex+FigZd8Jfwj5KHJ2(W5
U"f_2_jL_OewUL3w7QcOOaeZ[kkiHH$+%#P\VOD]uI;J,0>HWeIdI]QlKRhm)e/S]
U"3TI*I[ML/B(gs\d>yM#qeBv+KrWLKlfA<A?go;M=?x):3WXA+^wCj)V6N1M)8dL
U"GtVw(I)z>4t(SK)P<Qp.G*0SJYeOOONNCzDMo8zhMeEzVl)bG-R>.%g=\PO'bjW
U"UgOVS=2ORrWV7u4NO$n3R=l.Kodf'3Z_1O^3)Gl/x9I':XgE%?vn14'qu7S;2q(
U"F(IXPcSr:Avv[;r?D$?mkUaTq?VOJf8n;(<bLwelAg'R^)ek[cDurUR#%OfU2%4
U"L2H2Lb9Yljz$k'Qa_w.Q,OB$Pt)04$X0WJFqgdRmn*?\#\$*'(583_bgpyi\nn+
U"^dHIZ?xK=SM%pUon6]KD*#NVE&K,iuH:p6<:=Mm+xIkA&P*8Jc3PSl5oYJT3SsF
U"&gv&D.8o(vh9z;NR4G',RLqQ8Gzgq_qynH:C2[-od,tXRNQ<3yf0:>]^3iHMk*Y
U"Sf5[=0'JI//eCMCl=sxN.RW87(bLjXIt0ocSoT^k*H-+<dcb+\#[&0n74nN+0Vk
U"jmR^_Ikn[^g_?CI7ksHA;#RuNSrF+mWR36Gm<BWMs#5ZCr(':&]<I4.'UWbN',b
U"5B*b5.'ZG7^h&6y6B^7L$o?D^oVB,gfN[Zd13-O*+hy')Y,zRySGb&o2^Qdx*P9
U"CUTAl&+$4Jw[1rsxo3Bn&[HCO44_h)\3[KJwvl4'4DKds$C[R_wCZ_v<xcsf5d+
U"Oo>&FQ=]<an7>6+E.$R&6]N.qP$Oww/f7qoYiA-f&TM,OoJo.5)O+3x0DS;EfJY
U"_DL<t]pIJ[3*]lT+PRg7lT1o-=k-\]I>;crmfC+8JD#uskSGSeP#(ua6b;GngO&
U"XUoGC?Xm*\v$E$Zsn/(sl\O2T/4OC8sw\ajQcQD>pIkkfaRzg7(sk?:KFDwK&H,
U"*OrhV9&wtB$RuEo:#WSWq8V[-v\l.\)%3Y\p)81OFm9)WB%Lxrn'=)L;u^.X^A%
U"*\F/VQ+mh5#>?$>[;5MT/eC:z-:&E-E2QhWM1a0b6sm+nUF=_rsuZ/;J(pX[+GQ
U"__LmV,F(p/)^yxmNjh9%IGoJG*/gm[+_sc5cR-NYh%WJ%_c3VB'ov-KX#rpooID
U"qum39/5s?RZTldN=Ug(Va'mU5Hg;ut/^P8m]NNg1gEQ87'sHd$Pza$us't>$AC+
U"j+CI)3k8o[0Nt3h)\6LtaWYHH)ivEaNT>gpKX7JgOYmS<B-jEZkmqs6-$<Z8*l#
U"7LBH^:nB<T?8?+mHd)Xn-S-dv^Q8unNPNl^.owXovgdM[6>IlDTtNv#Huxrsmuh
U"xuDkjPnwXXO&Nuvp8wli_NxukHPXIpz>McudT(VNHlNkNr.XoxMuk,>xEYGV)%F
U"&H)o-8w5WH(K&HY/452U[=xWQ/Qfq1)1.+6pXRCC1E[45'xW-<F==<[bU[M=661
U"vX(-\=R,t*d'S*+p:%klE.0D5VWL)9#v/65sU(=uVQ9_6nX+=vV=]VV+e56=AH.
U"?+1z)\Yu.&98gq42kpfJ;eUp+fs?k+HbVNo)+rI+EuHz=HFLE,1IEd+?=\?AQfm
U"*YZ--Iag5-tomQwcO6wpH&:2]50%qJa1&fJ3J=q6yQ4J:PV<P$AC\?&=ZEcm)HL
U"U2)L^jLHY1:_,')&=uS8/j1&<R8T_v0/Ej=n[03D;Xq:O,?gK\M1,.8E[rbW'i+
U"+A?W;_jD0O&t'AQAiml+;*KuK5[:;If3JsrBRi&l]vA]0Z0/;:8oC0-G17UU9\F
U"E[4f5%]so[XfLEMgvQ??IN3].gDoa_WfD)>99-hg$cO[IHqETHdJk'1sloqe$BY
U"=$?mh':,KhJ1opFy0\Fq?(XBtP7L6u7n?B1Jlv+s_HmQ?Gg0SL8IIorp;0pdfR.
U"8>slEeQ$2=6epu85?4,<(-Bfy&7KB))%8X$L&6,8w:ODiN+JCt4+c&o**b6,t2t
U"aBq%mjyWg[b773qw*sa>2^PBui?x'u'8yHm2yk;HMky5=w[wWVYfhoHs]k[4dc:
U"q1g0<)E7L.E?HyBARJy8/m>syiYXcY9CtG/7y5)ACBNMf\/gO+si=L,/yyEqFN2
U"UHe'^aC)m/gShY&*NTk>d:3.sYx:NZ2'Us[(Nk1G4/CL5[mnnYH?o1LF,:XXXKB
U"^BPaiMA,k_oDWl]j8j&P*'l$ny8F$.l,YoK(a0j'$DddC^GcUF8(=LJ.S<^*(;X
U"h,3Sy_l&UL&\72:Mp_\SmB/33j1DnLYrO$%UAa0M^Wl^gCcNc3:V,CV?E$Pbh+<
U"gmN7lV>x/9XRj]Te&s2yJ#*S=^L$f1uyXqgjnR*_>5aYAh?=6:Ky<kybK%1uT(D
U"KUkvUVmD><;DIZKD<H\S3[EM\Z<jJ:3ZQg9j[I*[1co;vY[kB)OY*lZV3q>:J0^
U":dt)caAM5V^#.GqOZ<ai84?0-i%OM1mF3%IuEb3Tqgu3,RM*O5c1%U_.*s>x<;I
U"e]oP[gMzHXFEOR(*NlLii2AEh[n2L85_VV2[P2>jWDWd_09+6P>I=Du<[uC[/QJ
U"l9BoK8TDJ\dAE0_C1q*Z*Hk_01%Gwsu9_(1B:P%=q4g5(mrM=\Gi9i8(N/gpiVx
U"rH%%%/tn3ExP0Y6odEM[xXHMlKWRANr9D[?r7rXJ]Y=8kT=PbHS(Zh]rg&4QkT'
U"D.+i%:oK7q_:%o;JK%9KU[PEh+EfTl0C=&sMPkg^&WDe?EZ='HY%<fjL\RTAbuE
U"J[ViA6K>j1M?V/5C5L(FSF><Za5kFl*5Fu=?2$05c0/RJ#ttsEHff[?h:q:DE4b
U"8hJmX8W>t8[l6-.b\Os+c580ezeP6bJJ[4jgq=Ed'[zPk:pIZ%(Sx=YtafP.bP3
U"#KReyW,7g&;K]x1TZGpc/C2RepR=0.;)RANQ]GKp1SP?X:<>e%53i<<*u0/9qZ]
U"-sG;#Puii5I'RN'mmY3ny^A.jHMK\mb^>RM%G^LC&7Hs:b2:tCda)t]b#NV=UGh
U"b6fSH7aN1*i_lB1Daruz&0XJYg=V)3,*Mk+%UZ/s\JE%:0SfMl;wA.h9Y\ll'tP
U"A=EJt#8mTW;Z7FOA](JGqq[sH&-2W(v8$5#VVDWFsS)I6hu0&oZEo(+Sx<U[<&*
U"Wg=qk#JK>L<zY_5sHTM%Gu/K_#A<_e+SYPg'XI2ezt9MTG0MV(1.CAM#2FxrFr)
U"e,'*S^*_&a[H1\6amjwNW_$n?gV;x-dCktxK^44fv)'Qi_F<8(bb?d;qGfJ*T25
U"<MY#I;a-P+]t3UO)F&Ge+JH8[o+vC6q.<</g6(BDCdG.gf>M.m;#<0Du3rH#dIB
U"Onak*uKjKm3+2D;H'#X#noh+//2n4\YF_[xHV)Y*Khu#,1l=%F0pMqInjW7/YuK
U"*)Vp9FdfhHw5A*rZze1QxDuj24QJM?P-?A*efur?:f[._;&5?#)O*jt$MWVqVNT
U"hFa\B1UMy,j8zoc?rw[U;n3d_^eP0Y7S-FSO3S34sm9y09>'iB>#Z+b#7Agc7bW
U"*;7)'*q'E&s_L?P>Mt_I+I_)oGIe^6W5hXmXX)chgpX%X_<M3:EjZHZk-j;)O83
U"&\MmVK^hf0.q<g\:t-SK_J:aK^:FsKEY+DRlPuh<J+.)uQ1Kt#,CJ*jLZL_%9yp
U"L%6/Ut?3L__T\jP7?s4nQW$3tqr,F/T[3qt#rRFPWW9,I(DJ^bc7.5?HbpMsY*n
U"SshcYeU>/aEos)r.5ZT9=yAW8^phVtTNIz-uy.=L&FpPn%YEAIwaZT0hq.vM=8$
U"9o'PWEyTTh0U$bt8T1*cHC'JG)kB%?O4dE'fep8SFPjZ3&<E/7aPY.e=a)PmgXV
U"[3kKXx-ZMbY[bi\)YWgf$'T:yyRROKIk;/F1fpui8V.6.5tB8NkiTt7TPANWQhd
U"9wL-/*otpA)#NVO.*_A)1mtB2lusA+?yq6G[o?88=/hC[UiTnYEJLdN;'<j=WtY
U"ny6/&$ZCBSn,M&?SA*k9K.?el1PZE\[9pj=[fO16>vVD3pIZu8nZQ??G<<W\),]
U"]K0?.A=Mt.UIZ,VWbb&bbNWP*V#mdK,bF/6L[Qv6h=lhJzms[ppO*.JX?K<Us1(
U"W.fMHL=iJM/%Q/:Oudy>\spg##Q_S.0&1i'Ei].#??.CJhQ&'Yx0*pVY04[K6D?
U"4J\h_:\^V.,/ikN:/7z8_C_w\h$XbVDh4[\C8[rvO6?-y3q25<tgVU'aLo'.-ZI
U"*j.r#m7DuWqt*;65XHI9V\*JM:J,Vkr0'rWb6J,z*LTOSsT.o<CT:$/[&*$;KSD
U"90tD5%ZTi_%>OL?)&?Vb^?l$ngSx],1V[\n-#M)1AeA&S:*wjOD;riJs1UVg'9b
U")6PFJX2>+$o^0Zk]8YqrfWLO)X-B4&DC(Ux/(YWo_Pg#MFlXU[E'4<V=-ht::bo
U"6?]a17p-jq72:Xs]h$P7]cveC*:S^O2xwP%sVv^[G$*:h$^3]G<#Cz&Hj)tHpb/
U"j?)NM]B%_FlZ%M645k(H9qBL>Z,VshqOd)(REZJ&v]l&]5J0l.p:DJ,-;DV=.4Q
U"weu,-&j(/+NF6:,CQoIQq*W\Twx5SW(xUBhR+sCWXcUoihadH4mr_0[Sk&'6fKd
U"Fr]0td0L/N?x/uwp>$Pd=1<A#O_]hFT?4c$2]0h1D2/4JE&:Snh&HHYB(zy_BT5
U"wCr8&F[LL,=eF-?G<itdQS*m0j6f&CkO4:2BjHsQihZ\,#g\%17:2Q=Kp#\%9.r
U"EHeLKgjVlS1j<T,k4jF8J&djYXlrTTxwG*PY-1_mROb*c'O1)i'0CY]osPiU',\
U"P9>aJ$qs7O,4ZrcG_k<]D3b5,_GpQQ4]s3Lc:rpJRG_gjW%9jk-ssFYn9H3?(%f
U"s61gq[PD761')_RocQ+TeroOLdjTlO''D<P^//'#R,Bou/4.#a][paw(vm0X_=V
U"qc<-ojU0&Q:dw-M_N'<lXEVCCQ2I1[l7YBG,I&SL.QkTemW<ZC[=G-0BgfG_8Z%
U"?=^_lC=651bB1)x]=ef5bpb4'DIG0wY;s/t^5:?eYv6Qg+fj9/.T3Hc#[#1=N<_
U"/M9L9lu?;hPd_'ELm*g_h('HZcs3F/LBCLsl[ZeL1I9<Iea]&rpSvLhWGE55y>q
U"oeKtONq,7ehAdV#x#C\ieU/)#V_g>McO3>rb<?#0%aj*1Yq;cB$_(EGWP=8RoK<
U"i\9meL-a.=TmL&JY<<.7Y(YpzeJJVZc=ttK%ZFbe1kW.OP[gJ,S7sKIB\EnOJDa
U"[]]\uN/D[6<9%DKp#(ca'A9?1j2Eqwi,?O8KtiX=5NFe.PwN*KF+p^b,#;WVq9i
U"=&0QDQnuD]]1h#aa_cjBvD'QMg;KEmd56\MS.8lOskZU0fTs7fTD5X+Ks'^O;w.
U"DeI2gRg$Y#iQ6P6+Q9z\)R-ul^t&X<>2)*lwkF(t-wicZuDPnkNlustba#+g-Wv
U"ioN\(x=mnNo-lEt*?XwiBo^:bhYNqrz;&Y/d+NKdP$K>9bmdNL$hY[aaqni(8Ex
U"0mlZEhRzMnMwMWw4($qCJR8O7%PTtt9C5?X/3'*OGNI(BN$0-r](m6JTTwo6=#F
U"IAKuu.SW7tN#oR7N8<R%GilnrtoAo.EgepfMxR;h;I;F0HjVwK;x_#rgGPnrS,3
U"<0_dcs>HLByX+=M#l^FXu%a5BLgo[GpKpO')r$gM%KMRW+-tSv_R>(de1s[8rc*
U"H+37Wi7xNtMv^Xf7cKlQ\Xi^+Ux?8rXMv$>>7v#:Y.94;>Mu+R0Xxn;tXBDu8uD
U"Pn*yoekr$'M:8rTs$3pCQ^I'+_$6]>HGaLVO=Kh;ba_.#6'Ym#r+aUeeoJ$M?=-
U"-H(WQJH+=:?(#(YM2B+R[CZ[#nlq)WB$noh#[ff8mKkXO$bAjw20n;ltLZ2KFrU
U"n^r:ST3:5tJ5kM6a/UHMVULu<-ZhCfe2%vTC&j#X*=%G&8bD8]VG]gAd.Ka$8nA
U"iLpt*$KFJ\VLmn%GGenC0_RXjst4GvxG,L%m$OM6FMVMEIK>YR$,[Tcct(m(Kbs
U"#akF,imbHn'o$[>Z.-m=[YWRAtI('/a3Uc;_23*nj0Kr=iZG(a_>zJJVyRe_3BS
U"slWcucB-+Hq?WgbStqxi;oc-]qE-OVOS-_8b]G)>OLU7uufJCVkuZuU'(emHD+H
U"XvP=nUbqS)5=)C[U#erG7O,=+6:-RPCI9dqMsO_[jY+](eu^VrRk(Fp?uPo#zj%
U"OOX2sMjVdrABgwvS6D/yg/_Co]eq&op+?O5*kqhC'BTOV,owREG4a'x6o^$)&sY
U"+b$1vlUnBCPMky#\4(Y1UH<9kN/$J'IgtZ:Zjn29,U4OFOL^/J,AhtclfZHGn6?
U"$t,00VQaY:'&YljGR,n(m$T-#$9)91Z9yW)Dy=jhd$yihr,tb4zbCwj:LxKioy'
U".:ytby*bIz4:>yJgY%AABIVk_6?:7mP:5>Ud%84JG$7'G'IMbKA#56DnelOpto\
U"XC>48*3EVPH^9(>C/QA9[o''M88w'n=*g(Jp(jLPxwg.IsNrCy0zshdF2$QFC(2
U"3A,h910.sC</hxSlnI(-FuYjDh[Z9M5QAfG,C6Qpn]c9%8pK3s+8f*r\Cw8/TLi
U"pEF8&v9GqhY0gT7q:pK7F<fM,,RGOs];<8ds=L:JRMn;1u:rr-94D%Wxs8jmR<W
U"j>2-hug&F<-fNXX<iAz\YGQG3vigt[;F6CII9TvHNsk?&w\xUXth>Ir3^*1X7RT
U"q:z^)R+ihf_&)Jmdb93UgZ<6Sb%b-\5kEL5C864s\Kks4>U<v$8]v3w#qgI-00,
U"P(_=%99p_Mtn0d$QLF\^P;eMTGQ3?+(s(K74okIFquU?T\KR96*pLl'MwOHIA[e
U"pa9iQaBZ4M+uH0>2Q;x7e.7&=)CUG&j_*1a#1g(*U>6:dhpF3PeN\48M]J$e,T^
U"jm9_p5%bbmS<26,?v627,]QJwzq+obEh1^WZ+A0y_gu*'EYhmwfHGprOUO1Ll2K
U":s%>O%bX-N$1A1AK1WdD?4xw9A&]KhTZK&lNUb;<#oPjEZsy:VS+&+MzIz+'w-X
U"8CwRq4T&>'_g05g:ehk=4jXfX_r0Z1=U0C1E:41Kyi,WEa]O5H<^=H-#bQdc=ht
U"?_Ng>ty%s9goPnhr\)WZC2<*Y#RddufUgO:b]$78wbbRq#b9n#3gfiUrPEJLYI8
U"#:b\p:\bW>oTYV/0aFg7224IX'Wcs1a]f33S6qLDc*[N%Y%C]sGF8O_[C]3A?'L
U"7RZtC/_uaBGc>VCG?5UD=CSJ4R(KL$46<m<R2++mK.[cGkCI.tsknu]=.e32/i/
U"$Ilt,51ikRW,MK,I7^=\xX7a#eqcbmsi+5cmm\gL,gkidA7L2gO1pOSIyY)/>*.
U"ysmRF&=lT'RR_sbTk+m5-#,Yvl5bGl9F,v4b6%DEm8u7buR/w:/1_dYk&?VPl8^
U"\PEV_S<bT\K_ztL2]LQkLI.6w>pWk.t?&uu-UPlY%j<I>UO6MI39EtESdj7]Bk;
U"/yHBj=joAcZQb-HMe+AdJm3TD^=(s4mbfTUL-EB/p*d+cY=b5<>YU/k6sgk;1VE
U"vg(Ve+:g.[5<\Jbwc06vqe4_2jP?qkrQB2?lM.L_j7AB$*>dr522$2K[HX0pZ5(
U"Qi7jq;s??%\JZZR=I#tla%8t1S\]*?4<6]Rb0P59*SxTBmMFmYXwD%r5gWE-vg?
U"m$(_$PiaiEQRhSB3qhO%Lby#N/Vvyk&(P%*cIX']D_^D)g^>C=(nt-TLO\=[3)O
U"uv(fnV+Ku#IX#LiL[fomVop]*uDL^JLqvPL?w^$rac_9wcKAS'Sb2-bdXK?F:aJ
U"nLkttCmBUEpnn*wFcKA[P.K6+0Rl:EEl_r283$<RQFo/eum?TQGzWv%^o.v<SIx
U"(m+C<j9Ap&mPVRq3an%ypRO</3I^RFp,5*u%d%H-=:7H:sOFr\Kw+yp/N5I/qD1
U"X\h2B\kXGI(=V]\jr;,D4cWpr>/aJcc+S]Qn'Ukr7o+EH/35qAz]bc]577n=Goh
U"]tGXe%QX$*#ADeOiJ'_nTtInq1_#K1ZpdMx$Xdwm<#_*6'tzxq^Vzn7KuovpXtM
U"jc#u_XO)Nezb&_.N,NtBqotchw,_ZXum>iXMxAmL9b;t_k(7-ql4Y]a#jRr,)f<
U",6HsDsxJr,SvDOn_00wJgEhJx?EH$d?vqlDnN_xs]ho;8qI%d_mUme7q7iURkpP
U"t>,G'5k3]TJmZ.xO_S=1&wL/0zM]FC3t<vmio2/\]l6o=C]+1f,/M)r8w7?w.n^
U"b+2*5m>_j&ItY8k\GeIg>A_mrF15_njzHElHDz$)t#YhNB7w)L$k[U?Aa(m&UBo
U"kspNsZb3-i?\CjW?qp3AqUquZ33)-^&oOzAa-MEuWIQz:U2b0X1\JjW3;p3myBF
U"3Lr7LW?Pna>gi71yv3)V6EWMez$09MhB=)xi>sX+dnWHI(g5WMC:2:*TFRW&Vv:
U"4PTEu.a+qTU,D/F#B'r^B#bW4]lt*VMW*3JBLV+xlQZC&-GFT*>3lIVd]\mr.6)
U"cX9/N0)2f74Uk=lGea)*-uje$W;GwPfxHUYM'HO,kZ5#M/[;]QT,hPO.,Zcoqe6
U"%o?LOd$)jb*p,esCcAC.<P$gA[_4--'%iW>TgvomG;8[BvokHN8AEC0M_:CMnM)
U"=hXvvjTQ:h),1Ji_2$Xv7thx3;mdB5uukn4'q3-7wi<z0nM>-NMYEO4]OVc\_B]
U"GNIQO'vx)4t4XnO<xgD=6W$Iq+5.VMIkXK#2Eg'ZtcPgdHMu9[4r<JnG;O',dad
U"m;)Q_lZRZ$Vv'YDGV5FN99BkN:/&WXuvqR:ibvYuaLVY%4*PpO_LDC7YGrkbC<n
U"bJL.=GAq%LjNj^=zi?BDHcE=Qd5mc^viqdqYr&fTcx*OBt:T2tGnVLpAMZjkpY-
U"U$Tc>K'%b>Jr><%Tdz3<FLoolRYbXu8s[lZSr8Mf*qT8Qx[BIEO/'QBUNSm/&lE
U".aQms)sIEI&*f0+Be)*nDSt8R7/=igt5>>Y/(]sYQ;;9cZD\f7(VTRi/V'wLyPJ
U"nK]*dRh_jRLzU6GjKStrQ_AP_.i-JRYVDTm+i56(JDlhsClS88:fGLvMO[3'&*e
U"X$]txdQR-fTt)$VqdSk]UO$QmKj*RX?VV&Fg,u35?F<SvixHk[fMyvNJ.Gob)Z3
U"J.a2<IM;7xS]#yi1sRui#>CKqsL;XWgR[VgGc_g0GK[J.BO#386l%.QRR$wEGc7
U"S6Jz1m3HnLkEg[&I8mtU[UB7S1m?znlAx0<A75iB?>fe'IYqgC8(Yz[COF<?aa4
U"bQl8hWWe4W5+K#zmgkEw4A0=giie?V<JoFr_W8l#0aTl]']&GTRmH$M^LU)QUie
U"?n<ZIZMa6n0B_QsDk]4\4jHFFnhlC3rLOSxDgDd=HIWtt^XGHfaTB1$Z$Y[L.^M
U"'dUkB0N4F$j?sN-2eeNXE8rff]Q.'mgkZCZ_xWZ1+Mv<2.^FPq?S'_^73PC<>Uv
U"h5r$dEtHvBi1hFvn.UC6mNU2CH$=R\_0RDsKr7nsab>im#P2#m-s9C.+76TNKfE
U"3H]clflWq&'au9'-+09B<NJ/(,.Z=,\6p,F$0Bhmn/Rf<5vC0HJeQf7fJ4,X$R5
U"CWx/-[&DVaG>F=fkrVgmPnO_,[W..muUI#W;CjnY^73[ar;X,jit3hB,XNCKJqm
U"EF#0fO4Xt4si%GHmg$Gv:DlkKmsrq[Jr[DrRLjr$6$H,.mk'csxEs4JwNu%p()9
END SUB
SUB V2
U"%%%%-F%<QT#R*^$)BT8%+%ht%%%0%%L%C4GMC?03LS10BKNa8>lTAaXa(qdm&21
U"DT2[&f:[tU?%'%H6k/e)XC.t[>ErI1D[.3j9naO+DWk^Xy77nv+80#e1)OVR,F1
U"z&&DEm#P)sb=wVmGJFYS0kB\AjKv7/boxyg^GDek1\U.lvp;Zf?N\H(gig4-udw
U"?)_HqN7nH+slYPQ;<x#-s$v_K=74&aFb)#IS)S3:l>F*4qA;7k37;xHtI64?_0H
U"_,i+Vj87lLx*t$IJkA^MoSI9lG9eMeWbs<*N4s&$<%0)i3B+[Yn-ij')TthTatd
U"Uva%>,bM2x'X2-m4DWPuc9KtH]1'r[-It9JF&WEaj0H3\8v0KA?nAE2AQ)FJKZQ
U"'J,Od7EPf'b*X\G.vdv9WOsSIct'0YsDiA4BK;:$c>9,Ju#.iqA\=J,AhBF%>CG
U"R0UDkh25J8An<96%-qVInMgp#<KND1bjOa^%##4*Z;f'$pe+9=_mA<s\oVTVOaI
U",9K)&>g(<iEh1NdsM/[7]55o2Wq.V,Me^guO_v72Ca+YgXgEaONPO5ZC*_MelG=
U"3]35;+[Z6M$7j6<8Sn1LcT&ZrQb^peK?F1KjT4HIYUpaMn%MI4>sj5ug;&8Ut:<
U"1)(a^qg_W(I'\Cto-,(;/7.g#--K2-LA<=K^T,Ycl.KJw3w$1AC\9<t;R&PPgU.
U"nG]Ld#^?pc^x;rKiojNN7Lc243K'/DDGkR\Th&HYI5\-NU>/W+tDhs>hDoWD53Y
U"3V]DTr1Y8KBKe4bbHFViu4bdo7rWO7oJrdQwD2cm*+,S'LuO'UJPAM#Gozo*%1d
U"q)nWx8=],nx+VGJ+D3$Lq3Mt/SFin8#0W.kZ61rXM.<'4fGRNsc2R&&Y&+(/%(D
U"DFS^QK=IM\4BV\)lhiO75#6.r4-6Zq*)$+Anf(3JT^-#b&,8+lvlF:A\I2m%QUj
U"=DTcAcVtN;ag3pxoCmKjh'^DM;)vCD8ayd-;;<QA)7rJ2ebOuP//S<[)_]+U7EF
U"J,REn;-oY^D4L#TkF=X?%^,(3-r1c2E-BCZrl$p.fk(a)TZ4iVO]/1EL\$7r?Y9
U";5)*DBR4873Q'^iFGrB*DS$gMekrSE%>hq.8J6*G6+;22n?LdbJu:X?+oq-ij2P
U"fGIZA;-B<.(a,6s%q;m#B53]I;ED.#e&bEh'jFGcrDmbr2&FZ0GtgU1tK&RWg=K
U"w8N3E(-%rcK_(Rb+B0m<HAkP0S';Xgh]DWrc0MSWKd*ukrCvAj_a<9vJ9vW1]P7
U"i*(]8QqbXoS18Y(kPJ+(Q;Aw-&csJ#ANs;72d.NPb0/3R9%mS5[aNBW9wT?8fd<
U"+isvi9#R8pQmeS]wC/DF5q+xKE81?I&Uk>4F-1DTFLIgkJIJBZlCkkg?YNQ[q,G
U"%kEJ.4IG2+8^Q2Dyg?JVpn//<W[;;F%#v_S'[EOG/sT$9h.BKk;_=ih.f=%az0-
U"2&U?F2boamhFxdyBR'6:r_#imuD;&\iK&88):N0cT4fXA.QLE6-nD]ImtfeX1VM
U"YHA3Y:k7_N8&nGE8t-$XHcL?H-/JChgNDN4+pj+8KqmR%K-h>4Z^;D)x#MJZ4dT
U"50wZ>,N<tr*>.=)Q&5X1Qg-E6N[[Vn&C#,Rnx+o=s)^w:Ol:d\tUP^p990&('ov
U"VT6e/8=ulwtF_q0stVU2'q1TcFnrPwiWk;W%)L?H*zd#-2?5Wd2p]>5]$^Uk7+=
U"&9REs8FC+T+U5&m5RRrY7Dj/%8rfu>/N[frw[gqWm2Ryh]H2v3dn[9&:_yc_6>2
U"D9[c$Aj-t0BNDwMO.';.P9P$lh,n$TMW[&dcf^T7L.VLA9u-R=YJvawO*hq)x7v
U"52CFs&>tSYk#eO>Qs)&//u2U.Eg0LV?1720*u7Pv8eh3[)AMi-L'ZD'l]]Y1dF;
U"I6Dmchzv>%Rf)<5O+jXTJA%+h216eklN?Rim)&7?M_M'7K#%y/uJpK?$E0J)9Ko
U"4Qd]KC^i?gzjEfSn?Py\\&fB7U6D4/W]Ru-/u5Ns:NUDKE18[mG]$;u5#SV2OIP
U"GkI=ghUg<KhxhbW2(_^e^gsloQ]-W&7v^Q53HDA:Wr*7ig$PAQD6QPtWAR:)w)/
U"+pICt)*?Zt9M_<l(/v20ah\ymWn'kgq,M\^L*oE=W%k/Ot<PCZ,KLRVA/9<=9+a
U"$>\q4+t=ZA_^CDPfCfFFYg7X&5nAonzE*gQ&0lmm^L38EE_oDvH7'f<dh?P?mxW
U"R-TtnUo4Mk(]lGW;;diyjOPRoi)WW25y9]BGdK8g)C'2]lbmPF3TA]4)?a071ZS
U"mz/uW9u5oOmv)o51FS&hX&u5$MHO*[,Kb6jS72fGI2$qL)ET'g7jbbn'mXJ=u=u
U"GOdXnf5l47^b4+t&%>5tUR5&OF7Xv69X5RtenQ?26)%AM%:v>)Y6zbZr?d_/'u(
U"w;;upuD-a\5LNvl_nnl/O)K*joNFEfrCJqAm>sexx82B5oZsJe>sYDhmm&VaBWm
U"^Xvl&_w$=Yt3iUx_+kAO7)OpK3Qf))S+Uldcu:c7>0')qahN4f1-;m/U17fc4*8
U"A:&IoK:D/AWe(DM0g:b$d9qTUDJRn6<e7_7*G/3EX^_%4jdlyB$u8*;r:z'QA=\
U"HCp)DW[XKme4hA6>e/dQuD)*E8i4wD6G,eOeir0<m\Kc5n&>8%/00+G3<QX1w$[
U"l(Mp05e=cu+-Y:GZABwIl&gbt/8U1skK>?=raf;n$(^>YjC-a?YWY;gTo>)CVfB
U"7PfUi2hZrUXUWZYZ:)sX1FFmSe:FSkvc7C*3K;Z8co3&]#I1inU>Fb;))B?X'#;
U"<PFDUX+$=sX-U^&esX%,2'=ILA5v'Ddaj[$shbMv,,7Qh%)\OYofV/(VEk><*7t
U"18mR#ET+\HmZ/9p:ltC'?r6P#tjUT]%&+%=LqWfs#4&*n^r>KLlO#-85LLRw$tU
U"1#6%bA]V=F?A:9X?dVIbW408h/ZF[fquP&PLvHPh2GF(ot)<\08T=9;\i]6Y7<R
U"?+_V>jwmH/3gv^M7D[H^K>S's*#gU#\X#aqINHcN-J]dRtgi2Jxkp:ZG5qB](?D
U"MAbs7Z7G9<teU9+T(GG(K$deLskATOb*<YcC/2-](83$5=qPl:/,lu_EM)FFg0*
U"w<3lxZpiSpri#H:/oTD_y4q7rd8F7Xck^.up9G$pqZjc%$2saj_[et,mm\(e9pe
U"HhA>6=_.ktJ^7r5ObBVV.YOOr(www/l/qvf+s0.(tIsZ3a\>o/FmcQjNv0Qbt&/
U"M$'80jP(cI5=/Hn've$^GArFh_?nKKpf#?Z?p#MD#8SQa]TgV9Y&&Kv[)IZLn,i
U"+zX>ZQf]*tll'*=BcrpmM\$JTZn23bf^-;'.egWfi[V[ivY5\eZ#kijCU'RXVBb
U"aIwD3x9[hYADz*O3hTV&hgjBx:&9zDW..S3iY:2JQ[:g%ZUlUZN42$1,?g1K=<%
U"f0Y6Wgx[LEz5jS92%XErZ^TJhxbk<JAW[s3kqqr[i^uDmjP_Jv]04mbAA%An5)O
U"UaiY<CG+*#g81:/g_0?u&s:4%5%e'uPkXYOKJL'kmQ^g.2<EBlS-7b.8Au^;^nn
U"Al(r4Mm7:0gD%'3OCJr8-/)Yblz]#sSHA/^$9D]l.gN0+y+XmT=:1=]z]K.F+[n
U"h2WCajr'SCPyB-,y_pRejdOc[>wb\8+?NoFNLv%RB<R]kYewN]+BzRV#-CEWM3#
U"*)#13Pgl5R?$r]1*$d;W,T]UFeLXU3oBSf7Kr_AQ2S4738B;x'I]Aa[]CPO2maq
U"g5np.a+vYYWxC'kw?C84A/7i(#es#(j/bWn<^1jl5WgiC]wZZV^s]9Q6VdJF)x,
U"I+1mS]WfwJn:mGM?bub5Zg<$w8/5DN69QykUXRgelV%>MugDXm]:M?Rm*+,u2d?
U"e2YOc7QgSB48ceKqFiEwu[lUGg%]%Gef8TC6,,bjXZ]O2G5,fp_;BJ_soU#vTO-
U"GLh.81E8J\4^&4ED0a)M1$;$9_:XH';2yk]^\w'0]shJ,Hw#-1zCnne:I7*A,M2
U"qdm\WQW+a(a#5Zso/d:oD;cTNd('ng:?8m6'c>eOo[.VY2CBJdhW,0l/KQl)\qO
U"UR_eORU,Tf)hMu;%#]8hDS?fXSnw<sjnTN\c,b/%tAAI(>yu7fx)+?45Em8:6WO
U"'uBzyVPi[GHt#xb>n;lm::)gx+2l/1;v%Yh.:X5*QwFm0,xZQ#t9dU1,3qrH)j<
U"2sJ$6]jV_$Qlh5FmKY'UG]*iS:C#gobEf^\\=gZ:El2&-iKYsF'Gqb4]rKl,OR/
U"AVup5wwX#%c%RM2r=85G<G3-j:V<4GAv5V9U28/VV<#FOyO?qNiaBreg(lD<D:#
U">g3sy09D:]fAtd^5jk?9ffOtf'I]?m4_/O2WuP?DJRbvO5eA=aZi0X(B#lJ-eB+
U"jEyG_n[<^\DZE'*QZJ+*^.;%Yk\,S?SHiKf[&?AQ2]P3M9y8r$QZ)-hmk8TJN$(
U"W$A[K<cFG%AFe]5W'vT>1_qvw2y,3$7:zaa0(p#yK]bA8n^U.qhEv?&u5ZOajl'
U"FB.aVHm4w3;f1wZb8U0>h2CEl&sYt/&I8B(.i/kqYC/g<P-3W]0&r?Wx<L=w2#.
U"#)nV3OJBJ5%(,WU\%t$BQAd$HP;t<W/pO:enO[k2-[A&(k4Tket%r3L<r)O4vTZ
U"vaP9]XMZ#-O4vXZvjT9G04<\,&Q?>-[d08R\-YP2&0_E+LSzFAAO(W:hNt#aYSE
U">\K:el*y%FOr[Lt6MCB[5I[$mpmE#q'Qi[WIED,7uG6;'iJ9A9^67MWnAGJ*m_/
U"IYw=w7D#rlbpii-OpP+)7W=>$fFx_&j=\US7DE<]$,F%(t*b>U8dXsVj\jmnkSj
U"n91/\WH#1NBfLQ.z=/<hW^huBn6>AD_?AB/%TN=ePkJ6I;aapm1OcU.El-96pY[
U"gN,EX5]EQ+d89&2S;j+p(U$#'#-SSi(?&uk<OHq3,Ln=A6LkC.p^8s/ragC0Dt4
U"WT<n\c*pZTd*5PO&>uDQi3%>2C?l.)eeI)%e#qd2'X5_?3ZBYdg]ehY\gW&;ZuH
U";2E6EekSTX];^l^1L^o960vMjmV-Fpvzq)=hDTrPGiZ\H1,33Qv&U'FgF*SQve1
U"r,m/2:G]qV6BUz]X&:e+$^/8uQo9#;FwSsy<T09dT%0bU)<aGhScsiNT8d>eDXY
U"hNF.[5eS2DBx_4hlFF1CS)tO:=P#gwR,FRb7yq'cC0/WwH6:vyXG+onji2xLZM]
U".<6^*u*i^\N6vc]XGovdjiHpURq5J[6vS7LjcZ62XAkwIHRtGTXDp=AHoWFHs0S
U"ctx=P5;EU1^-D8B9lN<'VL<VT8#[2X<kkB(,>NLuYMPKX8#q\4Uhr#vTEtbRrV3
U"Bp;qALRc[\L8/pMzDo[Py.LIS6*PU<hKXli,eJ_?Cb;Dbe1LB,w7LRoI6ka.j$b
U"X>V'pZ*U*FoU2QW4uQD\s%>duL^DUrtzZ=BLtKek^vuqp,9>g-Q\WOtF?kZdXEX
U"3h\-t_[nwypg)7M+wc/uXc4P<U^R92<vaprO&rA99?DCAXig3U&<4dq0>2N4v&Z
U"s.RADINYlTGSlz.pkr-P&L(M4oh^\5RoePWAe-56jqGDoLgp#SHR>'f?FWLf8r5
U"0eh?W%]4>/KoW#LUNdmv.\?lq8GtJO^XPw%P5S1\E7nQ09'_\iY]N:mCK'AX_mx
U"N=riQhCAf=>.0pAAN2l3e[j<O/x8C>C_<T[1B4hVCJvFc5102gWak;9K?:]On2P
U"^IyX,mKv&UjK?YF'A5^u1Yc$U5lD+d9QL8I.$kj*NJ[L2OtY.ud%ygU&=k&)W>[
U")4FFkcB2<*y^raWfB6\g?q=_FOl#%=_Lgmg_m=_f5><.R-mU;M+lqVRiAA81PB,
U"nvR-[;_wqIACZi>[/]=I0zGOMHR01S0Dd^U3Z?0fo+3Zm]YLs$g#J^r;E*Eu;l7
U"U6aS>BZo6Y-0lyywfDO92,Yb<dJ)L.2twSrP-SblXO8ti:i(h9nM6jxMQj,jXfx
U"NR6qEyxk8;$vwZwRfSkN50(2dMxaTTo^A*fv\8fw^Z6eEOfHhn>wci4nMUo*dl*
U"TXwNZN$*y-csRR>ZwgBMshNDHa\Mjn\6\9t9\Kt2eDvJ/epOts_^>M6,a#Rz\2t
U"Fm#'#d&dN;C4oO(q5X)q*ZYa(5t->ok_WRLI-omnJB1'%Lq1mj;kG=eS0jB<Mhr
U"5_,nq\]2EHCAPsN]CDB)_J\-P=D-GUrL#PHgfwLd7J%??vj-dt;/4\'Z:Q?iqI'
U"-\,ZlN;E:QD&]XlgC+SX=d3Kr_K1X?E]R'*bpR,lg>c*KjkHi\fIcqJ&fF4lbb4
U"H&G-Q3[bb(1cGE&[*7Q*kY1l*b]xiBM'4s8j6%s;W2Yff//PlH:zx%,up(%)/%%
U"[%%%T_BIR/isq(v[T%%v%T%%0#%%%CM4GC?D03S6)85ln#k]^0&B&[&'p%%%%%%
U"%3AL%%O.%8Z/(=R%:Aa%9h.%#j%(:o%;B'%Bo.%=z%+?5%IAu%Hy..Pq%+G2%O]
U"0%Q6..Uy++_1%>]H%DK7%JA%+HO%N]I%SU7%V;%+\D'd]:%aE7-c:%+[J+V]Q%b
U"K7%bU-+VQ%$]Y%]c.%sg/+i8;m]4+f:7%gG%+pF/i];-hB7-nF&+iI&e]S(oK7&
U"pS2+lS-p]K/nR7&wS%,)X-y]U8tX75yX#+zX%j]Y%je7%q[(+rc%m]j%y]7%yc%
U"G'_%(]d3uf:0(_%Fxl%)fl%*q77w^:G-_5,faA-\:B+h=G(l%1fd'3j:%0s'G9l
U"'9fv04m:07p3G;q(Afw;9g:A0_=G;n<EfsM%<:M-XUG+>H+fZM1]:M7lLGEoY6f
U"YX;l:_DnrM0T=Ef.lIn:uMo?GQxHXfxP_x:V[xbGdxpOio%SoV5VXKPnK1\ip6c
U"bV7doBPiqLoiM7qtVMtgK5upzK+(%Z<]*O**7U3)X+7.iM]/pU;7O%E$+<JT%]N
U"[,S7b7x%+%[$)]Qh?G7kILo+KWwS]SxW_7h1^p+=$u#]ZrI]RyM[(4\_1_$].e^
U"S5l_=Ow$B(NaK1OSO%bRP9dZAieaJxKx%OOhOPW8N%whOPdM$fi#_nMVOlZRPsM
U"WviQmsGYc(Rcl)Tn.rKi.UVXyq[l+m[)rq\5wY_(rll.bg1rpy(MYo.Lsl1Lw4u
U"M.3RYy3_ju9t'9uO+;Nu8<X6lDSz;r\v?stvBu%l;mx?uq'Apu'Cs0u=c+>ul-B
U"mu-Ft2uCl3Fut.Ktu8Jn4ZJtgkPVhp\ihr_iqxfn2tvn:.u?JUHuPVBEu\<M$uB
U"KgHuQf;Jup<Muu#SsAuNtBQutOQcuJTlIuWtX[uZJYuuR[mSu^tcMuHgPJupE;e
U"ubQsZuU$$\ugf^[u_m\dutcdnubfqeujnekuvmkfuxxZouojimutwnjurqnw-ww
U"%%%%%%%%%%%Q%%%%%&B&[&7%-w%[t-9APqY[R(,N-FL7T0c/Ujq9Shm*q*>Z=Xt
U"9UA*5r#^E(hYAnJaI$bIMxy+lB+tDefU2Ck[2#A#5FhO%-6'I(L_Db,Iu%gNMVW
U"P#mt9s)at0#p[<U5J#(vyiNz',t9VC.YzP(/*<YBpu/%R,P7Ly,WDeejr0?T-]b
U"wj=DUsQYpu0S>ONMw=%'0Cqu1)Z<AW8P-uE1*\*#_Hpnmq2+6^Dg,rD\32Ql_vo
U"WtEBaFJBvPUPMUG$AITblP)2Dnmr4/ZfT1BudWF4u0hX9)B&>su51j\EAbP.uG5
U"2li_(yAK'WTY\cNn+LLhQl,D=IhFOw/P%V'Z0jAa#)t]+06Ztpft$Ant8u7vtqu
U"ldXHu88xx[%+MYAO);7$YP-s-0WiMQf]oR4duO5dgU?)]9.#E-9;2APq0-:WfLa
U",InIe7E[XMu5w[YQ-/aGj[Qb=Z&SYC)#(1GG&oH,#D;Oe^LP;GR\VG;b'VqmK5x
U"]aqX[b]b[ukN^8cWR6I4d'5kx^euNQ$adM+UhtRB$v_L(g1U(^V,a/=5P(7-Y)f
U"A_B_3*]VObPw$mKZob$n\O+OaDoS;93apWKPyaq[*SP3CGDA6VL?cm0Kb>53F_?
U"84/[hu5&]gONMt9+YMxukI^?pBf,G+nKNwh/A5X%fyD1:J]=q+AHucEJ\%+5Y5B
U"9'#G.%hlG4'i06mPVce-,IkPZf-M%#PRdG9EWDP5GY#l+BYkOK#?ti[6+=jreS&
U"/$UI#'Q1]1I\=a6kc\BYM+i\nLql;[h1Ki770dJ]U%Wmaan-5e)H>GUs,l%&%%/
U"%6B;ha.=t6%j?(AF1R:dDMwKDPKGWt<1A2[9U=ONir=KAHfKZ#BYu=abCR-P4.Z
U"WrM+>-8w+ae?J\q':4,Ah+?P)E=YUR[giyu%5MyxCa$iHtI%nOq+FfntquAj[oQ
U"WPOagstt1C+DCgSbEQRiq<sNGuM\znYKoq1-w69*1Gbz&jl%('-os$9)L#upR#C
U"GXqKFZ,<NXRr]c,&7Vdb:ivoQ1jmiXNVc5M-Ai'k53E6qhK[la_u-ekF&diCx\H
U"]d)cGZR&U9PBL$j,.VM[\/=ZRN5026bQneC4<?)_hrGRDil,ER]M/X]R-?hybXd
U"n9qMvgW9VX]pQpS>rruE#Jfi0kv&Kb=2OuW/sWbaGtu>vx9tUKmeju^d/C47f;l
U"<1t^3.)Vgf]h9,5My(sGKuEOm'cV4/*-\D4a]M\k%FMQ6nO%3YOl3EQg3MW\s*C
U"\#RNq*^DBwPQ7<a>(-=*2*4caRC*uo)*-.:<7mE2wk'Y,R_8Wfm>;$)uu6<E9k3
U"'Ah&JMu+j<3cqRHt:TNcu9)83udtpBMOpbSoif[#['53KY'U2.%'<=E.Wv<t1C3
U"A7na1LL/'_]>U;K)('TlQk(iQuEqO4>(UR,-rKRXYB#TC?d(FK9:*K;H5pmGf4.
U"gPD*rw&D;0G=s.cPXMU#fto4=>ergV+0dTU8ZF08V/6F8x7'Me1VtOnQA[9uM\>
U"<LW9D5k]9vA_'%UdnqXA$JR[*LnecX1nMKH,hTHlFW*i]&K1fp+h17DbU9,g4Jl
U"i6%A'YU^nOF9hqht)[ncqqCr?7/2lqGf4$$Xq8jiLKsJw%>U59:^R7S,m?uQ#),
U"U)s6G=LK&^O7^$6BIU_Emp5\&wiLoEJYoc1D6_(18jGOWq#ZY.Rx5kE:T^]Q7(d
U"'T5i9S)eXRv<;e/18+>F=JP%+/m)b9BHN_(O+uqY91%o^j7a]M-j;:RAHY#XY//
U"3ME7h:u=T#i)3^0)qY&w6I%4Tq$2%FIw<C9o-fV;#N#0wg$^[M'ToJPn-WgZQC]
U"d-vhc^ywo.X-rQVXBArP7AGl31KKOr#KE/M-E\,h&wCW-.utZ_Qo*_\$%3PC74X
U"%Fh46zMF>AeUUV?Zr8*-bZ^RjWEWB<,l0^,7hHS/o3q1t);0wieM'jwnm\17WNA
U"t(+?NLk-<.$x_'^:I/M-6ML$&'Jev&dpyq6O9R[C-w0ap$R-GRZDr?T:_L/kR0M
U"i6%[gfX6c:^6;Cr++8*(aK)i[xQ;NwAJTTCtM*SB1KB9&<8=)he]WYq0_x(/dYK
U"Ztqm'#Q9Dd\(5iP?)GYaZ,+#-Rdu\9+*DQ:-iD*)9HQ))M]'48(Tz+p.i.'ToG7
U"&Z-)d%ou'5&/E'(B)%sTRU6YA&6/zES5:oAk2g3#YRSr#C)b%3:bAb&RiC+_C._
U"B0$i2<uhOVA.a(]I4jEB[^7,*-x)S#)Y1,'-L_bRq_.J0(p[msgw-n=FfRQLRIR
U"WQ;d5EjOGX42C4lG,mpcE$ct6rHO3W-ovKmdZ%ZK+1mcAtA101KoODIdCRp3P/)
U"j)re1#AEYd_AO)4Rk'=(+U)em00Tmo==5ui&AZZ5P1''o)#b-tEJ=qk0p?v#UTj
U"E'DuFdpc$iRxIGD'HGr\QS[[(b;/4,0yJFze?R3:]/xV<Pd9^lj%<owZ/4DXtxg
U"C^V)?o:5)%K8$jJ$ERs0u3PFgSE0sMJ6UCgjAUTHX[ZJ$e]\t\Z9h-8lQW^_%Yd
U"KVpP'vHp7q?K/XHP-ayteN'%S%+OoYR#-T1]_Q7n\TN6#1J1UI;[t:mw7P$f]2S
U"j$\Sk0+XV#y[tja%/UZF6Ev^gNCbF-PO(KBfU*Ctg<SP+k2GlNGlDe81DrMagI^
U"G2luYG5I^lgCxD6Cqo*vct'H3Ou0Gn'tJVcu)GQ>M^Z>Wm.*0%]SQ/q$k:*b6-X
U"w[$XdI'E1mFI6qdgNx1UP?oA3N7_a]=DqL6SVf&/(7TI&5Y?D#[(/j_=X//eo=g
U"3dTJ/3H/:cImvRyCt0='Z3*G#H7kQ\=HUT:bQGXBAVP^b:%lPZODGPtkIIqllN_
U"G_XVBru$g1'>>Wc$hWHCgG9r#NxGTK8)cu($xlrI^7?m&F4^M[FW84d4:>WwI&o
U"/,Ts]QLBS-2H4JCMPDZn?iW&n$j7pZVhNO+iY,DkS;jY4''%a-\2xA0K1b[3>p<
U")%UADi8OTif%TeA^%U&)e#&weO%(mAl(uOzE40uo/^Z?A8#[&>'%*9e%A%u*%*I
U"OzE%*Se%^8_(=CfPw?8O)i&(j_A9[]A0Q/O4'(()?)z(UP>]AP(]R3>PR^DORV'
U"R*LqP+6qAoE1SqGXALpSh,&Lj/2Ofg2>'?*[wE)VVf:O6R+y17GkN*&MgT*G)MW
U"U.-c$j-/6.de)*t+.DY?-LUeGoVJG:oN]-KB7EJSrWOJro+JK=WQL]WS'MWUGWE
U"wW]W*u/)tI5dnbCNk*0)%/*n]i(99X4<*WP\qW_3q/nZMXdGXE2U-ZMOU^OXP-\
U"UJu+VYJ/-B'/Nf/'hEWVuR\A:#5Z00g\qe&1WQZ5$GW9=[0;][qI=4.o%(a5+b0
U"i*C[=+sY7)q9)(l?)g]i(UIOW<0[iAw[E;w[H=P\L'\lPaLj09-TuL-[_]HcA-Z
U"K)-WO1-V?-&Ue-k8R)nLJZ(?V2Z62];5Z3f,[?f%4TiO%D(_+HJ_-h_$Dp,\BY*
U"9_#'5>$(MO'R]I'OI.&=h'$Uo,<*:_3>A$7n$1;X$Bho$F91BFo3AQ%-Pd5-MI\
U"aR.w:-Oi,FYr,LTY,b?F,o=Zg#_^s/f)[LODNp_1ih_uDGcmhJcoHcdz%'oSrJj
U"?O,MP2Osrc'U7dU0JMz8d4v2bc;O^s-+Z78*[nUDgAPAphVe92eP;Re=Nre;xI)
U"x/MKSffkMEfG8D^F.Z5KBbc\('dY.&P?H%UuH6VAgNGVgY2gP[Rg]3rg_>Dha^h
U"Mc(heMHhghMhixgOfJhm3rho>Diq^iMs(iu2Hiv>(Fp>(]%^''%^'V%Gj&>jE((
U"k4dy'/B81d)'eRng7<rj9>Gk;^ki=(k?VHkAhYk:BjlERkG<rkI>GlK^liM(lOV
U"(lChtlSw2PlUXk6PrlP#u'?//VFo*a^93aqhmc2YmeRmlgrmi:>nk^Pnm(nioHn
U"qqhns2YnuRn6wrn%(OnfU+'4z&3^Hm&_io/3So1So43so5(?p7/Jn()o.,_p=_i
U"p?3SpASp4CCo:_i^<sJpI)q1KIqM;iqr>Jq+9m'm.%/(/rOOAnW_r1[Ir](?oQ_
U",qcnq-<=3Uq)robArg/sgk)siUnslXGshNs4qCs^(?tw_Yte2r4S3mtDinu9Ysa
U"2tlebtf(.ub_Du.ot25Iuy)9t-oGub>s5,srpWst=CDs??n.m_veMYvG9Mv3yvM
U"H)v7g?wQc5pw9OVvBcuIZOuNLOrXIPsnxsJ\?x^g/x<cDw,_w2gix8ECqI?Mt;I
U"xOfcr#iCuWsMw')xPasq2Lox\yYx'sy.._o/h_^l3Vud3yM+9ysM9xrIYz5cuMy
U"YyvWSy))Q%?YnK+ozmNczoiMzY)sMaywfi3zxSkz8I&r#i&S(opHUAz:uzM4YzN
U"isqq3Dw+/wgr9wLtI'HSDv??yua3&ku3&Bsc&D_(m&O&qQ3(R)Q(YYt4o3ni,y(
U"r?])%_)muo)ul3)8SQ&C9z71#*7s$*dbc(po*p=j*lG9*5zo*Ct*?(C*EF$+IZJ
U"xA:d:Mj+Oc4+QTcw+St]+U#,7W$,YG*,[Jr,+;*>r),acT,ct],e#-7g$-iG*-k
U"Jf-mj-=o4-qcT-st]-u#.7w$.jGJ+]Ji.'j.Y)4.+lT.-t].PP+.JPtUI$/2ji&
U"1J/a]C4tP8/9*r%8t/sXC/slb/Adhy#J0mMo0rP80I:f+3:(:5Z)/40)1oT1(4s
U"nS#%2Dis+zVtJcmMKZnMiTr^tf0O)(OaSt+47([0<%0C.s.T1g..%1GQ&=isY)[
U"2]%pqzxc'd^2Wp(2,'skyHN3g:rViJ(uK4Ju*W1ASsf1#u%<TruePs#zzVs*3zb
U"j5TC^.pE3\?YVJm0yew=N4on'47(/tq46<bj4M3r4RT28$p5.b*5%ii6'y7V0I3
U"bDivpI-58P%Wm*8E0cxF?f6mY6<c(8'R5/exZ6UDw7(17NOO7'i(K-OVBu%lft*
U"3eTeu6k9TA04K5Y3*G^%)g8Rn/6StZ8PTu8bB:mH19csN91dl69:9p2Y9?cd7rS
U"'9W1/=Wu%8^1s\EE20wy:Y)59#qq?k%J?Q%pr)6IbJ=k5c8vp=4iEmr;km-0o8O
U"E;TZ#1jC0s/knsY5>:X;<.Pj<WZVwwtwm>Q8uHY85;l=w*87oa;I?e=d>l>.*91
U"yKqS3Uu(A$<*A?>.U6(9D.w\?595/&n'%%gt;vk#$qfki:t:=Yp)A'?k?b^N27[
U"tGVE3AL1sC+f#KI#X_5<)?U9b0$AsqCS*_CtkkCPEE#[_nmqQBE64:Xagq6k?Rl
U"1B6>+DcnWBdUu:jiB7kb<k%hpm[>=UE58krCuUr:Mu#5r4mdZN%j8f8rKBSU/=0
END SUB
SUB V3
U"k1F,c]Ahq8V6;8b^ane^c5a.E8jaED>)E60fCriE9CQE]?UEh??Aerke>/uNTE3
U"r;en?[5WS[<9dQKVEc8fpGnh18aV+qcki#tZCVyK1OGk1]Kr7K55rdhHt;+n1Ai
U"B\[=uVe83_[m)vDt(Gr9_1H.jBwpcsA?&4]1Y?JU&j7vkk'13uH)eCn:1G_bzA'
U"6oDT33>gUGMGlK4)oEDCC=0EK]$vp^VcDeUK=.53,cf<i&iK%K*Tk/N5kyNGeK4
U"z\r=kvN26CNn1iM1l2Y&V*6N6o3<rEl4OXze&&F1P/Yu-duOJCrq0GlP>IrP'k9
U"2K\pGPZMS,iQULQVWlQYl6Q[6uG6TQS_BRaObRc\l1h_+Hh93Rj2/kViRmL3YNv
U"Qn4bSsbf,%?R]je3ZoI2Vis1EiS$Co1BRug^o$RP0'qM,S3Q6TuLr5NvTo5BU;6
U"f4frX3jYBB_e3ymB3WY=2F91$uO2/uwf&1XbUOL]VtnDr9lTQQVV/J-Su53$aO3
U"CmB3EVuUIiU]u%1Llv)=flVi<VnMRSj5,X+06WV/3rB<WYt_WFi?XIf0ofR1h?F
U"V9Bl,mL,?lfTMb:YJftr7d4<=CY8H735mrVp&VtoFYo6VZ&0cWHuWBY%37-iXK3
U"cV2UY<N,K#aS,3WiTlj+=TGZAcw4QGf[.mT=XW5Z[s_.gfZe=SnfB[_IB37??]F
U")1a%G41Go[SIlP8*Z=w'V[+C^?ciZ'mZ=>'\yG-Z\]r\5%^T72Z]cF\9W]\6c\7
U"us^4OsD4miA<MY7fc$T=0WEuf]lm$rDo]w*IL0(DMpu]]_^C_Y=wT4jSSVwo^bw
U"_SAc_Wt]\mFla,K^XY'Z2e=d[wfa1maSUS_CHwbR:f$Hm$rWo$DlI$Nwu]Ft_tR
U"GcTkl^fWrbAGbVdm__43dZC]Z\Sb8Ss\$lU_cwic&-R8e3cB=3WCufcl]WbI'1u
U"KI/xMqmPgcu27V+FCd[MrfP'f>5Gf0>M_XSue>WbY9'a.Qw\2Ms4c7gueWgguwg
U"p)c\?SX_f<1Fn\+Ff=2I)1b7)1#ZYeI]u9L7doYsiQ>mfRCud.Gfo_C^Wc'a_7c
U"c/3_q7=_'4Cb83oh?8jocShl=SUYrj1I_h?afw1$G?1#8_1HC]f*SaY#gkjb-^-
U"H$_\S^R5t_]lwk]Fidb-ln*sZ\G-bYnrl+Gj=khgC?xj5BckFUk?IimKchhN8ok
U"'(mp]jmkbLmm(ij'>n8sBko,=[nSln?okVM-n-4t,,doU%Ij?eWo#s4ph7ro8XR
U"$Y\3(>lpE56T+l1--P0QOtpDn$o?TpZjGjU6XgQdiq-JSiS/d:k_R7Hiqc^bY=8
U"g<3hrgt%qBdqq>.rP>LSm511z_/Dw_,Ck_sH)<sw9/omEr06&coditlJrS=TphP
U"^rV>$tZtt:DMRM=0tMRut7httTxo4YNq1nlu1.ujpw^StyFS&Ylp+,sggY]uKgu
U"?t>tC(utD8usB(v3X2W?\lUB,WoG2VP>OvhRiw[NuoWDx0u(tZh$wrRcoZU[YY_
U"htM'cy45#H91w%egp38E%qRt3QIZ(hW6Jgss'J0[j[>1Z=3--YWl%7FbW#dn7sA
U"AbJnAt3RK^(pg6&l5\vEd#]?WkCcS/D;hWM-&Q*6+mIEg/TVdSY4SMxEE^vt1st
U"):T]x%(f.gkB_^(])U]Fo;o?QaI&q*4KuUSOf_*uO&6G.i9<g,5=E4M2jtb$++)
U"6X3y5Z-pmDMW:VjqEG*6;#\F^$uaRW+3E$pZ&GEtHl^H*wlTPSdpPC4y4Hz<(E1
U"<S;]*N#(0B;hC<9O32D2:ZRTp>6Y8F4-84<AZeQWI%SXp$ofv/=Jttv-KV_8irE
U"]\mPzU6Bi-Sp\r7-WuYHm3\=Hh7AtKf;JQLHv.rXMEn6U#M<ZuuoL#%(9?<9Tkp
U"uG6w=*t^e+(#Cu_s(T\H#^*2J'ig1XoUO;v8gpI[#0Z9#[i7\crCu]wusb<qKAp
U";q2s+3N#Z>RqQj)V9:Y$*'>H=%l[Bp9ket8>c.sjoMR)v7]2-cxeiKkcK9=KfGR
U"Tm6y'M7oP,VmWS\iuaKf4:d%CES*#]e7mAj?dW#L[D;bfDKNw9-8C<82)kl6=oc
U"1oD^l%,BIT0t<B.7*ojRaGQI1#RpN$S%Xw\P+/mwocP=xKFqj9cdstne+wLu2%Z
U"ZHin$xm6K-A4afKs2v_cqZnuMl)WHMUW&7PZ>yhq*660jy1vTF3%I/azeQ/%.B:
U"a\Xa^O9M(0ZENB8j.NdG1v*b;b%'+vkDC1DnTV4fe1vFV%.>bX^rAJF[;xe6Bn:
U"w7Q6>E-D(4A%9QwF:d]lC<UvERE*ZJ;leUBB,'On(S_D+$t;3'U]t2m*HV)#^G8
U"2](B,G]'0L+6,EdbYBZlk)+Fh4a27P76RbLj?4GhxR(.Vl4o(SuUw\Li(,nhaCf
U"^2nb%?NEi=yW2m^[VU>5ttz/sI)o#?_Meq(srs9)<>unQih4:EBPm>%*'_y4)ce
U"e;Pqe*f/gJ+Cc>k$O$A83zS?td6(6x2>WQxG*?c=FJu)5F&tQujAZCq$qxEvJ9A
U"KE2dK3Ew(ip_BI6*UKLI#bdaCBMXAllmG#7:aDQT$%JzLV.^vE^'6\4io&#pmbe
U"V6u44NL\N\c6]>8KW6o\j\LTHd^jSWHc_vRCg$HrRGoWQ&.hG1]X-EPkpSzbMt7
U"E(^MV</JfR=w&%?h)k/>huPR^<Fsxq1YrNi/L)vV>LgRa62u.j9o,%5Ow>.=C,5
U"+3(0(qSQ6T&6(?vJ,_RoVbSs<>PwNi_4*d)8ZEL#;0^L+z^5S>5(8ny-dS?TiJR
U"S3benQ2:NEo_*#8qE&D7Q35.)vWf#ykWae#3MqDq#5[5%0wj^TKN)SSt%c[-bK:
U"XNrAKp2zL-,kaUPdwUQvbZ[*\L9z;</yo5io\?*NIkwl$JYUhX#PQ7[8FQjvL\9
U"1]+[1N0J9V.rr[d1[o>jiFE)0GR'QD*:9?9c0h/UC[m:DR>Opczateu['=%b)Rh
U"A:\XB<?b%_PYaILfdzs[hCu::/I]6V>JUe]/O>:FLNwL.Ua3<1juz?1*ZN8uw<Y
U"0''InWLw$\A&KHXVkxA*7#6yLkAu&jxmmG6<=CT-,=ci*4;?Q,Fl+-kvDCXkHKn
U"pYb#vK,BayD4sgt\959N<^=0Fu81,+cAD(=HNVCm9Wl(&tKMoB->p_83KUce_\<
U"i2^#cNJM[3q0^onT;;o$el[KLux-PHZib)Ye1A8(CCxV05ak0G)<sjx&Gtf/:5V
U"OY,7?]ORrUC:b_)wb>[-BrA>c9qd1F6vMIGmr2%^30^*yh<j>J(o&]fnzlcAg3*
U"Foc9Py^s9Xz6ccAz[ywS*Zc&fF_k)55nxihd7&H<s%%VXy&[38:yV/,&5?pf'st
U"wKdgYY?//Uz_b?6eBD5]rMhd>f8W:_&cbqx%NkDwM8<Pi7=/OUB;EO]0$Y4:cBR
U"2f%<%)&Ph&VHF]iro.1IS%jZp-J[NsAufa'^n>PFT?LFP/HcA<kzZu;A-i.sKc;
U"/#RIhM]E?cC[,Ffs?dL6Y].-4E>s+\G8VqM1OuB)pIFrb%kis6h/sy'nF2sVV0a
U"-b*rCLtP#3zJYQ05hMs/uwYhFaake+E^\-?0R1sKYthnRDg]pEKYZ>'0S%DPEq#
U"2qt.0S7hH<uro)B5mQMu+/j>B_>09#plSEhLqldt3rjPB1&xi6aF=W9,mYuug,*
U"#9%Kw[o&NC$0GXh<]MRJX.<lOccL#&fe>XJEP1m$'*+3*Q7W2rUBeWXl76++_Vx
U"+?F51%l.K6<J\-5K>+)GolC9ia8qmu3#qh-%skhLbkXu.gP-OsGvVYrEL,ZO-.G
U"E7as#$T6oGi-1(G8q;X0e5+J%TGKVwgo:*Kod'PG%\JYF?p2Kko\lBK/dXD.aM9
U"*SkV5kFMz2ja]OJt0$Bn+fen%C8r=eSMM/QB.Lt+((E$i\juOh&rhz:/Li3xkoN
U"nkRLb;u340PMEA<+l&ut-#2QJmKnkTIoL+WkgIlktNNDXlcoXg]fg^JE%B;W67T
U"iQRLJv6.wF8<E;H_uMX7jc/$bgo;G/UHXG\'WL<[Dh.]VLC9s1jsPbR35)5M;Nh
U":zwsh\K)t-G>&a2>=jJk?+L4Mn2fV(Wj\d,_vP7fZ*(\=s%DPgE'%1KvMp<(c3y
U"QCZTq'Dq_nCXN=lWSd(H':#rY5BjS(Qg0u:12?+,3%_4;_A:DVgpm^pnqPXr8Sh
U"Ovmw8k:5NcADmv08g=o+1KQMbUZl%lI$>u]Dsj_MlRQHoi>Sh575rG8w[l4HfTS
U"j1h8o$s]178xiv_NAVJ>-m#C,lBN[i_##7o[V+QJZ4nHPd44Hc#PbML&UK\9fnq
U")Vzk426's8fiw>l.=pt]s3hwRf[Mwi4^[shp^]jX(J,h.l<\VGR_n.t<qTRE/u9
U"hf:52A7muX7iedAZ)xQ6q5*-oRop?63TSaE=t8afNlsu(.xvf*N-Ne[,Nr7.Kws
U"u(SudRT>svW&MojtntIHn*tpf)4f'usT8-pWrSu(Exb.-]:G0dl6er05G,$&TU=
U"'JbYr#8V5:7J8:aIo^#jp4'gVX%ACe_bZ97DZ-v:e.Q,4,B68NbGcU<F\osU]CN
U"5_ad#C8\Z[8c:%49ZibHRDbe%7$4/>f&lbl\<wYjW)$T7f*cf()Ic-ASEdql9L2
U":,ldI2IoRGAl+HZw?)#4a;eJ*]?k/#pl9rA*aqTWDZ4(\J7YI=3(8;$?/:e&hpN
U"N;*7RA3:#$guJ0<M9_%\9a/_Zsj+m\c3<<xb<b\C$/Lu,fK3*fAL4.qa4x7b[%Y
U"%PIKR=)3ko7H3[d+Dl^=8+LJ#l::2(+kMeg]m<_T7ixeiFuug0eZQb47cV4Mp[R
U"4H-d+pH'5E(X?U44OerTS[l;9B(X/E>NPA;)sO_G2r8*q;Z-m7dxaY#X1,-s:bR
U"Xb(bf4iq?>\L?cJzLUZ4RXI1G*=[AOQ-=+c-Op75Cus:2y[#a%ZJqd0kPe(S[d;
U"Y6#pjlD1xlJ0=DKaW:Mwcr8N57;Ok7,>c#aP^m6$AAKqmT.a[U)1mLjeCv8ZY.A
U"\H80=(afYM4/_]<D'+6/'YmtQEAwJ*EyyK#ysrF=\QMfE7'D;Ys3e_rJid5B?Y.
U"4FIGF]^OU_c3)B%dM$*:XF%(k'%bAp31BSRo+$>VY*7e9f1<KC,6%F<hqwlU(RT
U"8SCD9k2kb5xT[IMI3ZmC=eBlWpSLfoRssq,-UBsRsCl2oaD><U+Q&3^pX'<T(k]
U"G(?(Ys/2z9*smUT:y'-0uj*i7qlCd545skba:Uk$/lO4TBY+mB]R]C1_S)T=]UD
U"G'lne>^m61E]L0Xscc5r=O$wxZ+f5)$pw+,Nn;n94sY;%0<SK4au==M]MfIQrtY
U"]4iu,BgtcC-QF:RQFt%9hPX7qtKjB)qoQf,r256>=ciZF4;1Acj<;+sK$MdP$f8
U"kS8P,^TBy3%epsHu]B^Sjb0[<VYJ:zScoU++lnYtYC-Gw+a)S)gYL9->Wj?NGqC
U";R-6'9s$s2Cf>JBQF(nkQd(*TB+QvCV+jmJcI:.TA/bt/0>uIiM#=2N.-fNum*=
U"muQ5+rU57TVevJd\);)79j:'SDj/:.u5KvG%\e\#aZ#\$.ZAJothBqHBIk06;?2
U"tU#KHQBtnw9tx]3&]D8YtGjDAkowjPC\pOj1+?SEHkTCre(]QxfA8ih$6tB6Yao
U"8YIQjDm9Ow(gZ=p6Urck]j68;iZM+s=9b91yF$OJDG)0La[Y?m;GXBTjbt[a#6K
U"nF61Lo5UkcRh=4pfD1sI%Pq\Yl-W*)tv<<)sP=Auu:b-6:a:*i]li[blEEsF?L-
U"6Q,DF=B#Rmyg,k2r]OR583%za:$[/)sH[/iw60D#jrsuUEMOQ>/;*E+bjn1zN[#
U")tYdl#H0Frgy(wbkDdNjs4[4%arhvo=pKl3N3kh9MaGLjX4(Vi>oBC)?dj\#(;i
U"L?OemLXp&?fjO7Hf.w(1eGY<wO];oIwZ.Ojsmt&.P<5S?[J[F[y%on0cK]h&A+r
U"#V1ds>LN*^$O:bL.AvcI1=*13D&O]:c=>t'WIQG5Fl]=*R5/'JFjuDbLPcIryY,
U"M(e<&hER((k9Ra&am>OJV^4JZ4*0k*gdjlRFOevH&Ju:Zq)*^IS$j*6OBH>;dlZ
U"hC3PYxP\<fcrh&HDGVV46Ts$1q]EC+0)n)o2_oDX25n%h&,u6ULT/jWhh9HavSJ
U"<b(hCB*si%_DIU/<1%sHN*5*azIiHZ\uTg>+3uha[*j2=FtQub,T4MuNp+Ll:=%
U"Lu5O8TBRwp+Z_=-42;+^#9E\NVn:ZP/Z>TwVo,tCa6Lak^Z=&T&G0&93pi+kP;z
U"b(JHnTny[NF12UjkPVpr'PTZJ_J+KF?$$/;viJBWMvlFMFeqW>'^tQRED,hsd-3
U"Vp-dl$W\:SfeB-eWf-1Y,-iZPTjBXirv-lvbykrXic(.oSDCpLQX\X.crvBsr&.
U"U25.u,uumVXrrf.x.\.%3Y0uB/'u_XfVnr8fR'5*E*DThYB-WgvnJ+:-/Z*MD9S
U"-yJ/:+U/)3glX#LEFJ/+CfF8/5EnJ:7hKd'0?j0hU'&6iBX<<$ViRQ&toR:OYVa
U")-[Dnq<v0^H3UPzUGl%]U=bVM_c#Qj:=e3MWXzwN#0v]8qN/Wd0D6xd)cFOM=-L
U"I*pE*STm=8MGp=p/FjVfr<KIZq4d*=dat>%m[HMZztdbmP>#W#cT.-cMjQ],$c<
U"bi,p1ahT^>H;XA230R)n241*R>'pk<=C[\w-&BOCRs6.2t?N;0h+39.BUnA3acU
U"g3ulN5^]FhSP1/U+k$gg[7mz6mY(^=up_-,UWN*9l%Y(OS(hE+u<AxWS2<b3F$-
U"6+]c1kKZx.4)x[5IZ]ecMa$7:33V]J+w=;W;vM,],jc_]<XhEk,Vr-G9?tJqQ1p
U"]0C#MSnvbKt0ZtZ(K'\J4g0Tkc0>m^ZNBg+-3aA660w:k*uoJECCm<P-;$l](,L
U"R(3hleDAJQ[756_WSkjAv<aT#6XI??UF'WCb578-J09c/$_E9QD^f1dc6vldXXg
U"M/?z6,i]C#'TCAJCjO;8X[GJG/5kKsb(>*[0Q0uGp31'q%tNcKY,f3GbL2IoLSP
U"T,YV4Kr<o[sYT[f.)SH:ch/=2ac^L*S#uFU,>Uj*'Mt9CF_''zsW\]avg>49<a.
U"YK,dVL25_q7z'OK4Z9h\*_T5b&6$4smo<BGb;K[<]>.TRt2M0fVoxln4_52;Fzc
U"p)-0e3g\d->B5;\(s*KW]'dqSpl-M3E4[G^)dkg[Fl<'/w/mv;WOi;zE,*HCuW7
U"zE1Gu3j<Lp^);)Cms]+z)Tc$K)J_q1CZ9MqXZ/rS'^Zu%V,6QNEyCM)'Z/IW#9l
U">2'+:^o0SVL#S=YPB_G8t+6,^jD-=n2oXGEVV?aU)=G+F(wUGgC,MMV8ayZ&JHu
U"GbHW'EVAGe,B.U,A%Wh?IXl99UnZ7Jt?_>g+RB'-,C:eVt+,Z*-1P/a>WhU6iaY
U"Us?>M?OU5>wi9uIG?<?QEbY6p]?g)Bi/\Z2+/?2hF7ia*i?e(6))?Yg-#M9[*7T
U"j*9#2YMw#l'JU?>#6,1T=;f#6VU3?A#k>A#wcYj1p)#L3?tlAwj4?pXWEb#I.,j
U"'U+KKFAnm]+s*Nbx]AE\t.1DOUOVL+6?UJ2]U3$YlR$8A2b/)17+U&V+]D$l4Ml
U"CXFBQ_%BNpbA9%j#Pd+2C]BHne0a^a%D?GG(W>Hghq-o\m$Dm)eh.<1FHYkY3Yw
U"Cp$8CqHSCrXC4shCt*xCu4ADvDD.wTDxO,nFoMV/'T.yetzKC('NMt'1CMEwD*i
U"8D+HVD,XDP-hD.3xD/4DE0DEJ1TE21dE3tME4.EM5>E.JVzS?ME8nEP9(E:i8E;
U"HqE<XoM-VE=3xE?4DF#DFSATp9)ntvmMFD.FME>FFMNFG^hFHnpYDw$VM)vFKlH
U"pK0VFEIFYNxpE3$FODEqN<GJQdGS4tqOlVFBHEMP>G-hNGWPMDXnGP+(GZLDFM/
U"Nq[nEY[hq^lHq_0rq$hqk<XGDI>*bfioaVqVe>qfO\pg.$r9lrI/vH#g,Ob8MFi
U"6VShLpniPGmhWr>0HO5:H+QPr/&hI16sV)FssjloYhC2*4XJy<Xzl0ssPNsSoIN
U"XoGmN$IlFQs*6Iu'Hs%u0s(hWnV#Ii*NI%rXI,pDIy<EhX^J2jlt*(PJ*VIG$PH
U"siXJ0pMJ/VIN;NIxUDI;NbJ=duhSwI=:<K/4PJ,NKZAhtwq^K<0kJ>VtuwD$nlC
U"0KA=\o/DGLLDJoL<v+i8Ii$p,d$qQ5hItr(K0#YJT#Jo1lv?pdJGhkFJfuQRxK,
U"ZXuFnYKXPLrV>u#XtwX.cwE,oi4&M$4DwwTrw1xquY(wMVvL$FiuAFvfPtHc;^K
U"DlZwLPMfktNlsdoKHHne4LrU>w+u(vq(HnK4Mu+hwXpLM3(*xZ,-,Eek.I)u_l(
U"fS*&dI9wI/pgU7.6o;-BjGiM#'._;q7$Z:A_G2a;[WjIECcO&F/]\Y)2_6/#+yE
U"pRJ,#ZdCPEe(^AFmJ^_VY_3Xv\*9Vi8fkI)M.IiZL/$73/Enozt,)(czdnZswCz
U"xDVAYZ_D5rHcJ8Z[FOoNQU1pR.+Lg=B5FJj^ruH^t8:gtpMLr7TtnP<>o9I,(5K
U"g[8'&G:,c,rTF^PDV$>f7RP0J-S&LRb^nprUX9EC>,+4poLKGJ\S#07[o?QXELA
U"XJe=QJ)cg;>Jrgc5.VF?<p1NRCQl1p=[(=hPRhL(GcieD&L_Dl\oV7uFn)bk-yl
U"uq]0:NqGqLv#/lu_^PgtIj)s3ldv\+d'AW,KeZj3XDxB3OeI$Of$nE72_]7[f5/
U"]1B;JZ2WlR+DUeFV:4=QFPVgPgDpWHi3aoSNT/KL:hIDWZ/XQd=_2JDK)'2w\S5
U"\wrJ]buc^GFP[1zp^jLC4r$IWGhsA&pWX^7^tog-3SVQ*qlTFwK=tte<^QE^^sQ
U"O.Sf2TWm^E(U,.#pd<3rgKk#CI^LlDESHLk=RZ2LqnKcRgLoP_M(foTO+svpSXO
U"Sv#v9S#.85$oCO85dD)INu;h93NhvlIsLNwpYI_OxtDiIOy;xy3O5z&%_\Q)hK*
U")R2VrQId&=Ha3Pu(6ss=P):/m$Q*>^?JQ+9BO4Qc,F_t=Q-Jo\zP-*13_O'<R94
U"Rl0VItXR1ZYm$S2^_iJS3<by4Su4f3tXS5jq,J9%+^1?T7?rc4Tu8vst+T9&07a
U"U:*.#4KU];.P5+U<2$9uU;&%&%$u%p()9%%%%-I%(AIIRYz'(Zl'%%%[2%%%1%%
U"L%438MCC>>J;S1<5?fcf,]UE51jXcj#G^weRcgO-cEKgRT$-7X%<AFl3[5dlF:1
U"U<AFlns_;uamR=McLgcCNxHjoJ7$5L1Zj#xNKH7KcS7t[j^0UisJM)uXDdHD$*E
U"A'9jCs[J-(72nQ.bXe>rDC+a0kE[.P2;gWbdLLJ7Wr%a#D6kS(60M3CkS60Ii=Y
U"V(60i=.6k$8&0i=6gkSpk/cumq(8b0H%v]vM9*u^X)$GnU771V3\[)H:mmUCo(7
U"[)HB:mUC643RgpM^Qo)03=>LkUpE-9AUWo>X>MCCaXb/hsUv-eCUW\[1H<XutMp
U"*+Rg5f,8U9%5='h*fTFU:)U9u*40-1APF%s#A.*SI*gQcPPpG^s?TX>Tw_^.T#M
U"x#XXDk;r64-1Ona[Hmf0LM*30OD?7)7T6oPr_l5',od?\I;.aBDhcDVrH-M;W+(
U"bp48)sIqykZ?./])saD>=kwe'Ha-?QnQqHqmDd^0vw^SLNIYkEbddvol_dR.,fV
U"Cu;n%doSBQ[nIQjK;nL1dhzFmrRX-k]uoH$N0]R*hP(.:NZe1u)jTd>a3RZo3cR
U"rX2=d3iU_7*gTt:Q(vEJmKD%SB+blp#m\lt^hcS&LN^hLw%ul*\xwk'QDlshdm1
U"eo0Nmu2J\rSld:T02dIaK_tLyVm<ivG;F*,rUn3x7six??c^iAp<Eq,ZP\:nZ_$
U"3iYm&v'QNtrVN^Qymb%VFohItvLJ.8^bmPWpI/M1Zdh:j(6PaVqIYlfkSXvHW4T
U"P=nSE/q?CsqM/N,9vy^dKAnD':b7Yht'BZKH^8ztvIdRRsPUo.,b,RndcHVC2G-
U"uZ$gwk*'ZLZIXs#-VAt$uNOle2WwH?N)Z.up%&'9%%9%%%%-%1eAPRzx/Wm2)%%
U"%=/%%%0%%%%%%%%%&%RE%/P%%%%%MC4GC2?03S2CGCu%p&'9%%9%%%%-%A(ePR2
U"JL;Yu#G%%t%x%%0%%%%%%%%%&[%E%/)P[)%L%C4GMC?03LSC:=%up&'%9%9%%%%
U"-%0<QTRI*^$B&T8%%'ht%%%0%%%%%%%%%&%E%3/P*LI%%C4MGC?0J3S10&Bup&%
U"'9%/%%%%%O%TBIXR/sq,(vT%+%vT%%%0%%%%%%%%%%%E4%/P.#$%%CM4GC?D03S
U"6)85up%&'9%%9%%%#-%(AAIRYz/'Zl'%%%[2%%%1%%%%%%%%%%%RE%/P(T:%%M4
U"38CMC>>;LS1<?%up*+%%%%%%*%*%%C&%%*o<%%%%%
END SUB
V2
V3
CLOSE:IF S=59AND B&=28458THEN?" :) 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\28458,219);:END SUB
'>>> Page 1 of TEXTPAD.ZIP ends here. Last page. TCHK:59
