'=========================================================================== ' 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^QeJA3*^rrp_,2GDVufir0,nfl>,P6F U"NN'WbX.['v+_x9Jo)$U0qEnO+&QIkoXQG,POeNZabI)7[)AXhoBpn U"7.7wpNJ7?iPu+IFI[&M,FCgHmRN_o*o.'ySo%u>_-KFhVo6#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.JWovp#V%&_u3VZjfQ0LJ U"V,'8Wm8M[tN3KFVmnF,KJT-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';JJ:3qfeN7LkTm;*.tV)v:y59r5hN_N U"3DR5_,rG?$rLqC-[;JrB49MC.ntP>kF)kSxKL?impzddK.=LLNLX2t'#o>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>+rHn7oaei(PeI)_c U"5B\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,su?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^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+uS&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*/'>uNXWjaV/C\[x2CzfqSnZStW6HC^qToGB7H:OfTA[An U"c)Gm_iiAD2[-/76fS'WQI0i1CZ+=r$g4?Ebl]SE-JIsf^kK/Ipn$\:3EpMMhY4[ U"[jUDHGvoRN)E?[M?o+CbGSg#xHDAU/#XAfMf6r0akk55NW/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^FlddkPPfTkq'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&qjQ6D1y8O37A]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):;aA2E\6[Ipd&6lsQ+-A]4JRW:k^PfAQR5n2B37,Z=\6trR;w U"qsc^'aHlV4F,_#\S[eJQ5Xbf:^&poY0=\z,44xjuALb*eZ3IG#ZCazM U"PCO=gWvrpXAn_8;l.1BVd1lLR[Sf4:gVljVdQT6c&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%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^/*+Vfp%)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^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#/HI.MhWruHS7I$\H%$0AcE.x7?85dQ0a.bgt(P.)PDDqEd7olrO\;9 U"\\Nbs$*;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(o90h0hp8R9W*6#/I40TGf60I^TC\mscavI9Xhpe(DOcm9Q#3c^)L=sa-mva+c U"s/bqd-\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-NX+BH?YMpQIY_mQXI/8[8($jyrVG?fI5?_vlfn>JQkm?p,UiIc.aRy.W U"Huicu2)m_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+arXzD5hLPGi;]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^*l:[=t\/9FV6x'&Na8CpGKe]iqQZ,hiqQfOa&[_xnp4GCVc.df7 U"Z6&,2o06Ido\ge>RWd&BRgbQW0V^2L;sjAmHaF0IuI2I>TIJINg U"evp&S66k10a^68K+6iRh=Pmv#YgSQ%ou>_X-vs6sdv:KYF7n>5.xfl4dxht:dCX U",NT$s\WsSb&H<.O(Lh&iR:NoFrVIBXfl_:u?4)m6C'X9Hv-/nKGKhDr26(I?-O'i^>zixi_f(\3_5q$,U8xaIM2xEL U">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]cIX?LFGAMnJ]oL=7*a74T[Y1o&dVg0?Z^Zd]J_*X4x?<3b+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/tBBqLc>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\&iU5FpNi=Hf<6GjG+rKIdJ94J,OFqrjQ&tB,R? U";pjc]8+)(brKdKxg(c(ZS4YhX:K\$ U"T\-7kCYRr2l8HTOU8hXTPTkq,vBpWXvB4;i+]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%XebObt/AL8/+kOb7Dd)ieBqRHMQ U"]rJ0jPG%>%lqyzO]dxb$QRIRhdaah(;wO96KYb4kJt74;;:#qvhO**M39i8hS/Pn4c]fZ8tjBf5]l(s2++L61e$(6v4AUe(/=+rix]' U"#u1E0-X/: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^#N3jgyuUud\qP.j81Hptl4#SB4:aTEG3S. U";>cpEB&Nj'[NYtfx8q^*jKJId8:b)6&VAG&=w0bwWB#(S(_bcX0smQR1wrbAib6?30G U"/k(Q,GVR;H^d3*q(HY]1neOK2E$=N3Sd#&tFhmx+^kNP.Nh$+e?YpQ8X^k:B?1.;DDbTWnp1#G:d]%%B&#%%-%%%%r%jszS[gfxf1b8F?<# U"eX^GVxu^9A8)ucUN#DNAmRpD4#GeL%M$ABk*&e8X5qFtcAhWdBM8&u$8HOYsQ1KRzKP U"^Eez.xHO^PfU]WK-oG\(+EMIDVuBi5p)Bu)J61X[\j4ps1r15MPlinWr4QjdLU% U"zV$UO0W$/lZ*c[A:HckdC37c5#TodKD^.+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:viD8hUjneP'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+(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_ojHT.S2>I4d.j%_-,(87 END SUB SUB V2 U"A)QS,#Q-Fy\tb4AZ,hPs5g^HgXMtUK(SdfJ9iDNLu9,E9KaOk2-&o)'fe6hKevV U"\^61<6wo8eD5%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+)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$i90N_7sRUEG^b1l+M>FhLTTTlgV\3i6M'Sf((GhZVr2N98G.?4 U"dkzkHNYM6pUzwdt8?BHDlc5)cLi)YumM;Du%eg5xZY?wiJK5*24iTkb9.W^VMee U"unZR*TVlt#YIFVjp]Cq)wD9f+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$%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*&>/kl5\['s,k-LWaFdq-WN)]Sn$ U"tOk6Rr:V$;#aHE=VlsJrRriRV&;b8,QW9bEdBhxI%nIAy;d$WaE%) U"1e=:V7E/=h_Gj/U,]Hj?Jl>%22IoGxb,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,%OYSNis-k^/c2Gc4 U":5zOh>fj_)T-\9H2\e(vaX_S%(9u71&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\DNCs\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"^JS's9/6hBgb_\NDH=<\d*?5S/K/2G-ruE U"5K+0,4*uGVn2\?+'6?=[E]Gg/^>>HcC]i):FjAQWr^*0=;:SR>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"qh6c['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#pX5qN*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),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-'#lUn#cJ#23lv9[=./SDB*)[,b0<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$,>d5uW6bh>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#rq50q14F1f3 U"6L>y[k4oG4(MZ06t?E5.Tg6;\fTXW28f$X'?AURCNBlG4I;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/bBmEKXlLVA4k9hoXj[m_I7_z_#Y4sod U".KLsTD.#zOHq^GKg,LqX%tBKhuN8<4=dnrspM U"T:%on?w?x->U5qphQ>1g'qM%a&B.u,$f5536tG_Lg=%\+DLYp4&Uj2_7Hh U"hsi7WffKy[bE/EkuVk25PpD;ij5h&=?&O#y:)\EFa*2iR:8O>T\ktW406c%mgOzj+5gBt\<^Y1N%4Vj_Xmj:$>hXv6OhE&>m0t.U/k_hKN7O U"c8f2/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%%*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