'=========================================================================== ' Subject: FAST DRAW: SPEED COMPARISON Date: 07-28-98 (09:40) ' Author: Edward D. Collins Code: QB, QBasic, PDS, PB ' Origin: comp.lang.basic.misc Packet: FAQS.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"SPEED.ZIP",4^6:Z&=7427:?STRING$(50,177); U"%up()%9%%%R-%4a9uI>v&2Y'/7%%)9%%%.%%%%xu%jjiS^y'y.e'p>U7]770EIN U"MJDPD'C%9d7LmV+,T3*ls,2Xl##X#]Ae,y4>xMsUs)n%3lTE0yMDf0VVVc<'4/p U"Q$nq6cn$l4D5zTuYi3cYc(YyJOp6[H/Z5M]:Wbw4xTtSdzzc'TwZH],=)0PHhSK U"+8OW*UQC'YTO/3k;Nx<+VOc6r,QFWiq*OpIN.kW7TX)m(LhWW6T\F4<(]TV-n:Z U"o\\##hHe6,Ar?g2;C[-8E[),7V'KTOc/JfedAyI2^i^[C\vu%U](6'2/>P?;Nl[ U"mq%GIm%7'RMC6ZvCcr4S?4Dd&ZL.u65lc?9':XHBlqTI:i[ktb)&mm52mQ20dQF U"p^HI,Wc&(F#llz1HQQJJEeg2gMmZr[Ip>veb%1NM]MHw:ynm6rS:P'fOURarbl\ U"NjzkQUp8FlE,]Z''BKRH)DMgfx0[SD1RUwBCF8MQ;u66JMIjQR$)s]Lj/ac1 U"7xv=n,#\.A>]D,>0<=m(*U)9d:.]?v[I.EP3?s-TUj%b[$lkim^tmZsm6rsW'4; U"9juidusLctTbU2pm;/xs03&y;Qi+yd^dik;pCX,?K%jnuSpJ)<0$FgL=f%WrlW0 U"p$Un]C^s4gR_=*cJ'256._+IoMfk-pJr=;3Y9+]GQ,xP_rr_/)&+vvPO^kq&/,l U"VPspt:bL9n+ALdXCXA[k8u/.$iY)lqvvdC#P;mIbsof:Yu&*8(gKy1>*4MfiDulHtd$' U"V/xSOM;6yTf3JD.&2ImL7Qn[S:[HOnOO)bEKtr+a&ynuyMknn+/V#s%g^I,K&9& U"EzGS+N)(Fq9jkV?s845O3B9Zt))$=R(/OcHua'5bOt4C%k974>P[&QBMERrbYAS U"xpFL1ihdHFhPZCM:,AL8y_HwA\\)%LjUa\dwBeF.qZqxj,[+oaubu/aFIdC0oBh U"pM]iO3Zv/c^G9BbzWmUTa<5sYR*I77_0mIo]X8WS=auCi#Q]N[b.0-%Jp.zYc\E U"3rtElvf'+nglf,&;EbQeK()ZSkc8Q>K)^UfIS4o8exWFb;07jq4iAWhR$S+bBb$ U"JRTnMr;z0$f].H,*]qz)I1N)znufDV6F^hy,MVp)&HPb_sx:bTtB;c/+RP,,1%B U"&4bd)RQ#FL_UWa.PF-XlQ=KPJ4293Je.mxwAvMQk/p=NdRY-sTL6.pssjj#l[:1 U"z4Xr#y0We]dz1\jbBy2*/taDJTLGX8o5.VG2Qp&BPSZ+(QDjSTHMm'YXhuD1dls U"2Nsv,_M3V0]DSvBZLXX+zXE1B_2?drje;cTVJh2&M)n6O)0%<5iQQl*GUdr1f[) U"w=WJ?X'PBJ4NR4ms>Rm*Ka3LVg68NgXSsAzHTpGBwF(+do^egNYtlaZ#p/;<*PU U"D+49>;VzSs9LI191oOx*Rd>MHh%2+4;9kNpff^D]uVQ8d^Ijv$CC_?PSciF=Sbn U"6:U,Q9\/f$;#:w-AE/6qsT>$)<^b6M\N^PEawX&gpY%Ve$2: U"Gmrr;mXu6(GKy1Eq%C^5E?wwpv$1S2chaQqR\27gPreoa)gZlU;KS+ U"SB[uo;a4waav_8r7QtRVf:q?JJ,&FWL>,jJ^aI0ro4sj^?=d]?R$h\S&x1k6Wjk U"bd^cenYB16PLNkknmpxwCt3/&lle>NnjHLNht6wroL#KjM$$6CacuE;wqmi=q5B U"su]ALbcna:(tk0ePn4DEzs]hZFv\uk,[uXrkmN6]f='*vnBbYHl3GAJ[anT8RWk U"-v>x].dN-Bq^/IkW&zLBqa[a^(k4gH=K6HZ>n U"jH,oLPRtkPt7wM5$cg#IUxgPq$qvZ5I+cpdK])B%ZUAE5g*rv:2fN3_bd#QTskj U"36j'U[k?HAbThgjIi+vF&=,PRa-Ta/Bc2YPZ=(BAZQvD[I#'=pxrfpw7)8=Na7Z U"HSO#N#=KGyoZi1kIy[Su2JzTAx)V2(mTsr#AFsj\Bs6i9Zx4mMA9W*#r%0$6)V5 U"I0L2O9H0/ge7_Ta/QNik6ljqB77_o0T2V&H;btZJfgLES^>9H?,ag#[GC_qD%(nU'jE2vS0osWlV=QWNfs U"s7$Sg8U0Mk58_I:suV9VrJBLJs%b-p3iI.g+,2]>]A U":k&2,_sBKRr9BEBS/NZ,f)ipN]:4pbOjhK[Ho&>up(%)9%%#%-%$,auIZBPlou% U",%%Q%8%%.%%%%x%ujji%SgfxMt'.>BT]7N:4_hUCnPpQL_Yd=r0X*4l1M#/^css U"/NGqVJSrJS1LH$)akY%fvBe\Xcm9$:nHSM4UjmF?w3u5UXX_1+u==:wI$&TrZpW U"Q*B;BtVcfuGbiKqttfIO68ctg[0VhlRh%QVCiy\CH52M^Ap&BJg]dO1s48;98:h7]C7#L3FF_175Um; U"v?(r#2c8GG]uGOJ;gP-h9?4'950kQ2cw[HE?y)t'6&LD\s:^14g]Hlm5&Uqg1&i U"G4N&Hu,x-3/KJ5>9(uc)LC/X4wXYKHd4s]eGuq?ZjGXJNnUok12p*nEsL1/I_r$ U"Ge6VSTj(0YF15BAjgeKC+%rCJW,pYA*A#L##UqbPE9+a9an#Ek(U9%.0.7NZ$e' U"5f?Qh.gMtNqBXSW%?YC?gx(w^m';OMU3dkUoAXhDHJBn,HPJkw>kuV*EIXHWXH8 U"oS=f9Z'c5K22)94j&2Dua1[73'b-9P+w*.+oPCv;FL\5wk:[QF218ROI1LIdlv]*ykGp,x.*6pqS;%y)w(#nKY9,vJJWq4&xjem U"8T1e=N>WP.Ev24+m^oOJp0Hgm:CPj'Z;YZpHf=<.)fB=*1JE#)-iis+iIn(MuO; U"uK36Y]nj(HRWBY?uqg]mue]ue1MoB^r2iGg?Y[qd9qav=]U5rB_xVVUZV9r?O%u U"?IosXlEE#nKb4>=vH:=.H$q[^8h.lQ&9T6(At1d?/o)xPgS::-9w>pHB.]G#paF U"W+&9r,;*[I9:WcW.qRYR+ivKImAt)-DUFIA8]3.X]ELQqs,I12jR%9BaXAD0_V%2/M#TIBH#4OQEBKT^?$4]Z+A\jy*9^jW[F.OO#4z)e_-rgQSTh$L5FBJ.yBD-9),x<%SKT9l/)?$a2iZn&=;VYVB%\*s U"M\CLfa*K/Gl>K?PlBx_Y0ljJUN5f_G9-oq_&H,?fdr;Sy%gNFRVg5>-n-VRP4\j U"S:ar[En;.:r9tj'uS5U[esmLKsTxPASyX;84>G)+Ic(j&8r:2 U"^P5QKneDUKd,8XMh>4pB6q(V9k69,=xLt&.02Feq8xjaW3v#Y0G0miKCz,*q46e=A U"hBiLrX>e%Un4g<#\9vpAJS8oDZ:Jj0PZc:%os=[w9N;l8Ixsl'#9EbD1Ma^X/En<07RT U"[D,7Rp\g4\_[QtEQ7D-_b\tEHhTFS$g*padtdN6)Sqod/'nlqQ%mrEm%GH<_+1rFnH]nY^PzBI--:w9b. U"lGjX:Pf4sm]IQS?X/ean^JF:[YsMdkt8$MdqE8jEs_'R&DP<(E*(4dIZDIHknFqDY^SmrnuGUGC;\+z0c,654h4S.HM0);yDSmZsoFMJp^dsn[.EKdkvSwaHSh3EN,f U"f&KuPBupD/:$46EcXn4.d>uk$/l;nY2m*OnUZ7-5GcjCF9M2&aNrird&=lL^mm- U"3T=9VRF'&;,I<8Jc U"oAE#7mc]INU)'x*up%()9%%%%-%;h]?Ph](vj[Ti*FxIpq*%TM,VMV/Rw(KQ2D>eVBsK2FU0tj%(jOL1;QJa* U"/x6g>E]0#)bXrQC42.W$39MKNbdWx6^6E9 U"T)W^DS3A;VRj0cpor1jNsET^kUZ_<)rkq-GdlRj9o/ll0g.$Wiht,eP)tF:QvX8 U",#?+4:kRbT[D)rNdetkxk(Q^2hz?1l%hbZVbnuXRY']sk33f'-tiA_\7/q(a;MU U"_Vl,2lYR7=4)cI=jN#;O:QhpYL:l516/8?N&5X(>n;8,dIl&E_n*M-r/h-Ej+z% U"=r?F4x28mUw'.Ak++9.SR]X7Lge]+1oqGpFp0vl_bpZ/hCQ U"'Y%BaHHx)HN*sa9UA\PE>3H;nr+h+;Hk/?]f_i#<,xe^]QVC0MsV89A=)Qfo#[Q U"/lkV/MI;;.Jb\ebZM_j/rl?7%1SRqP0PJ3&0B<)'EPYCoS8e3.#>/$p'8q/i;Aq U"2%fB)lube)hFp,.J+SFS(odGHESQ9?f=fgG2hOre7=dJP*e5lwZJEqwT^NLi2mP U"BY0hR?aCj]h5J(#o9k0LVPs-=eqk$Fs&o(5ls_0TO8#X<)O<9N?xN)=7OKat0Pw[M U"a+2hQ.&+IG;1E7HR'*s4pq<+b]-HG&]/;j0YZPw04JVYi6>:FdYSu6H?2.kCmV_,Jg- U":_f2XhE;);\S6C7iAeM9V#)JNLn,/q/E=7?;^$uX.W-Ab4xgFE#2b:d[KhcTp)[ U">s-TtwsUeb2s6fNu2bCxSevh0HUCUaBOUcNqpFIG-cMs<KPi0.*J\gU4Rg#*:&FYt]jb]db1to\R1:Da\[5M]TXbNZ_>^'Z3*fJ1kv>v U"\e?M9AFQ&H?g]D,;6F#l/[9cks3OnZUt6(N-\>sCt(Y\cT'#2yo*tQsVrgF0-PM U"$cvsmA?6wp7k:oLkjo/1iS:%vD_j,XZmT/R\tVoR](e(]h U"AY72V(.6B.&QBp6TETDSlfJ8(e(1EaNVas&n;N(^gO8QHDdldrsjVMY(.*2CP5k U"8udY(hSuct>9I[IH#8_V0i4D+C8v6T(5jjRJ?tK2Vm>ZGLF&d^M[uZv#_IE+W)E U":Y^t>B1*#[\y/tV[Itd>-#HMt\a$FlUQN2e1Bjtw_oIc2;n-hda+=VLLDd?R<-9 U"Lf0ko&25ROic.GPNV&rbsE+M8Sa;fPduJ&<5yGJSM-K\K*BArv>;nzV-.6EEC0? U"AlgMT4>G_u0E,RGz5=(00amh>]r2/'MLQ+lxv&$R6FLAN3\LC'a*7?xhJ U"0EV$RWF::h//G%%Io[t[)$B]6]'9spaQ4kCWQ%IQ6&6vN9'E$mbR-9rhUc[mED0 U"o;v5c>rQJ(liv80XhSOaWTN6&4fk+4vGP]7Zd1\W3HrG-s5=;1rFb_ij=k3QqQ1 U"c/EeY=]l/=:7hq<7=:'^hGEN/I4T_[^kqcuI2Vc/m\/4ZNp#([5xaCio%>7C)lI\1bcKZkjuq6aU;BP7,G' U"62aJ>y#F9ZBtw':ifL?b;p5Nj;:d#pHpOc*)4TxmpAa:eU,/b=kRPP,=uke_jlu U"s.nu->I\W38im0z4PQZVwa[c5)8*1(^pq\VLcG9;015;%#XTQ5#LHml=;7w_DV4 U"iAu=/ucu]S5$6V[gPi>bSVxX0%c[^_Jl?Pa6_t-JFkHMQDd$Rn:,JvDrGqu8>rVXZ:MZf,Z.^y_jvON)fmLXKe8OC U"m6[$,fDc2K]81lnN08El^]>el=&#;(YslT$TNkVo75vGwdy^=Q*P'a]arJ2t;9zd\fe#Ep310n4?tX\D%up&'%9%9%%%%-%<4auI0> U"v2Y%'/%%')9%%%.%%%%%%%%%&%E%%%%%%%%%xu%jjiS(y'yu%p&'9%%9%%#%-%$ U",auIZBPlou%,%%Q%8%%.%%%%%%%%%&%%E%%%%N/%%%xuj%jiSg%fxup%&'9%%9% U"%%R-%Q/9uInm)F=P/#%%Hp%%%.%%%%%%%%%&%%E%%%'o6%%(q(si%fSif%yup*% U"+%%%%%(%((%t%%%%mA%%%%% END SUB CLOSE:IF S=170AND 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