'===========================================================================
' Subject: Edit BLOAD files                   Date: 12-22-02 (  :  )       
'  Author: Tom McIntire                       Code: GWBASIC                
'  Origin: whizware@bellsouth.net           Packet: GWBASIC.ABC
'===========================================================================
'>>> Page 1 of EDBLOAD.ZIP begins here. TYPE:BINAA TLEN:18017
'-------------------------------------------------------------
'                  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,"EDBLOAD.ZIP",4^6:?STRING$(50,177);
U"%up()%9%'%I-%\l7QRTu?%[*B.%%7a%%%,%%%%jg%xSgf1xlJ0ACyze]a>2rdyO
U"DdVbSuS0\*pSV+a3d,.^;*4nvaG.zFPqLkK[^[IzV:%GnLf*IEA*\jvvSt5M_2A
U"+o$7N4K]25r(jlu4MPSXoLwi^vm_/QH^BttwYkJpcmLfLMHJnYBh&y[5)2dFyV_
U"FrhLoRqJn6pcR$UttWvM^<c^X4f>luuZB*wG<V3x2O.3#?CG$=l,s-TVdVndSk5
U"cAPZ2cd)uU])vYZDhs;eVkMbor8Ph\[aP3e..sLNLPY+FxkvHv#>GspW0$0$&+j
U"=c;nsim^bLnEPo-i+mmdI8\a>TezQBjXdXnI(Nz2ONoKk4t*zH&$ALp=A.Qzt'9
U"3S#8xbsuBZ:';&\'cp7#q*$dGFdZccXeUENdW51PbK6CsQH78Ck(7lDo2X<l7\$
U"<2$A$f]RQNP45,dM.A9T*:4-W*?)mc:Z.k_c2/te%0)Xc9Qskba\;eU$3^LGPf8
U"b9]B#B_[.#h]d=p?TBN#M$eJgd?dg8Sjfwn\ApahSiNt^$.bj2X<Pwxq[(XvnM.
U"7jI+dv^*,suah;Q9bXkHmFm,^cS?snRbddyUx8/r6(9?NVcpZ]?Kr,HMDpbhB6.
U"LHeyoQXsV2opt?MV]$dU4>\Vo/.fUGe0?p6(BpSEr^*OZ5F2+erFv1Nug9sg+rM
U"JP<]rK\Qla#95fjnrigWxJt'cXM[eQZt(8vrw+H*ylce%(#hW][?6M9'W&ukkLk
U"2=%oA-C2sD;9))C9)-)^5)L-tDI;IBuN#qaK#+thbbs,Be8e#(fNen(zw&\scN<
U"#eZYoAF&0Awgl769<^BNNQ7*pp-3*v^0UI$DDdL+goF-hZgI#qGCeB3/',I,af7
U"n5k*GsaMdP7H3oep9eXsN5*Z9I?aS28V2tbG]Ah71T[GA&AV%DSnG=LDA'[?)eP
U",4E;LtU[l;3Feh%''LZHIYU2k?aXJhhlrXdTc%;/&tfG0]Dp<I[utoi:W:U^+WN
U"X]d;t_.$^Z;InEAa(i-PEGj$ID^LsORP9e_Qa]\Yo]<8c4<'Im4<(0wKVdV*O'i
U"3$<-hNaqaAv7y$3j.s,dYQ$Xbd(+CMmc,\JIwt9SVKK3cx]96#SVzVl%Ip*O.Se
U"kS):o_\NR4<^qIxhnaTD4F<ICFrcjTJg]IcMKeS6^b*/p3CLgIeGTPQo1dtN-Vt
U"5hF'oMw?H8U78&+=,y4tcjbO1NniabY93j^[]*PXdp:ctI)R3+?C&ff2uGrVrGg
U"bEo+^7/N>DAyIzNLmXcYB]L0F1Soja)[_xw4\.s[GHMrMKqiqjH?/tS:bA1j]>L
U"kt;xT4;BIc+.1FxpcUc</Ui8)Gpj'3V?DkQnaj$R69jN%a]5W;MilUez<D(Bu/^
U"aF_JA>E9)#G%]$I3eofn'yj91'o4(jk:$O'?lKi<=XX]QS8<3/_3\IO8=*#:50e
U"?7qQ%U_g'=v6bsYLWjt<GTb;B/W>BQ&Y9mNZ83l>0iQ&5mLZW3>9>VeP+\s?j9k
U"m>.ie*7mpZX]RnY4*(6;a:;$B::LiQ&8mSHik>p:6)(6Ca:6iBhY(g;?0bJlS$+
U"M%hfNa4.y^d>fo1WKaxaDI=\(h'($(?t7?oOVxvCh2w,vl&3f7m$R1bs#E3MOLa
U"=aVwcl^+x:Q0GtctwjmvNVgsLqp>,(QdpJIXjGypu9H*_>$Z$sCuZu4A]lCOK6o
U"$u^3$uBdCP'b-<F67&MLswcTG9R+cQHfbJ;R-kw_4>cv%j_(2+K?1_on6rXbdPg
U"mrs%m8my3$LB<O3v/s]y(8+i^iBwcw+;DB7S5W?ybBrUow+l>*bu4#RW^Hxfw^=
U"SlgX9:8$hPyJlS8Mnm[xACRhILAT?aQq4:iHo&D6wl1eBf0n&sgbXo;O+8]cf2Q
U"Z4S052<:jd+5E&+I0,?'$a;3]$ryhr0mj)&YmW?-70Ks^846_2,IgV-%([:'iN$
U"KktMNLr_c8N^D^xTR]'h75S3b]Y]cHQI-LiO5C]UE[<hA_(t24jJH#tUaBl4;gN
U"4zNbjthVbbO>QFMb\%zpZ^oTH(.RHts(snQu<3B]nn5gt?n#rMI-#6Tnq7pm#C=
U"gQB*$Nf'cj(kzjBm#qgZfXG%xn-ZpDgZ]RcBseo>c';'b\>h'/<'5m*f#<;mK(R
U"oB'AnQ,JXyqgetRV]dNciQ7ty6t%^5&(i+rxT:i[30FT+'Yxjy'3_['O^_,[C&n
U"Kk7.\hzOB,\e#z2\+&ExDbYpe7Q66A2];zv.^&Vcbv6UiFYc8fc>sSJtZE<lis?
U"'m,avZf\O,yR<G6(C5v+[v'r4Fhj58ybOO1nQN2CCF]?i>5aX_JB4'RA(i-*pV7
U"zewyDBD&4B?v'RiZwve*i/.;iYO/8&kh:g>'m-5dt,G/[Z_jCT'=YgApCe/PpdC
U"J:4)MWMU:Hq;OS'mG5FciDYuBv>lJbws.:g\Y/pjCZ)<0Ltke1[;U+q>\SdJQ0_
U"EoHZp>#EM[a.,)#:;k#E:mfDlE+ucD+5)Ox)0>,dJ0S*Vfq1:r$RPZgC>n+fuxg
U"FyKu6F=cN00.YNWF;lr+#\ajcFjp:33&E=2Q2/_4S%;.OfmSI1oY'oY#j[&3,1J
U"8*s</>#7;BGw#BsFW7ahHN=UvxhXhLI08w7V-Qr(ZmFTQlM?.aN'Ib&n($mE&l+
U"lJyec,c%089mn'>YC&qmXoYcoH*=+9q(YO8i7Cu\1/eFL-%_$8Ao)om?q\[[t0E
U"RtDkBH(e789Hbm1Sn_Yh*IpXQZ9mTwAnv%[6kYLYiI>)uHRlbhOBUVgEaTwXCez
U"gFC^q3ymd+9>9Tf2MJ6BLZT(PsAiHBCW(,3b-jGrd&)J43$k_+;SE/,eJ2M&0Hx
U"EI'hSAe<?:V7R*Wd?/4D^?7BI%[h#T1I_s9$gtav]Z?.adp+4kdf&XJ::T1eKJ3
U"uTC;?so=MV<H:1]tXa+shS4uAe0IQ;pS4.N+]>nn*z;BS'NLipPx_9z+P1qx]+=
U"Yn7W5rH'eHL-($2DDu)Pj75/$:cpsjeSAB*4A(g&BXr.eNf#j[Fe;=tL^_r>8FY
U"/9kp2pYutCpX0JS+Um=8A<5_7g8Tf2yT^_nqaG4F9js&tGLrD,aral\sYn7kudA
U"N4Z24FR(uviCT+0:cfW*j3=CATMI%#t)U&]ksr]Tf^i4zC(Gs*[7;UqKUjd#h$Z
U"kf.+KXkU[PLgi4Jk;0tt%&$#&5A^ngRKmOZA^;wL.p-hK_LZ_M+()T1Yx4BE'jN
U"9sJ5Ij;N#$Mr&^I(+9RHwwq2[>uOE2*K)x?D^[ECTMZ0L(X0h9A,$$VnjCQldF2
U"G'O&=6o^>l4ccq.vF=TsyAJIdN-dYd6)Vgg,WDB(NRA+\vrC_c%7S]Ej8xZNobS
U"f\Kv=INod;T+$1n]n[:'k.3:s($R'26s';^IYa(nDHBpTB1YK?nSM6^j72\L:YU
U"nH#dbR5en/[=Vf$<T3Eb]tONB_ffD'ZM^haJDq+sGDXc2SGk3^ayGJu5'kc(Lss
U"iO[lFp$aj\L6?+a,fLB>/lItp\f;v3&j(-U_R;+A<st.j0Eh&WQ_m(9JoObBAUz
U"sDqoNisiB#Ah#wtve8B,VG]]Xjm)qNeHO&lL?&xDJ*-BG$p/rjc^r*'$?=2d#G^
U"bUDTdwI*/LgjQEF0-$oRb)f#WOW\yB7GK1ln5o;j:'J'2Ru++&UUzIYj(Sq,pdS
U"eJdY2pAfY4?79HaN:3,.ZRh-vaQYq=SsYhn:%zx?B$MAEFe9Vz,E-ZvIr0=H):G
U"KjiJaQ-Ej0<Ym'IXY7l4mPrKQ#K7pMN4en]G-o/=:E+Q3Dr/'3]>KjD4IQn_x0Z
U">FPt7Vr#+<NRM\#H71C)9o5,39A1u>G<9wX3_PJ6$uismckR,D^CnD5\>S]ss%G
U"rkLm,^>pAFD_-^H9>\dPLi0Aid;3e;0t10*?;DvSD9*rbe.V,M-WK;+8b.Dii'0
U"ZgY#b'woJn=eQ=n9&,t*ZtI&QCHx?d2Dne5+w56D]RGQ#:3%+(i$xU=Qe35&D<7
U":Jep_l+iKEWukAkp>YQ'-9sjSKk5hS-HG)M$7dSx)>8T-r#zI*X6SeLs$G3MfY_
U"1dnR;OR*Q_N0W?L;:>BZEN?MM%C8iwNtl0DG<<[>evhsYZt)jV)tTFi/_XKbMT_
U".(h:QeYEZ/A\yfwS-)D(CvUR0VxfubiL3q$YE:QtYWLdfZDq0I0gs9,N:KBjH,P
U"Tx;0K9GDY.STlRvi5'^QZ&D>0Kl5Bx?C1,9eS?w<2-g+Pl'Xd.B^/afcDe0n6og
U"Dl$,Z;:-l?tFNKK+yAi+uVbCKUoZ<YqC>y7v+K%Ykcj_>g]G+71X9C=)eB*9UF&
U"[W:gb?F/\Gb.?35U3YS&7IUF$RIw]j3Bh*nmGc3r7dhCkH<D;gCu]I<$%3scp?m
U"U.fpa,)[#?K+-5=37aG-*G=-K[VpSyfQ+V=OXrRRXknM&[QAVhD/37q;YuJ9R/[
U"qi;gM/(fsL,&eY*;CRg:sJsVxW9MicVOK+1C<ifOSh&1sLoms4gTWO7.E'Kf#E9
U"N)bH0._j$P9]SWA94=7Jc*ED%cO0]VNU]_3G$3kc&CFYfHmJdti[uKwC$Xq$ooY
U"l>mY2[nx7<d7StBi;bM88+75LkQf:sikQC#<qa)j$12[?)UZAeB/daQG:j6UzVA
U"j1P^hU6dL<h^X;(,*#\wde5G5r/S3wJj?R/S%(-n#Uy'HzhcWL;:ii^4^r)&B-:
U"oOLm)L?tNe$(=A9L6HiSSHD)<[q<nsevkR>8H+=Hc2,B.\6XKUON4b1bW7bPV8F
U";AmP;tb#^5<[r%17.gr6SFKS>qGELR'vNfG$8fR>19lVhbU='6&UG0z-e:R$*QF
U"b^(R&%5X_ZTk##e<v1ifwcd(ifQT^2YAGf%7ZgX>v>d_6TU_zs[)S>\C6/RQ'IH
U"o,C4J.x1aEAezAFVE%Kg][)?dI+q9jJP)ElvfJqLk3ZeDdN:eV?t=)e$A+N3=_H
U"TK,5Uz>Di3Vsa9cJUu0\SIUMnu21A3zsP<8XcRd+bo&kT5SR_Ah4zdYX\B(BFCC
U"A_?,KAWD;RvH)?u:$L,YS)jn$Q%f:R5_<F&d0x[m09/Y*v.I9gSNME0bP99(RWl
U"YsSZ1Xb<gzJlMM$#/;U[*\w+#T,5jF5qpsx;_3Z29BPw?'/[BeGRUwJ&BV3w/YK
U"-3%-6eeiirqp8S%b/jc9EZc*Sb>\/X0.Z0#+XjbHE6b'SGhQMW*k.V/T#PTC1X*
U")+0GP;WEkI\NxJK)=2YM[J%c)k._JW1'7<&6&[)e(0WpdfrLfaC9+xOj5DV5Y<x
U"-Ds(vlPDU&p;b2mGni\hnSrM\D%t<xqu-.NK?d#.72h#QOc9sg1_Y0,dUFJd]X9
U"<oaufDq?:v?)A5PhI>.Tl/NQMvugt$,d4qJ2xisvVd>*SMcP[2SYD7;$-?Y7DE9
U"e5#^^%%aUFkt'b>&)])HKI&5'MA=#h3rmURrFAaVP[66ZXnEn#?**<8*UBbygje
U"VkJ:st+kU]^UE[iN]P7BqUPSd?)KUQ5WMo<rgRU0shEd;V^J=55'5kY#2IRV[e#
U"=JL+'$]X[h3ug>J74GIAlB95/iXCLNGXkB::ipW1*qGfSTq3Is^:'xZujtN.bs)
U"9^$R:C_0^%-lKo;NPc_ouK,uRr/3ixVT\Y9RVr\Q(-w>e3mV1uKr\&pok#k_+HE
U"%#bg3Asq8QF($.co-x5+_.X*pjx_O,f:m^BQ8X(>bdNey^&6p^DjCpq,uX2doHD
U"Z2UV4NO^nz3U&j227g71Hlr=(B[CU2fgsQgaII31;O7o>?aHmGjbbBXt/GRvnaV
U"p&tWKEp?b0]>u#Np3'hW#Z;1G.Zd4JEQh;kJx*;LD%I)2Ox&;%a)tNRv)L^F#K*
U"cM'u#emH*QrK/WbF]>$rZus<;52lBN>b228R4ThZM.^BUX8%NoWq.&PHOmk7:&3
U"6W_%/-#QnXXlN89gB=O>33R^9L>i7*vmWyx/VhToViLl/&5PL]Yb=#B]+DcdU0L
U"(_>X_]Rn[_H7OjpKte%>Bd]H;stDSOuOEO/$MRbh5uxN2h<yB.H&pU?.U0=Fbsd
U"Nlx6n*<?6=N/pPeg\+%;#q.pQq$monR#[',cLO_AuY:/J[[*XG2BwSY^\gpgqv/
U"U><a6Cpe30T/^'),-m2J]hF?CpAbY$(_rhcJ&]n*eR7T\I7/Eq<d+BucyZOqu/1
U"6H\P#oUV;RcBi/-K$n*CaK(cg;ugCWOcE^6X_2k3b;;%s%<#%+'f)a,8A4vXx4R
U"8+cjZ'/$eB/b;s1.qB-Bg$?]75dP%:<la5CgV*Leotn5O18Pv:bO5T1R'Hy$xM'
U"kU\?VX,bpHe/&clI=Mh7_uFLJgk:2d:oUL8P'7Sd5j%H5C5h?b=D1qpC^bQRTll
U"Aa[*F0L59?HNuZw8ED-(fICTo49-.g8J.S$fIcQoRj.2x,85i\<wRXP>lXa0LKa
U"3N'LrJqia;hE$);=OR2^OC&J.S*B7_A;?&EQX/:*MHAkQurL7Dzh79[hPSPzx[s
U"jNcHkEbamep<rPmZDAYi,qB^7J6AyPsh=M1yroz/JSl(Z&Gl5'lx>/8(CY7kGI9
U"LLJm.eGSsw4ngceH7x2(CE:QM-8'OJTF8]w'OCj0[Zco5SWat$ruT$#DsKJ\<;g
U"dmAjT:CH$G^9RTn.(5k:HIWLNXQhm,wohu3QrNpP.#Q]/)^\ErwIgCza/9rneY-
U"J,2uQf%GTXEGov$f[JxIM7k')4s:1p=*LGEDzs&)4kE3h]D<J2jJ,sr<4cEE:3_
U"VRh.f7GHPFTe[M74[?d33\*o.b;'xfi$Bxs0<eai]-$]*M%+fY++H5>G*DyoRT8
U"%0F47R/F(8<0-c\7x;k0hR%09FOGGN(^e+C'b6n2NAkY&xz;5SRbfC7_(boNb;t
U"C93wC/eE(57B6+V6my*ad>K6v(3]5DNOhx]Zi>/qDnVl*H,z.>KP5+h/>H3:h?'
U".):*$n'S4SlIQ>/'o^*_Ivxk4_I.B(R^Trs9lspRc^j<U5XinZ:jEBf'X1.C1_h
U"48vb.-+D#jdKABPa1Tl,s_T5U+Qhl7fa,Nd?f,Ip+=oaKK[mprMNAggq%>*Y+&O
U"Nl1k;ppG?Je3^1X)?$?>I7*N*RaL/U?:&g;Cv&DT1yH-Fq]Z+BFzJvQ+A&'Q-m+
U"<^B+]u&3aOto^-Ltm'L2ZT4TtB+TereT>hu4E]\$NF%eda&-vlo1,_<T>J/YjNS
U"HZx0U;uJ_^npb32qaNOZ7f#R)N+QpcG.5^9FFdmb2lJK5f:99GB5ZTKl=RtAbE7
U"&QIrkJUp6_phI$8cXfbJHg,*,*aZ-[pJnEZit?jgXa<W((lhPT*8k1P6n.\6Sy9
U"9Uc,=>xpOZM.)[BE_%Rd7iT_;D3Z.)aN-jIJk'HGI26Ab&ttQ<gp\M89?IIq:e6
U"k(*VHZ[SAhq&A:o*i;4rlgt6[.-)E$eXkpsQ-l.YKn_)ve,Q[kTwq:$qS3.=0Dl
U"R3E.Mo>+MB7[QKt>^wd<S=Z'KCjT,V:40);Pb1eLc,J\H9pTl%sa?G:0*\g$/=h
U"3LWBd;Hb.?Y42-]/9lOof;z;2#a9s'-+XIiPN2xD6r/18FlE+D4DvD<SY<Gk>,*
U"h;W)9]e'$Lh/;tcecvK-80mMSpmRTo%-R['s9_;77wd\)D5Qhx2vLOS*\G8d+;T
U"Gei2LIIzhTe'tc/2RfSJ>gmgDc8Xe/'/b^,)zKCQ7[o/jsP]Z/T$=[[hUgLc.#<
U"GJgo6O\Z1Bx9nJfA+3a[/A33/uf%EDg$O+fS_\0yXk=Wx*^TU__l&rRlWGlw8fJ
U"SziTfNe=p5NqLI]\KluKL<d[%HlW/WrZx[V_(5'5HZQN9N*l:#-I4[oN'&;ki>w
U"/Gmd'.QbUe#J=<-C&]/n)Qk%fQDd<X=<k?9W4,daI%xts)OO%i3BCSIhJT^a8LE
U"]o7-Fkx>WJcbq&$fIrHIOf:$.5=N)+&IMuHZ/[Jq[r_B84[,:7%o?F)N,*38^3?
U"WA6:D(<dqj;]3cnpjwPC[oc/8O6IOsC^?5>^)?lCdbw*a))zv'<6a7j6J)Qb(XQ
U"0Jd]&a4+>SCPB2HY;ktY7HAeoNM75J3:Y^KKs'-YMRYYKUq'-YPCYfKKwQ-1de>
U"I0KQfC6E/p.cg.?kr5:Ji]^[:p#4?lV'I>d()iU9'K>(7d#USGfT*2GGGHrt_ki
U"FE$B(KFY2:f*[xlW:or[&(cO<E'hvaRN$$#blwimlHBMX=&)9t(=qC&%:\YK'Ps
U"U=&u,K[KcAEZZZd;p)hFb<Zs,&tAG\Zh%T67qZliL%v2e>=rC3LB7gKWJO2DxiN
U"]'EU\JDN0YB5Dc1T>UC^#&bNEQ:]DzAEb,MArwt);Xxv\HOh56tR=Rw'3Z0'P.Z
U"\v)D8)Fc6fL&*#8u;u5uU\sHEM$6(P_DN/N;tbIJk6.uvUA;=n*w9v3^79J#n+N
U"mZc$8hs(vbxj'0ldK4+tEboflo,%vj3YH*2ek;dU,QwsQ6Iu&pd6Tfl/6GnG*UO
U"5r^q10W.$_]+?TPy8'STz<6QT6)j#=\2g/-^p\#nuM/o2h2\AycPs3ZEFW:f-$%
U"E%H0YA'b-7?k3bE15-p8o;snm)Uo58#[hF'QUb_Agb[m6WwIs4bh+D$rBy1rB*f
U"Vj;bQ8EZ-&:#H0H_7r^>Jm?e.Reciv\]S#FZV&iF'jvw7H2SkB7OYuz171Q9s>)
U"JU0S0N^IVjK$ksFg^=HeO#U>]UOFx<.vTZHFq9P&SN/2472;I3WtmkH0S)Eb,HY
U"FR_cMy\B-qp)KhKadOVc7Hkg0,v,N+QJ(jr&ff]]8lC/TfH8\pa0Lxt2ARAM0jE
U"l^S4Ke5mi/W'Jdf,4VLqcU__UmGoiY_TeD5mpQ-p5IR'ON[*SRM2VqL:ais[-g4
U"oLCcx09m_M9Hx58Vz[)'Jeyg2vkJj>4C3s+iY^K$[L\_^[s;#5h82NT7c1fOfv?
U"kw4$UQ8g<]hjN0UeGGx\o3#boJ#i\a?X(tE(XyR0:HJp$Io&BAD?1Qhh3raDR$d
U"F[>64i3R9kB/YQ.-E)M=(4iPVV,So,lBdIBcqNx':W9#NV[8E(fD)u#i\E)KrD0
U"jv.X?r4GdGB]w]Bu1&N3:$,HIH?Aa8]Ek-8l=TV(nlSDEL]i]ME-56cA^Ar\&IB
U"K)_j8.&]aUq<j$ot.rr[1);nouh6Bl4J-G.C/i^A*4lw>I4BO_#_VU]k]YUB;q$
U"v??;#;cy%Iw#R*$GzA]h<i8QYc&+%S2TnNj$1u&Sk)aN(9=$NA?cA2+pgHlx+Qr
U"%)d)(A]>Du]qm,?DuuexJ;uFRaiwN3ag<QZVgVPBCqFh'B<qwKYseg+NooN[1[7
U"w'plL<C%u(f*AGA>lPqq\N]G#k[\XV_-)LC5YpK$KQm?2L?gV^.?IJ97Bi20s=L
U"9D:E<ZC(u<aGxi0x[XiA2B?i+h[\Uj1T#2f_?cL.b?v$9?K[7o2L/:RCviNmy*L
U"YT2H3+itFQ6->\HH[^;)o%h:KE;'gEEQAxW<Ik'/V2p+bB.e/X)7DbT7FIkr;g-
U"#OL3ikr&]=>?[^]i&AfR?dAki'#=a*LZ(u(A%%/0eSMlHa4mgM6:?KVEr9WoEV3
U"56[[kh8szPHL]yi?]7/2HV6#k+eQJn]?T\w/aS+bWobXFWV=pvpc?oZ)#cD(SPd
U"FL.k?nJrn(cPAS_t<<q>ADu3oRpI6gyy'wdup%()9%%'%-%,o6\=peM?4&=&%%&
U"w4%%%,%%%%jgxS[rkUfbfFo<de9T,^$j5pH's+)ExTupY<c;Y;ZW'h%7Yy87Vzd
U"8Tq?7RsSUrxF5sSQ#Lhxl$:w&*poU4ank.pW4hrAL3l1+>Q?rSR:K+Mo)UR%6Es
U"+Z$-;<Vg(q04.KP&F,Tq]]-qWgH8h.FlrgNI+RNa'DzXvSRN;Y6lfAY$j.Yj\nF
U";0eLd#DBA$1Ensjn3P_G(?h_BpWdp(1PM5IQ6B[P//Zv[21tloiuNn#Z6;Tr\qT
U"PH/.2,f+pqFbkHx(>iHksT)kSCsCkHra:a/>yrlvrt(G%*$+,QJbf7Eu>u.#Vp-
U"v$:dU0aW18=eW7$:?QkE,h?1V.kHLrFn_(*iJQ$PD,xfj-_)u72k,Plh8wqM(aC
U"FKmz7BL/5DI=IS\Qs1JIl4tl&56gi-vTErWNb(kx#r-sXgFOTod;yn8\U/>0YnM
U"?,8'X-#P_6\dZc<*wDm<\W7p]zTQ]Y$Ur%/up(%)9%'%%-%4\bQRYHJU.9#&%%w
U"%4%%,%%%%j%gxSrRkVff9Fo<u:5T,$nj5p'Tk-?NApiqj?3)[G5qd_)+2>kqH-n
U".K+2Xf<6guN-SL<:bVZxWZ:v)=OL.6$hH9U^S;^hU<ofoLG_v+]i)/]F<LF13[U
U"AC)TFZ-=JL-?SW]cFBroErq%KcW9o2<'UbYe,xqb6vfKhla.dPbnFpq^ex5'S]K
U"lI&NZ$7UW*fo+sXAOOs*Y_n(NXG5>e?\)5#lGs6oKl8(D(liow]qfd$HW]3D8JX
U"ctvfadvq;hfk;i$p^wc)GFBg(mgOZuNuLqrD:G+Font1EW8WZoro2ox*>Hqqch)
U"I[I>Xb/1Lc$lh?Zpe;b%u_(_($mNQX?3rMp()Brc?<ZeOBsTNMqet5<^?nzrLd,
U".k9LJJc_60)4DmNZNsJkAAYXQ54TU9v&#Id;5Ysuvm3+zkwQnvJriiEz]mt8opg
U"#9/n-Ew8c&+HZ't#\F=<'=js<f0s:%up()%9%'%%-%eM[\=*#3<%I(.%%w4%%%,
U"%%%%jg%xSrkjWN&D,=Le9ZfggU(bzM0gmsQM>%5M%)qq-;$%)c9E*l,#KeMEi9_
U"0q2^cR4Y$0_]p2[.bKEYu4PpkA?oQqGhB]HbXrQ.p2>6htRxC^$X8?fUGJncpBI
U"^$de?Ea\Je<Z]Jc/ZLxq?IdB,qB7WUs%Rv-+T9#7Bh$8h^1WP]Ip>P\>Wh<Z\EW
U"nq#YkTc1^n[]T+R7([Ew#v#Nk*KNsc<FnkbjE%ARVp_1jEc+/Q0I=x52U&p^kd]
U"?8jc,B_9M+a%Gg$Xf*)VuG(W^b[1iO#ZMXfX>&a\BB&8RqUW]Kr#M4<fWAQICD;
U"UdkV&Elaey-CcM,75e0jWrLk8Q$%WUB+6FpC3DKipRXkggpjq6VFQw..),Nl26n
U"Pe>R]sj,+m6:q'41Ly2x].VVrB?%I2qgDR46<JlA:,-knxGt>Nuh)=okF);9i*<
U"3OyH+3&[xG&D2]h1^uA6$&a0?cKCD)/Y_G$EZfjs.jc.'VDy<wQsMvmFe,C5ib=
U"x+hmKS<[rByNt['(^7X&\16\NPOmic#=244'9acgg3cr'ZW8bxqpKI=,jB,*JU&
U"yWH]pukPl-frrtWG$*Mj2X&e%wxUyTU<WpJhCqnuN_hB\h>&P1EFwPN*OLY>+'#
U"wBh?]$bi-37NioVcD9jXaT#M(38.3]*<'Vk1b&njV6*-6zhu&jFG87$v+J#Trop
U"+u6dlsqSSi(WVrm-VhskUf-OO++D_^wRn5?DPjf^62Y7MU[XG,$&zjR:FOifb)f
U"pY4,\W]?C7(>D]Ghn)#>;x4BB4K[m6u_NV#<6%ni5]>%qqc:p.SryVxMmb$cY#e
U"Rp<4T8tguD)\+t$#;G(\$4URrsV[#>rFBw;;,qez.T3aIU>l,wiNYF$CiTd:ugq
U"Y)HJJ#(5)aiJG7Pg*C&-87K$.#Wh_gQSt,p19Na#_szrPToY)qZA>e&)RBkCqXP
U"BoGt\u?=3Ab:]Oh<FMtaVQ2tRyM?dn7q2[&oGp[A3WH>VUiw;D-iBr,XGy->fXX
U"2%x1h.AlFNu?]W9Bm=SJmvK8n[Qjj[tSN*4m9Z;bMv2DFvV9BBH0Pl2(bpq,ndX
U"tM4W8<E1N(M?cO.bJG3BZQ>SN1^fBz*hM^cmSP7>l3D9X8(zcQ(4N(u%p()9%%'
U"%-(%/M\==psm%#L(%(%w4%%%,%%%%jgx%SrkXEN&p=]TU5Fe]$EXFzYr<8o2I+E
U"aqV)-]\G&Cwoe$+(A78(0EIf=y[_)f6k^J4(m)*Hs_vc5w97ADNQ++\WGl]3\jh
U"\NMnl.#$$d.k[M$sMuE&=B$Ozh4Wa\yqQM>pez:&teqG4Nj96psu%pn#(Z_br04
U"%-hN5VIu[PE;]ihWK'gK/2?MHB^lao^AFfIXy]3ASeba:d#%9Mhx?\%.lp<Q%#^
U"^y$SJ\AbL/:N%6(;E^]?sX0SaF(mX[4-Kg$M*oW?nY>s*K3&%Z\HfA:OW:BU0p^
U"m*7t=lAX.8E0$h;C;uXsTZkX:uJ5Q24k>E(iAi\HX_MG*fhu^rDm7B6_Ztq+Z*r
U"jvw'Oxq]-XISFIrj.q;6qT.W3wIy%9#;X>i?j63<D?GMF:t$I?-]S7.(xIb<;Y_
U".kK)\oftd>Hslx7cLPLpZR_hC5fe)HLu_.=TU:qF:\./p<XAjCN;RWkP.Iye1?6
U"0M>2.:ia*Kj$n:d'XWeBSxF+.Jm[re1EODI6VFcI:9:UWxflTV=,qA$xZGOiv_[
U"_iP*DoJv9V^-9MRFOejZ<rG[[[yl&7(HkeyJA/Kf$i.3(MUi1oC8Q]:#yMLz9T$
U"#u8l+qsHBWiZ9(jRGeAd7_[bwxPUQVG^8=(^uRB,q]^vR0MDg=y\UVFDMl8gdAM
U"Xa9=Bc/c84GLL\KQ'fL$elW;kB[yIO)>gD0GFXV)&ooA2C9TyGspav1*ANl3i(a
U"Gm7W_4Z]GY$$ul)u\lEX]]OuRA15N&6MDHRLk2?v4ZNAGqCd85h9wp4VXKtm3=j
U"%PBh;B%b_(lHDlb?uko\QYha12Pc+wk+8_D_Q[WKzlLmchg]jiwM1LC^L1c*5&/
END SUB
SUB V2
U"k'3Y5G,73H9g4eDm(p:66H*FqnU;>lq-<VWVj.Jy1E1FHrD(Z;jM-[M)[H7VXGT
U".el>cKJU0Ka1-4PErl1,^9JY^8HqnZb6KPi0jDkGMrGn\2?SwcvGNE.u^uZ/7F*
U"dN&xV:BpN5tv*oJ:klL?Oi2pln'QhKUdT26l^.u%p()9%%'%-:%O5\F=%zw)L2(
U"%(%w4%%%,%%%%jgx%SrkYEf%p>]Le5gV<=Dl,bNxPDtPgOIpzXY0_kZ)5W,#w(\
U"9?lo/hA8'Zd)okH8p^<vMv<OI7h,)>krwNKAPQXkW.Ft6?lSt>o#=Z_==d:(Z-e
U">6BTXMlqgK/9x\?O9[JP+G3qzjoosf^YCJ-,U0^OhzaixX2Dwb=pTmo3aThX*34
U"^ciL2ppt5Ga3Q^q33'W^_[4R#FHZlIJ#rhfoVf=Xzmue'pWt]eAJ$>Bybm^tV76
U"0K]Akratjun.\ts2DjEuqs>j5L<Aa.ZW.BaBPQ#mHHl=iJ#D%Hqnl2k'uE_3a]W
U"kAF<AN2zL*Kj<HlU-U/AD7qSW_6222^.c?h\V]]4eQ\7$HuYaq/_>?Kd%.Crw)s
U")OzMXyxY_yyn%jj-QjGqm.^G%)82#dzj$M,O3O#3Uhx/7.s#YsY_#U:l>rsK71X
U"hsG>Dn)Qd\AaT_KpmtI<.t)<C]_iYs,q4o:XOY41u6Zx#uM+Ol8=G/Zgj:i,D$t
U"h[j*R8Yq:KtQ8jp[zaG3O)G[P':;z]N9\lVV[fneG.4L7';NA=YHX:XduK0;8Ib
U"No\N'4ji7dd4m0^IY6?*%Y][=2%(HJZz(n/q/yUN=by8a#<y&\1Jv60A:3TR[Xl
U"C+U0i,iX&5NP0U'Y+H%?sUxCW3DH]syd_QgHrVL138:y0:_tzzXH--\+;28X.BJ
U"zaEW/VQFgsK1x_e8.\s?wJbW4bFOfQ_]?>iuH\/2KD-/2>sRR0fSZjigY3pKZ4C
U"Ncn-D9T(0N&^S-?RmqMal[38R/;Ty+$+,*s?FTu*_W/8h1RR7>Vi75hU&AkXV-f
U".K#2<Q>Y29747z+bC;)Agsgb:KQ^6zm.f>?lju=SN=mdW=F__jXaY*uJ7?>n5G>
U"7>1]Y<*(/gZ\]XoOe0^FOGsA:;Xw8<&z'K$xwnmUY=,d4BR^fp69'qX4VlfpB;C
U"\n&r3(lWls#JEk%nRdYD[qLxb3m_T7fa^\6$[O99YDIhj,2fs%WPzSQH5DB1zS;
U"3jVOm%yW(q,ao+*xGu84%LZ(/AB\Jt7FbJNcjXa/]IaI_0[f8pjXQquXbPtXY)?
U"1e<J>VM4Ah0#eLo=oA?Vja#Bp\R8he+aq8u%p()9%%'%-:%/4\I=_/J'1>(%(%w
U"4%%%,%%%%jgx%SrkZ-NPlq[9vA#,#)btp4J:D%CJ&748JZV[v(\j>O?l/[-#6AT
U"GGZ3lh6F>*WJhfob/o't/h6pGQjd>?8e'+Fq90jqfhHekjRhXuu$F_A<rm-Imm=
U"'?%c(7)crvRLf4y3hdw+CbxKqH^%dOTD=(7dXlo2d*NoX3Mc>)9;S;nv\#_kp5d
U"&9z)5)n8r,_EtS3.>5nG(p[jCU\&oj;W?)jG,$TZTuUcX*^/<9eQ/$f%oWokK_w
U"POsT2L\;R<n#<g=aSQ:TD06A\aB)H/9#UM&VDyH/PwX;k/T8?G4s;+A2^B#34s>
U"8]:3vY3Dk]X#=2G9VUf%8t]1%<[h)k^D\?QS?GD1-fWYIUOC##8=??B1:f0)(vb
U"]Y>%>,Ci,bM?\q76dZ$_K^Dis07>Pfq7.ZF[UC3<nz=xhg^&j7GC;PnG&l)7?p)
U"5P&Z&+/]P?Z6'=HfY%8LG7;4\.$5U,j:]-#(q'Y^1:Dn[X_K]TimFc9#:f%8/Ca
U"X*G=.H\vr5[$i.=;0Vk%ZLu;XFjCFc:l'78u8G'k;\Vkzwi4Y%C(nQVkLB'R1Zo
U"H_93hL06hh;?U%BRWTG_u.Lmxgb*EA<7Ct=hly,SBK3Zag>#sRT$ktggAlp,$-*
U"$=V;l'r*dhx4pw#K5Q8Jp7Q0:Am1988KqrN7fHF$VhuLFp\HF$yBqk*Oo-%XNb:
U"vDUfVcsFe\N)C,FT3&BTx/c&l9$p_JYKP]QPoL6ZB26(V2tXJ:bN[i^n$ng<]O=
U"nH+/I$EVjy60NHLlGvxH.YF,gpaGcb;bnHc8J*w4j/KHs\c#u8kOKFcL^SB,WTd
U"_F%h,rp4L?=a*KK80AfwtBC1ZbKNXks?6;<twAevsbQ>47\WcNnu:D0A\]hOJ[w
U"B(yhKjzdvLT-l?o/NQ5p%W<HYZR]igmiN741m$MtW9w.^r0cx6)8+[>>0koJSi1
U"W9MGn]Lu^SdPt-:[&])q7DmyKFugD]b0T:8iek(_Xo,c$=H4p(OLNK*m=TVn<N%
U"(up(%)9%'%%-%e'5\=-&7myl#(%%w%4%%,%%%%j%gxSrRk[N&<F=LeO5g<=iDlb
U">;xW-o'SK&N9meNubsKo^>v[aIq=1^#^zkY[)<G,S>w&MC4]9P,:M>;&hX>5Pq]
U"l1*)2MyYQSFIFY58R>t6?GH&dtPPsDgfKCXIj%)=HpS-.AF4*\,?u;V;mr?EmJ+
U"gY)90Yf)oxeZv\cVyq/N6<,NHY>Y(RoXSsp=V8rIrU*Y9/r[sL\icr9BR-AD]iY
U"fhAi:4KY(Q>r#V2VAf9Q:3hg>Z'MVH5vOD\xs;YQ1S>ae$Vn?ARx.uBw'8MD9(X
U"4A5vA^Lpm?t[B.r_G%vc,^;.D.ean5XOx?7Ol&NFDvm(JQUcdgjm3m4tNOX[9dK
U"-mBWe#PGaPjo'ES[5^&+Z)/.y(L?27FqAH,Q08_sE/gbW*^[u^Y$Ua(EsRd)xQE
U"Jh?RZWJ0KJeH/$,^8mc9]OfTIFfr:B0&o#*OoJg]FiP,1FV]eqZkq:yEe-OLL'[
U"$?+f[f#XFQVc'lTlJ9fbPl4U>n*s:j>7B1J5#YYsM\ETBa,wXO1?3md-OkzxdYY
U"%LciM3\U$WcO(HLOdE;CBJjl,XPD%806(OrzGoWz:N<sl(C'bw4XXVA'QH)r'k?
U"t;_iTc,,B>YL4KEWqz3#EZi6\5w2J6*JXiHG-W'JahkRaAt2%uo]bxHZo$L_m$8
U"BmZl.J)J91KS*O'#4:,>E1Pjy#QL8)WH9K5cte]>u?cMwHh)$MYXbU<\+Y^k'qH
U"[r$f1**W:R%EKa_'ghNQ3sbAwvyH(6GyWrw\FgnPa:uQ7=*K8D;6GHo<U]9_ZkH
U"Wi7<kB;VZ)dpnGNZOjN(omWmqiTr<+r>mLA5^9rrP7fO0p$1DObtI_7:_Z7*B6H
U"xN8bZkHsIh(&R\gd4HJLt_R:FrMQ-n57Z6eftIle%Su]qOO5KcFwpXDN5t\8raj
U"tHo%[-wDMq;LIOt4,dAbKZ)dcbNH6^'4j1tu]cqa-O:<s08N3/$oJ8af8s%H7b?
U"Z<^5Z$f^_fNq,_(m%RfSW;9.ufpt+uDr)1X2XtJG40&OLVZeH<>F8r'v;RWoCrw
U"FgDpCPnXecTXuq,5M7n+?hw%Tup(%)9%'%%-%E]5\=a^-eCB#'%%w%4%%,%%%%j
U"%gxSrRk\f&<F=LeO5G<='D>sc+EJorIiPofI-yq%'&MRGggWr\(]\:$3*;VOjt9
U":i432?0AVc,>bQ=\,6d=Eg&97J)p.\[RjdH]8urFHCo0o^d/RxIrOr+%u00Yoc2
U"HcOlng\9TT]w5qdY#>oUUyLh^_%TPiI;Jma+X$CEbKP7]m)*TmaR:as+]\5kTN*
U":EFpS5)[q*N#(?/]RSu],+4d\>&X;*^8[3Nx-2*Kyb%\bsm%>'A7]v7oIEHzL4<
U"p9R;ZIi\8'=2=bt,iGT#>V9H-xt'f'aL=O\31rh:Dtm#\Xc]]QP;d[a61m.oIv>
U"er5J*f:u*RH?,r(j>,gjB]iuWSy%4Pn[l8JoH[oahi$^Lh][60LkA**S;:[SU28
U"'7;qLM*cPW](r,65Qj&*u*tHlHu9gdf34ZaiSNjJ^#%lBu0V-L0O;)1nCe1cael
U"=7jgjr/sdtG&pchCy1^pm=LjK]mk?Rkpl)ti2QDjHj?Gh?4zQrpTAVRvlgBl$)j
U"]Hm,6Z+cq>zABZGe4qv[30a^MT:Wh\=?r./*c5#$cu4TI(Of$W\l#)O&0o0EbXf
U"HMoI0uMLZ+\q\a<k0qP87a#&TD=4TMZWfXmZs#C)>QBTP$]e+KI0:Kp'(cu1Wr1
U"pRO=^i18m(G'3_M$G8\=2=WdmkqPRo2,xQzQI_?*VUn'fi3EuQ-jCFY#_gqfcj8
U"Kuoh7K(kAqtKcg#R^q8n:he#kyGFF3m*><bS+k#TCuqEt$Z$cd=XmMkcvZsfJv\
U"8tcd95B:OkhoG3/:p#SGq4_AY4iLLSlb.qN'-Xx=a34#]CaUv_o2OGD7\cLuuPf
U"4JkC5mNDGl-8LNlTWl+30D,Plut%pExr7(h&sR9V,:Lm*];IM),YpTczQ7[Hw1g
U"?*VP(K\D,S0yp+bs*u%p()9%%'%-7%s*\U=Vt1'xS(%(%w4%%%,%%%%jgx%Srk]
U"*^&pt]Te5_s[0f6CLZ8d[myIsd52$S%gIyMXzZKrCnkl#P;3EW<k>sXcs$OnYjR
U"*F&l7i&3J%7:tJ64l3Qh>CZr2o2Y<ftb)LIlL49VAA%wsV2XUdI_(Kcwgp*,YRb
U"vgRq1BP*fZ$;(6q-jg&LZJw#Ro02>diJ\^GL.JAc%sXL<sm570\>PtmsX5$QqG3
U"tf=oSlX(i\>M-6*^cn4ht.KXtn\[:p.t4u'\O+fh2)B1GuP*I-Q9$KOTjik'_a:
U"hop[1PxJ3NihnCFrUKBc'HTi'<IouHt_7<?PqS^8>yokXY&/e(i6k7Z9h^:#m:c
U")p6PA:qS3Tez8kHZ'jRn^4^DO4U>;)\x3\%9<)kkSy$dkpezIlP]W1eKOv<#0c#
U"%>QDE8Q#\dl1m2PQ5bxo#m(J_5Pr#DiC.V+gj4&ckI.P\WjnFLdjkoG^0n\qdvA
U"jpI*-*_gbN273f1=J;h2u+Wz],E0FW>Vgk($D<a(WukG7Fx%^M,(if)hyTbY-<a
U"'(mEpi/jr\OFPs:IUTF<YmpvhF6n6IYArUv*S]JPTZJc&&ojQi7p9YX\7J7ukqa
U"r&i%TJdS>6hCGGz#yq+E%IjmB2*?0VU_$n%aE)_f72g8hRlAW.ovw-[\yQrFHNR
U"E;4an*>kLa#c6vuJs;E*d&CB.u4&J9XL0EuB?rD6\6pCkTM>ousG<'IK+>J&nF.
U"Eh(A.$o9lC,HH]FC9oIFf<o(laOacA2/(Zz;wQ#to9Y0..s$B=hDHfxWNnM9X)M
U"tEQI4A?.>i]\ywLstU?Tn]P;9kziv%+ByQtDEt6m,#kb$>lGa\/Ns(ugO'(QPdA
U"f;%\[iLP3dl3SFyLRsCXeM22sLdfFGSkU&-YTpWADB()\-0LX\'Q'_h5qn2ida.
U"Fu5,4nKzu^32?FBY]Ttt3:8PO7%w?+Gs6Zf:KnS#,Xb-FccLre6gt/.oVckhQ[Y
U"lB'5wjg31'0;jrlQ%shQ0W-,1NX*bjo2u35R9\sm-+'mrH5-D0cXl5\j5WWFu9%
U";?rg.Oh'bTup%()9%%'%-%+%5\=_8*,>'0'%%&w4%%%,%%%%jgxS[rk^fe%r>LR
U"e5F<P=Dlb'N0fo%QwvG^OwyM#iguI[mSAV%YDKs+ARsgBw2dRUdV=j6$V3x1f$a
U"w&ojH$uGgeg-ET\D0XO.PJdT^)'kk_7BeMBXJ3FLKi6aP=GaY$f+>Wb^WR08BWe
U"fDg?t.FpYB+,4JFJ,(-JXe/j>VO=FJm'(mgL?A+-XPn>4G*mhu',g(52zE\bZ32
U"ajq/XFNm'K$>EsP?b1'O;GADq:r0sKU(AZ.M^lby_kh0L4Vc*+>.MX?<?6iugVx
U"H71_;v=nh5hEBEr'n2Br)X.m';htHsHq?8(5*#OJgx;40_F=:YrqTG9]%TBiNZo
U"A?#K/gPIA8\RPgQCf'(DACnz=7SJLSv<-F*BjTEMLm+)P(?WIlL\>?3RAn9Hx?w
U".9#o1\#0pA,P+o/4%/$SR/m6m*0W.5H;[eQ_2c:[qajf.f<LH#u5LX6c2ma&?0&
U">LttX\FrV?7\K,rP[>S%s5'Ehi6EHM4moFb^3yMnIdvq56#UT\[rI$pAK#DwODt
U"R2K7f#;a^V5nhWr)bGAoY2FOkYWpYF=BlnZLkD8Ijmq)VmRRVd;M#+Oj2,0Hnp^
U"[85[Eg(j.&qCYfE\120HwZ,r?QZaEW&lqZ17RG2;Qi48:p]I2\zrM4MW#6G<xc$
U"8.c)6'blBtJnG^0bF6(t*psd9SV*ZgT1=I-4vi;U9-#C<65/6p<y6SgPZ;Tup\g
U"E6hx+jsA[];_%i(sswps8+((T1?pEP(Q[byi/nplzU><JirdIGEf?p1thVcl>+:
U"6PHqq5tNc+cjEEOBT-N-v>g>68er#tRCI:#IG5YaQe.bd$]$a-H0(#wY>>EPJ06
U"N8)(fs0eP_;i<hB?;Zxm;JOKV)$(EKkNOv5?w<ob'w3up%()9%%'%-%(SlQRBR'
U"c'&A-%%&08%%%/%%%%wjfi%rjSyS'y&&$TA#2(6Ltz3wpZ4$*d?+pMI6R\a:J3R
U"uWD$B-6z#fo6k:;_'G1B1(18l_dB3tP2IWk;^0r1I0Oke.snLsE[XqtFqvjp4;b
U"kba_\Dg0i6?uLFksM.B)uQ.OdrZ0DTfQruXu-]n<tmSS$/2ujNaP.X$xla_I2K1
U"brzqz/fpfkQ)tYwceoe9rdniS,CdNig[rmq$,'nCkWK6:O*_+=8Fz7BN.*K5Q<4
U"-5&LL0$3uMi;=*B?WE1RR3y2(s\.k?J%8q&pp\L+8T[igJEJ<_Q]-v5)V>$J^\5
U"U)L$aQ8VjbX70CrpBPn$N?lQP5Nr)#*M#>W:Kop#^>%wgOrM<lh9TFVNIKV9yuc
U"4$JRql5$i;0&Tyn6r&V\sX8Vu^q=^W3(&C:Bkwr]P_0XE1W2?$:%_1K0v]%ewdf
U"8ayWHdS'v]]QGdA7M5Ji>E\lSA>y-GA=:?tgCxxp*dDT/6_O6PTkGs035,*RT3P
U"^Acq)'SU'x?']+JhKX^gd0^R6OYo68eC/9#u7LKd\kzS/$;4GSHr0.ybq;*v+&t
U"R,Z9aYZn9InyO=EbhF=dm1;70dyN[dYSdWhJ$uOqH6']TbyY_&/:zew1ql=Oflp
U"R5(DCBrKsr<jBn+CmJ5Qsyr+CtuPC8GgLQN)A8k3g#lQF9,QP.jKTV2Gc.$s6jq
U"fbr8$$&w$(4R]ql.0*U]4_7K)Rkj4M,^:+YbP/cUkagML27hS/*Wz^[x$29%(KM
U"RKRhTSm%S+(aXm;TUL^pNX$<>k[%8?:Sxw#m2#;$B:BetCpkM&RlP31q3\ENe)L
U"]$+n?Cg5UEI5-qMY)_S-i1;<t=jG2ZLj1*pp/lcTM79CM?#h=w&.#k#x>m\X2s)
U"Hce-LHA+eT%bijB?pe?;A?%eF/mbcP33:xg*u.z32L,AG:>,fC3G'^J\gR5vYY(
U",[=eq0%jet;4n52868//wE\M5[18i44K2d;.sgCfn'A)aLQgM*9b5bW_N#2=L$U
U"mC*2$xT?)AxV3Ui9x:StzSQ?kDQG+qw;'vK*Xc=GC32(.Szu>DBksqhn/_jm]O%
U"CdkADe.yKbSUvLB/._x+;f'e0/'3]K)Viq.yt&55K,kk[J]Y^Yi0G_6g37I^/##
U"]vH#:VEA=6U3zkJ&Km_^z90#E4PU9fC-WQiB:o8=6DPHTn<dbI-D1=6*4u;R_1-
U"IEDs6<NB'j.DD9u[GhT$pBUtWMB2IpaWg#'j7E%a2O0za#,feT8nst*Y)Y5y%(Q
U"HNt?#AxBUC#+nC^(92i&vuMc2]T42P]oe,Z_I=q0vEs0i)O:5b\%u]p\&9gpx[)
U">yyA-<c>/lD=Y,_-')U6Rc_AABY#ndt>24#gB*CDltBF_2OYaC^Ta8QmPPZ=7Ng
U"(P,Wn.&l5ZHECcLtS.h&&OOVa7/<-S&9<NIw1GSrP4K\3Mqc#[b<eCFCK623m5?
U"/AyFdbjsV#+p-NwUTJ[:Rm:9]tX7h,_q6USoph(yz(mdj4n#pW>:p>J-ho_J%ca
U"_Q5_g0Uy/2Rm2vGWdaG7G9DB/ng*IxNlU5bt8%d<0$#1j[V(#E;?]2NTP'dRLSY
U"Sb=4XcI[qaFbn)^<1W0hB\EE1()F'K_a:Zh_K7<j_Oi[jRqnPSr+/wUDXTA\L._
U"\U<nfY6cJ_WCtm1IpE]sral[-gnH+nWCE(G,j'tu0FUO*(f8K2w[VApnZE8>XuV
U"^S#\8vu^uZ(kNsGl$<cxo9EoHl%/1&vB%(rsm#z&<1])yRQ0ux1$a.?b[AsKdXL
U"1Mum='18<<wCRH+M_oC4Xp0m9VpM\BrTlQ#o5[PU5#t3Puy=>?A$&qocj>;X:iK
U"p4b)f6LlNjkOx)BGXQ>G7:2>&][PqVTbgt7EuK_jZ+M=KSOYYNqQIMGtnOD_R^t
U"Nv;QY;h1,N=',nmZ7Muv]7G;WLIb29U*cqe'WsV$\RBtXND8[wfac_$Q[?8IN?P
U"Upy7)I=;S*r\0*K;JZEr1s0W\Yjt#Uq%k1Fo3Lb4Meyu\]xGl(xKO)'H8^XPkHB
U"*+9o5+tR+]whBOb'+wV8-sFVL(m%pvhs2T=c(9zRMT?RiIp8/\i]5#nP,/cAJGZ
U"Oi?&(my2nmV$,rg-s_$pUnOVArb+RZ*S-*((4m\4>c2-Gxj:[f(<9:8Jm_HX-=z
U"YIVAX_w^6R;ZJrCpDrUaovyh[QYB2UEI2dNnY=?1>HgY40/[7Gb?+y47l8LV;FY
U"&'HbjaCX%:CpB9RLr;<pKfK07D1Z6,.>/?J-br-;i(5brbu/=J^N$s=Q:8^]*H\
U"E]%dYKuVo*vr0:o9<U)#7Fa/JR^B<O]OlnaVs(Kd$XZ*bO6:KGR)UoEt=+7$5lr
U"xYKwvcaLpyj56FiRcuD;tkPC19DC-+#le#W$8VtKSEo&N0Q1);OpC+-?18u9XVv
U"HGd6)1XAJiSd$W)T_V%x&[u%ZqpO4[_oie'$Hq*Dk]eRm4kOt\wQ)U:g[:0S#?T
U"2zqi1ZsdT.]ps:+fwDYWJqpuupD>:LeWym.b/I1es[IuNuj]7P\\*EaSeCLT$A0
U"gXE8Jtn0i)z2(ki<y(dplx=y%D46Pm=_PJxfPJXeWUG4:oaY*J>+#F--YsQ(DUY
U"sQbi;wd<wbv33NL_w2WdpKS09AW8/8z\w1,X4S%^i[v=lVJv4lOeH?B)reWUJcv
U"6bJ]<4:-]Eo0\whGsU'Lk?5a$-*X3ad3/B($^,la*d0=9Iq^v^;M4>+:+ak2ar4
U"_5unVpipF:M=y0_\bo=H]x'%up&'%9%9%%'%-%)\lQRoTu%['*B%%&7a%%%,%%%
U"%%%%%%%%E%)OP%%%%%jg%xSgf%xup&%'9%9%%'%-:%o6\d=eM?*4=&%(%w4%%%,
U"%%%%%%%%%&%Eg%OPO%B%%j%gxSr%kUup%&'9%%9%'%#-%4bmQRYJ0U.9&.%%w4%
U"%%,%%%%%%%%%&%IE%OP&8D%%%jgxS%rkVu%p&'9%%9%'%%-%e%M\=*Q#<%I#(%%
U"w%4%%,%%%%%%%%%&#%E%O,PqE%%%jgx%SrkW%up&'%9%9%%'%-%&/M\=-psm#%L
U"(%%&w4%%%,%%%%%%%%%&%E%2OPfI%%%jg%xSrk%Xup&%'9%9%%'%-:%O5\F=%zw
U")L2(%(%w4%%%,%%%%%%%%%&%Eg%OP\%L%%j%gxSr%kYup%&'9%%9%'%d-%/4#\=
U"_/,J1>(.%%w4%%%,%%%%%%%%%%%IE%OP&:P%%%jgxS%rkZu%p&'9%%9%'%%-%e'
U"5\=-&7myl#(%%w%4%%,%%%%%%%%%&#%E%O)PxS%%%jgx%Srk[%up&'%9%9%%'%-
U"%+E5\=0a-eC'B'%%&w4%%%,%%%%%%%%%&%E%)OP:W%%%jg%xSrk%\up&%'9%9%%
U"'%-7%s*\U=Vt1'xS(%(%w4%%%,%%%%%%%%%&%E1%OP(%Z%%j%gxSr%k]up%&'9%
U"%9%'%[-%%5I\=8*=,>0'.%%w4%%%,%%%%%%%%%&%IE%OP&%]%%%jgxS%rk^u%p&
U"'9%%9%'%%-%S\lQRRI'c'A#-%%0%8%%/%%%%%%%%%&%%E%%%%W$%%%wjf%irjS(
U"y'yu%p*+%%%%%1#%1%N['%%E%h%%%%%
END SUB
V2
CLOSE:IF S=13AND B&=18017THEN?" :) 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\18017,219);:END SUB
'>>> Page 1 of EDBLOAD.ZIP ends here. Last page. TCHK:13
