'=========================================================================== ' Subject: WRITING FASTER QBASIC CODE Date: 06-18-98 (19:03) ' Author: Jim Phillips Code: QB, QBasic, PDS ' Origin: jphillip@northernnet.com Packet: FAQS.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"QFASTMAN.ZIP",4^6:Z&=18893:?STRING$(50,177); U"%up()%/%%%[+%\(0JI$W7Gn8*.%%\0%%%0%%%%vk%fxyr%VSgf%x2'&%7H9:I[\ U"7X,iTa*%+78il>oepLtQ[9FYayy:r239G15fQS;F5r%/2$\3f'_rH<3J*ke&'2P U">bQkh)5GlZvY=H/S3tuG^Th[DYhNb(O5B/ewcd3>3ZsNP, U"hUJv&oT[_EO>TzHlH=P7M[FlCl.6:S:m&#OhKbXh(R*)ld6YzYjr-wJJxs^QF1S U"wZRu3kslN)ALhU$AV1#.<[D;,[G9rA8LN6OyvMEFv0/Jx#5Ox2Z3g^DwMJqjlCD U"x6EbpX4;=OH50QkcjF0ua4W0pAwC'USrWh#cB?c;9$erYb>i90W.po4rccO^m$h U"+3M;&/j6P0PZAD+GGgQGFY/l*AEV-rrf8pQep.QS5qx#SBMj*;(^^;q1t8j%*5] U"]Gf>U>RZIv#q U"gN-f(c>b^_T4q^DT;):x9wJ]/MAb(B9fcCz#=cLy8h4LR/BGq%,_nb4xqArQC*U/NphSb2QU9u.172l,O?jdXEP,;[PqD8*AXOf<>G-Ztmgr:vu)0/B U"r^*aqmL:VVhHMdezhbqppUuY(o3a6KQdqr[)7.w:W^L_L[pO]6Z_V_?A:X?sF#?wb0dNYFmL&9Ota-(A9XOL5=0KeWG[tY-6>,k#i0=g$Lxyei-eXW+tNf-esBu'Nnz1vPFW U"Vc&jVTCHFx5zq8?d^hEWGzCTD:$g)J39v>5oX'IP)3]dL0XK425pt^5-]V=99iE U"]=Dj1+G?z%ghq6i:K[cs+BjTXrm5P0D1c\N[qA5ls\_A9Z6po,^IXz(QiA<:wvRuqRxr]5a(+t1Ex6$PYm)sOm[=X:aKIx U"P%-^-lVIhYlV==s^Vk6wcwwfaeRma/;3E[^xgt2gMymDK%Ra3s)xfe$&v1A-+.n U"gx8juFqCUu=O.f9QPZ.0m>#,?DC,9:L7$(=jl91k;ZE31;wi^^pBI=/d7hj&mP, U"W^X5'r>Svi[=[Hu.DU3.gbtEu>Cg30TblOw=?9/GZCsfeg]S':h:VMM(X*0u[rZ U".*Za$*3S$.\HAW^r0w%Lyuo]Enk^tX;OJ>jeK'.*Cayw51oepLtQ[9FYayy:r439G15fQS;F5r%/2$\3f'_rH<3J*ke&'2P U">bQkh)5GdQ7oD(r0CLOe<#B_7q5Zlc5T9hF_coJ U"uL%Z7$D]&Xt3$9HJeRQr^-izipK)Ma(yvlfL+ynjp;dk=+*h8z_fk[6?J760iK;gv/vhV_;1vrxaErL(Jqn2R U"ZA[b[mFQ0nXEW.c<2cULc$5\+b9DF#e=(CDX&uJ'_M&MkSXwClejRWc_vBQ$u?& U"lv83f')kh=##N%gFm]f3'4[qvQsSvBs,;vGL)0J$JC$S*1sp3:pF\)zQ#Y?h*D0 U"Ry8qUtljFL5i,sfVSccqo;$7uB3?l4WZ#uG>ixz7H*l U"?BgGilCZaKEyqIOwJd?J-sc\1CI%L'%*FlT0EDm=4e6#KoxyQTU(DWk$GUS U"9+_mS78R?S?5Tf.sRR//Mbj5*?rdzMv;qJai U"McI-/^dyVhMp-/h5DglJ&,sLcWf$y$Qq)D&Y???%VS,<>iaIP/f7Z\mrD3N#$H? U"YG4Um\TV+ppah&xZ8i'l;iX-k#8r:$(Py>m%wQev;HWFMsI(1IPvm_-6x$6F7d< U"WGz26t8G58$A=zgC;39yFFjP-,rIjPl:2a9>^X*pA4-IWA'wm-%Equp%()/%%%% U"+%:$%IIDPSaO&](%%'2+%%%0%%%%vkfx%yrXS%gfx2%'&7H%9:[\h7XiT%a*+7m U"8i>oGeptQ_[9YaCyyr6f39151fQ;F*5r/2R$\f'n_r<3gJ*e&k'2>bMQk)5bG2E7:\,-EcF7fW5BZeRRpK5cb)Prq U"p?%^3Fqrs*W0/qj\sDDI93NIe)i6$M U"pweZ;D;OzH/m(qn32+o.Mm/hY(16(_l55yMss)xQ9^kc'+/:PTCR(#ERmE3>feQ U">L%ZrUpX#3CDJZ:rn4IEAmE6ECS&,.HrJ;O2mG-lI#t?VjS(9)B8zpU:D((^(N[ U"&=nG-ic#XbKM;ilQgO22kC[Y2SkqMBvlB1TkK$rCiGl;f U"u?6FY$5V59OjJVj4Dt']coVwb315;oT24,bLt U";gL3yYMh^(.v.3'*:D,lluZk6,G U"*_gNQlU>:O;d:b?_SBal(0vtTXZ7DQ^-xkJm^9pp9ak#qJZm?L(o?HJ'a?(1$kC U",c^Ud/0x.c*$DR.4HbObes*<%vuSSI'uU U"1Je0uN;uGnPG-Vl<]YoyH*?w[\$tN)NT;p_66nXL\*KqKq:ZGl_cfuoHpI\vS>^ U"2dLUszo#HWhIH?qonyN$7 U"Nfs)(vjYzgIO)0tt[??0%V,<3>i3u-dgZ\Kmr3's#R?_*;rm#_RlsJG*4qACjeb U"P8n63Kh*C\$=g4APrA3sL+nLr*#moqAV9$$\2q[a*gBGY]ed9DWie*HZN5iJeZ_ U"EtZr)%3T%SW6sd8*MUGq.-(IEfCqOwl)0%'up(%)/%%%%+%%H)JI4 U"Q#\e<[)%%d%-%%0%%%%v%kfxy%rYSg%fx2'%&7H9#:[\7;XiTa%*+78Xi>oeKpt U"Q[89Yayeyr83:915f_Q;F5&r/2$O\f'_=r<3JV*e&'W2>bQMk)5GTh.qO5V9'cJh^ai,4ZY1MQ5:*5X;Z U"=_NbvJ_f*9D8mxVdoR)MEB-bR/HWL_7YMNGpen>iG9W.pRorccFoUbc<'+/PGTC U"RRVF\N>pfe>KlHcA U"X^1<^I/6Z-6rbCZ^'wNfiM%Tx,Bis,to,Q=0lR+Fm>lFdY5lqJkQHRfD$Za6%Mpj*DQ-S)Zk(X0 U"dfAT>1_30Ru:RL4Vr&lh4>0lGn0xXqz*>ZX0pUZc3>A,F(8]-sn8UwR-22#FvFP U"ibfl>8/CkW;XD+Bl2YIm5*^%[lb_.bfKk]3e;/Lh8h0DI__Ra7l8wD]k4qR2zx< U"N-fa&ip?zLHa(Wj>qPXR6$P*s0/#LO+*i2\#RC^f'[8+>fsNW;OH6Nmre#Q3N>I U"9E^0?*]#2DvhU.234RpQRo[13JwO.j7^$%ASM=-lUL1-.rgjP5J;hq'buCo4Ru7\69AAM'mgoq)o)iCmDEj#P#QYX0?8_T U"uZ$^X>Y#(_41^USh6eO%l&*1eE_TO;BS]/iGJQ9%ji&)]3*5am9v:(1],hec_HMUG#6 U"gCXz#fv.uf-jMic8$NdaV(LUd27CIECQ8hNVgNI5C0kpYxC'UMWpH+irm)aTZ:M U"M1vbdJZdWk1Gz2q68G5T8-0QJ7Z74.-UKrR8u\\>4:.Q/$DfO1Rqop#5Upd1bO$ U"u%p()/%%%%+g%1%I1In$',6l+%+%R8%%%0%%%%vkf%xyrZ%Sgfx%2'&7%H9:[L\ U"7Xi'Ta*+[78i> U"NbQk);5Gv20heZmpKlHcAX^1<Rd#N4ifIYhgy U"7f.qT,;)k_+yJ]v]U8ncN,<7LrkLCM^RfSNLY2\ U"MmxrS-Sw9cHKki?3F5]2,&irP,l(*p$2;)REU4FXVsA2#q'.bKBqInl>RSh1bmw U"Yg[FUMBsb[bW8cPgU)n^YMu4As5rhj^(/U^x9LRw\QQ;E(qHtD^rg,=NO)l_&Ud$/3x%#Vd-#WC(&n]WS<,4sgLeaS U"4S\H1IVmheS:*rT6b('aL9)((HYrp:=gpLbitaGMr$DZg_(GDB&_y#Rc8%xMhU, U"*cOA;t;;Xv_/P<4.84a:WLtWV(6u++VC)E=XAt>cpU9mP;kpeMe=8HmjBhI26iJ U"HmknQ7=0b[:a5,xujc,v?VD]=m:DO.kmS1a#\yE*kE>kOJID7E8g>3Udn&]&8ug U"3EBnE&Icr:a.#RB9Ij*KAt/G:4V6X5HGi8Ac?=L)nVzo%Y2W1]oSA[wcV,,_1XL) U"2oqQAV$XQFBiMoGO:sv*II28;ETabH:ZGqmU'V;L-CYzrY&-'B^xmX$\I*bD9ut U"n.g*H:/8wujB'pC7N:+]x5$I8-27u+0UfjRT\T7#r-M%>yB&XOfGZtrY<0Wqk^P U"0DD:g7>>iSWL;8A0mBOiVAb/QC&XN5#]cCM]k=:v#b9=mZ[(br[Usc1seJ3QcLq U"t(NK\NCSL_*YZx5?m&aJ8YZdLdkvdKO97g,oUUI7f U"TUDY*EphQuK*?Iq$(qqhTCp<)z]3CE>TbPOV=^>.[6:adciUAEMq=yk4[M68]<9 U";^]buRPeKdRa$RBLVxv8UVQy^zJ(lhSMI'[vD8v/w3qX.x9\K#ZUq#as]D9ML>[ U"2T87EH/^\Z.bcWPp)31;tT.EmTH9Kf1= U"y/K68'_i34CI2%7a%;D+oG,Y,a(3U+uoSXJfTw)B%092PS&oc%EN;i/WEM*[(x7 U"0?VQ;k+His+nW:jK&tp<4<-xVh\RwV4G4K-BQDINw^wb_jekGVLKrR19k4k*]s3 U"q:$%fe.u%p()/%%%%+j%Q%I4IpWoepX7;BCY5wMqE)v%:/nAMS)P=HeTL?e<(W3CDQUih U"+pE;bEr#?2_d/9xjSJT=>_^E*-hnwgslM3=S$p*\B931osk*0i$MF5(gqsbSc>EkL%+0t&LMN7Jfo)%^xK1fa?8S U"i,7o#*lQcOF\WIGu'+CfQc3wjS)jvD-RKZ?5EE%RrPSm\DSPcfp)xP7B&p,I0K) U"x7DSGqBPsm\S)XrL$;%qG U"8$1<[vOVOkMa'3oLX3ps2hI9\NOA_J,KKwJfT3.\2KyX:VMxQc\bQ\t$e%?bzYR U"mFRWN'51F,oi^J=L3+)2Hrk[O0K;)N2B;JeZzSLsEAh>rqbgMRL<):D?S4#o;,Xv_&TsAk)&,g U">tc)E8[J0;._CPi>HP:O'i'Z8oRkR6pAOboX6isqFK+[SO_fHx-I:sKD=lE(414^Uh6*eOl& U".*1E_5TO:zfQ:qpL)VZW0;-C0aHIN'qQ.J3&etFJG]d:sDzhcL7/:]z/snh;K2S U"HoC*B^u%kg869Iq2;8Q[,0%0ZRCbaTtFViHrDjk.w1NXsGZGWhtfpm,o*LQS%k; U"p\QLaQ0eX+fMR\4Na#Z'<#4*-Ynw97lH0%%:_*w?1q9%A4kD&.DMtilR#cNq0'O U"'+qQ,.T7Y+')r>jT4v%(d.^jK'Bk9MDP(1?q>%\:(&bk&YWkYsC\Y[veT.8M=aO U"UNcD[>=4h?2/gSTULjRGRIa]\%<0nZ]^M-#<=[9g$FhG7EUpui>e[qUPoVJUNa< U"I*<1$&lw(<-:Gb,f\W\%IMS/5kT U"zcs5UU(n,_8m6WLR'Lha)0N9kU4AhguQ7P4K3#Ih)l*YYuKkU'VXpK8W/PW5F9^ U"D01(OH?xLoA:5/oQHBOaRsNP8,FIFp><5dEgdjpR(5an16S_[N6_Lyy>GaHADYb U"jG'[_[LF0mp:lU:SjFAga5n5/a=HJ)[8dEBzO(\a+ahEoP6)44\YqpP=(8#1f^A U"212G9lUul.4'C1-/n>sV9o$cpFDC%%6:7=#f%B'JCHx44j<;kGKg1O%)up(%)/% U"+%%+%4bdKIV\Pn%a[M%%'&-%%1%%%%v%kfxy%rfsSCy'y0(/J,+7#+41%p(.,%0 U".0.%,;,-%+*+,%+*[,%;<0/%+-/0%*+:)%+<*/%-*+:%+/J+%-,=/%,/-0%,0)J U"%)J)/%+)*9%*.Y,%+<.?sPuuu?ttt1%0Q0Q%0a0Q+P%1&%GH9:I[\7X,iTa*%+7 U"H9l^oep,#\/A^>qN\eEPHUj>'x0A^uwD5elTnkL>51bBfwNfGutPofW U"#>PAOBN.JZO^WM>2(Xjl>5VxHdqFi6s%&(BpRO]pA4UskRo68tS1rV;y+dLrq^o U"r<#&'k<^.$^?(DoQWpixj9Zc9Yrx&oqu8e58Z*VHI3xtAhr7Fq4RVTPMlu.CX?n U"8Pq=d9upWT-VmSACpJ(pmwq]k&;=a\r^cupRUou^0h^P.^vIh>;N)W=-xpKkJNL U"J=Q&Sn:.pP?6/=dkj]>GM'N#koP$;6J$QCJD#g&u/WD666v\r3r6>56tLKWoX20 U"H.ul,o^cd5C$Ew)O]2>[007hmggyT. U"C*0Arhpm1(=a$kR1qxM(TQsTLUot[n,W'F28ZjH$wZG36,>NRUXM.l U"^W>MN6kg)f*'fLA$iZvnsqF#&>OpN:_EfzoMfW.a^Z+dD9M#SJq(UrWz8hUh/6^0^\nkd'o_s U"o.Sqr]F;/U*2]j]BT6GSvRQ+Nc-Q*R,TS^vxa.Yi_rMccxcc3[> U"7I074l:\yhwjP<>[[>cH$h0f*yc;1J>y?h\WUnE]$+7uJw.ml;Eqb&AHO6+UIDW U"t+&OSu'gb9?R$P$bn%5>jp+u/e2&t^T4%8M=p[>:UalQa?.uj$,6<95gk,%opVX U"K&6.+'lmP]=SY\^S U"kQbVq(;xRshD>UuDaxBoT60)Bb]x0SK;Mz7s7F$K3E#xuVgJNkbN3S2xLJ1xrYA U"w+(H>x]'.bg]>u)u4?=5P60l&5gcXkTpu0lR2F5zmtnps=.g*?-Sv*r>*=PZ%vW U"^+.UVkj0(ot,To7rrw/#X&&o6]RDT1Dkeh$-Yu0wFLo:J$ U"0^E<'4_a$D;GfBUssGZmc,QhfjlH*mGMM\)dgr>eP0S80L/?0av*Og$WYAPCX8VdHjonm>'n8N1WF8LN=LQS U"&)OLru$ed U"P=1$4ai^Vvk/k[>]TgQ,WKr,bzkuvxqY-:n:86]D=[=&qA_]>=+hM+tugJMnOO: U"u^dWBDq8+]+MJDfiZ*q7phYH.r-WkDM]#)ANo:9E,jb9MC'lqs*JhlxSweNth&/ U"0#\ta,VtrBa'(O+_iGyPA3'[*N\'SmGFq]qeFYs02[*.J9v4mWPh6L;9ruWO-O] U"wZh-IM(?\RM_G]L]&RAA'OXOXCQjR:ZETnL)5Cm,PV-0Dw[SQGKi[JA U"H7M2VHNqKtA&t_udgnga_7WEIO>q]P//C>jYw40rQ*AXRrsb-^SF$4-GpVguqK1 U"tBRf^D=[m2[V_M6K9Rvlgeu0WhoLk'.]i'$JjwbU'NjI(6,%LCip7&T;J6z-(Dd U"zke\I>DD1QySSN'54&JB,#ZiRbA?Osl>2TP'Fwlh5OjQ>(p4Ik^5tkz+9gCVab[ END SUB SUB V2 U"\33L;)aAZ^?p6m0Y8%;Js&FdWtmje_jCg:f#<3idj6tKALUn,L?ClS$#)Odc3#;1xj\TAg$dV2C^Zl U"si?;(W+sMY10Kx)SJC7q,DH__M/Q#fD-jlNk:,;94+o:SNWY%YVzh3oaiz\)?$% U"TnN]\VwJXiSfwMGQG#EtXB'mG$foT0JH];lS+^K6ea9Da1M7k,.m]k2YHy,U;Lotqx25ImU U"g;9ENG[JFJB+Z4Qxa/#OY[4f[k;4P)ZfE&fRTsLT+$qI2-DJBxavPV>ONh)gY]F U">9_[FQUCD#P%9TI-ABb];3*)-JzQq-4j%qU1MY?(,=MhMf>p'Co+AXZ_H10#H$3 U"x3\NAF0#;9j(,e2CSX3S/5_n&E#H.ia#ht[p-%Ui0uM3^ba=_VjM[/r#bl;0X&K U"i?]RKgx/uS=#6E:A0O)EgDcm1N(qv_4qXb%3LcfN)o(FG,FRQ3xAfpDZ>Mq7>P. U"J)pmGP3hV^;R*P+M,05G=Md35bB>K=85Dc+g1d3=DK;uh,QC-j-RdAaA$s?\ U"J6[oo7MQi)C4okT4ZC)9mtxHBSF]B_+y7.Gd^u\]tYW,f>jmtysO$g:=nZJuc[a U"*jjq7D9_a_V_qr9QOGG%^o95f9RO[:C^5J2)N:t3;60&\agQ$TJktf\ifK1+)VL U"Ot8Xgd+f]jeOt?-V^bE?M_ZN<+D11x5''Dc7*7z^XZGYj2K<^46=GJJYP.kuTKn U"pgl>16C%c2lFQHHni\ht2?hRCzYTZ1Q(,iiN2'G7^Dh$SLy7_kHCbPMoh:iQ$U(y\k>J)3PocdHsp# U"8i]j1>Rp,2uEDLsO2S.Xg^q3Dv6zo3,y.feG8Id:Ch#f;u5phL)6f%?n'sgiv&= U"Zc)V'4?^JQVcOi^2YU61&\%q.fP7j<\lPD_[H>G[tknl$Oi(=GmeGvZ%O[Zyb.v U"PrVeQ/vH8hplB;RG[V[sfPi6QW*Uf;9Sa**N; U"Wk2i;-y>M'l:%WD;Q8cuM_^^I>#G]$*#$bMLVR-TMdaHp#8p4h$NNUJJ*Kd#4YC U"fn)I&3F$:u]RzTbf'P1z1^zZ6*RrLaQi\<)n5+/?]#9RX6nT[VD-84ZBCwOa*$L U"R0B#Yqol),F&-k>TTFXMXdU7Y\BIE[Dj0gXBRj2Caj#)[$rtf$7bTF#=N3$et9\ U"dTPMO)=p5;&+//9#XoKC#gMY$J4>8+rm[_',KbFP)2;e=r^9.w5CmgW?3Mop;V[NSnru%PV=_5#0d;7[\2WDj6.S[2mJ U"9^6)r:B\O=+,NN^PSG(&qBNgazMSw33?8p2$yQn6e3pucVeHe2&,mNXsqq2mGCp U";-lphy6IPl/'+oZ6qZS4g-)E$^jYvVth)f?--*:S U"N)($[sf-ESh+'ul64>JCkE]424#(MBGc)2e^#3FGe(&YP>gpk-SrS$%BQ^mqd#j U"#=Q'n#hn3En,;[6^vO(?X)GY#)g[iS*gINk.IQ[F,OuLp8.B8mpkv)3%/3sB>VU U"9^K%w/5q)w4Io?m4m+GfUGe[nc;E$$_0SXOLa/F6DiH$0ldgK8AvU]egtA/ U")v)9#zc]%(%z.D8=mTjLA4frSXx7bP86if&*'^>WfGan,&qZE:9FM7B6oX8Qis, U"&RAvfIq[7k*3RsTeSJ3lBck:K8I#wvGn<9t(7T,HdLJ1'X-Z=V;vUFN[<6Trhs5 U"F#7N?LPnUm5U=/b:3$'ZGeB9.VYRCSiG1cfl,p3mlQH.AgT#L1F6[(*xZ,E7vyU U"%g1HD,^0k1cW=+\g[O0C[CuKs#F_J#OcJ+=ZU_FD8U:c'joj.5_*;u?8I3_rdGU U"Qg56U)OF%5hoZ)ROJKv*B*UiOokU/dGas1dBHFDg_&D,yV(#8PJi/kYZ/Y)Op5T U"9*7c+r7YKS9f6d2l0[/S%?Ehpgi*X\\W,dm10J?0g_(<#5,p;kdBShXznQi;wa_ U",o]/.(hUuT=^O.%8?zUqXp-Cs'7NM:2aZRmWKWe5Q';;7Gtt+(5eAzWJQQEI9U? U"0*>%R\i,pp7SF=b/Cm2ttC1&dfLPc?i%>W]KtUHzk1t^SKz#3TG/>],P_RMb/;B_(Ef9VyTqA7Ml=G)B U"C>D.Z+Og:aif]5TCk;50F0AOEr[t:%7uGI#]6qi;B%g8$b1]M0-?pX/DSNLj=k6UZs*/$B/?]D.kO8 U"_01/_Y-y3t=OMnnK+'EQU5V'xITLl#=$U]5nK8Shl$LW]j8K<=OOgi?a;)uFVn:u>Gm2_Ba')6%o;+Wa_fGCi]Wl& U"8ht+T36b1htKXcEV0Xke4aC-es]q##,POU(O_h/VJB'Q*gl==K0i?p2KThO?KR& U"%A1'4;mqu0a:\7/Fu4EGsBIW%7_58Pv:+RdO7W/OsIHD_Q=2OPf U">>RFQ]uY/\1=U]G9*F,lW<%LDH+BT2hJ\9 U"e4VUZ%aW(yiTT3RAEPLoW#\>&WM^iSYl#jAsw+/:58h[GQQ3)JfSGM'^Kd2dL;_ U"r5V%BE,a2j);35CM?9_-ESy=\W>)ODO+%-_UKe1uEErKOXkD[(]mRXbiRQKv U"wKVD1X9Bn7)Wb^DbE0P%p)kp=Dv38)Y'iZB4bH3J,HE)8pr(gA2Tsd^6?_'o U"*pTT(zPZ9$;B[+qBJYPVEd#0P^xf1Yrl_o(afs?GC%fM*biZ;bcV9)E\<*H[D6K U":2Up+gaEGA\gza>-Zuoworc-s#+HM\'f/IOoH(\60i&:sA5KH(2D/\+Ho6grdhr U"%.6SWwgf0Uh[2%PYd;h9sK1E'XCM8QyY+ZnGC8QTYqI&uz(jGq:ldNg%p$P^1&W U"cC.Qn]wH>7U31]q_W?M7wEAy.$s4jCO&zCIhjYP>o5YONrAb_ChMXfR2Je;+6*7 U"2'8o-DTTHB>.SMd*:T0>9hWTXM_ic+.Xu7')^P8\g/*]MlrdFfjFv_B=DR%wr2f U"_)1dq;9iI#a(SB+l5hF=<15\e3uk8XJ*Of6zY=Mo1zA\w.ED8nc-e0jU[hp1n(V U"I)EEjHYYzmk%o439fy)Gjf'1bA9'EWA/]B'pI1e:l:,Ir.20N)>-J:HL2(:1HVT U"XxA&CKRM%E53h(Q:QGU+dW\&N-(]sqS%-9.GQBa>9CF,,bHsWMYH,'3HBQV*pMZtU U"H6sep9k>7)5D0&1R-:DKzXV?T^7f.Bj4v4(BSVB4EvGswCQO84jEe.-m#kn\^^, U"m/DO$FeB()j,w8\'S?X;*3q0bXFqVx:FG$W1(cdlcjIZPTPEB6'H4LTu=)CEd<0 U"NEF6Yk_MXuh'G_\?Q1UL,5r9B>mAX]*iw;Pt$-Q8=:96u<&;1JqQ%(go(g2M$Q-Ki U"[5T6Pw#&;hX1x,h^gexQu['fHC_mWj4;XA,0pPZw'PbEIdS*<.SU8&04ADdr'\Y U"J5;J2lln9STmh9O-R[m6w[s,-kU'5s:QGRlAM1Y>Iq?0R2%aghSZ:PTJbh6rT:zj'g-$8_i]2?Re U"J:B&'uR^''1J*dHzPa0\;PY-V:f=%)ZU-i1d^)QmKtWTK^iGO0PvNM,d]/hOQTp U"vZ24p)q9SR:#i==\vFp2ax7_8R6KCH'b0q:VI7#VPj#e:<9Vqy1N U"I.;.0jX&X\k(P]A=tLul/hvK5e])<4G,t$NFrnBM; U"0:<7t<];\y6;5%r;Wi]^%0XEJox4V<>)G74,x6g=w=37hV]gBpWOq]Y^?tIh+sK U"4SGUL[gkUF4y2t/mSq)CN9s(AsaGBC-DJi/i4FlU5HQ<#p.p2:Kc-Hu;o8G1%aM U"zY%BsdFoEF[j.[yp:$oxdDJrQO6j?xs*Fr&fwE*onR-IXc'+f#M%7=ablBoT[4L U"?L0x9)9O.2MKcAJC1.[\%n=?AjRhdtrO02,-.fI>PR'PmOpZf U"5wj:[i>oXSM?*s1r]5UgVjS/wWWPV29H5i#ZCvg]BITTN;dK=#T8Up(/Qxzd_vD, U">A%ZM:0XdY8,]crd^>d]C':NlHj83NR^J1b15Sm4f&RQ(kueFzTGbHs./Aj U"40Y1/XLtQLn;0IZae8IS+I_Y[o/MXt_g5W[;Q[o/iThPI=K5[Kn.J#G]c(ag5i$ U"U6AvSx6O+kT5FqasAksw,UZC*GJi=x1TV14eYT.k=t-i*)JxpZ6c$]G:2nbdPjo U"hcCB0XbpWdb-][IzX=mi34DjijkU,/e=plA&OjMMQulh)Cg=qOt+JZsJZEqB?FP U"_C+F0JjYY.m5(EB/*RmUlkBU16G(.4&UIf415G U"_8R7aHA7tm]_PBXoa;\W43C>7jA-UFIN4f+Ex:w/u_n5&/__SPsYk/)s;?KZc1Y U"[7,gq=d-N^PM?4XK8b7ON/&7ZW6jBG7Lf%%ro U"Mz[f>?AX:(/f]AuVktC^=Y2fiSfVieRk+kV%q-#BHR1hxoV,QhsR,X,VqA&ypP3 U"V/oWOhw3wP3u5dP.XmGjXBUb'\;Lj&LQ?/J2ESW5YsUH%,ECeLVsydGB7Bc+/cj U"f+H*oM(J(&ffSe4b#'1)iB_j+QG*7?MazmwQiC;.lM?2Vs#U%[R_zNisBWmP.=sv=%e'2ey:D\Yj.w+_1#WcB)q=X[]=3AZID0C U"1HQ9rApr[D+'M5l)#ka38bhI5ibEbT^/^mZ7VyeH-a4p=;Ev?eel)cvc:=>3#Iu U"1Q\:ORc%+W[WRb9No1USv/M;,%e7pMEzR+)Nb%sR5qsVu[KZNS,J1qW:h$1?wi5 U"rg5]'_*ig%wyE*)qroODQ9yMcUmuWa'(JOO.p,A2ohxz>z3cmq)McM0Ywgx0i8& U"5;oU$[do%b#_[D*#Wr9]*kWjb8dc(^;2GNP461LS$5iacK';-HXk2;iG2 U"An-2E%5&**;djKbSevK?lqh=\QU'WgZ>U8 U"^w;U;o.1&sUg&S[Z+P1IJ85o/3qKV#+),a62J40h[+Df)lGgim/Ejqy_0/'aoV=Y#m(AD:s5'sUxs0UUilj4]KkNf6E#03cFk3GdEW9UAl;n98& U"P80mfy?p3;6(v;xvIwcH:PuQ1Ux)Q$*nqkEMG?/PWqV)Yi&8ivZT(dZ=+)\)M[D3/qqyfLs/4)%xVeH[UXyN^ME%qiZ&/(4 U"i,\Z'DcnX7:Gqdw(S8D'Oh*Msc.\tkEJ%9Tu>$MTm.u;?JAKq U"p>HZ?vAQ5k=q9=3qOI7tlgF:hY&(P5yg41HIS3^#fj5jPX2,e>z\S&Ak[G^%TzA U"lHw/B*EB[[qtOii5vvEId&RA;$vl;,S/Pv=Fqc-&zrf$u;i.)DXTD/YU6\Dpnft%;bqGN_;za4(t)U-U[z][B8bwHL^DIFL8c=;4lYlHQ U"t0&2)7d[D[Vr9&H7Mo\Y)ZX-87l?sf/6)\:I>PqS^?Sg2jCxs09P0f>uL:/%od\fi(m(8k=)Hl6ka U"+sannw544MrdP2%Niu1ZT\,V'IR;(3E1nd'D&4tx5c4CdB-OtYfpQA#AqWmrtaA86g5FU\'.OG?28p7PB U"L1^l.U=%9fUar&F(lP-BBZfK(=AixXmXX+Kl>DmN5c=]TZe91*>X>DCphNItc)>H=F./lOHJ*]IZ.be+)Hi&\N<=+SgBD6m,'r)97PJYSL'2om/=6 U"4Qd0X9UN']8rM>FfbDfe>vAb*=%DkYBpqG<'YZ_MXmmhQx\[WK\XtoqljR//)BV U"f/Y^gPBHk0hENby\NqbMP&ZaFIki[ U"HU+P/1&h-pSf,6++\.vEezP405p:y/iFza/K2cpAG,GXTnox$NMc[dg/5<-rU#-i U"Rt%4rn;s,ky8Igb[9TtL,2.<9N9;=em7elU>X3Bsy2AZV5Ds'R'MdoiwKs-q'WE U"1qT__y0?gLZZb9*y,UL+#uFe0:'gU7*U%*hwIa?Gp(Q3O5^dZkYSM)V;kn.\T-H U".+?sE1t7rWR_l1+N7]?atT;UG5)*9[Mfr/0RCm:FWeq U".)iF1jh(Do%KgZNE'WL9<;+<;(JK3[fd7^mczRQMK^TovcluCK_A)Icj$rSq-Am U"MyaBh]\0kw54r\;aio)Ki_s$3r8p<15Fd=y)]ZsTb9$:l:8( U"aX4_fqn=SBRTgkoq4AI-g0Oi+zgPCP&?3[nc?^XCFZ#d1>:;a;GDF26Uyg/4AYr U"Si2e#eR/53s3/zUy5/'Ib^=A3MI8fmYU&<:5dOz\-L2a9X,F./gVT3-qe,0Ae%#L6y5vUzt+r^i[()#zGq?+jnh+-MdK&e- U"w7:kf;,D3xwayJz6Nwlr^.QrU9Lo^,w6%7';L.AJgee]F7;A:ib$W.H9>egA)uf U"*%a':G9nXc_yEl%l_k5g/x=8kUjr3Db(&8mrUQm/8&4TC\cc6o,\GzrOqmy#FQr U"?qZmq\wMLT<]NPxY[i^RGd0ctql&6y7u%p&'/%%/%%%%+%\H(JI$[WGn8#*%%\% U"0%%0%%%%%%%%%&%%E%%%%%%%%%vkf%xyrV%Sgfx%up&'%/%/%%%%+%:FyJIpoZM U"p'j(%%'&+%%%0%%%%%%%%%&%E%7%%a*%%%vk%fxyr%WSgf%xup&%'/%/%%%%+d% U"$%I1IPSa)O](%+%2+%%%0%%%%%%%%%&%E%%%%'%/%%v%kfxy%rXSg%fxup%&'/% U"%/%%%[+%%)fJI4#3\e<)7%%d-%%%0%%%%%%%%%&%%E%%%'22%%%vkfx%yrYS%gf U"xu%p&'/%%/%%#%+%1G%IIne$'6l[+%%R%8%%0%%%%%%%%%&%%E%%%%t7%%%vkf% U"xyrZ%Sgfx%up&'%/%/%%%%+%%%%vk%fxyr%[Sgf%xup&%'/%/%%+%+d%4dK4IVPn+%aM%4%'-%%%1%%%%%%%%% U"&%E%%%%:%D%%v%kfxy%rfsS(y'yu%p*+%%%%%,#%,%_%&%%L%m%%%%% END SUB V2 CLOSE:IF S=250AND 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