'=========================================================================== ' Subject: MENU ROUTINES FOR PB/CC Date: 05-30-99 (08:10) ' Author: Don Schullian Code: PBCC ' Origin: d83@DASoftVSS.com Packet: PBCC.ABC '=========================================================================== ' Menu Routines for PB/CC v1.0 DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"FMENUS.ZIP",4^6:Z&=12068:?STRING$(50,177); U"%up()%9%'%%-%kr07Kx=60:]67%%fe%%%.%I%%5<24=DSh10B^k*vBTp[bw6aXv U"Do)I8QJkc\^s_lzLC8[QJVp#L1sM7ijj$2PJAE[cGCUI3#lQwjV,.5DsMrT8LWU U"4vp1pR2,OI6sTZaTJ>eL)h^KooSBRgH5EJhi9V\l^'UBDGYacvV?dKd U"qo=w3hkN-mvDHmy,r*HA[iTdS\pDNuJ[q_2HrbJda$%Dw%Th41['sF1$JRuL*:3 U"G3zTxb50^^G'Xdaa6W/mm0W2.t]cDr'[ U".y/_PX3P,ZkMMTWP7IXU,dJh&i0*e*CyA31I.QLOQX[CP%mqo[\.NI;pNuIL?07 U"O,PT2m\f(lbiFA_>6GaI U"4_bBDgS/1Hsb_Sq+5T2EU5aVL#mWJBe[3vH,juD^p'SZs\wISYwo5sD[kLKISvD U"a'(frTg,V$s\BMy0>#qlQ(?V/&JD_h6\8Q3\AC3Q,-9#]bLb0jg7CQ\iQF5Wd== U"jF;ljg22bQd0H8EnpH1Ymxgt*i.I1#W/g^r_f7*V;iKlN3DD1w3I<+W*ztO^E(y U"he&)9gw;#dgw_=2a90pucmAs$0z)V_g+i:cUjq?2Be_i^3p\sF]M=0,F[+G$*X;S9/4Ayx*^rXmt&WIU:Voaj\tG?KjL+ U"\ZJqku\7q=C.qh,?MYP,Kn/Gjn5j$9TZKSiGXqYMa?FALYtkviK?ABlXg2N&D>p U"5/x:Xf:Cv0.=lx[aoN_B02(UykG9B\;Z'?+Cojk&k1kKU)*:k<3)TJ/Qu\)AQAL U"oO'7F,^_M;'2CIH$5=#ApE9DFS:5$ U"/?kZH%WrBPWA[>X&,ZZ#/2r>J*(d/_VhG(6?h3g'kpRqSd1$DFmd/ek:hVS,rrEmPvHeRs.D=s7FurP U"UH2eo9aG_ETDS(4_pFn^nfvm:lFsAl(0:ModN%2D+Xj]t1W([TroFz*v+,4=#jG U"b7HS*QC/V3%A1D(QC/sMy5m6tv]haAFF%&/]Wb^ts=i=$.PDm\j=]Y)Tr,:Z43P U"d_R6Dc^F&Iax*[z=DqeR,)):o)ejl?.,_()s214r?515?#aRlPWE<**&ZB'lZM* U"XQ[^a/6oU=Jb#e9Pi3HwR/q1]C*FuFFM#7UJ)'sK3'S2>grh#+Xw-:X,):+nCx) U"(-6*meMQHe2[Ypb98fs<)ZdW8:QpI*+$VD[J)_3?<$r%D#,Jk:X7dT?Oe^e6gL; U"DsEU+,,R(QLKd(1w9Xqg0u'34*TyM[u=\sT=>_s:_xCZ.b;EqpaLlYTq3PD&7;I U",5V+B]49RiJWSGIj44/xVKx(V*RCXZXj[\1E4oAe[D&lQfpf?Kk9qP\ZG5GL635 U"YZ.91Mjppfjn/s3 U"#[AFY;U)iJ'TK7/',:pH6Cb#%Avl&kiu?[xosfvd-M3pGTQgBt6_Q/uQ7\e2[&? U"y#g5X,>LD&9H\>SuS02m_&o$P7_/Vr6J'7j>d=k,(mVUUlnikYF'URd4D U"7V:]Ed+60:6uU;nr^wEjkH.YS'2%cxto;j.nQm/dHmBFL#Jyj?[7Y:)jwFD4PP<_4BEqjM)3lwX$C28dT;uh6 U"4Ye]+uJi6'U2D_,=oPJN(#=u#\]N>KYUSUpYIuaQ4Ze8qHCI4%Ug90V+#79>/vu U"1JAaB\I(7UJKC*EH[<,z'DFX/>t^uzZS^xfYH)(i/.3p9S3[.ModDl-IaX0vNI_ U"V^R7*FMN,]>O3R3DZAiEW3]B-/FNQH?dZ.1u[s%(nBv?&4vl#k]B-&6Mscj\>XW U"A_LkS=hL$\Ve?59eDjHGAKH-C;SK)(vFRS-y?w>/w]%>>8]B*NCYULRDBf[?1XO U"ZZ(JY?y22%H\<3[B&I32b8__mT2$&prRC\ee=t:U.N^:94)jp_#<+2)0wrVK%d( U"3aCFSBO#_p+M(0XiGa^$h]D,-#Kixy;Lo5qXnuol/Z79+/f\$72#me[XSVgQ;gU U"K&.oh(IDbtA[JU,3BYdm.E'*M0A&&&STdR'in%XeovD^OW-)_13T&ZhPY02jK<^ U"TGknG]8IlN#%eS_/;S0gQP\A22L[6EDdRN^N_bXDhvL0h$o8OOEf7N6, U":oY.2WwBOgU[Vn3o1C1E/Xugtxq,M5Aw^9qAb$ArIt=VOx0oboMr?.\1^&PDn[5 U"e,qpTs0lHB[Nyt/N_'XcY\v3W7%/3839s3Rd9BACZ]FS,jYJ,E:%WLj[aLx2T$y U"g(bJ+I^B#1J:^Os;>IL4Nd8gfd)4kH44X^0bQb6B(N93_+RVg3?GZIBlAJDu?.Q U"<)q\jnAj2;zFf^j'+zb^x7&BRuP3wZhnZc\,ezk\7]2XkV\Ya&]Uq-nEf'7N?AY U"4SdHU[QX+;$LEg'1a2'C\P0Z2-&35'LjnY4Z:&=Eo(=pt81YxIa=qe2v/oXHeJXb4h7J1]4E3HQ)pCsUI2x1,m4 U";,jx4g$-&^*ts3MxH8sJOp'tM+>)*4g=#IFTmcrz/pFoeqcCEf62xsqacf;Lr88QD^FiWD\eC;uv$4SVbI)ctT\AUTev1i(-; U"%Vfp6Jc2Z<=9nHxBB2nlPmoq#j/M6+d_-Yr:3Vu.hb3i$H=)[b/;ek?T5Odp7$N U"r]f_h[BmvjvW;j;m'u?-xkwgl#o(jd$AhmkF U"qX>?_EAk9bb=P\Stcv[*MAe6C9YB6.,JakN_(d&u6k+-C.OLXD(V'VOLZ#s.=]S U"]+t-:BRE8[=Zp*4D%<1qj7a)8c%Dn%Yc)ybar:[:8W3%.r^.5G U";r%el5Gze6c*;Z3/*NNC>Zj2kj2;B:BTet873w&\EVjZug]sUp^*al:pmiZfNrR U"RS3/23s49iAuhXAM.r:x:1ysVc2ep/Wni+W-G,/spI2T&vN6rrQI;1lfm2-Y1Py U"^jV9k+R?Y7hu3ijCW'-?c'.O,SiD?8Y/;8DLgN1CI[S#Tv2a3<$),V.>]Rf&D1t0C.EL?WTigwvO$j&5xhi[w6uC7MU]6+Z0 U"''&9#G2cAv^oBzT-#Mtdo#\0-P>bu0n,8*psJW/dNAWVmNLz?7V9,N5rGjE%'Fw U",_TmE]ETb++ChT&90<>rd7XOuvOW/%U^_89h8.,Szy>3hA2NiB#6>3h8'$h=00b U"Ow3u&:MD%I(qC8;mc8>caau<(kV+WGqij:lmM;X_qw6.d;0-4FVmqzOEIyxj8C& U"lOx[d=8xNVTMOC'loESw7b+.c%Qela,\a&T'O=d^Yr]q?q&F3ynBtC2j],ub;jo U"PUpS+sac3n1ZTb]MFS04ENlGN75nfVjBdp]?0=]s0:hB(t'Fe1kzT0.-AJ=GQ3uk]Zen3mqyAQ'\D8N5:ksvvkf1c[O4<.vi?3 U"[W9wc4ViEyFfspe>RdnJPWbtJ-Y]j3(o]RAIMhFwsppzZ-$E)<]Eg),L2SRq-GR U"\'(bQT>jn?#:bvM?AAulwr^Yua]%bO%UX_a*)tT]Wp6#6F_bkUeSNWoEJYTt,GK U"FfoBfhlMx-;ACA2-^Y+87M1x)yDrYwsO2myV*d-r6InAM;6T&_H U"Mu19l8l9G*W[N]5SFtjwP\bZuSI.^'Ny,4QE=iDRlep\VxZNbU^tTV+Eb),oZ?' U"I,5km*ehhpIvD[[PW>j%3,=67E771qYm8&P=4js]^EZOHq3g:%$Ck6s5ubmZG/K U"BVQZi&7a>>ZZZ8Y=29Ul0m3H0]Y9v^UX+X#L)L+::)I%L\H3wWB]dbFCTdrxaCK&ofRER\S+Sb20=hK&*y U"lJ?B\SM%/OFRkjbd.if'lBSJq8:YNPApmcy<7._JXdiS]u0-SikijS*%?ioQVu^ U"^jVDu36jcdC(CV:*ZRd\Lf/x'/aTm$Xl*8qepC0-7=eoOXV3^UjnKr(;- U"&Ck$fTD\'8zvCarl\Zxno)sKcK#CMDhcxnrP.>+#cHz2Lb U"_?R_ss\ocP?l0Kx667RmITN[\>cqoKEuMQWtZ_F,zjW4Q/Ktnh\muku/Zr:S=tg U"m#T252Ec3WO6Dj7%2vWI U"?_/4Q$VatbADFBO:Sdub[s&.up( U"%)9%'%%-%uG%7K#CpN=T[9%%>%r%%0#%%%5M<4=DD33S1;0B>aq:BT?c.Xb\Wx? U"S#.GWU9_$YaPFCLxYSSQMK[2nJo*fCW5B29vR1%ZV9lVB^8bJGcjVq3#8_hu:)r U"46Ht<.Z7-p[?sus>iXjnPDMw,5jbpFSs0>6i\9*DFl8SW=6x=Su1tZhGbh$iX^n U"uJJ?%R5Gx_)-0T1_W(.8%8jSV\NmKKI_MKKb]tBS6e$0bwHQ^tjpVZkZd5s=uI9 U"QS>XCMep^\F,DHbuxh/;cJ=Ol)'<]lU1uP/eB[?r8ibi=Jeq#>(DU+n5dCc?p6e_'c8cl,wKUP U".5P;#]i/ImUA[Q?kLER2_e\f2[rS+8(7[1=]w6]rB:.n.IT2$=Vbq=Ow?S?4n+j U"]1f-u1TKQB&q(m)-g-w>fZOH+sS=\U/a7lnD%RLSrkRTW&\XW-qm5irgSUJ13og U"S($#8sJqm6idYUS'$MC-ja)A4fAx'FLxyKJJ0e*=H;i1QTkdU9WorqD$9tt<)S; U"WC^YUm:UU=%^/dWMsN2P<\=W795*m<>Zd*$GS^zN]rkEJG8jh,>u*]g=PSW)o*Y_*.O6oO,1QWj(MI+fEc$;lD_A U"3$A'd[Am1bKg,ogEHKO_UMikBZxhE0#gk?]jd7Q'>Az31MQ]Ae),8_Il>;aJG,8 U"m1IW45fV7OmOmEa_;N9G68e^;OkxT)d)>hjBsSeN+emo5K]L?t-8B]>6vBv/R7'OH)jc[: U"Mz#;IAH.Axi&NVoZr8gKOOrV[c_tG,7x;+:r+jLGE:rx(H>J__,iDf0\jB+bFcm U"Do>TMo<\eJ$;FWr$*k>TSM>kV]ff1sTZ)_))#Ti;=QPe_bg+Q0mnRNSsBoblqQX U"keo6S=3W3IUBJb?p]&sPsrrfBQ)niC.rl\984KRey3qC$O1Hk1%D:Z;F#29-2o< U"H>ngp[m7#6vPF^cs&rvg4u=pRr>( U")kh[.8bj2%QeA?Ku_03/#%+-Q.5Ii%YSXo)23[PO<0z>G#%rR.wOV-Od[f-k,Q. U"k=k[bJwsJr5U_J9NT:'aWcAZ0K=1p_m5rFtwO-WX'#I] U"BUUt.Xnd1N+J%8RKpS^kSp=LeOtBOF^QAA/?>u U"q/p)_GQS/_%[mRpjKRI$0&QS1HK_#C1n*bum>,joT& U"b$XT92.-_M=oC:x#,aQv'7kd+kIdwg(#+J;E1mY81\#I7b\nNWJE(nOCMrk7s^- U"eVZK^)?tL4s9k,_N[k(DT'RJ>=3?=D$Z?/q=D3'kMtN^fbEognKjq*4l%9qb6

'S=V%&VNjCA#U#7ovl)dSC3?AWG4RHHEQz:-ev#Uvp)k)1KniDDoqRT/- U"RqA_MD=AR$;P8nIw(Qi&F70.G2b\P6la.cmh('daf1K U"PM_G:tb[rp>o(qE\o001-FGbopKhf&$EH^F.%^QLPeuM&Q;x&E0-Hk+Z#Ox7Fj4 U"gF9q.Gk$%0u,cmA7H/l(3S5z+cSwNGvFGY.:)qW<-]8J=*]ldH2c=]_OG\(,&5Q U"Zk/p6(JwX\=mDjqcre1j7z/BFzW&%A#oS)T3j]f5KV%8a>EqH\Efv/i*zarmbi: U"O6t2Gi>&hIOSCi#$TSwX5N^S$6F5\6.IOlLQi=WuJ[=]uDfflc,FDbXQZBLh$Ho U".o#lH3[5eOt*LG:5U U"T^/#qE['k]a);*Ih-jHL78hd)orlepA-AusZ2FgGxEY[mb6Z-epBdO8;:s.'gmA U"ET+LLXXPmT3.QAougf(IaYKf_P$kVBl,rmTI:a$wLQEHCXeobW]^SaX78-QZX_2 U"JAQ4FhLpB;5L:Lo]//^V+v7R377JZq9ZU20K^5AQi*,Dk#'LdeN_E^\YbO+)[Kv U"IPfovRk1.K^(sX4A6Q_P^>nqB.7+)3(g3SwZ9erhKiCyG1#]vyS4xe/U9a U"A'k$b#=qSqH_?v:K#T1UgNA?VDO U"?=Hs94vv*h+K)3[*xJnt_WJ=70E7Z?0>,*IEA%40bGz\RnR,f-X.(a);b;\ITbDoB\e<6D*hJwSavpN U"$=;1]ua\J+Yh8Sq^gCs&BuwYQ)H>ff*]dsf;n;/lhNUe?ATrfn*ct7Q0pbayTBmZ/7\p1E--t.+p>_fJf.w]79G7]i U"Kppo6$xH$B8[pbMgT87qcx:[^Nhq+g'_&:_T8*$7BoJznoo#c%%bBH:4f7UJWR'6%Sl\jIWBE U"tvPYX/Glm$'S3l6ww?/[/%X9*;$G*&j?lYP9xF&]/#I/xuz\EjB*,5-Rs:=UW=L U"+#wr*[7_eJTGEwpvh:N2]I%Y2y]]3P^s8UKaZ[y4i&0y3o%9l5D;'?8t9[wHj]B U"C;/H^s+9h9R7bZZ=(_9qf$ep-5]o.c5^9H2w49+9=uxO<'YDY9Ff#KDO;>l/tpK U"#+l5#J8&p4ODb_k2hhYviSe7R,.yF55[njW1i8M7lDkf,xvtpxVxtGbLb>\jJ8p U"B\wb0-YpSR4ye=aHB2rW;OM_#_+.q(FL<;vYzLO?h#Q0Bu1x*Nt#E4;+Yf>M_Sq<$48=P*2tRa.-% U"VPVGvSgkClgnz[-r7YcR+UW1J<-/^ekigs4O0/ZU/c0+wkJp;Gk^arBKJd%D1/Z U"cWe68ecm2QcZ^-VKmj2xCeUz)$;,z-IH8)pCI6d(0A U"*bq#0=:L9a_qmw)_1\)wp:MqZ/VG,JDxk\b&4at4DYU%ecTbfB^-;$JYRi+Ukfo U"UK^vx_-0%31Vb][>V-XlY#]InlDR1]OIu$%T'BXhE$FJ,]<Hq;w+o#+j+E\7T4&EwcuC,kCGZ;2DOUuvke,JlKRHr]e:pVg4g0]8.T;;O< U"vU$)']CT$tIKBl)Q5pO)w&DS/n^$1aB\6YOj(&vlsz34;Lj8* U"NYiY9tol>o%5#'9-h9[3B\Q$g0D)bgn,gPZOwR2DC[[UQtgE>Wt^/*(1 U"nR)J*wW8QE?/;U8#gggx-jleE%#_'v%i-YoZ-;[uL>e+teWAw66qhYbWmgFtZdh U"Z>i:TPJg'I/gLhI'rDY;l84DPMV6X0Bo4>X,,^+jr2IK;cG,^Vg^P^)(teV%Lkx U"vMLxmE=-Vlxu$-&?RzIisz.RoUOBD)Z6gQ-&NW?a0t.8*DuAbj+-%Xf U"Z$lO=PwLe\z:H'neqQU,+bqW*[v.$zg3lV:+ U"5c,6<6)wz&0D96RRG5Tx#grlnBVi')u)6O9A:O]S-iZB,iIS^XQohYwAY-v/EXZ U"*:;_I_ED&h56:_&qz7+,sRSP&hT$l:0=E=z3nK]5dN7+de>9,*no&lFZ'&bMOYG U"#Y-^2JsGyme03mMgIHDT)m3\hOZ%#KdL3ad_$hk+'.udaX$Q?RJ(CUCPP*MGf*o U"q_$NqzT)8fMU^X6qP#Z\WY$'X6uXL)uB) U"cld,pIx*5&*9KdZjZ?SVP.qXvQhKe/8-rdFkpLU;l^$m]hd5xko]/4>99&5Bfe% U",fSoE.WV9K+AmRIpRyvcQ;twV(WDZF[Qk(k>axojKUQ5V^P0Ix>I%cPJM U"TL;Wj:7GK.Irtw3b%'rHMW$gFBgvgO3>8-W,wjA#.# U"h,m0/DnN]Y.F#C#,L,lDWF_eCFrH.NneXWzYm*[X.::V)O7h.y*4 U"YWhqR_Vc[YgQDHOB'Za$u^FCn)AbB:2C3%CE&FhtjOqOSiX U"JS%D2jzGuWK/ZtRD>5PD1FLd6fDr5Cbvqf3s3q+)v-:LI1w.Z=xHYy,2tz4t.?T U"a>]j]'U+Lig_6Zz;h'C$L$&?q7+ON'NVgwMDex%?ms,7,MS:zO\+JwD(5(/z\u> U"_8a&2nRX./RSl-'G(U$>gJH:?lKp,;NNQMx8=gr_d&qiKGzw^tKinq.yJ3,td8t U"M>T'<;_vpfWAh;5W?rB_f,'f8$>JGP?WB0D#Ygj(nMS&u\v)cOgNHGTr4;%x U"M$Y+CN,8zeTKVaDB%Vf^\&-A=<$,qNyz.rjd*W)I2QQeBEC9_y&()Zt$P:YEd4I U"^1Edu'(VZ0v'c0]a?npfeP0oM1x;]UitV?ScHd0O.'+e\Cq8.m:jLc4D*[oGrG.vbkkn\#'j)P'2sYnZfeT_[OrV U"Q)(pFzl?B#3A*jkV;Pc%Ui<_p2V.c(&LcVCyIe5wLww)q(yKJB0w%q+\B(Xk\%x U"N1_[=-R%[NJ*#b$r;gCtHC%V*JDooD8$w%v4IE5]P6nD0:^p(tTZ:mA7GT-jkvj U"VgfD9ar9sg(^MT&3wXH1g2>(3bURdNDa-ixh6$XcGk:cEd05VT+Um6?[7XBJtJ>\='Cr2lIEJ+tW- U"o2:?mXckYzLR^BcUo,Y++,_A^taLa<0&mnls3YjO+[/r5>tJ/+9d(+?klPO\r'b U"5XMcXNNR+Pl*VK).5yCcnatOJ\+]7%-8DuM-vC\=sO=O^s,\?GWXfX)XM()6cPV U"O[njt>xpnP70WD.b:]4Ovd*ItL^AyTH)5rkq8jDNnM?nmnh0,yN_/6+ZPWbZ2m; U"L#J?nstZE7EcCv0v.k=1:^AqhNA4aiL.an]e#5M94E^BtnYx#dvt,LdSPNT^S_o U"f6rkdb=3d;t0a(3PuL:0jP>ke:oB]^NQlk*HtBe1;CC':NH%q(iK+P]L'$ihXJ%>S10PB^'L)>jq7cx8 U"w89RFdl#C3u^q7:iQ#GKSkH2c1SE&ZFoD3YBaS_xu-\G7*Gi;gmK)j\XH'AV_Xj6t, U"8ei[7p4.QR?CG0=A6:hY,ReDLTq5]=$*[VG)or.+Kh\l&:T2A,R% U"swi(QlhbZUcN9mbGRL#]=5tr U">[_QCjI,52_k59svLwd_K0FYB-9;$%j-(./m1m'J':jAcdAyp1[BEN.RjHHa1\P U"WbJGcV8v_.oRCj_<\6m%phG6KFYF'G=0iC3IqkTaN'^SHCotX*N9ev8_d+iXN^C U"1B7fOPdHN-wnt6Nmnf#?XmsPX21p1tj7=J9'b(3:okI1and7/]jqYO&bd)&P,?^ U"(^Z6,5'\7,/<2d_-RuKT.Mqg6uq9J[6R5m4EWu02k38&:v]a-.jW5VSZ_F,Dhgq U"Pq4j'ZKTUmJ,5aqbAWT5Ml#VT/%'k%3kXmTfg\0NX+;QiN7k^-l+DW#SGSaPu7g U"fa$WWTCX'\ZoNEJloa32YAf.wOPK=HoPi&Gy?N4N>PFUgCKi?H4wDh5g+Spl^iq U"mgd[*mCchLT%6AWd1dSb%=g$-E:k7f$Y6YwDs^T.a)l6I'6Ii*>U/;P-2^q%jta U"s)\(YnmsN?=ra_uU,OJ=8n+P45,,r4_)r'F-Ib[YKUK93x\n0^B&N/:J<[avy&_ U"C1anGXm5Cg-v?GTdV*G*&kuHb;*5Af=-*fk:nWJiwAsMk#hrnR;vUDhlIXOhjL8 U"/WR$XYHk[QVJsflZ3l(%5f:\ccHRPFLU8-055yLdJA$zEukW5^,[]cSj]v?C-(b U"K&6L9j7PtAA,t#wgL=26;p1Lfe$22'4gzE7wMa7tNXy\xfC92)BSLCLrMv.8ye> U"oIJt0/j,JJ]c?Uv[F;mR=VCjkodIMZa#IIK>CEf5qyc.n+l1_03 U"-Vf:3rJ(+4==r$kJT,41Mb%YSP/82qW^?&/Qn^9GRlo($a,fUPt'*k7XrKpl.u' U"f.[o;UHb8cJgefbEHy&Dvx?H)FJ_x=yf*%VN;kSi=(&b=tSMY+rNtt[::sR2ygi U"k;7RWxH2:>PYT5R:*\Xox#fvOUA[QJ,m>sqGlwIq_P;HQ/1cy^V)N<924g92RM[+%&L12_H/:W6-v>9JG4hH-'T U"baTB7^')swI4Ot(JuSJH1]a[tZm[Ofn&prt1$JIr7S^0qk#Q0*uE\#x,eh>uVM9 U"n8Y7/bv$^:TT7L[l*-Lzo-%G33vi?\F_FP[VH?7ndDC<++hk)7OkgmZGWcik7o; U"#eR$+nXGWj:r);y)Grg(Got9ofp-ot;cXgxFK3thn_cmpm&,ZapCSwiN-E]oRj+\]WO6$:-kH^bpLt#1UFqiFZCxfWpNH6cB U"pOtqm*$+W#7tuQS&Mx.;\FxEQW\.ceMYi3n%j,(Cb6qIpt8avr)UWH2Vl\zDf2B U"k89r*DsA=W[W1.WfWBbn;AC;E=6b^2OtO[Za_fsx^;QMiNB45w4lNZR:a-o U"w:(A>gTyI3y+;+uO*12FI?%861mu;Jpis?cKoi'hFr2/XSbE4]6WDOgVBCf^1#k&6j;Y(aD&WQ]&jt=F36[ U"9_REU?_LrV?,SP#WVMb8AQf*f1XeuUTF=9QPs_'ZUJ_>jcL0Y.j):rlLmQCCIfa?xRo-J]6wrXvK8KSu/JgGQUXye U"wTXF+q$rcevMU$$F]'>jXHd;qmLYWB9/O_[Km_ARpfVVr'?b U"$8N*6#'sAZ<2A0v_0u/Y&_^L8pt5RWpewQp6cKN%%up&'%9%9%%'%-%7kr7Knx= U"0:&]6%%'fe%%%.%%%%%%%%%%%E%%%%%%I%%5<24=DS210Bu%p&'9%%9%'%%-%uG U"%7K#CpN=T[9%%>%r%%0%%%%%%%%%%%%E%%+%.6%L%5<4M=D33LS10B%up&'%9%9 U"%%'%-%9Py7Ka,4C7'P,%%&o#%%%1%%%%%%%%%%%E%.%%2KI%%5S1)0 U"Bup%*+%%%%%(%.(%y%.%%3S%%%%% END SUB V2 CLOSE:IF S=74AND 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