'===========================================================================
' Subject: Simple Menu System for VBDOS       Date: 03-16-03 (  :  )       
'  Author: Michael Webster                    Code: VB                     
'  Origin: mfwebster@pdq.net                Packet: MENU.ABC
'===========================================================================
'>>> Page 1 of MENU1.ZIP begins here. TYPE:BINAA TLEN:22011
'-------------------------------------------------------------
'                  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,"MENU1.ZIP",4^6:?STRING$(50,177);
U"%up()%9%%%#-%%/S<Sn?<JmS%.%%W&%%%.%%%%rj%szVS#ijkD/^V:(IV1TFkRx
U"R/#s2.T73BD:f3A<jG?DR]c&4X=0OzA8Qkh:vd39i[?Bh6t[t?gk8C71X3RAUc.
U"]KpNQ<I[V3F=z:SkgK9sEohA483K*by-[bP#,TX+=3\x/Xzz<CDA6)[[T-6]2T[
U"Y]>MNpRYCpm;3[$VY1sS\Za.sGT/7U>]'NPLTE[?_559C1^qxurr_oH6t%6bw,m
U"O*$CLaAk%9UoNYK><Ik2FtCQ&lvrR[y.]]7iqrOB'wT_[#J/&K+lVcS]PgOu]n:
U"k4Jy7&>up(%)9%%%%-%%)/<SAMz,)v[&%%8%)%%1%%%%k%nqjq%nxySCy'yLMa,
U":rde9UhbTr4$B+*Hm+>\lM+*VvG(#jrq7p02n]S.PQMsg5plx7v*KJnrJug=$ZO
U"b5Bgm&44kiiyoQ];pzumxEZh894TB;cz.OS((]y^O%JUUB-PyDQ14kSrd90B[5H
U"Zmob8hSy4Q<1e]e4q$k_DNe8hxKf&b1KD15'&?[\W5lXmc&;VeV0)*O=CFN(Zri
U"BwxO]j(K2F^.dB<a$#)WuLA\\lc+]f\]+U;P.ED3rU>i;U5Y6rVijdAX1r7rkZ'
U"KSf>GP8>ak.*X5vJv(]JlbEqS?B#Vs$Y,_r31EiGbq-:I2CHVxI<6tirn:SMjl\
U"B4]HGuLM3k7i1-GnkmEX?j-]H6q*_<?\uJdQjkZ.WL*;CPU6JhHPiup\8ahdUgB
U"m;goSurku5Jggh=$aL-cM-Qua2S-e]L-aL9SJb7Cj>?P9EmKndan8:3>2JE;7Ae
U"]0=8:6Jz*mjH'T#G6M_#M6,qVkYFKnA1Z*JrJQ,jqpy&td3?DTNs];s\5,f*5F]
U"59d<GPi(6D\_jN)xc1'?Lup%()9%%%%-%1%/<SaT<*o%[(%%&P-%%%-%%%%mjqu
U"%SkwrT6yh>]SU5vm17x<YxSM%^8WDT03r2w#%xuPmV'&/1Tdb=3i9;9m$*wt'Rs
U"'&T+oNspFSAVYZh6FGF7Lp_sQh&Ow&eY:RCTD1f&SP2gVzCb0dw*'Yioq7m5[2I
U"%Yp+cL*;oPnSQX:5;el0Dc+zB(rsSd&.,.>2=]1r5\PCCyP=M#VIaynP^x;J3*&
U"p8/R*b#9eAJ8[)b#L[uH$Dkq\uq7^I>IwfY>1T#Gz*x/W(mWt\tb[^^=3T%sy(q
U"z.z:8quQ[IGn?_QAj;RIY>ZEvPk\]JU:db;eu^8moc>%L3lc'IeRt$)nQqGPke;
U")+T:n$:#pg_,.$=J)]S60bJ\NI]o0NPh1cgOyaSG[V9&B49EDXQX+UpRv=Y?1fC
U"OTgQ^IVg+B[5rr;jS4oAs?3nj^\.[sH[>=2]=M)?&g'*hbp;>Y6ca4A[t<']2OS
U"D_N$WP]UMTMQPJfEGAABQHsig9njP(KJ)?\DojtTLffPmXfYGb)YS>]?Y+'mYh=
U"AqY?norS/3vfJ9kk9(wjw2NpV+0\oFW/SW[H&^vD_;1T.x<n9.&+hcTV,0ieaex
U"BYXbHLD.a,,3s^'fP,d_:^ch?x7chi<L5^:yPusm;N.SX#?fiIpAFois;KKIw3z
U"%eOAO0C<O:OUCX$pDRT3((Ig)e6$olGCCEoEK]sIfcf4F,%K[=fnl3g*A=A7YxB
U"aN,]mN*0#*<'03jb198C_&dH7_m<ji986R6aq980t/+r1hdUD$TE0?-ub^YYF_M
U"b+4dP-8R]Gqo?y?16h4k#QWbGFxK:gE??]T(8u]_saEfM=Qvf_Bt<Z0R3g79sfr
U"puYJCLSbS_#:#[dW'LFHmfg:9*;HGq/cnp>NRKX)XJ>u>kTArGyMgt;5)o42rJC
U"3+CA]tTX1KClbEY4p5_k(xSPgtI5YB4e=Yw/:7Lqe;2FT29?iWkb?\kzsq7cKpj
U"T/H,DYo(G3iYRGu'HL\:aAX)hgEFaLjO2j^ta\/h_*-*60#ce)B1uUvSpys$W*&
U"'3R1d_86(92FRT7xfjRu^d'n,up%()9%%%%-%1%/<S*s9Z%&Y-%%&)<%%%-%%%%
U"rjsz%SgfxMt'<^]Sm7wRCNxpB=W.+BA-h51\fj>\Xe8%^*[U,:XF3TW?=9)o8ET
U"EuDws&WcET<r\hVLJpM2FJDz&&=bn_.F#Hl:s+L4^2G2)p>gjY]8^Bh's_VphmK
U"^R7ot3eR-H%x+_lc,UQF165=a5I[.:Wus216XDZfT-HaDkM4oaf5T)tkC'=Cf,h
U"+X$N-J%sE7\&sTAh5INipX]32ofKsCFniQjfhTirV&kxM5NJoyN\5Jto=qF^d+k
U"nx?lwVl]u,0/?54ucc+ZX%XsT9FJ07V]jD:oXXD;;F[434YVm>L[7L^HWn]ch[^
U"ISUo#s&,K7+\o](i#+sa5=tUd(9pf5Hx]=6T_AaW8j)>0i6Dcg>f*xdHvK1.&(d
U"X:</Hu]j.AISD#wkK.$MfqE_L?d&l61j.$$1QDtFO38^Ab>Te9F7h;ai32M,mW>
U"=.##:]S9GEY.V1RFlxIOzMCF'8n0T[?H<HaL0*%s-_oAhk)8jo&aq6JpG/CN1,<
U"*=#dA82dCEGZZMk5zoi$u1O>UH;nRK+[ak67)-Y9*FjIaOb?$V-[iR1klAR9S^]
U"cl'>owf'BAde7e-p?2f2:&<-Yimk0#m2#po=7s)5*MIrn'kBKq=4HD:j.kq6muZ
U"eI%o68D>Gd])ciCM4)B[/_xGW,h*tbsL4jR-[tP0w<OeW1f-dBnPgg=b)*ZklS;
U"L^H[M[$M)(:&u4#0,[:TJ;t/vU6tSVtQYp/3A^$0BHKg-BLy,Ehkj%V[LcPPVkC
U"4t)UJJQk&8P<-+5_yc3ha?F%%bXL]%E\9e5oMbtSb7&V04[v6#9HnAPL.UswALM
U"<RBV$Z]'3Hj<o^h'OhFqhkhRk],v$s3&Cu7JVo5iM1:ml&aM*,Fw:iWW3e4=50t
U"aFE5Fn[=F<<]&H&LHeg-p0lX'tMn*J&m,C7jSAbDnaMAtc]oRmlnCS<Hhcwx)\Z
U"R3V(4Vo:lHC#J1\&cPvOzjdEA<FmhOlRt9nro['3T1Vy7ibcM6'Grl1dXruF0$v
U"i5mIVUi*;G]=nc#6.1T\c)o>(lSsv2dUlm.2'JHNJZgNhyC#etUW/%0s&w&Bq]g
U"b)tY/%a%S8_0_UR;_F'4:#/6AdG<utVoR\uf(\Uu6=/X<5^l)yPsdhY&1upw,On
U"jz8B6HHpA8NH$CDHT$ytn_W$2j_cvuCRsZ>hxOxw824_kFhK>(9D8stP(<wa<_e
U".O>&cEZ=K2r2CQz;w='^2M#NyTxuE;G#]sI0>G;7wj3?#SfVNA*1hc7f4IUJf0R
U"ulvbD^SRdIJml_GR$Lg/;jIm+pwg:My/g]%hvis9Z;\*Mb\b3Jcr[IHiBBcVUwm
U"t,Yuo'htaf]DkLO%kQ%gE1-q)Hkb?'l1G?+<:JOp7%^F[i(sa]T5)4p1)rv'aW.
U"5:rBAE\4U[$Dq.1.)4WEt6(Dzf;)DtTvEd(RcJ4w$p46$OGYO,/-2Pyu00A]ys4
U"W^DAV]Dxm$T&>oGulU;O/YRBzjMLiDKNBEN-/ST\B>lC#cHsB2F\d$%&-zY(/PD
U"1&[7Env.d]dGT$V?UKb94XABa_*Gs-q;F:osOU[XU[%WCZ4=RV[=h_B:SoBtg;O
U"RuKD4Z5y*&5hJ:q5b>'^z)>nqW0dhRnDc$boNE=qm(p^&A61\lMKxN,Uizv+LXK
U";ZUHIqc)-[90-PcW:-\\QXf:cxO7PWB26Z<Yg[km9>Y#0LNeC[Mo84XCYLQr140
U"5)XPj&N2J)8;WBKMj:?#GFJ<DLsx]'yt\JyWcXAt.xq-#&%pu?U0+O6/;%B[kS9
U"+;F48iRw9J,iUgGC'qe-m:)MKIuEO/Q98no8TduHgY=FiOt0+;D0c$qRVSJ$VrP
U"F<<oNAJWvi^%a5K%SOA)C1V<^=sJ+Q#bI(7,Nr0/IYSW\LKmcq_,Js/.d.ZNwN$
U"v0bmaVh$TICk6aEqcH4,Me.r2Ek2#D[Un^%]MN^p[j,jF+?HCi8-7>qQw'xZeok
U"-)t.a26NL?uFPVo&2d;c^]^^rP5s?H6Y2iE2iPp*chB%ks_c>wEoZYH28vI>#k/
U"j?*5sA)f:N-fDW#v9R%H3xaGH]]$^nE^]ncR/U2Kf1fF8,i$0mwND1FJ[n%TqpZ
U"_?SX*/Q2V,k;rwUq$txY7nq_982D:-T.WP;7H,4M9Gzo7<x$$nZ+efA^e;2c$lw
U",s.U#z38>$I;LL9#wmRW.qLj*k%7#mrGZ'pT7-6;w9>1h/hi#<\P_7AiS:3ia]o
U"56hipZ)Gt)tMxfIRwQG=8L9-&0Es:h>gw=CbAb=\OSIkYUEY1<KxUsZ7sJichLp
U"$:>(7yhe+)c^9#^$C$iKY<pJXhFmu<*G.q,K3&?IzfGrKMp>6UXFD+?v(n/qs-#
U"e&:dD3J27M10x7k4(2P;>6o*?0IDtt9j5hS)e1a=Aj4hUbP[sN^M?s+\$gDjxj;
U"%c#;#5V=v]?jwGe+Mr-EhEmNaF8En:dRyOB3)sgP;Y#l=D(Unp)n'Cytf>1l%<f
U"ES'uo5mA)>)>lRF-vM,f8=%7^lqJ]*//e/AIQjk_LNndfLjF450l^Uawc&V5.*A
U"2W9/:eBg8#La4Wa4,Pe%f?5_%U?6OWeP+>uM[^oQr.[<FD[Lyt2IB[CHbRMfLl^
U":Ru[ls$)gl=%laV(9]^l?4*IouOe$N<TV0Du9)4[Ri/xCID+]5ab[JpCh-]tBFC
U"C1+Yru4s_w>u^$vwrLiW?=G^XtUiU9FXeIl\[sZc%NiZ7KSz<Jg.$<8KNO57.p^
U"H$JdkNwzcOV_h,4:lvcHf.c5CItMd;'mLup%()9%%%%-%1%/<STaY:p&&0%%'OR
U"%%%.%%%%rjsz%VSfxOrV)<,>U[7]wCExGP9:?qQy?gHSG^#P*=->2BFW8<<ES%%
U"f5u7&Fjl7hDq3(Qld>U%T7Jv64/j$d9LoVGg]1VZlkE?2srvtt]AR[rVVbgcj^>
U"rVXkP00CHAO4WCBWnjqoA^>^7C+wk,0G4>ooLeqzS#pGj,Ck[QHoC-u2%9J^hmc
U",4L:DFFgtVt(_>^rtXLgM6t]]GLLcVB)PS,UB2Me&soS4j=aoA/wjLx,_[u^.S+
U"ts2]Fa7Qu,h*K+Y$m#/KQ^-1aYS%34%QLVT\(y6/J56A;ee8i#tS$gm',ONj06o
U"_8JXi#V:)$AW2+)cGe1wYk:^]WK-)B2PCBMN*/QeHhIuvm9Shw>-Va)+UORD>GC
U"NA]&(:Cm'jJQ>lebBXMVB$Dy*%r/yJ*(vQM%X%A?,j+9&hX.GX]E.)<x,<VIJ^L
U"NOnoEv78'mN^Ao)d2<s;\A$1J')oiucM&1s:2[y3sm>Rfc;_P-qh8/V$>z'6Aiw
U"XwLF=0VC,KRWj($&g#XNC[Bd5;xxBYE^kOG\7AksIs+E;X-tgECX#CQ(zf$2AE4
U"e+7?5%JTJ=]8Q*s4Y2s\:U]$'&<z'za;NJQ\k9gkL/,dQkV9K$d9DA/OS9Z'*%(
U"nEITiXN7xnonfAPaPJ(-QWaa60Y:EToc>a)-e.;o=r9uo2DMha./B:2rH71KCHr
U"U,HEJ/kT*.Se(MS]CXRq#4#WKqc[&%g5U=W1-:AmjRn]7&qK-^bje]2#573n0=R
U")[A(';RT8^l)mqU:6KQD:6k%eZarL$.jtA&H?nKIQ7*4AME%aG2LzQ-?U0ciNO3
U"KuQ0?qj2S_)w20H$'E0r\TQ:T.GmhG&pYWCDa&(+-hp*IAqP#o/2*HYJY]$:C7%
U"2FZ]5OWQ]&7:A5gmR9cu(tn='*Q/*3a&t+SqN_x[6Vh.SU<>7kD.,5W.CWZ7FWo
U"A$-pDJ_f'3:ifZ:iouukubYb,\^k.G^(WwPd_EHZ<rJ;-m8f&Rg+&K*dd>a1]\,
U"?Egp3.jX==u1[^*Q1<tW&DJqnqCD]q912?kpwlga*Ln)6L:Q#,R8BqoQ.EKCDE9
U"v0b-v8mUQ=_l^r1W.F&7e&H$I$,5ZTU9H),A,jrnU(.ufHGBle/gekCZR7]%V(A
U"EE;2Fc]GTI6uw'Mv<]YSlP(>pOvXN$d%)N\/)68\<1q[#)'Op?*34jgO)G-,1T1
U":1:U]I<7V>NT0\-PlN\^W=Dj;3k+lT*+zk<gJ;LCk&5aGVqlBCl/0Ni6[hVTS^t
U"_v>ZX-*n6k57F*$Y&4u:,eNdjNNPSq9WUMLKR46K2<G>siVmHihs87Yix'dcCdt
U",-gLgL*^eL,yg:RiKCz$DC^+Tk,^Fn>&?%2Vw[r*?nH:/L2TsliYIYAyN((Wny?
U"<ak2]#sgMJJ7&Q9JB(UVbs]W?[M'2t*?ba;*BQe6qGRxf;P1/sD))0.hTw[.[M5
U"Nm$hz0e#A_,UD(AfP12P%jdox_;shcPv,Y%T]UMekUgR/%iPHm&5TGylY387O%.
U"'sze$/n.<Qei)J<'JU.K'fM,P0ZXlIE<t2-X)jS1I;cui3+hxt2uU#8&fg<8.+i
U"UY'j_5_802Pit_>j0l4TD'u6rnK.>XO/\T#9[i1MpDYwP(.l2;+a4oc-ODk<xpD
U"BSk0IH/E4T1?OWey_CGn<sLafLs+$ZXM(Jrm,/_Q1L3?0QjvgZ.\Uw]Hr:v%,A2
U"p<Xc'ytDhaLK'=i>u)Jp/k-E):j\J1Y[]F):5(Qg?H=LA3kc3c(1JeQrL5z*er2
U"V=k+:?fpDEpOGSxp?Wke^l3.PE\+M8wc:)Usuh;PdN+[peW#LdY)yAk?_kd#d:-
U"icQYVpB<<]2z?\:RISa/DE^:,F,tLb5X0/adw]t>I+.:?RnuIyYsRI\n6x#-GTI
U"oFM4V*\Ov+z#k4APS+t2QweIL\/jW9'3P1oE5.Tv/4bfa(OZIswq-BER+db9,&3
U"g.K_E*oM50gG2<\D4AU8zb:-,=0R;$f)usY;lC03u/8Yc_OUpl7'IjrY;/x>WFo
U"D?4R:Hd[$Geh5V^QZei*jjr0gPN4*V7$tE[e8xLe$JKdI1d^.-WdXWLeR&zU0*m
U"FXaG(sWBd?Y4vqv?vROPH;Z(ama&N.zyDmf\(54a0lvA4a<-FQYeg9XertFx1bx
U".W9p&W'-J&?1?91c':PP(%^Y#7%)pCZs,3XSIJUj%I4c\D-Rb-kf3tS<.x^vrA-
U";6>usP0R\nPDRbp4mubihN(1fsFkUbtf?#2fodl)b]qP=JMe>CmoAy.QDe=)E_s
U"?WbVT-z)6qVH8=]i:8w1ELkKGie01Od5.9AH^LG/:=EPK;XP<+:mxjgSba$J.zJ
U"W0$azX8FRUa[FhK-4G0[uEAeVfUuP=gK>O;P\z9;\S\g^Dci_$V3^)YYO:0lsF_
U"%\Csl;GLi1PWbIm2PiLwa265;A(;OfQ+9;Vc)HK/wD*K>i9npjc3rL2crM^fsMf
U"JBY^9=y<::3lQe9^oiGbQM_$0OW;P7gKt9#1HYc1oXd=E[x'hm0fD^YH]m6DMZO
U"Sx==aB0aCOjT29e*\KvxWxQ)HQts8*<+J'9kDtIuQN>F\MY]9:Zs4>>FB_lY0_(
U"PePIbT>BI-i^e$U;H?1WHg]m,D7VtHBFa2ug3?l,o+GHs4MG31RY?EUamh+_;T,
U"GrWOsltjlC\Cua,?Z\q]C8LdTJECpy:6>od,cvAc0n'+''S;mL\e6$](q:X(.,3
U"^dB]Am\#[ZAfkJ=/P:JY<M1cWh&m5h:DLZ_'LHt\^o0X$H/58E,sxj6D?9GqtAp
U"-vM0%6#+<oqFa*%o=b1FOV*G^>F&Dugm#2M=mx(?F[#0\%kwOHcG82m/l/,B973
U"tj_xx?V:E_.;p#[,VdveCNW[%W7?\WdZ$&p,5ZIIS4VAE4X:2gSNeio%QBRvrjG
U"f*cu-oeBu6iar>c\<VbO>dOeC>Za2.S-y$9-0E3V'j[6TQ7=F_p^T(^kj>QPk;]
U"Tg/0;C^#MhaouP91]\?rHZ7x1_G<W0HW)w6wNmf;OWg:L/efvphL7mv\KKA.%^y
U"$8^.3O>5oXj^Jj(u&,o#HYXl3ZEi_F.l29%?iDo-=x(i)N?39x.mlsNa93]&LJu
U";d/Jg8oj>K.5bom0DMP7]O*d%o\zUb)CT/GK-?EFf*N;7:+7ig1OUe/sd%ROI5[
U".K:MzQ<9k^]D9^^3Z35TRffZF)qP)#jOcp7EdBS_ol4K4Btt[?<wi&.*W,_x35K
U"^$XL.l%GVHs1jZfdC6l2bpwq:+r5Q%_FHEhE-Io/g%y(VULS:FtbWH6<E6JrVRc
U"dSq,dI3P0L.>up63hj^%ehkRoMU8T7t,/6.>tHsNsPuMQXEcm^sB$tP%uY.QL7z
U"Bnsc>lAuhXdOuN'iD[WtQ_-T%yRZhgorUtF,m]RtupU?/AOehQa&^%+m$#Co-2Q
U"jReH9,G\>TS'Iiz];2lU4%mjrh0H>+?=<kDE933[T3,.\,mF,b7f;6xf/a;cpY-
U"$=t-.b,a/v%QLm(6luH\eU5D-%La)??vu6mfr.?+l)<gOE;>sKXB0c0Q03m$YM4
U"R;LPMOJ5J_.5D5pY;L1YBV*ljwxL$ftY5&*c=j>nb'o0V;FNVjT7Fv<7t_(tfYI
U"pFN>+QXt,HP?(f]HQ:(.Q,Rrb\c9N4].c0-atOt%HNVe7\-R%N>4_eN%%up()%9
U"%%%#-%%/&<Sss/pOc'.%%*+%%%-%%%%rj%szVS.gn\y2,^ie^9LLjjdU;-lN?==
U"p[8tIa,=fBEk0&F6V7;k^=d9:mUh,tEhJl?fv?bk4eYmXY6GUJN$]X4AJ6=nYN0
U"-eI[Ku2m));r4-A:OBuoefW,[>QjJ//Tashm+$_m>RB7,xe3fkQKOBay/2ZepMW
U"LKVeb)dRD^jv4>k9>hu<A'7;:#t)zP4R[YCr*R;*lvrO^==#0Ozq[er1&AO:\[F
U"=?tlMvegwa<n(RLK+c/RdD?0z=h,e&sJ8eu1CtPVZaXUD[jG$Q_bQ0YL-p;-Q]<
U"..u,S:F5p*BrhKr2EW:d_$<:7i?qkq<>vtL9Kj4lPV,;aPgC?BDA40?IG>j>_Rb
U"($MEn'v05bAa(]cLK:jz1Y6_umff5fF=IaPYsjwfJeN,55[<yM-:G*P*D9L;du;
U"d9A4RRICkF&*jl1CJ]Kecm4z7\5Z)*ASI)rGxX3#c?JAh3v+1lyR8q3(W-3_/[>
U"&+RzMgG2_a,#S*e,-vQCL2mBjq<-nJ_3;v^o++HGj\_tJw(^rf*Dipr8kJrJ\a0
U"FrL+]Nlo=%xnNBmGs/8(2T%SWOd/0^:pysQ,Lr<4V3D4DW4W33>BM4oU1v/J89q
U")<fe\L[#543b'>6qP+V^Zf%X[Q^I>LqvYE&vNqS4nX=X]%(OS:QeWi1p;d(f,8n
U"HN4,o+Lp_C6=m,<^TCx0)iIf^+nI_P8eYT#b7_)I[IN>$7]R9J<W+8lCjtQ]Sm#
U"</9(l\=)4?UCh4]&gY?3Im&GkY4T]51Jl$V,:374TIOgKVx4cqA*4$=jigxSN5o
U"HF+9q#?3C.yB+9f9jPWl*Ve%qcVWY)_R1^?ukM7M#9ot'v(up%()9%%%%-%1%/<
U"S4cve1%w'%%%Y(%%%.%%%%rjsz%VSht+rFxr&:8v966h4WDXRxrhowZmkT/YSVs
U"XN%SpN-8F9M[8tqv)K17iv+/i>lnP)3ZC/tH,.<'T[g\+M1M1qt,).?v5JHq.58
U"[\x+uBcKgxl7=%mjDq%$VkJHHO<WL:e>v>-'hwM5YXn;NhAQp\]&Ls/$.n_VTNB
U"bX/m6Tm:oa]Ai2i$Ku]p1J)pwMYGY;j(4KRcY+r]#y&128yl&b,\'\yznAio>i0
U"'NLQeOoAwNSDath((h'5xVxY/Xob>:je+yHCNYe%BFyv_3TUOlqh?3\2CqHNfLD
U"7khXX9.mEz*py;0b&GCYK)jmgL=P]rLDo.UL5j5W1O4+S9?LgF_X6RHb702q>/k
U"\LHetgvADITUU65LghME&gzeqj30_Vlzms+Rw)E4YQ31\STOTSioPc1*,dR$qX_
U"No=5DrPltpD_]rngf91nn1bAa/6lVh7.q2/a#;9/Pj%r/dvul?Y-GW>36ST4Eq%
U"._Q/scJS<lmBqu>Ft\B$EW\n==m-kWG,;Un,wbo.Z<'elL,6SPt)pOE<\g3Gc<U
U"PdshOTU1WIP_/L'Gzd[MIHGwc-^S3r:7[%%ku3_$V*.EZgrT-cRoIt7,+r2uf6O
U"Rp1R*R*kp,3h/bLK5-1e%u-h%%36)N]d[_k\lH'Ktu*cIC.:<rHStWXO4&CK8jS
U"9,hV0+_^'YP1B52A^L:=9:J^5T)6,hHMy7Jb*IMhsYi8$JK?#-*.JEfXy]UONOQ
U"3vW3a1?0K0\T&5)-^q*u%p()9%%%%-I%%/<OS)xB(XL%%+%(%%%%+%%%%jiS#gf
U"yBmmrGA,&Atpc\^o/4'[c=%5HKJ'8]KZ+J,if]NufN_WfPArN&:H-NNjF'UVwF$
U"=.FA7Z]=d9Az:^mYMANmTi:>=XAN>%M7.vuceZal$gyYHdc<9[-wCe1?Qx9FIZ>
U"qpC['Rdd-uX]BVi:?FL#ZY':Wm&f0)&%up()%9%%%#-%%/S<SZ;<&]=07%%]H%%
U"%.%%%%rj%szVS[kwrF2)JB?7l7x#G&b$Ce#oSC.7L3^JEwvs#5Q74[C_e*)B^o2
U"0D%2Rg$36Os7pb(N46E(:5af]n#*2='gqttjt8MV+HxQ8_rC1.ucBBWr,ZY+3VR
U"es%;Ur;e,>v.N66tI,9nes(7#,%N$OCt706W[_Cs8YhpN-i=p^NF6Fb3G2bp,j5
U"a_Wh[hQRfp']5EGkDYpq2jaasgXl=[V6,*I=lAaF6l=YUIFeF4gt,ngZj*AKa#B
U"$Cy9T7euHvRNqIU4WeYtZEM)Lad$w&>o>FW/\zxH(<.Y&qaaRmE2AeC9+_>mTqZ
U"25HtF-FHECwVxtp9l&>iQr;?jRdh_mXLsM=7Td<2mRECB4Qx.MWeY,V\t?boMq=
U"$%zLKJ>f[Eb9nn.ugMdpaa,p(6%i,/IP2D1r,\,*n$=0\>X5X?F#SqbqhS4M96x
U"XZiWNf;qF9umP[aR-1X&Ah#T;Gm&GD-<>bwflF:V5#gMrklnX#TmHnw#e02NvGP
U"\eu3Mn;w,r/Gj11R9^?n2pj.u('qSBbl:N:Jr^DPqs>XTLSfnKuJcN?s^Cd6t<d
U"DoUPt2ECF#=8:dq;k(vD.ux[D.cxcp.UdapkZQf6<.o8Myrh*IsqHYue;3.tBQB
U"7ZE\%B:D8QY<57Fc35MX(^<O>\;V[VsC0p*yfZZY'UC*kH;_a$BR=E8ifr%xD)U
U"652Ok.IjQle$WUC?Z_Uu2K_\YmV_2O?_:eeR?p3N_cO:R]JF&xfoAt)8V0)/Ea7
U"VHmUfJT#tRy[h[3W)lT/Aj'F;vp&w-O0+XTTqN-=I\sv4X\:2Xp\hmHzVm#fvq;
U".JH3KiDCRoWr&S:?CZ=Q'L#sUg7cTIuVkmkk5O'+/$'x*<*^['a;4;sb$$cLjLW
U"^n&f$SZ*sJbF)h'Oen\9K%(=JG7[o?;SeG*o)v/QcCAvp'/?^C%KPGpH4XP8YtP
U"*me=?vg6MK_XiH'Yspi2\i>i;uXuVP%Zv8UW\LsD#$B?Qr=frGRHI.y.9Y))P-h
U")8[YU42g4-AgbFCA(9Q8d;z$($EF.bKDR?n\;<cZOuS[l'Nu(ZG,,%4S7uK3c/H
U"WJ^IRKv];rQh2f;;lCIbi2ewJAbd/T0Y=1?Cg8kS?=Jx_]%7lm3IRsMekHZo%QW
U"n1(lO??TY(dWmr;/i?FDtF\BAYXxT.F::0:xl?8a\w'#\f':6gZMU\_%:eb2&of
U"=sg-S1$Bf]b&c/8>sPbP53?01Hq2lG_57cTs_%=oYTM=V.B?Dyqo\*R7)aiyiS7
U"DS6N%5V]GCenv-QM-/O16_Ec'[>UQZChBSZ-vl;D6I,4gkRhn>;m*D8q</XN^iX
U"aPGWfM-j8)>](GQPU\-J/$=2EQut/QAhbv[t\xnwuYfaW,yNOb\+iG7AT-xv+&m
U"kqR=aX0USZM'Q$nOj%RiWx_;Xc,%:69[,#==(1pC'NaLa'Wcp\>C3x*yVrF_f61
U"V\'mEWfaT2T5FT+U-.?G.)T(%]$&1fjio<CJ5Rp,Y<Mj.N%<u%E%yEhI>#h$ni2
U"7PvTKL)8aD,o4H-,uLCIj$lIYe-L]&7q<<<20,9iA%<HCR^H6teHsMG,$]09BhG
U"UY:L%zlm3;G4vou/C('h1TS-<X#uW?t-GQ8V:C;=i:4J?e(v/%Bz(F\L9%XU6h5
U"K(j[VOXK)c;a^Kwg.mpo%?Ur^W*C%^8_IMMU+]L'1m?[>00cyhZf^Jz8r8xhst(
U"vtqzK5o6KLmb1nI+$YIB-JoHMpt=/hP+jKg*GKi-GgXdJ#fDgRuRa.c?>D$gFwX
U"7=bznEX9(hJ[sglikqx]'wk0h<9'ba9g)?pC)q0#9X1Vj%uS,9^HYGGpV')fpB[
U"')Q-3tY[9<zWw*[^mmp)-aRZ#2b9c$=2)K7uMLR_P.u9++\RH=G^:%Jd^6F3U#Q
U"HcVa\:T8N/9=.oPveSDY5[doj6S(pH%xF[(0.?+A>j8Cfo,GUuWi3X%(T;1lN&u
U"V\c*=0JdMiW6>SprkOcig6H=8H?:Nf<wiPZ2K;IX#=?A'm-R>Ad',/CdOiwx:n]
U"R*W(9E4MG:w+:E3QKJjjI[4NlRmU9dBU&f1=S&\(e'5/8g5nw%$2(mc(Ufdsh*M
U"]\RXIA(_a,XT]2L84e$h'4P^/..R5I3>[A*?k>uf-MtlOuS?;AuSbO/lHE75+rF
U"lnXY&w[%9zFaUchfR:z1RkoWSp)+P\+4fIz;'lxjBmGZFo_QFHuB;o4UB:J3M_J
U"Dk.Bp,Z$Q3d[F.B)>O=]GpdGmK>GprTwn,YFp$0g5vEHHL'4g7$F-G*W6QOleaj
END SUB
SUB V2
U"PTdBVcL?zbA2>/QDS_0>V'9<u#gYiW.geXYq:f,rXuGagfE#nViR)'i9T)FxrB7
U"ILrTf6s$a55m5*&0UIO1CQuW^acP_m_^Q^s?Xd8UBwnQnLPJxyAs9/u%WmyWC4g
U"q)E6YhD8t[g,g(<'$Uu5aloRlH=h%5.i32BBR#TI0Gv&rPm4#1aVY\D]>.^]:bA
U";>Nq?G2qM?rQ^Sw2$Y>t,O$)>1loTY8+aQs;(tP5sBoI:W1G($4mUjCut+M4aWD
U"?VD1*JNW;A40EN'pK?l_5#DpR21MGE..X,8)Q0W$aDJbmB2ZI$'nwM7])9DfwS%
U"[p,*5:)dZWS%G>SXWCUv9Ow7/4*EI_>F%nqW_lR4/NZBZ(AoZzYNK.bn<BK\f#[
U"'VIQLQY)x1zos:_\Y_c28fHg(hyXAE$;HGS3wSy;QNVY_F#fmJosMHoh<2Ix<pD
U"VxN;Hcl51/WSsL(QPh</fMWl6+Zwc&9\Uvq#d5#qgQcdonlRQs_:%hF5aZjpcVJ
U"YaKq9feK*KXH1/MSK>x'Y5/<c-R:+tTTI?P/m;maK)/ik6dtU#VMgCPUBFWbE?2
U"U^q<1V#[Ma)lKcjWsu74jErLQ)G*19&,uKFs0k3qd5:;*#h$TaQL5aw(*]/DjUY
U"E1^/;+F>Zbr\'0VuU(i=16yK]C?3T45c0Kmpm(?Nk4WuX8Rs8v'heU=jEe-o(6A
U"Xz(X;G2^JlC/Fc12u<f%4hPvg.rZ&UoSuPfWniFW[eMX$Q)qDXNXNS^iLhGJTD'
U"R.6)UPmQ(aY<EP$t1Y2ZOUUy:J[P2$gpHF(Vl0B5=xw>i4j2q2P(YuC;';Bjn?g
U"CAPi?KOI;5n_Mf_ft-YHk7\TU6+ijct-Ko2prPdRLGBpl_4s8N2a\6v4ah-)[0^
U"Wow1[^'GAnT3H;CGPC5PTm5$M(1Rbo63CZR+/HIp,zCkQO7XZFOIaT1,&(k68a4
U"nnP<)TYud*:Jy7mBoWo]BTELF/_hKT*tYF0EoaP=6)-y_DZkh00pxF$)ib9ZnK3
U"<dnIHQp_&qIx8ARZx2+f'1r1j\#O],BJ>)Mw6Bqb/t:q5m1TJdRb9+*ak#VjA]\
U"=_<>Bm(,:IO8YS#S)AWI;-oQTjBJRU:2\>pw7;.(D'CS^CbfWcLnpj&AfqNc8L?
U"8r=,;^iPVI\aKjT\<LSQVStM0kFGx66KwxKg5ALJ<pGLm-:C<$AXQUX?Gvplhi$
U"H_ESs1pZ/VgM>I6X7+8p)X<eST<*_sb(xD$pEd&>wosUXlJo?VVHJOhOho5'S_(
U"+aIqH+\3kUplvtKj-H+#mDMXxU^k2d2ChT44IiBlc<xr;c2[j35'_0;ocY_TKtw
U"Xi+]^AOEl(Qf[N1YOIg^)Y+I:+<7bM[_eT9oi-]V_Oaaa30D,YaB/>\AvudRamG
U"V:?U0o[J#Yy4om<^=:Rquq%<Z_i>(Q6RsltLjqWqvy6%ZV>SStSj>BU+)w_]N[^
U"q54/rdbh)T1IuL4e3jR.Q$xM*8j3PR^f5M.Tbd5Map1RX>n])S:^SB*o:Q13z,I
U"vDu%p()9%%%%-I%%/<4S7(=(a2'%+%#-%%%.%%%%rjs%zVSmIqul%*F9#Va57#u
U"L1l2QJbhot6M0/$p.SIIsYm%NG]PG)q8$-.<VFePhd]sv9p+0$M/;56Z7r_F:bn
U":R/FgzJb[B4Z5EYE-st3-1aaNd[XVJEsHDr1Mo8L]iD.I7Q'4l,$bc>=(8d9uR:
U"5Gi;Onbk%DsN[7XRUVO^[?PV*[0cHes<cA[BU*;J03*r?lYTlF/H?HT.-X(['sh
U"';N1)Etw;aEf)As)V=[QgliK'[%hmCIJGWdI9-N+8oRsK#*.sLG2d%wQeoU2mXC
U"Wi7+h6[,3]tZ^'Tu$qudk-nussQO?6'ukR^YviDvO:+1H:,Kj7(H(?m:dnLM$Z.
U"UVCGS,Q6uNG#dj=K%_$&uGA>V+<(]xq]Ym>bVD5kg#)vFG7=xqds]XvD_nG#%dH
U"qBu4W.%a2D_W[.XvXjjrK^XRMM%\U6Bo/BGeD)RYrV>7c_ErWls/jb:9)Sa#D(D
U"PMR2B7DLa48TbkR.$.70N=tFr0dM-]k1w:YsGsL1ahRoYU2>4I^hV:N^[e_\rOF
U"JX,1qBHbnr7l'lkoGu0kRe6&w&hG&*,Gql,ZQiM.[NdN*YI8.fUi/n#g(f8[MZH
U"Bp5Emss$own&Len-%^0g6U(6x;xxbaCD(L[Lxurr<r<N3(/#p\1r6?w.ih6*OJj
U"=uEt$V$Fg/7Hm(x:YO=e\>$(OHU^Xh0RmbSoDMdgRQlOcn=]gJfIp3v'EWQ(,:x
U"Pb-HUDXPeq=a^tQwhTHufSPtR>>OL.aPgR_Z&QY&HB+$4cVf(g*ZQx2G['8up(%
U")9%%%%-%%)/<Sd8stki[A%%6&.%%.%%%%r%jszV%SqxyKEa:^KTkan<#Oxh4(4O
U"8r%E;0LMIF0Z7]n0/-\in&K<)&CJ#kC%IvloTo]8Mtz33B[KjwCe5(k[<E[MzuN
U"NNnrgu',gj$frNLmLBoxRthsh/q>4TDCXD.v*J9C0sM53XvjPh^*5G+S_bpT,xG
U"QI8j'^qBaDuomBdk&eF6Y-83O3P*EBTXacflweiv9nD[r;GJFO+SmprYb)p8nhR
U"LfPmfa1HHkL%lgZ^8LCE;b\=47cSpm/4M%P4tIE#N[pJW8Wbv>[RJvJjvftT83>
U"4D%mg<Je7Js0s+kp)3453R%B<w58O?k<loLw2ZK0p:$;ir5RYK4G.s_4h<XN[v.
U"%OUJ6_J#rBlf;S3TL/0n3<di0ZMnu3VFW&mvQTH($h>0ltdv(<=g>kU:&jww-<l
U"<2Tg3ZLBAm3e<Pfe&KDR:+m2YKr17'PC)u.1xhF%DS(eC$2_Gt'Vo<*U>9H%Et1
U"3PbdNeA7raM_&dJc=&[63[NlKPT=gv<9HCJ9kKTc4DhtW]HOd%ef]l9iFm9[Sw,
U"tkU[?*(TW&\a];4>%p)%.B#uJ5Z-IDb3CQ_#eXaZ+Z_CNM/Ddqnc2aPqc&4j./.
U"w9HFU&5B6X=<.QF9p^Y)A#Me+TQSTK,byF^'i)\glzIU\uT$I*1CnImpE*DL0Kn
U"cWE1l;lH/VFpAgC0Hd(H'EQ]Yd?&Kns>aZdEg'-t'1q6N,?9HB_G*;[=+<Anb>9
U"9ax9/sR[#,fGJEng.2bKH$?mQ=T$:^RF*PdVt*:st%&&;%m;\7>1%#]p:+L<U_3
U"93j<'tBW]>EPI]P<ZH+yNN[LBRM4BI<vdH^rHm8&-:$'A1Y6b%h3h>Kov/.$p0/
U"<Hp1%)G_b4oT\KM;iDN)vwfuqhv;iq[qIK+jN?VD>yVyfua,QOJ*ceCWRLL;FgH
U"(,*)jl++;qEf)\e.uX_dNqlf0pEcbUo7#4(hC)7aqo1C1)K[mlx]+)%=rXgSK8X
U"KHxlQMuxlV<Rb(\3r?1Ndt/X+T8vL-*0kC/;EHwBF],$fKpW_].?xj$$QxZnWAQ
U"IBv8fG<:u8Iw(cLfXu0s0*;$R65;H'_<NV-=k4I/kd<0>SQ.:koUUr&uZtSnD[^
U"741O'tix9WHYa#Qt[WXXacWVs'rSa9l,m(IGWu,.ApF+(8K8FyKK-%bN?FRs>Ja
U"ZLWw;oGaB,jbW6*9Q7kpq(C\IyYdd)2m'$>Ay3'rYvI/O2)f=YnR1+B;[uORQ7W
U"QcHi49xAsN8DBs):r\2Qpu(SNDUjMIX7oNJMxT:>6;?iiX3U?4Qdq?r+uE_(D]B
U"3,/Mh%U1WGc#^V'ge5b3=QEMhxHZ$%o,1ZLFDB/F%njE&M-)1qu?8#kX]De1#L'
U";+LVdQ-%LDOLRq*nV>,0PWR18f2jB1G#e28.whQneKA5BUT%n#/N3+Vr#V-^X#X
U"Mh$+UL^T47<unGuF>KadL0wW7LH<s^Vy<&-ZY':RC\Rbv%/x%h3EE$R5orAqTl2
U"=]MU],q9;7/XS3Q6EPGBbzK<3PDX'76N?HYHzN^h?OE*G'N:i2q-s^r-RD#]c;$
U",LxbFP0ODP-P?0X6'FY2h<rGa>jj^=-NnzPPuG^^P-g?_4MfZB4NE\%eG.7;=e%
U"#(I5w_s9%hkU7P7w%e_?P,GID65Y+X+5xCzS444>Y%1QqqWET:M03u3-$o-6<eW
U"Ixv,*=EjCl2ibFY9shn8VL7)'tTv<okfp,Te#rR\qDE??g=4f;MmO&aZB+p[03E
U"&kUp,Mb;'^G4jBB<=[7z>h'BrL\UN7E3Ue8Mj=g;PHs_xeXtv(;iq$ejT[?pO8P
U";?<xocsOb=dw0+</rfj_YDWJR1AK1;F<jxZA%FC7D]_bjs'dHFTjhSKq[RkZmRT
U"]hriec*T;UN&7X#X>^dh?PuBQxjw/TpUbzC.%<JRU*2M0#G597CKu8bz>hen%a=
U"NAmE4=[44\f+q'xq&+5m3]w=X#P<?\WR(if_.'W<_M>L)</2$Am+4T6^Z[S<Emk
U"4GT<Q$Jw9Rg]^j7E^&G-fWCDr1p9Dq4G*4T%jR3)P_wMDu?1A79^Xh\EC&evXye
U";PN/M]Otbl-u26KB'E0eEWa<\Z%xne&6?:+WNgYu;.&b0'2rm34f7SxQ2F-iNC%
U"/]\)*bF(EQZvG?R4'sX+^kd9vnKG>.Mv%?#n_,<;ubUxijjR-TLvZ])W2ZfFwsU
U"888R6-jnF=B00P]VSpS,J,7bd;ZMjq[=7WYw8vr,6?M*:DkO#'BcLj>eEPNG$.#
U"Z,pHKBnnj&H1ScnU>=cqLhAAd$F$WAp*Ji6QkcTt**94Q%[PX:iRrs3d'%kK&6:
U"sRVaj=[I8KZK-(-%8k,_7Me^>wA7/Cq85F+keFi;CVKPOt2A#zkU)E7w0d2?qHF
U".0]s>c95eISp)^mc,RKD0:l)\:jyZjP-98)/oiPtAhh,b*Dfvs)t.809=)'Ag1:
U"yIA.e2\08PURbV#-FCuOc<TBT5JdG5?uJ#%(Qm/GK7DAd<JIsRu%s-;t1qqFh5Z
U"oKgxsRK2neet*(ikp;67feZ>A*4vZu2:I/PQ=ylK^Mga^29pP[kbA0V_GlWdMg%
U"ZCg-;F-b:g--(K(id%xRIewZS5rvdx?nLu$7Cq.W3gs/QC[*?.^QsoJeT%lYE87
U"M[g].g^-/QF:f^/1trnq2-P%4u2=p_Lga+bT<\Di8AaUVW#s$e$ObLq7_ikF0.Y
U"j,)D0gsmH0*+xh57*n$FT%4cKJRD&wH5_4x058kyVHWrwQk3Mu9C$Lob5uBBdJc
U"aDsW&^;Ff#Kn%M-,L[gtoYn'5OG::1;sY#6n7,vT2f75J.im4J/#tyi:4rQq04m
U"Qbbek9MJWI.Rxdf/mY[=Ph4GFC^Un,bnFjcm]*F8Ptk)FF19[7VM-:bY4hB;:mr
U"0)\R8/O'?2*W#=HzEV%(m9]2.M=R6r0HoS5oDhy=_+h+%WW+oL<%ITHArb;%6K^
U"fd%#.0_OMxR+nDZ3hS6<SOIbYm?KYg?Y[Kee,HCsjP&/]kwo/umHck31).kf&,'
U"Xl1wDM=Dcdr4Dk.X94,P.iHHs24F,[]8f,SqW^Q<DsMXpGY'X)XMSJpEVwcA77A
U"Du^&TciYMwJhhX'a[CRrc>#.[Hkht:b,OyF+D\e-':NV[G1)H#q0DElGYBd8JJA
U"OwM+R6y7RK'-:/N;gAr?/s6,GOWC7nrL.4c^hIT8%\T;_P(LRem]Qf\oT+O/;0q
U"8tYl\,BQ3?;g,a<4hj<j9i[b;t4WRPw9q9TiBML<9si$)foTOT7jRRE4$RE.E=b
U"F/TWQUqBDY<fcLg[0m$>EH7oqxB/?XF/sq5Q.A+.7F$OE7vv'.iwBLx;kk*<GUv
U"[>4e<b;N0D1]__\^1S9*nkc>F4l;o1.lxhv-K?.&[rt$cR51H%B.e_9i:)7i0%W
U"A$:KQqI8pUfXS(1RThiDr#U8OSb/g4Z4nnr?Ml=d)fnIynjqMk8u:i7:>n8W%n3
U"mIvg6M?x)Mz'byFiu%XHoO8nnkFuAX_:ETFW9X*(gB+w?PAfsJ,H-HEMpv\bkq8
U";HL$9A;cDoq#B-1:f^c(uFg\N[gO$eA;064X-AKA5HVM8h-8jX>PPGf/)EuBu*F
U"YWYI_H\WG1SRGAlY1i+a?e7m[pbC+h%jNL2IYlIKH%O:cXw6FS4s?V2[1oVz\Q_
U"<I>Zo][V4[iL_D42tdCpT*t-[(&)F^W#U$9Eqg;J<5,Kvl,Ec+s=l<sg?RId4hI
U"_*;B&n%qS1.5,moznc,3M:#.NVU-B=vwo\u4JVOhc1YM#gm#dyol&xjZqHL.\9)
U"gxm%Zi)fs&:L1op%CN#.2nL?41Aoo]Nf-8Ev90vaS]6oQe#dgbp4a86Gjo?;<jL
U"Rn&j/vSTD#6iT;BQQ-Z>AXmhpzY3H7sCQPQH_hdubdQV:V6(+awoOJoF&Gf%+3x
U"d=>Xa^dD$wTLLEAEQ9m>Ux:_)UsE]9gZQ2G&VW:ek5n2c3(j426vg:f(lJ-[N*G
U",5l]:tF.ICiV7-n)r^.&LtG4UI3JT&giY/P,PG?.G8NE*Ixg99&o_6)=c.M&t$l
U"X9Wx1Vmst5qn#J5Jn)If9.:y&4z%nY(a\Nw-C9'ghG[=6Qqo^Rmfaj3n+BfWRW\
U"/mV>$h'.1sLDh2S-f+pB,2[.f$2H#XL60XRl8jSgrvI<9J/Dw^0Kx#in-3KoEaj
U"Zfb]:cHo886:rLUDe6rLKC>6rl##c4[HF[y[sMG+4p8$h+3-#,2LTwxmsvUV[=9
U"IU765;Fy8;'Ec?Vk104-;$(L4R(u_xR?Q>I#qgS[hs37#B\p^V]Z6KLV-5IY3xd
U"Xbg;vS#a58&7gZs2I>OdZI3avG1U]PG^cW8iP_dBRg2BI;->R:,,mfd2lbQ#gW[
U"gLO8V6X1U$#qtd*mT]hfZ/Ynho3n$kA6bdbU3QlMu-_5G.$al^GMIt7S*#Jddac
U"0(_gCwgKE^;1;>LBa'e4H*2KRCcR<SXnxjR1oE.JM_cG?r-%jD/a8mhE4M);s3Q
U".r<YD%kh%ct+g=<8ItRoo]bb2AESv&<<k8bRXXN9Wf%Tc?'cOReP8Mj2P\Px:A1
U"mA:_B(*;j$?K.ZZ2GfQ^uW=-ln;Z>VXCHd?Vt0hySdm/eLiKUCkqyo,TprI>8Tg
U"Yx-^2JPv]*,TPLOntFZcpHU]wKd%K0C4[':mwS+e_&DlrUn\:u&=hIy5M7j8YWS
U"/ObFY%MTswOyT;&Yhg3%pL,5IS4E-Eu$cLs1df$\Q1%vnTp6M*n?CXMtx%h&pzL
U"&^wrL'aA>fLT<;Ppm*,KB0woUn/Q,j\827c3/GV=naWBR;<:*u,[&pCk(HTFN5R
U"m[22.T>UV,$u#B0YCn_BFS[0X2q2>UhN;v72W<5Sb_]#6&lej/\u;-VgX3,BX.[
U"gDPDe&%qciacDu>TW866W87fb^-9&BZahcY75(I4.iQH4ZM>-t<vCP^FUq'5B3l
U"/Ha*#5YkEapAtjq8<MC$ki-U'/e8'heDBvvpwr11'Nm9r+>Bt9&S2IlP%>\UDC6
U"YFOK5los\Sk[nYn2Qjv8s\=ztARY-2SZoe8Hb.MOz7UuqkOj)MwU8'su,dLA2\M
U"kS2;'vl7))82oUfZl8LrwRLC:$zp=Fz[zIVok%iTu1f^oC3?uH+41=VGyoJN,R#
U"C1kEOl,>8H$ju>R$D&NuABY?Lba(Pw^3$Q9Z/o<:76,DB-_8V'QdC3M'mXAui_c
U"<Mql2g?inBL<:U4^$U)Qn#1[,da40d1MSfHmdQ3OYLYY-20mEIf9ZX:M*9>W<'(
U"2F0cfTZc+3NXLy]s,k[bPcC0fqkw==>V?G^&[<tR/#Jat_P;FH]ZKf#uk$#UJU8
U"Eri:rJL;\V<QDmT3T*JX[A#kLLYoZ.Q#CyD<Z*na+qX_)b9Di/lyQX>-DA>+vtB
U"C3tys$\#k-p?4aJSBcV/^t=M-\ko.X]fWfkiNzC&IB+i+YYfP:AFAORRl6sb4=e
U"3mep6IA8se#j1#277SWs[80-Y5D:MY:g&xSXkv[H%hu[wvo?LinOXsaG1][Ln.Z
U"7cP]ckK$ooJ>,e/m]/adenBtSPj#$<-:HAbVk:&l\wenTYOl;9&iR-^j(o4P3QY
U"J5[6uj:#9hVBFqkcg)vb2X^I2*86;cBJBMMS)eq&:\dUDk$f>'/lje<c&a_BI6/
U"Pn-aA*?;<:IFX\QOPkur_(Q9\F-VwyDP(gdL+)_]19ey9)cn/gm%<W/ThMW$r.H
U"]qaADv3'J[]e,vNN6JuoszHRQ,BGTj%lt?Y4#XcdTf[S4'V)[BY[RDkV^(:*);'
U"I]P71J9lNfwL:+u,';1-317[xODnAdChvm-Yt]Dk)J8aAZH-ikWTB?V^(tZ<S1<
U"gb'SEL2)dO2Ic&t68TLfo]FWrGiS(LKab7/rNb:LVpJs_LEIj5'Qqln=V<[CVaJ
U"%i.tY.vgJ]#t1v\Zt(Zh/G#rXOt]m-KB(*8#G2P6G$vba*XJC/JB&^2kMTeX;bs
U"qFh6$*rIJTe;p,kCr=Sr\>Gq_.2VTUF8?1$J5Lt2[+l3./[o.3A'Bn=NDBo8+w<
U"u7uY#7:is<'9;^Z+<,7*Z2AHm$9e=m/$:2BeE.TGfQuGhp:WG-R5=H4liQ4Ruz5
U"CUCim$UuHbzk+[w&5Af*SPx)NQA;c.IZvxe*Uf-8iZBD3C%2>Hl?*=(Td]KM<j7
U"/0f/uW2dn3pWAfq8JC]KZ<Y>h(RO,J;Hw+nZ_NtN:Hj\7XpOuA=N&jDjV.USJw2
U"[<?c')RVl]]jz1Bdd#UOR-U5]FCu4&cV9AImEew=BKEjv.'YU&eLSBCoLn[h>Zu
U")$FtY<c*g+UDJ>u,S3r5]tU9Tds.Q6.a>#X#%H+9F?CKI9H_W(yYUD=hrtZ4#Y0
U"chGFCD&++?w=v5[Sc+V]9:t^Z<S8=u_r3miMDm.roV(4NmQL^[65))r#m$dk&)T
U"Muoc$^nY*xlj%spd.?bNRSsM7d1&7WS'W>YY/Bq.\U%'p&3L-[KMe0WhX&djMME
U"JNF4$dj2u*1YifZ>Xn<sdsz.9bG\G^PfKYN:d1je1\t4<M3t1XvAvcq6S$M1(uQ
U"NN>mStD<ggb><0w>[=JKS7&JWQhh>JkePoZ2E;sRuq136Bf\%T2UxFM\RjY1Xkn
U"Lwa9C[3X:cnz4Na4T&T;:R,aTQC&sd4PU9B8.W$Bkcch\$7Tsfmj]Q,B:&Qwq/t
U"'pj<Z\vF_mk/%I,w*Ce:JJ.vm:Zok5]=3+cAjd\k^JVp[DC+&IfQG1uNOiZ-_<h
U"4gkJE5:iI5nF_J]pY?N3D$,m#\V$NxM7[Up:Lhj&?>ygu%l8KIruLxP,$p)T)8k
U"iQF:Ip;3(&zdql.)[*MYtlx>DLCJL&%NsV:0reMQ4lZg:wBRE$1j]PQ^mZa:4/O
U"Qf\_A3N9P\W+:%^k6G4aak&=,ii]CiNm;GMjEi5jMR[JL;'djfLzE;K^;vv2]3x
U"Ym_oRkES8yO?8YkaCoLUeP3(c>D$b*pfHlEHn<p=Qqj?T4rUwOhUiFsP^TaZOoS
U"hY)uLf\tnVZTpCROQ\;sQD'*uE,*?M0\4l5\^)ZDeL[%XU&)U\lkxk1ZeHcrOsW
U"(q0&L=kyp:QoNY)uY)kG><9yPZ#cDPgUy'<=E&P:&ssmV]5K%8RXhErV&R('WCk
U"t,ef9A4oiZNJJ^IYkI_F^(]g:7,L\&A(<ZOrmv=D'[#-xsIYhMvtGjV'Px/zC7:
U"2Ro64?wv<e0JzZ:^Tfp*nMDXHXcUWkbk<[qUOG[PGtW2N.A9zj6Gh4wq=-8sjkx
U"ebbmB1H21u6XiDBgfq\h\2G;ergWdP$iPGYWCTF(#q'dC]/uVi9i,DL(hBORtFh
U"g=Js^=YVVijCfb/2tnUHVn1\ob8HIMhpHU9:1VX8/S<XLQ5gmn0X<k^1V>/q6[j
U"A3B?hV*o[.X>+H=LiZ\X#u8,E<'hm'k(r5?CeMxab&h[XRiHQn/h6\hbqGeDEE*
U"6rgrbI/<3EX6tMgtH]TGQVBuwN=V6]_#(7f=7/S^Uuh'ZqT(B])3_].5MDg]_at
U"<$xH[JkzL_G[PH%I<^_iXbiOwb:/ZdV)<r0MF*6,cwNztq7:PoY>hSr3&vE+b[N
U"cTNR:*fUvJ0BuO7T29c3hacdoBDZn-LQr&EWn-q7Z$bI4QSY#/Dy7Bt4QnjZ5%8
U"jj5Q5+H3DJAg,efGo-O<'6C3l2Td.tNSG[UD<\[C1hF&KT]e<W\'0\b2Z[CG:^[
U"]btT]Ok=\'5s##cV5#j;\ZG5S\UXF4#Q_V=kNBGkDK-#4DK1#6\tE\%RpCk.S5R
U"<OL<^?.,&V643#LCA%.a]v7K;^JJsuGu)d43ZMaZV9b%y],9WLkPyFojAx''9D?
U"a(t&#r9MY*K)DO&>OOPLH=MN*8JOngaq&W1hv)(Uax(qg*(YrfRHW3v,5p/nNVE
U"u*MFYwEs$\4cuf%hc*0>i:*U>iZ*U>izBU:*:'a1nRHpTxyE_MHy6_'+=#i6zCT
U"86NC'H]8zBVDiDTVD=hlXMtEQQ]bvJkn%qGVqEyHjwEyHkwEyZl'u'[j6zsm]5N
U"sa][H85KkcOJMAW9/MAWPe8rk^0nmoJ]oeyt]\eyvdh2Fn^dI/%uD9A?mE(2n0B
U"tYMR,HTR1I[;5)6E%iA0=Oj&n9vAYUSGu;Ph&gUIUFQ&r9vIQktAM'K55l^-WHT
U"^qE:Hu-,(5&mnYW2YUr9#f]WD;UnMX\Xl+EEibGYplUBi\bG/APg(6ah$[>ZIMj
U"camF%u%:17ZL.j9cF=(u%q,3ZLjMcc[..f7eFm.A.\A4hicg*M%?5fibGIoqU^$
U"ibGCBEmkSq5k(FLz9UcG?-WDhSrEH$EBi5-+BGo..d8kSVF7u&;Fo.Odbd<Lz=U
U"cG?-WJ)Rr9v89k':#or++*ibGm[rkfiT,WkPnnYH=(vngeoEA.e]pwV+o\p>A&m
U"T:Hl4wlF%DvKk2EMh=uRthPXX6oN*Hc8e%O]q6)t5m*eVPfeBrp6tG5A)NsP0cr
U"Fp,<?N1AXmf<9#_Iqfciq+d$)]LJh2\kPw:).YMZ7xKqpf,<?1eATZ<I9v9A;zY
U"<95#^kg/+^v5;t5C)eNNqMB]35afUqxY>?^;42V8]c:ixYULjci+lWZ>^03.NPT
U"Poq*02cQIa\2M;)0YMZdXlxMH]C,V_8]x=CAwwbnjBu&)+y=wUX6oQN*BqI1oxh
U"w3;#YMaZ2-:)#YMZZ259#&iH?vjoq,bKMlajQmRBkFGW^t16t5oa.#P6ohA(m31
U"BkG4oFc7qM&3L4h;c7_]&?5g^-8]N_Gt0kj\d?2;]&?K)^-8Q-_FtVpiXd??b5_
U"&/KJwMbe+]-L5qE7o.#PG\.Av62eZMsJu'mQGkjuT?^gb/f0xnSvQ#:3g[=ihCe
U"?5TKbC#\YMZba8^\FT)q=l=?$1tM-%s57o2#P^BiA(K-GAkA5GIqiM?k_At,v9r
U"q,bughajmrq#5K?D#joZHWEjtbME5%^b>%&ZMZX&>tt+[rGoFTE#MbO?$Gt:^Y\
U"9gv9uM)?kGo1rIj]/-p9]Is6t5Rn288;9k\cJHox(pl-H5\hn2#:NqMQ,xZ]j)c
U"iJZ3uuWwN,I9k0\cHoDx(bRIV6J-fn5t_pZ+lT+Twx)t.7wtQj#J:tHHvuur^X7
U"6wleS5pxL^rPk8xF>Z#/[^Okt^J<gflln\ocrp#QnnDhhXdx1??-XXcfwov:Q(X
U"6vZuqsfS+LnNZxqsN%up()%9%%%#-%%/8<S2_&?8#%%%%D%%%%.%%%%rj%szVS[
U"rfpl,Dn0Z$MB0k?^^k*4WnkA;RH2a)+L'E&1%up%()9%%%%-%1%/<S<B-Hn'f%%
U"%%#'%%%.%%%%rjsz%VSrfgud^:,9<U5aih+xi<MQeEs_;I(5Xn3Jp[\*AIX#*\D
U"j9Bgm:7w67+1q#p7oCL>glv,lV6[F,Yoh%+n?2WH_+;+&t8..<l#)[$gpYc>m%)
U"4:3rTPG:rOcD0yaIa*;K##T>*5k^#(2DdNyM&g1d.,I2a53L39VeG+-3jY.G8r#
U"3:D%EwJq6<FIgtZnQ:=(8;)>4-&D>*PkkjjAQFPR]NG21HSWG/;eax_Xxa;FTxk
U"0klejYK/>XaDKC5iNqj$;z(V<w*^BuNi0DWfl0IlWJt-5u,G)PpBmo%\w8E?Fx,
U"]'s&up%()9%%%%-%1%/<S-ukF>'u'%%&T+%%%.%%%%rjsz#VSy'(yTzr,:Te596
U"#uDH_O)kFu4.c[e4sc/_el?Tcg':_8;RV(4Dd7Z487>D&aJf,u6J$ul_F5&HHT<
U"4tXvI7b.kw$PYL=K;pDo6SRl8))B^F(DS0<9*KFK_-]l\9JW\/Y:5mPWee'8RP:
U"tj*jWM,=Th7S3bQ%rI>w%cfeuLH#j1qp1'8QuT)^QoYIq[H+&qwm6L.A)bf-^mm
U"Ib]l][cfIUHd5d.k+82Cut1XDtWc'CRNJArGrmI&VTPe:D'N98GDW'7zmaf-d$Z
U"eNd=as3D+xsO/kd\F/6W0m+&*-$/Uob91-OB(mg7j%j=aBOF\$Q$)g9Iji5i(CD
U"A*Ook'Of(-Rn#%^Z?sMkQ9di=jN4;JKEhu^q8:ffgLS<ac%H2<,jOa(df7EHT;q
U",ww?cAxImX[2Pu)2QjSFD*vIpPOiTbBrd?^J].4z,&sPdTWI/u-C4&KrfQ3EG=+
U"&(8rk/TOfass*[<ERKUsira;<SSaC];/G2H+-oaI.F=S5IM[H2YoarBqQr/n4hg
U"5m:ZsiS\OA(bm=Lw.4w6k^hBH=x><capXE)buu6graO6AY/JZ-9G8S77;Fb[2oq
U"KW[iIG(YJd%Xqa.aaj>TeMa7kKNdKG*eVx5#^?]'LN)V%cbs#)%f\67(DUs5J:T
U"DMl;eb>CMtauS<Q+wL#rnRb)m/^/iP5QW4LX>iSOP,n00u1aBKv*(<pX7d;Qu.d
END SUB
SUB V3
U"019jBU;R,m3G5RnaS40XgM0M]&$F13aig1gSsa?rNZL\bUknekeDre\?S3mKZK$
U"oY=[q;y]5L8nVU,wA+sb8b/i<pIhIXuamac<tSL?A'kk*\B]eiDio37amc]n/(D
U"::Vjs^YI11^<ngTP-FZYQ6#yk\]kx(6^tMZ9??,r35Uu7F*_-uU[<EB_j_:k?_P
U"Gqq^);4&s*1B)$tX$0<GM?O1+Xp4:Zt:3n5'N0:;m1raM)9i2#ji3'Sa]qano%#
U"up(%)9%%%%-%%)/<SJ<'H'P%%%%S%%%%+%%%%v%gSgf(yBmrlGA&Amtp\^ao/'[
U"g9Ts=&15$KFJ8]u=5ABq&%uZymuZ[^-[^'%%up()%9%%%#-%%/e<SAe9\+H&.%%
U"<(%%%/%%%%wj%firj.Sy'yDDbf>#8f1T<hdsD)KRoF('=^wC?sos^:sE'HG%\:h
U"465*W6cuJ4a,jy5\=#bZo5$><W=O4%dc%PREM#p&v*5O'pl=IKh*2s/5&9M*o=A
U"E7w?:_OY1V6oBk9Bl8BV=q6%hXLM'UWR,d*IR:.-(//lJsMXsm^po?p1.*byv9M
U"JU#hSkcNU9Ad5)Sc#o^+RP<oTr*2uuu12D#([rCySvdQ[GDJaqt6p()g?Dm[f8d
U"VAIv:rv9s$i&*';>b48=&?AgVExp+)ZBJ0];(]7rca9]3]E)G]g=ZqpEL./r:z%
U"2';h6u70b-:tWH$6t#%MBz9NlQBD\C')so(0GCF[(bE\HMs?xL^<hv;=b58tLvk
U"o4D]/sT<^(^qV>rpDUZ[0=n];SbsJtO^nN9nzZW\/]9%&kgd[.yxQJ=JLw2<.kQ
U"]UL7RZsXa4n;fjs7\i0PNmA=D[#$YL'e)TFk4aMAnPP2J&K/3Co'9R,Q%7XK9+_
U"PtIJv=lA&8^Do=^O#$fhwnT(R\7s81g8l>eR>9MV>.>UbyI6Y;UiB(lBs/-_s<u
U"(x>a,9+AMDAo+%F\]F-NMD:EuT?tT\,^v(u%p()9%%%%-I%%/<US'4^'Ex%%(%0
U"%%%%+%%%%xmS#gfyBmmrGA,&Atpc\^oG=N_^'G#nEc2Q:-nM9$QaM:S6WJag1X#
U"gnkyLgAM=M=1-Y#gfvM&=&uM_.pM.,s-M4l=kDnm0ZMLL(9Vyu[^[^%'%up%&'9
U"%%9%%%#-%%/S<Sn?<JmS%.%%W&%%%.%%%%%%%%%&%RE%/P%%%%%%rjsz%VSij%k
U"up&%'9%9%%%%-I%%/<ISAz,))v&%+%8)%%%1%%%%%%%%%&%E4%/P&%&%%k%nqjq
U"%nxyS(y'yu%p&'9%%9%%%%-%%)/<ST9<*o[#(%%P%-%%-%%%%%%%%%&[%E%/,PK
U"'%%%mjq%uSkw%rup&%'9%9%%%%-I%%/<4Ss9Z(%Y-%(%)<%%%-%%%%%%%%%&%E4
U"%/PS%+%%r%jszS%gfxu%p&'9%%9%%%%-%%_/<SaOY:p&[0%%O%R%%.%%%%%%%%%
U"&[%E%/,PW3%%%rjs%zVSf%xrup%&'9%%9%%%#-%%/&<Sss/pOc'.%%*+%%%-%%%
U"%%%%%%&%RE%/P&+?%%%rjsz%VSgn%up&'%9%9%%%%-%1%/<S4cve1%w'%%%Y(%%
U"%.%%%%%%%%%%%E%*xP;B%%%rj%szVS%htru%p&'9%%9%%%%-%%_/<S)DxBXL[%%
U"%(%%%%+%%%%%%%%%&[%E%x)P^D%%%jiS%gfyu%p&'9%%9%%%%-%%_/<SZk;&]=[
U"0%%]%H%%.%%%%%%%%%&[%E%/&PUE%%%rjs%zVSk%wrup%&'9%%9%%%#-%%/S<S7
U"(.=a2'7%%#-%%%.%%%%%%%%%&%RE%/P%#Q%%%rjsz%VSmq%uup&%'9%9%%%%-I%
U"%/<.Sdst'kiA%4%6.%%%.%%%%%%%%%&%EO%/Pt%S%%r%jszV%Sqxy%up&'%9%9%
U"%%%-%1%/<S02_?8%#%%%%D%%%%.%%%%%%%%%&%E%*/P5p%%%rj%szVS%rfpu%p&
U"'9%%9%%%%-%%_/<SBb-Hnf%%%%#%'%%.%%%%%%%%%&[%E%/&Pwp%%%rjs%zVSr%
U"fuup%&'9%%9%%%#-%%/n<Suk7F>u'.%%T+%%%.%%%%%%%%%&%RE%/P&5q%%%rjs
U"z#VSy'%yup&%'9%9%%%%-I%%/<RSJ'H''P%%%%S%%%%+%%%%%%%%%&%EO%xPX%t
U"%%v%gSgf%yup&%'9%9%%%%-I%%/<pSAe\++H&%(%<(%%%/%%%%%%%%%&%Ej%/PQ
U"%t%%w%jfir#jSy'%yup&%'9%9%%%%-I%%/<US'4^'Ex%%(%0%%%%+%%%%%%%%%&
U"%Ej%xPH%v%%x%mSgf%yup*%+%%%%%6%6(%n(%%%kw%%%%%
END SUB
V2
V3
CLOSE:IF S=90AND B&=22011THEN?" :) 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\22011,219);:END SUB
'>>> Page 1 of MENU1.ZIP ends here. Last page. TCHK:90
