'===========================================================================
' Subject: CLICKABLE MENU SYSTEM V2.0         Date: 01-09-98 (12:25)       
'  Author: Sam Mckoy                          Code: QB, QBasic, PDS        
'  Origin: fam.mckoy@xtra.co.nz             Packet: MENU.ABC
'===========================================================================
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"MENU.ZIP",4^6:Z&=16082:?STRING$(50,177);
U"%up()%9%%%R-%,0RNIL7<Vvm?#%%%I%&%/%%%%wj%firj%SithEfl0CgA&H#E(3
U"L'/]<j]^]8oB$YSK:[gZNQ1I<W92*],lDa2ngdu'-&XkK?zCB4De),76IB^vx?I
U".S8)99FIe)GSa1&cA?B8)C#)dgNUk[]iAC_rUYZTJgTRGvx$Ft6ogE_lh$,r,zR
U"VfraNHueEU$<hMXaVEEmdW#m*CHPv<M>^QeJA3*^rrp_,2GDVufir0,nfl>,P6F
U"NN'WbX.['v+_x9Jo)$U0qEnO+&QIkoXQG,POeNZabI)7[)AXhoBpn<IHIXnp2Ir
U"9I*I/oaga0_p6f8[(b#3d-wo$Ie#pZeppo$Fg80,C/,+,[3b4Sa)ngHkVsoX&R[
U"hTPO'OM^DIFm^G70-C:IVC^JC:m+,IDgJ&#2jM_:oM87%3;KS+<V^+pBIGDIs7a
U"<mlIP=aI7.-?Uk8obI23I-79U?R?pSfgto&ff\g:TVw=/I*C89moaz*IMM2#re>
U"7.7wpNJ7?iPu+IFI[&M,FCgHmRN_o*o.'ySo%u>_-KFhVo6<IzFHCrZgTxNm63I
U":p*brg?w5d9153re_<.rF>#pU1E*P3=Um;=2vGlT5RX6pqFDdmBHObv4C'Jcr[M
U"9Ku_I*s-hDbcJcNVwV%,sm343E2gHbJ5Z\4K,QaD5P5Uwf$eC;Qab/E^SqEhXt+
U"b-gN.S(8TNXYCXMLe_'1r)c]mMZ;h';XN*S61O.HSv;m';Xu*^*h*5.J<XTo%3P
U"FtyEUZ=U,N4uInYS0,IcuhPml_3[tsz_UHlG<M$4ne6>Wovp#V%&_u3VZjfQ0LJ
U"V,'8Wm8M[tN3KFVmnF,KJ<tOx>T-b]MTk5ge8UN,XWeE+-5plpv/4YlT1Or9Fm$
U"jO%GrXh[gCmlIGA]A2)VPg[SlHH+plf#+*,9v>k%$d6*S;_tuOpL.ZT-R;,U^WY
U"uc+$>jQ(Xm)3%>?jx/8r.nZ.y:Ld:hetg)2G%Dra5&N>NPTS_iFTprstZC:;1:L
U"jxSB*.wB_pM;i[?Yf*Z8bb=bq8P.:jLwEtE3[FN4kdtp:Zj*7:,ko(nJSONRqaJ
U"%3yT'<oV$C$fxd6rm0jSjwipnoBE_;vdfHSr/SOq)6-R*2AnRI9vNtD+s#$C[*Q
U"vkBC3/^]fhKFg3Yr:;cKqO_(7H$.awDuL=axEBqWUNfyaU4oliWYjG_dcKZ^NIM
U"YrPrV4S=3F9uyIy3:41JRKWr2;_90^k>;JJ:3qfeN7LkTm;*.tV)v:y59r5hN_N
U"3DR5_,rG?$rLqC-[;JrB49MC.ntP>kF)kSxKL?impzddK.=LLNLX2t'#o<oCB8^
U"ZbblCGnjATS//3y%J6%E%;(v_vWukE^)bM\c&=U2JMCc*w5-,LXJntuGLIK:cHV
U";rR4*M1vPBmNHHQOfw.XnF^76FJnxFxaL)NOS)i,&NaOA25Xib3o%^,V7S>>8a_
U"p&ZoCrbpdLL&T(+/-Na1XF.o%g(99Sm^h&:bnAkDJVyuRy&XY;X=*&AcGe-^Y-D
U"Q>bty_tQS/o$Y#?*2^PjHe5>7p*fc>ogGp=8CuIq[R<8hwoE24$lWFe$y;FY+YV
U"4>+rHn7o<K2S%uYP5,H;+v)+*cJxp-Nh8q(^2WPQ8d.&yNK5dQcJfX-0<W)F0(;
U"IP_TtK.$utJM9*]<Z&qwbusUYpsE]mxv89Whpbto3WjU7:hLE+;;LYT#mCRot8s
U"n,^EF1\ijqi&NB'W.Y-1Sc0-u9XQ*Js;8KUu8hxhU*uIRB8RKr3c>aei(PeI)_c
U"5B<kz-LP0SoMVAcZY1M,S63U'N<ayM%2q+tl%vNe[Olk4RubEE^<-qCy1[v%ks7
U"^#ilJ?itt11EK)7%_yEclvBDBCFd+of?CaBT$7q<;PANi79&B*ab\[+yl]+y/ed
U"%G+#ZM5d2Mh<G\?YIMik>\4kxBSkodQ'3t[M[7b6UVYFm,v\s%Gd_\n5T\oDKIs
U"2>BFme:>9-&WEaYX)(>PgbhS'T6QM5%uW20h8PdN:)Ch'ptSU,p\;uUC>P[x<%c
U"MDu#*I'&Tu1kC&go]]XkPkC2.mlZ&ZLi/H\cqllh;Ia?AiNAL8uZF/dF-1TJ#QJ
U"M,HG]]Xu0L7BV0OkJO+yq;UUL;iG7Bc.y^f$-ESlhW+)Rh&ILG(Mqs)I1s9&.-\
U"*7W:L$0w8mx_y5\smk.,Z+ltj%=<&[flx4yI&Y1H+.k+lJfRJjvJ8_Mf#t3ZGgT
U"mG-*:9JpB>(3=y*k\FdJo3N=LIW';$)]?YKM,U>/3)5_jV#mKhV&B?_J1h[5A;%
U"VBg\%251kAc#a=7v2h0K?Mp=^PI/2M,hTV7dymPk#(Z4GUxsL.$s<:PJft4#YYl
U"nC]6qRRCQnWWquhpP,PN\/x[11.tMd$+Us>U/fCZ2*x4_2J,s</\m2T8a.:qVA\
U"Ag]]^<)f]N$C,-_w:1;T[[]_oL,^fAy/E2^2'gBCA1xU=y-oeA>u?oZfiCm$JW*
U"PddtPfTpNKLF\)-dW[Y-N,8fD0dDg[.H2Hk;P-qs;V5ln>xCLs&tI.k,U9Jr'xm
U"mbHC.[HTx'cQ5ZNi,>/hEgLHJN#EuILU1dfI43+^7WGbo?ke*SYK>7YpA*t=u2N
U"L.sS\3ZSXzX'Hv.:.A*Fct3dq^<?%qr,lbkl?ZxmjRYB3FtFZVtk;J;f/$\$&oW
U"rqn^u%&g<k>20vb^2R[SLkPnF;gx,tq.Q/J%F^1Nr0AvIvpiY[yCl1EL't:qMP*
U"fkx6,],nja)tdadQ<=at>&XJa8CpGKe0iqGK,eiqQiZh';sX*ql+q?xl8^LTRCR
U"h$+G$X-*2KK$r#000I+Q3Ukl0rqYcbV?;V(W+;g.P$I1o&u](E\btA*T_f$V+y1
U">;<;T7-X%e<<>3qFd]d%:m%Ku_m=*rcO:.:+R2XP>0_/qZ50sEN%>[BM8QF9H0S
U"n%]IR,6qevVj:q+oq-m9(l8';8N+u<b;/K8IDl&Uy]g6yStu4-BrHJR-^k^WJ3c
U"j%IM]2br50Ol6JeL0Alc6I2p2<$*Z:-6;7/DtB[sf]-;FiGaQ7+thI';[V<c&Br
U"(q4'DL2FWHE0k2.CQNo<$0,Q6*>S&ien9P>F4jvGo8]U0/oSw2^\/hOb,nWBN_B
U"W0PBi5aL.tkSzkAth+26lTnNnUh>P\qrtk>i[i)1wf2K(L*6Blj%<4b\erhl\BD
U"*:fL$M_%lb>Z97LWN$mL]-yH]ob6x2:I=RYVVvl-If*/</\P:a$HVG]_8,Lb$D9
U"C#AWEaf3xq'L6u=%S^=u\EYyP35u2DG,?nhXSW1jW/Q,VH9pvs*m-H^WL<KgUG:
U"sG/9ItG6AJ(j-;Ndi_vDKAbcV$O_fn*HCeUqmZwSau_mG*I'^RCbWetbf]O0[Nh
U"a#Atwn&XW1ye5#?lcYba85d$8FENR=X*;9XqAkXOmL18b0ZO:Ly6n\^d3RMb#Xt
U"B]%lHaDi&cAWvNi;D+pFGC<N-G19[MqFKREa&a/*B&uMmP/UA?v4m07jGE^2Ac=
U"e6q+E\rSI?,5\>'>uNXWjaV/C\[<FKREaV+ayQPWL8Xt(?wBXSU3iU9hoKNk#UJ
U",ZBhjw_?k*Y&H$BLDYhB&&H50[PP6a#6#p#9uRR^dV5uqvliAdSbI&rUHsbtD<L
U"1c6lTGNenfIURUc8n-2_P/SPRI(=QlbU.1uKRdk7bNe\iB/*XTvFX_'T7aJ8P)C
U"FhSBIim1iKvfBV,S6[<bYHeAN.c-&Di*8K\oi;c[*inL._OiSKm&$E2&TLOPHTU
U".M\)K(WI?^hpl0:XUmh4gJi^IM;Sp^(h2?:m6FWMOXf+nkI6/(-sWJD5ITY3^d#
U"Cs5smai;?r\Jf>x2CzfqSnZStW6HC^qToGB7H:OfTA[A<J0bo$UEVIuDPY;u$u8
U"uaf#q3;k;IJutDi-2BaWw9.'t^mtZxn)l__nZl7)x\KrcjZ*?_L.bG]1:1Xan50
U"av*91allf_i16k&cnPal=b0&cG]2YlbfqGK7<EaOlxHFA?]<dS#sXSBZC:9i;>n
U"c)Gm_iiAD2[-/76fS'WQI0i1CZ+=r$g4?Ebl]SE-JIsf^kK/Ipn$\:3EpMMhY4[
U"[jUDHGvoRN)E?[M?o+CbGSg#xHDAU/#X<q(/O#KL>AfMf6r0akk55NW/Zq>SA4R
U"3U2ZFJA-&+_;0kp5J:uV,+?NMJeKb+pKm&>6)./[Zwp5sBfQubNnu*2?C%L,g7g
U"<:1X%#Z4MH4L$RHar+<)/Lur#'[+.,VaP43B(.%_N3)7JZrk40/h^PW0BkUjC4j
U"9-IML#x4\++afZTZN$n,K0.>u3:U2VB^F<Wo:tl%&X)e.>lddkPPfTkq'Q#&L?F
U"tEX2?j#3B^sga&xoBTKg]UlOGjS9P37$,G_v(L[lzZt&ZbPKM<.;m=pvdH0UF6^
U"RYFt&3uLSvt\&E'j[<51.%9t4xwvILtmCo/1#3R0S1_(R2&,$3^bs'*odBULs8E
U"9KJOA,FiaeKA+20I0Fv9CvkWqjV&qjQ6D1<t%OG#n\B%aqLQDZ*1h(Fkj0=/CMl
U"_D>y8O37A]9\,k02#L[oNeqeem_&iAtYd*%XAu?##vQhgpJds#,.?YQ]qr]+,YW
U"Y(LD:AtLKt6DG*96'EI55,MXqV#[s?o)>jVJqwMtzf;wR&zqP.CTm=23wfzW:2#
U"]0*_m]D#QZQ=F^T&u05f/<02+Atde$3uU+LK):;a<q\^4F;^*EB7;^ALV[P)P.#
U"x%c6vO7YtZ4P:ZRifho<XdOH(\(xU:pIKPM5*rYjMS$RHlmGojiU)G9#\Qp*0O7
U">A2E\6[Ipd&6lsQ+-A]4JRW:k^PfAQR<BwEl;*U$i2'j8^>5n2B37,Z=\6trR;w
U"qsc^'aHlV4F,_#\S[eJQ5Xbf:^&po<R+gjG+>Y0=\z,44xjuALb*eZ3IG#ZCazM
U"PCO=gWvrpXAn_8;l.1BVd1lLR[Sf4:gVljVdQT6c&<xiMZoJ],)#qF#tP3*r$Z9
U"Dd3q#[uB82>oO'(LJo8]?gLS?C-*?HKL$&mc>W0GZ7Ca&(*kMW_R_k0iG_aNImR
U"tmE;q0a&]wy.:I;FfT:Rkx\a^]k#s8'1$AubZvmHL1Ln$(Un4oFL$G2[t%<D+87
U"0g?QtW1to+M6ZHt]+upHc2_YZLN$25.ub,$me9\Y2Kyidi6pDH#vGW?Q,GV?(CP
U"3&sk_'5uLc*YhXp5Ns-*P\h;xA#:eG7dh=1(Ypha\StqX*_JOMp<ODdIt]8[PZS
U"ij[ACV1;CQ(aI7qX=+j<-'Zq=-vYar,\^rO5[UD-*[aDc+[nFNfnbU,^n#xuRqA
U"#T-J<>op#%Y7:lEbV^gw2\*Hq183Qm#0xT#c$5/s#G,OQ#6GBq(HT3y*1uhz(PF
U":S5rWKlFA?gi,9m1?Wb/;^&eB2K=dK;ArrIu#aqIT(Pu6pWD_nsXM$1X7NAF#ri
U"N?,]n:Sblb2?A,#uT$:q&/'Tj$,9S*q;]Mm;xu8JRxN:G&au47]br\b+WJKPZiS
U"FEC,D^/*+Vf<OA_i?PpoE=Lemm>p%)G4]kfo?(6RB;P/uD8Cq/_vS/Cd(nS1H^m
U"J>>h2&eZLrhPW8:$*iXGh+I09cV)M>GOh(%Fm/B&a)Y>H)7a2dgWYho,HjH)TO;
U".dnF'0l3REO_2;vi8c>^fV25anlmOXMoO)s*_D/kj95.XoUnsNm_Zn^<RflkcIi
U"?6aP\tZB-&oa=WX%$DPol^/b_OY6+:%Vah<&Ou/#WadoI8[JlrsND)uF/tW0&\I
U",n=QH]E5anO;*wH]CE2FIX7a<m1XK$nx(6g(imL.t=JkMk*C1E5bM0.QHa_Ug-s
U"\1%j5nMrO*F[r#BRXPS;nPodBFLH\nZsCj[lyE0oZT8vlx^AN9w^^RAKUuc4+k&
U"R]a]rUQG29UaV_h-a^Tbm;yk\_>t0AVx$dFLd7.l$m5^C+vsmcO+,]7;jS=2m%f
U"YMbvBNIFtMbt*G;nJIP'R/H/JbFYHeJFW,s=r5HSGb;VoMV2>JLJ.KB;u-O)Gr,
U"D5lnYfA#/<t0O#LtF*.#w03=BivL[.7p6YJG\qGMJBxWvVV+)\;*^G2+R6p\m&^
U"Vq\$8inb>HI.MhWruHS7I$\H%$0AcE.x7?85dQ0a.bgt<lHSmlRgIk3;&gWa/DS
U"d#ItlXSmXb?OLEm+Nd-hz)alf^MckZXm]SX5H0S/C[Xt0T3H/w5UD%*\Z(vZ5.O
U"_QlvT,c=f_v7).'IFY/hm1VjmaJkj^)FioWD)ZmbIn9SenLf,.bhf6Ys#Qi??LL
U"8r=kd\sNQ#o/MHvX.pkS=.H2*Z;n/dkata.G0dzFooka>(P.)PDDqEd7olrO\;9
U"\\Nbs$<RnKNNi&CLN+Qg_n=.aj6&lfGb6?iOtGnR)[b[+x74Z*H\^aa[/FH\FNm
U":a*[5[?Rt0SbqXd4CdLtJ+bGYW/IUQG_$>*;spcJU:;V^my2]bYEC^jS+GAFd?t
U"fG7-9R'ZimeJVNmGIOoi[NQA&^v6n/GTkm7S\H9L(8';X9t]hrVY=>#4/B(hj-a
U"4V/VX+J0h07&IHaiX.sb5aTQU#7A*ko8SW4/6\kY%a(o90h0h<h/hp^HN26a83(
U"sa#asaV>p8R9W*6#/I40TGf60I^TC\mscavI9Xhpe(DOcm9Q#3c^)L=sa-mva+c
U"s/b<aMa&9afaF$omekb#a8ILLpNO.c*lfb*HiUhF<8:9#JZQJ[dJI=s6wQVBx]#
U"Sy<=nf\>qd-\BdJ=BY>0j2_(lhSR3b>mtlaq2MA&eRLJg#T1t>:9Dk12F+d$&[L
U"aHW$(x=]gabg\)Ia<$j[94ncLP:CXUmr*\(Tw*r&DZSnLpO4iE,Yh/\;fJ7LmOc
U"bFxq;'dWc:al8'h;>mfrgnf<TL1/-gm:H?:;8]a.hH<1ptlv6ehMGkCR<TmEu^-
U"lEf:jmO;ES6H;,zHRo*T?da(m4=iB,[iQYH335\rh_GUeS(mmcm1$lvUKQ[_v'u
U"8S6Hj-HD5kRE%Xt[jw\lAtPn-<v23-S6PBl9cN1DWv<QKSbpXOHSVE.Ta(c<n3Y
U"#>-NX+BH?<h<NmGq&MNBcLdi-\paj:c/?jv]W[<0A_#4m37,-d:t#w.ZH1icl5)
U"cZZBxn0<Tci1>YMpQIY_mQXI/8[8($jyrVG?fI5?_vlfn>JQkm?p,UiIc.aRy.W
U"Huicu2)m_<BQ&T%tq.tD8mWVi1wGO7IV'yDKHWsm.tb4o%.HQQi-_U0]NF/3c[b
U"cdn7mfcBL.,>i=5Rkcic_(NB/OWe8TZO65HIG,a=vjW/l&\J*vj*=sLa6>j_L2/
U"41hQfZAKQ_er_%LhO.*LEROPkmSvMO[Fnfrs][/zMkaW^lLFh)''IC8mzmIzEDF
U"3&j:.AHkz1l#kCU5:,/[;W3;XD9mzs)q61=WHU;Cf\>02+.HK_jLHbp3ESvSlwl
U"&7+arXz<w)7^QGbE9:?0wRoDxq0>D5hLPGi;]eB[0cpmm/Q]TCI&Cn>Dm^1xTH0
U"cJqssOx0DrM-wb-FLCy6drPpMQChHhYR9;f,JH3[CFn;+X_a(W9;Lx;\GsAdU8m
U"&i$n;cUqafG>MT*IT\+,=_mlq+*fGKI'\+XQ0HkN(]V7UJ^4I$5t^*<V(WUV[6Z
U"R-V?/g8D<9iNva1\t+^3m;Njs9w0crX(aC)sRVIVGm%<e<n-K5u:IX,v6]</0TC
U"7%#BX(c;<ICq>l:[=t\/9FV6x'&Na8CpGKe]iqQZ,hiqQfOa&[_xnp4GCVc.df7
U"Z6&,2o06Ido\ge>RWd&BRgbQW0V^2L;sjAmHaF0I<p(lpTf9deu>uI2I>TIJINg
U"evp&S66k10a^68K+6iRh=Pmv#YgSQ%ou>_X-vs6sdv:KYF7n>5.xfl4dxht:dCX
U",<gMp$V>NT$s\WsSb&H<.O(Lh&iR:NoFrVIBXfl_:u?4)m6C'X9Hv-/nKGKhD<u
U"a.latfCdu/(U/SU5lBi2*gS;J8>r26(I?-O'i^>zixi_f(\3_5q$,U8xaIM2xEL
U"><vAkZSh(V)=Tsg;.SAOOg3o=0aA72/CcC&T-.cTCy7/i2U5o7gyU-K+hAZu+d-
U"B?MSmSmSQc/i5_tp,eo,px)UM*b9hA]0]ng>alP8Kcnvdwpht>Nv_z.cru2Hu\e
U"vcMXtVg2tpbF5\Wa*WC6T;:3^;AxtD.07(P<-61XZ0U2Y./f*?,'76X5fWMBlzk
U"=o.pnN2n+af&NtgD&Uc'b#-b)La;sAmb4aVaFPI\pS>fXU8M%v59s6m9omXa$3I
U">oX]I%+tu.Ixv]c<twT]lXNuuTXquP#7qirNI]BZtaGWXVWF5k-Z^us.'J-Ne^^
U"cxcoeXd?>IX?LFGAMnJ]oL=7*a74T[Y1o&dVg0?Z^Zd]J_*X4x?<3b<G;o)jrvg
U"F7WH5X4r,>+R?PQeVR[$B5Gn&a*$E54,uR#Re8M[tUYjV<5Wh4,FH*RB;eE$j6>
U"dFWqW=U?mTp9b9'rJ%$PzD6hYkH#?s?8FQgb'XRkK5u*-307T.cwX4e^z1;#4PV
U"Ooscntix4lr;.;o9kjvSFkMA5Xt2,h)oR\Qe;z;oJF[t'j;LUFcNF5n3o,,Re;r
U";ofC[JDjr6VFg53,2IC/:3x$_]6kXqcxcZPv=+kIA7fS(bmNlV3/tBBq<H1_(Zx
U"8RS+#DB9<1bwuqhZ?ue0f&UjGV$=%,+fKbPX*v0$X1mx+980l2QTNxC^^&wons0
U"bb1gI=k<Rp^pcGw[ejPVQEUghWNmCn%OH3A>Lc>c/b_m=cE$gG;w4#C5//)vjOs
U"Nt-;Ps+t>l,+,D_c6ziS)r0^QKn'4XIr^d+4Ug7S:FtN%up()%9%%%#-%.QShHq
U"M9FbL+.%%C3%%%-%%%%mj%quSyJ'y\&<XBT[^7McGriNQ]1CcEyl2gtbKMTFYQE
U"Qi'/aT1K)<vT532a?G[&:%Fui88V%*n$sb=_KGmmG)8?7vo(bgXS0:eNdrU3Bq_
U"6F(&>iU5FpNi=Hf<6GjG+rKIdJ94J,OFqr<eywEh15YrW.,Qv59?2m>jQ&tB,R?
U";p<QD)g?LEiXZkp&yJ0zk;O\^Ly=MItl'lYNO;,ka&6;]n89Ik7+/J+v4]#%9)G
U"S;_R43%bjD,'hE_yyMSV38oEs'5Dg*)Z#q\?r6-jZ7Fa=MIkB?u7r-tZTrsIK(P
U"P^P]4$Edf^3Q8V6ZFAk2;?l^VBEU3^;XdWX>jc]8+)(brKdKxg(c(ZS4YhX:K\$
U"T\-7kCYRr2l8HTOU8hXTPTkq,vBpWXvB4;i+]<Gn)O;?FN:O;QsF&*glb][ztaU
U";1Dgv:nbt/8dL=*(C4e,H%:kG+;O)Y-:<s^co_6^DHi5?$3gb.5v&y-Q+%i?.I1
U"*BY]]*R98?m6(JIo#U0C?vlBX2GOd>k>T$^L4bd&d+P*GiJH'Y&,p,-P$(/pzB9
U"QbI4S6D1wQdFeaZlA6z'Hrel)]FBYVm&B''tkzuq9N'A0ON=7IJnT),R6NzapOZ
U"nBOXJxVZoaNS7RMY4#Tlvf;;+<=P4t4#;)o6R#MA$aepB=,kvy]WKRf6$<2]S;y
U"SS_ceVi;QM+jrCZk.0A+]yPm7%XebOb<iA/.&\h?r9m=)sYA\KuSiBOX;I?(B:^
U".S&RAg8rVsl*68;$JpLnTDtOd%TJ*BDoef?Y\ZCwtL-?wVG_%r')#8#[en+%LO8
U"DxWpJ;ZbrfU-VWUK$0Wn,(I39eVdvjMiQs=RpYA1>t/AL8/+kOb7Dd)ieBqRHMQ
U"]rJ0jPG%>%lqyzO]dxb$<Ox$A3\FZ,5OxpjzWAP-JpaBRM;0$Th,CxjbcQODYoD
U"wU4cD-$3-F&PYLPDr]^r-Q0m<6^#=o&a2&U^]6r8w^-R'NGe3b7QIGU/Qd(47I/
U"V)i,cOq'5tb^ta/bX])x3;q-8ZcgZIt(?rxTtRU]Ox_p&+FXaTP\)V+;O*)$50P
U"JDgeS.JxUp:8-M1S.u$wPtSGC\0'LeAoVf&YoK=/g$3xG86yGt1fs-y\Qq-'qyf
U"I6c^r$SqeNpmb;&$rd>QRIRhdaah(;wO96KYb4kJt74;;:#qvhO**M39i8hS/<Q
U"UcZmUt&H6o4wg9*iKkDoF^<#WMv9S<pylUV]k)i6l/qHYAw91:a(Q03l2;zmag]
U"UGi:PU#UO%&iF1IDM4*mL>Pn4c]fZ8tjBf5]l(s2++L61e$(6v4AUe(/=+rix]'
U"#u1E0-X/<XAR/LIRZW9pXX(sAvr?Wi,7PGBhyc+QG.f$HIM.k-w?r/5M66B>:O<
U"S?-6>/[Y$He)xD;0(&4vTANt25pj$>W\w.R\]-9v_CzG)KI4&T^M?)9+PRrr_hc
U"v#DVP6z\-SNJ24k;SN'%vGVGcS0=6%dI2d%&:'Xr33L*k53oRLd=r[IQxN%4rn1
U"lwm)<$,Sq9LiH-s](3(g<0#nr$P>xEH%:vEg8^#<C8Pfhl0#vGCTYmQZPr/pXm/
U"8&*jqDaX\b]eUo)TMO&#+Hdw5ea+n>N3jgyuUud\qP.j81Hptl4#SB4:aTEG3S.
U";>cpEB<IWjgmA<m)]Mr4-_HKnmUjo(MEMpvP+n9n<k(/d3pgh?cwxnzv;R\wgt(
U"YLHn?s/?/i/GpcEOG8#iP2qhWOmE3su)ANYS*o$2K+TK\1R'fKRp6C6jke]cPgU
U"=%$RSx0EKq(PiDVWV#pI+wf/J]cCXcJcjQ.^^8\-wQL--6FER&5e:m\<T+eeDb1
U"h>&Nj'[NYtfx8q^*jKJId8:b)6&VAG&=w0bwWB#(S(_bcX0smQR1wrbAib6?30G
U"/k(Q,GVR;H^d3*q(HY]1neOK2E$=N3Sd#&<wXV8VKQYP_;4$7o1N-<xto.O\dE?
U"K*zu>tFhmx+^kNP.Nh$+e?YpQ8X^k:B?1.;DDbTW<jVn)6MuUmsq1YJj0FclNqU
U"uvd0ur<K/QQEON?PKd'7Yr6[p\2&A&T[$HJlT>np1#G:d]<tdw17NNw6gM)<,]j
U"LX'j4y:sF;'$+1(?Y;'=RkTlb'$LxSIQS]%/4eN4XVDg\\M_%O?Z3=<6c9p_DW\
U"1sqV5IM[Yk$Tob$sj$OEk%61i86rsH/Ci,Qo/#KkP^]ku:ih03(N]<u=lLYt8;J
U"\prUxv%<up(%)9%%#%-%0A'OI,tOVcS[>%%B&#%%-%%%%r%jszS[gfxf1b8F?<#
U"eX^GVxu^9A8)ucUN#DNAmRpD4#GeL%M$ABk*&e8X5qFtcAh<QuoxJ,:hS;TBoGk
U",h=&zt&V.cZO&fE0Joi<A\fgUODXbEHp%lYqtKGERA[whJ3Wb%JJiYbOyg/EsdT
U"m#\Z1]_?n4xM8b^tq$w$OwsUTmO'l#<KjH2(&k6bq,Y^V_wlVdapp4bTRK_DsWe
U"SNKrse7RdqC'jiSkf0'4&]fngX/nIW_?0IN1nLm^t6>WdBM8&u$8HOYsQ1KRzKP
U"^Eez.xHO^PfU]WK-oG\(+EMIDVuBi5p)Bu)J61X[\j4ps1r15MPlinWr4QjdLU%
U"zV$UO0W$/lZ*c[A:HckdC37c5#To<Em?xb%?MVu&gl2/sbIj$Wa8CqaZjv/5c0t
U"We0q4U[j+33]H-c'P>dKD^.+2iAp_jS0bwL?7rCCVN/9rZ,nqUr\\?lU*o^B]fX
U"Gl%hW_tQ3=sqiL>WH#*tSZLO&wf;+4,S&*3Ul/-XbJJ9k'&3J^qW^.'>uJjq^gC
U"yTsrcF]q3mD0rUoia21pETBmrPjjVuewPtZjV(Fn.LdRuq8b(Fu615\_1l6pfaH
U"jC;/IU'vkX^%Ok:k-q%\E2Bw-o%kb7z'k^g+(nrj?(l_a,uq_rYtwqH?=j*iDf$
U"*AE&YoJM6e-*lmjs.E)Wc.ROVaBU'QrSlpQVbM%=Z-x)q)PL6etL^4oC-817-tA
U"JHWv0B_mQe>.>uX#.;hQRWUo'+RL)u5i&A5Dcre/&8;ZIJ'Z'/q]G%[3\h\:RhK
U"I>Ddj2OI&$9-p1pohNgpeCnNfdb'ok)/39EokNsREF%i/-j_ez2r3-I'sL0DA$A
U"[m(Jj9/00;&wlkar3RKM51'gnWj?epX6%_u\>uXIX,dz)3'%?=MZ)^CmaSx%Vw2
U"+I\oW&7K:viD8hU<XSSVSL9($&R_N?p&.Kf1fv4YXDn8W4ae$MC46]BDtIIxP?L
U"4^h.c\6WqGDK^66c=a/.Wl-I,fz_6i<BUt&rm#8K(Bv\^%/([*3vX(HJ(=Ng&Pf
U"(xetZ%i-5:m%E]t>jneP'2+^)%QP-h&O2g+##y=;pE/h_6Lb1ktYLjsee%1BG\>
U"w44wFcfnQ8-C4ED1lCH(QxD4Y:M*Em(Qt^C=#S19oJPA6Gg)(YV%*cR=7E+iNY&
U"R=xk:>5r:Azu0WW-y+_Gt%g(ofyN3Sr5TS3ST#uhbt_['1z8:u+%o%fcoX*Y%)O
U"KbUfl+u2l2w%U>&eJS%k4Y:IqhF9OYk0KnDo3bQU8#?bunt+(<dJ8UpC:rvu8sa
U")8ib()LjBjzNJbIYDx:ff,4Ac;9F*X2g&EpYJ_4DT9i$Nyy<El<ZiW6ZWO(u)L<
U"N652cL5%-XucK$ua<\ZvOiWaosSsYnZ[oL1dvLgdjn/a<b0nu)uI--auvM9E?#G
U"_*m3HB>sUZbI,SkrEh9(0=ZM>sPL[<-?PD2NPsf8N\'b^^+plBJdunB#g)wLFKC
U"5B=D+KLH.&Dg)7)2=e9G-8S?[>9V,(OR/h^Q-IVbq=N:31.y8OvjyyP42w(MN*L
U"r1%K[9+=Qv(a9_rx^rPU+Y*DT>1/1'^Wx?GAG/u:?%E_o<BO.T3A1:FD1qMwi4J
U"kiim:g7xT2\q#(mIDl*]Y1lk\:wV9vesb_eDkWopSl2>jHT.S2>I4d.j%_-,(87
END SUB
SUB V2
U"A)QS,#Q-Fy\tb4AZ,hPs5g^HgXMtUK(SdfJ9iDNLu9,E9KaOk2-&o)'fe6hKevV
U"\^61<6wo8eD<miO)N-w^nyAN&nm\P<ieor<T\S%bAJj_t6YXNoN>5%w(w_*Id8Q
U"s7,HbgvcT?e6in5K>_Gou=oNZ1e?3)'[M2&'+-0SL#U,0C(TJZgq]OgxbBL[YAx
U".jI$CUunbRet=PPrt%Po$PJ/L]rf>(oW0&tN?_NwweNK+atn_NatB5SWpn7Z4mg
U"cPg%[&s]=fQ-^JLLO7Fnqb-Df02%dOZgfIlz?^+&NBtB%,ag+<PG)oj%=L=3:V\
U"CH=IW#KQTd-^av6[\30BQGCiQJZvi[c><N>)0[yJMGpSBD(YDc.nA6?r2?Wd1IA
U"LicLFP$ld+hN#+Ph>los&R)<_fW9s]aga0xVXZMN?SH6p&\$8IjWf6JP#Tw8Dn/
U"m4ZF*uR05.%f3+,]21cj99kUWv3633-(H(IQnd\tI]wo^0?d;uje#]Ncw]/]1^I
U"OC_kcK[H$i<mB=:17Sj[GP?Un?t8;LxL7SU&o<vKZB3gd;(Ad]\)=OoKmI3x1G?
U"f[v,\dVm0,TF4>90N_7sRUEG^b1l+M>FhLTTTlgV\3i6M'Sf((GhZVr2N98G.?4
U"dkzkHNYM6pUzwdt8?BHDlc5)cLi)YumM;Du%eg5xZY?wiJK5*24iTkb9.W^VMee
U"unZR*TVlt#YIFVjp]Cq)wD<lfeW)=jj_Lydz3%a/_-[htcr,M30_TMR+*j84$-Z
U"]+*Ckr^B5Xzl2-/fIRft>9f+El2,36bnh3R*5\V6F\ueu9.04$v^HKU=ah74c0K
U")dl(5M:$b\-tvI5a:20M&6YhgynAa+?1PS3Y>/,1\h3cM$&29aJcA9;D(X4l>Hd
U"AM#>ZSt]:W3^s1<3PbO<2<QuHsi;WCMLMNL-M)WRhMMGS*zW.UmUDm$.gCYR(&Z
U"H8[m9$tX9gi,X$;FP<._i<Fm7[p^tD7l?gt)g*hBD$GJA#q/DsSL>$%P3T=fTa4
U"tVCAzts,(owQVF;(T4T;?EkFKepq'NF3h?7$$;dE1V4L*0oqIN4mom>n>bHcvCR
U"?6r=At^-zIvt\O(dtkeX+-1M?>#[+J2H[ZMkai>k45R.^Oq[=&Yx=I\H(X[;a_e
U"B(.$>HReZ1vsoFJ.ZXV>n5U.c%;cU4IhO8c[(xdwifXKTh*>8NO)U1sN_yY4nSt
U"=.>%9H3wP1qMDn^=MP5A=yv_Q>6]=BEix\q*&>/kl<MVm6^k(7g:h)]:&fcqIJl
U"NcS3J6RO)nK0r_17A,/MBhmqr:hJ9&]]bd&SJzma>5\['s,k-LWaFdq-WN)]Sn$
U"tOk6Rr:V$;#aHE=VlsJrRriRV&;b8,QW9bEdBhxI%<pof:C2d?>nIAy;d$WaE%)
U"1e=:V7E/=h_Gj/U,]Hj?Jl>%22Io<J+ZWU8aW%j)I^Dq9&.-KP^mdt3D*Aj/.bT
U"?(5GP.oO6t&pCkFRj7A.XDV/CKELO6/c;n_fA.7W9)Fafc/v(D)IUqoC11Xk_r;
U"Q6;GT_4MCcfaM=>Gxb,Ri6t&kLb/o0Va/$A:7qWU4]BC52g:W.Kgy&4he^fpM^a
U"RviF.UgCBX(%11pJkZ5z3EK=g^R9::%r+RVR%VM^gDebHnDS\pms2HAd:h5[o6H
U"7$_P28H,vK?u3mbz;-P_P^UF_?+$oDG]Qs:z<\xhuj.=yG,[:(A=u,[9.W7kkI$
U"]tqqBNDetssG$1Bx?,%_']EH]HEDD0]P;9%Vm0m7CR/,EFZiP]r3mZuBrm[V$x>
U"O(e&],:,Xi6&%fA<:\1+fsguImJL,10ZIxY'=w;BquRCuC(XjO8;w1OY_IWc*ZH
U"nSn-;PhY)\56I6bncc#y;Ym,%OYSNi<mpY[I:o8v_:%Vjp,yp+X'%W<yBJ/=BHT
U"/%fccJpg[4ma\T?Wt0jyaz;s4/'r0f^%:DWHu1c$rNv[&j=e4*7,p;lte5[Br(_
U"T[/8UGYnJMG_S0(mG\n(3h)&z$,JbRLT]j+)ImB=k-9c^Gw3N^C;EL+bo7cWTjG
U"/4Q&a?qoD4GuSn]cOPDSdNDdbe^oDT[EHz7yh-9SW1SJNF:HjCL_wd(:H-F<U4f
U"sI1d\3-R7wBW4OKRKp)r-9EgWT9_tb<MaazJCM(x=X)C_t\v_7-q(o#4d,70c)W
U"$s]d0-]MET[Q6)]Bg+8Vj56T?0U'N9k2+5Kj<D]VV&d51nV=kEng>s-k^/c2Gc4
U":5zOh>fj_)T-\9H2\e(vaX_S%(9u71<ozGveb<T*kJ3PcrvKW7Im)UVMiXG.Q$'
U"e2C33t<J\Jzu,x_fGAsiQ1kH1X*Wgg:UA]Q-[DQNb77OXU^7'Dn8to<U,+,$-aK
U"(4YV5_^&))jM4Q$\vWbPfm;$9p$EQ.hrPREj0mBlsPR:CMyGr%=KtNFkNR[V/9R
U"Vbx%D4AhCI+'>&lHOfucx?b9jqYTE6%iqfYVOK>H(g)7fYV7GM=$_BBCtj'\dS8
U"aN-p0Z$]1ZXrMVWD*nFOoHrUU?ZaK\Q/7X'ce7F#7+X[R5,b*C=>Y+ZXu;0KjC>
U"rla&,P>akQ1w;Lh\D<J?eB#)ajeLtJ&0iZgoegQGH6k9ppRU;)'WgbD.X'KR+Of
U"3(53&F=#+n,neI(vL-R2ZdbJUAB%x'S$:4p#3j'tHS)$1]cpR8atiFI+P;$WXAn
U"YP0Pu0?X3j&oVS2iG]u;*(5ZNMEFot<VUG3.r:X[j,lPhighan)zq]Wa)&9KF6,
U":$KDjPrgX&&kbx4**.eeWV)Dx5UV&L6I]vS)JQV/R2)59(^i$z:YME+1#Q1U4p[
U"\HasiQ[7&^N0xDaT)6BdE0X<9^fg#n;7PsDRjM%gmpD-N[woIFTv;kcsu9;kCN9
U"F]Y+;:u%3/OfVctes[4glKsRW&V\URFGhd]IkbDMX>NCs\QbAt.0ZqI]UF5*d-Y
U"wAK1)WI,X:dw(tTcM-T$&,s+-CJZYN&sQLa%vj89aG4[KK?&tAeMHMn(IG_3YYF
U"AswGkFAt)CDGNT^z]hZaQjY7lf6q-WC=[%BQk*+hbY3h$(&\d*j,fj56,1dau>B
U"rJ)xVC(#?/MMowV5pKo3\B4>^*f&nJ+b)O0Cecg?bXZmRGK39X<=1NBZg)uqAAY
U"inpr,s^m.H,DH[%k5E(9rSDj$h0DcKIKMuJvvNEvKX.CRdo[d#A%#1Jt)52HaJ-
U"[&X3Vd15m-c.Du)0NxH;4(&mG\hN,vCEo71:M*ff9KAn+q&)NIt;1_cTg3WKE3g
U"T6;xE<-Jo=RPf)xG_%Ihhe\Y(y&XkNa_u-s-$Po'\)#7q:B?6Y>rAg_&wM%x9yQ
U"ml9LU$.W_EOKbjq;%d(es]hw1oSuJ[pndK5K[yp.n3PN4))cY0JHiv#Whbt)3+r
U"<QDR-Wu,8d3\%VeOl5-qtNVYC%Bd>^JS's9/6hBgb_\NDH=<\d*?5S/K/2G-ruE
U"5K+0,4*uGVn2\?+<?YWIZ-)VCO^4Vl\DnP;b^YUV/M/Do\U_2_i#NO?=^K.*7&W
U"#Ef)R=1Gv'_Opva+I<fM3p0pVH#0H=1Kh/#NraZ'Or11#2E]Kc_2r)R7c8QJYUr
U"'\:h[7R2UbXN->'6?=[E]Gg/^>>HcC]i):FjAQWr^*0=;:SR><jFg2j1A?P*-L8
U"qk0rdn=eko2t8ld8K-ten;Zt%T80^=q6SZI6V>W$av6pi.UW5_BGn<9,BgJ5nbl
U"3rkKX[];iqRu$Xm:62]'XF]c?T)rG.6I^FK(o$f3G[V\q$YMw&M-Acs0PGw2,l0
U"X]Wlkxqrh[?VvOCd_I;Ur)Lb;YD;IYB71C)\ix]17?R#v[5I&1lh&Lq3AO0rjJI
U"SkVE=AEV1q_CSsaetHLoqBK14bm&4_\hvWG?+%R6(\vU4^u6\Xue(2Q6;e-wJ=d
U"qh<IpcplDFJPs3*pkg(^_K$&e[57EBly4n#JvdoX#]s>6c['O8>.fwaPtg>P4#T
U"I7tPY,pHa*12na7^q[ROcpt:*Q<>t-(YR;uo[ndi'e,N6tpKuqX$HvoU#-qI$TD
U"A0xj+7hq^q>5H,W^?oZO#i#pX5q</TA(I]l=VPajId24Oo'c=*dAf&E0VlRkfT;
U"/kkF9W1P:]\o-]'v'B0rqUtFoqYdAw#/7Lu235_GI>N*B>E,Nul0QIA8L&E:s)v
U"%ozrKXUAM14f?VbN/l3?(3eG:/9wMipJx13/ny_K-^hyS&WafP2W7U=Pd=oq*4G
U"?^'cV/aI(g>MVR[X5Z?bh,DhCp)C*MYO2h4+dA3%P/N,EeDf;Q#0VkN,+(crm>;
U"g658*,>NbkPI.\%YsnEn\a,9QZ:R%l*c#)-u:C&_dXE?4IU+[e0>n;RrdbFIGiC
U"Pj>%p+LiNye:u%FeB#kH6ioD1Ui-P+BOVD%b8)wqtT[Q0Co;,e%C+z8+evf3i3)
U"(3g&05:rm0)gOo'iwp4=mwPUV^L1&uOlT2Bc:VEcP+t]V2MTjQTUU#TC0xo)^nJ
U"5zDTCCp$AM'EUk^QRU0]34EN3T,l,Z$SuM5$^=0UZ/ow:dQV[w#yx1HZa1CPYww
U"%#=+H)r),<tW.s-Q\'c+iV]+s.&WaiV6uA5>XY5%O&Mh)ylqEiHbcn>cH?bWgaV
U"32Z8Z/e4;j^Q4DsK$8GejkJ5SxvwA9WY'aEN1BdTlWWc7\zO-F(<-F36;)LuGP3
U"N3;#^b5=R*dS3Pe8oo=1eoJ^3xd*k&T_2CkrUX\GFU=,nxpk6Ovdp#,YjW3?0KJ
U">>?tFd?24?G\bQ0FwEbEnI^ec3m$.01ko)vFx4GmZ0hSki/=$B*xK-<P\'&<DTb
U"^Ayn#(8%>'#lUn#cJ#23lv9[=./SDB*)[,b0<</i)oUDVG;1owp;&Dir7P5W]nv
U"AnZ-4v1jR'd%17N:nM/f/'*p2kOBwka+4O4gTh^Y$$P-p1Koo\?jcf6lLX2i$.G
U"h2$]6H1E64gA_eL9GaO_t))PCVU=-[%BY9($aON#O[qgYYwItq_YfYCbXF?&2P%
U"t^Gs/&6[9vo1]n5^)ZAq+2ECigr+c,2Uh-3'BV2.5GQ:C66FNqS2-B7wa_i,:,H
U"uFCC)R--*_>e454my1#a908&R)4:>BIq5Pn47W8'^CLh$hemH6%N/*lu#_nJLcx
U"cRdwL*.ObG3GC3)8W^je%#AVGYN2lT8<^H]Mm)=5lDFL6,/5,5HrqCOHr;fW8=v
U"=sRD9J>5=033>O&T$s0$,>d<Wk%56,4fb-ZN(d&WY+0(iSTTqo=e'LWHWs$A$7h
U"[>5uW6bh>e5#A8YHqmXqtvltUTZj&='>?Y#fM#f(n+z<^#l['&&4#':V#h/g/u9
U"<>C?0X(1[VeUEU?S:nulra+?t:Z%#p((gp2YBsaH\tVF$N0S)1w_&wfbP#7H6m)
U"%R.6-uA(Z(ij#rq5<dWZM<zrCg(XYK'd]j4$z;<4IKlYX*$EK:vp#h>0q14F1f3
U"6L>y[k4oG4(MZ06t?E5.Tg6;\fTXW28f$X'?AURCNBl<p&iZ.wWiAP=1,pprPw/
U"j_;]s[uR'eaM?4Y(3ch-rd6=uJ'I;^.M2)0IjHwqa*uHAepiRiJTRLCo=m$MmLJ
U"6b#_H7.FLE)Jo7=QWE5#BM7v^H/\XlC&a7WJoc*c5u<]4zDk;$DLo:CQGf5(YDZ
U"((AzzRG=ZpAPzS&ppU=.I][;DC1RJgqUXVBxnkx[tl7J8>G4I;V'T$9XJB4VLaX
U"#NL+[FRqWT2E#'g\ev$%j\U3HkwplP=ja#TIh_KC^Tx;[c[9C-n5Hh:Vc^EQa*e
U"09GULo2A.kj^g7dEcaJMuHL$R<[ZdoeyEn4T6X'E-\Pt*Y4?S)\-H5plYaMN=pK
U")3r\-cG7cJ\EekQuR+<8V36u55I/$REKH>h/I]F+OOL4'u;F>%Pye%wZ%QGWn+L
U"Fsdk;$0k&]hE>)>SqB1#Qx<8R1#&eM(OFpXY'h&qZVFEaf2qMAlLN$+1ps=sC8F
U";I79xx]VQ(V-j,UE(0v'<+AgEh71I1sQhkd+UNvX2sh1w<(kb3v&2qcGf#;u8?7
U"S?w9Og/bBmEKXlLVA4k9hoX</$m(gLLz*p%QX<7wQ+'Eev9>j[m_I7_z_#Y4sod
U".KLsTD.#zOHq^GKg,LqX%tBK<CnBiiD\0g/Rx(wI$?u)UG/=D924,_r.HGLO$[+
U"Es8VEGB1ARvG:o]Z[0=9f1plB#_7EiBVRc)JtP2^xWtBJqQ'->huN8<4=dnrspM
U"T:%on?w?x->U5qphQ>1g'qM%a&B.<kRpm,KI9-zY5YNiR*sZ4W)5YO3(XlVrXU(
U"O0q4-ncq%wk?P.K$t<M6LmKPDSqAB$tk*kRfDJ;aq#h129JtKMdJ8_*_?dj];eV
U"td4emRX5aaJQ_o<R5vZo<aA6]3%vqUgi>u,$f5536tG_Lg=%\+DLYp4&Uj2_7Hh
U"hsi7WffKy[bE/EkuVk25PpD;ij5h&=?&O#y:)\EFa*2iR:8O>T\<mvPA&j/a/Ag
U"#eu9hZ=M[w(-YXa)lIdXqNAMiCd/q=qbk?f5==Oke,'4cj%)giU?_K[[[7uo*Y9
U"l8jcAP7qVN:hFDEcJhf&FaGNLJLp/]CEtW4W2PX:\C_knuJanu.Q$ZlVc__9\zA
U"Ea=bq>ktW406c%mgOzj+5gBt\<^Y1N%4Vj_Xmj:$>hXv6OhE&>m0t.U/k_hKN7O
U"c8f<NKGCnu=)Op:xk).g?%cD6)NRqkYr4/E5g$P*%6.ucOf*SxDK$%#G;bDL:kY
U"F2SXvt9rHx%&up(%)/%%#%%%RDPhH(%Z+4C%%%%C%%%%-%%%%r%jszS(y'yO%O2
U"/r%fnsE%rjsz%2/TnITn=5&>2/V%2/H2%/up(%)9%%%%-%\%ezHR=n/5N#&%%O%
U"'%%/%%%%x%fruq#jSy'(yTvb,>;U59VRrd1ED2m(i7<[%hs5z9*x#6F10]_B/wp
U"8mVmfK6XWZ8%'igztUqGh3gLG]B]Q:X(AsE0HG;YkeZ9AG:kkNDmZW&_WMW3URW
U"0Ik,\4kS=wGgT%p'dY0nB6Zal4IE#g.O$[kPt*kmYZVe%3lV,qTBds[q5vbK0dN
U"pC.Vshz[Qco4GU_OK'r7\46j\>TOHKf1q3%Ae^o4.E8#%[P=uTB4iwYK,g:_j+d
U"p9]%1r>QaPG*c]=BeBwU-I7O_W[IU?g915^yUer8Hf;)ZX6#crjmuEa$rUh,A:=
U"6FbYmD5SD91*9X;l&q4oNzCFkxU&omRM&du231V.B4<3(0OQ&-x[r;ZV;oy0pm,
U"Y=c:l^o3Q?7'q(up%&'9%%9%%%R-%,0RNIL7<Vvm?#%%%I%&%/%%%%%%%%%%%%E
U"%%%%%%%%%wjfi%rjSi%thup%&'9%%9%%%#-%.QShHqM9FbL+.%%C3%%%-%%%%%%
U"%%%&%%E%%%%A#%%%mjqu.Sy'y%up&'%9%9%%%%-%)0'OIq,OVc'S>%%*B#%%%-%
U"%%%%%%%%&%E%%%%:G%%%rj%szSg%fxup%&'9%%/%%%I%%RP/hH(Z%+4C%%%%C%%
U"%%-%%%%%%%%%&%%E%%%%:a%%%rjsz.Sy'y%up&'%9%9%%%%-%%\ezHmRn/5%N&%
U"%&O'%%%/%%%%%%%%%&%E%.%%(a%%%xf%ruqj.Sy'y%up*+%%%%%%*%*%%7&%%&y
U"b%%%%%
END SUB
V2
CLOSE:IF S=34AND B&=Z&THEN?" :) Ok!"ELSE?" :( Bad!
SUB U(A$):FOR A=1TO LEN(A$):C=ASC(MID$(A$,A))-37:IF C<0THEN C=91+C*32
IF K<4THEN K=C+243ELSE?#1,CHR$(C+(K MOD 3)*86);:K=K\3:B&=B&+1
S=(S+C)AND 255:NEXT:LOCATE,1:?STRING$(B&*50\Z&,219);:END SUB
