'===========================================================================
' 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<lEj($DG&la+*G.;Dr536G;&<=G
U"uf)'U7s&)mLx&IcMIDf^zvffc^<7[w6TYH7>.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)DMgfx<eSwyBGCj/j46--5;=bz-]YgRLqn6P_Ch/O)9
U"R'6J:KnpGbPC:T%+4q.H8Z)NxU$3>0[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[<h++C'c=k(kqKT5L*eAQoL)3r:l_\B2TXz'*K1murOKP
U"5D\.jFi&,/o&7>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^<VtQIfwh6eJRCm>PEawX&gpY%Ve$2:
U"Gmrr;mXu6(GKy1Eq%C^5E?wwpv$<mdj-[+P32v\)_YY2BDapd#:wdoe<0rCF,q$
U"zA^h?\p2qZ:*b%MbgvIMf0KmEpKB$aoiSwf&5HC-YqfF9#LCg/$#j:jZb2k.t:.
U"^Z3S^-NdN,%$o3MOV/aF4'C.i7*KiUK:Fh[1;A.qY37?;+.8Y'0dN-]RTPu(f(H
U"[n,q#mc=pI1o]$0Otulsn[mr:nx?keR,Lnw8ZlBuV)a=a7GWH=1f&sV&?NxVKj1
U"SAIrM?Gb,V]grL0f3P$A[x2)AgM.Mq#<#=$>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&zL<oi^eTZB>Bqa[a^(k4gH=K6HZ>n<Mke^3&C\*+tB$%wT
U":yQpiJz3DV3gbt<hY[ST9dBRU(SO3f)J3V7RcLaV_wj3DaZ#QXlASHT8H*A^Ww>
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/g<Z9mz#%d]_r[nS7jxU*fCU-pAJhhKwld?b_Nc?^KBg)2SUg7,OV:l
U"(dAPhyp.d9qv;07m=_OtO#Q<MegtB;AJ;C3RIXan+0%inxKb_BWOXWm_Cis0]?A
U"6oW+$5m1,+wTw0B&=sf9;H1#<LY(O,cCq75$T5=TXI-9kTbK2X)b\ke)2I7pb/'
U"8^eZp+D+?t6*:Y>e7_Ta/QNik6l<YgA1nXhqNF2y5CSW472zQL'AKvP<$9/_V]N
U"-4O&DhGTUm[)\[3282:g5LUIuLJ6\73Jr.7]C)Ewi4<[$+S_GsrZ-%8q)\Yp$-^
U"1p?kTWBpjzho;,uS:k<[564J=1.FCe&EJ=igzwHag1VVY]/f<P9kq[fsftv6cUV
U"%UYI6K%7_8(w<<XFM98gH)nLK=c_73x<XsG1]qogXXlVWKu'uBaW#\8]il*OS.n
U"(9KAqcTI_4X.Fzt*?fmYb/*BP/=Yv3aK\qK=rvIpCpbS:f<1A;30&RIC1A-o9Zr
U"0Y]*2Gur+d3k1hedr^n\VD&)$1)hqS5,,Z4*AK8[+,eAJx^=?='G/?pu4FYHK2/
U"^n>jqB77_o0T2V&H;btZJfgLES^>9H?,ag#[GC_qD%(nU'jE2vS0osWlV=QWNfs
U"s7$Sg8U0Mk58<VAS8RuU+>_I:suV<S-NQ-rp01>9VrJBLJs%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<C
U")Ad#YLvp+QkvEz>:<hq6'EpNxg9*c;^O6YUs?$ZNCNgJkR'A<.Gdk7A_0&7YQi,
U"??pJ_[KqY)bN16mDNT5A:,IJ,?IO+xyAtWHHH_/Gcs7NC>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:[QF218ROI1LI<LjA
U"'NZ9DIV0M1:;zJc*N/6*OmscC:o:)e^eJm]FG<BObuRcEiGw5aaCF/0dkv'l?;I
U"-Lz83BPAVC;^N9oA:tp/+C>dlv]*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<QaoAr5&JZYc82jl3pBE9G944
U"&1\n/_c4v8Vg]V&jKg3<'sx<(6N$EFOKB7b&PTg-_ta989BwOC;.&5w,,CO6voG
U"Kx7q:^QVoZ*7RfV>.X]ELQqs,I12j<FOLpp9(eAUP>R%9BaXAD0<V3hKAlP$8dc
U"JpYxqc#%b%K-K$]+XQn..>_V%2/M#TIBH#4OQEBKT^?$4]Z+A\jy*9^jW[<l,X]
U"b-;zwS6-\7S;R[WDWOI4Le21wau0fMyI+h&n]&AhaA?+)2<heANBL.ZGw(JZHvg
U"TZZVels\UbgK6A\C8R]Fobb+'Vrds.c6(-8SotSX3/q-8[EX4P)'L&N-u&W&let
U"wP0>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;<wY*H9H$Jm*(^FM$]X8jj;BQCpx6T^BmP3+3x3-Ahqp\1^s25K#\Cfb
U"+?nYs3vXi.s$Bg=g?TveS>.:r9tj'uS5U[esmLKsTxPASyX;84>G)+Ic(j&8r:2
U"^P5QKneDUKd,8XMh>4pB6q(V9k69,=xLt&.02Feq8xjaW3v#Y<xs;ujQ;qk5W?C
U"C6[,A7d),C'D%hll)nE9Ts0WhHcVh/pa\x\U3X<U$B9_o[>0G0miKCz,*q46e=A
U"hBiLrX>e%Un4g<#\9vpAJS8<A&?G\=j96*9ZFl7BzTZ&y?Q=)T\+\eQ6;U8i-[S
U"MtjuHPeK_re=vxO%tW\Cg5Hf-c=VCo=IdZ^.P7=VVVcX_il<(XoO.q^90lW2Ze<
U"hIU_j90Qi>oDZ:Jj0PZc:%os=[w9N;l8I<ca^s[.>xsl'#9EbD1Ma^X/En<07RT
U"[D,7Rp\g4\_[QtEQ7D-_b\tEHhTFS$g*padtdN6)Sqod/'nlqQ%mrE<e#'O6SJs
U"ViNPd)^WcuW&SpGC<;pZF3%zelV/4SDMw*4>m%GH<_+1rFnH]nY^PzBI--:w9b.
U"lGjX:Pf4sm]IQS?X/ean^JF:[YsMdkt8$M<dG4%YtMcIXsq=Y^vl-[0XJCU6Ie?
U"Cr_18I:F+BE<6m$K/x*.F^s>dqE8jEs_'R&DP<(E*(4dIZDIHknFqDY^Smr<BVu
U"pCud>nuGUGC;\+z0c,654h4S.HM0);yDSmZsoFMJp^dsn[.EKdkvSwaHSh3EN,f
U"f&KuPBupD/:$46EcXn4.d>uk$/l;nY2m*OnUZ7-5GcjCF9M2&aNrird&=lL^mm-
U"3T=9VRF'&;,I<</_%.4cQDXLXT,S7Uy,41w6$4q&LZWU&2-4H)aGap\1r;&6KgN
U"<UhORSGd4mcu^6)?hqQgTwaV*K3nuAbF_ZAu8=$dG]]OPS$Y1'=8Cew/%s'B1qq
U"6UvN;d2ao$q7R8woY+sw7GTS4^J#1DsOHThLL=jbV[5pZB'2S[)dpd;F?Wi>8Jc
U"oAE#7mc]INU)'x*up%()9%%%%-%<Q/uIKnmF=%P/%%(Hp%%%.%%%(q(si%fSifO
U"yfl<,A\]14ixvODFgHWo$dVONg[2o0J2QDQ/](dJ9W]<(v\l5&smu^_M\Bfr8NZ
U"q0wG>;h]?Ph](vj[Ti*FxIpq*%TM,VMV/Rw(KQ2D>eVBsK2FU0tj%(jOL1;QJa*
U"/x6g>E]0#)bX<RgvNvu27\0tq30Ibuju7^6E9eBZ<:z[UW15q5)?fYG9'PiG^\)
U"fxM17_ljYJLB<Rl).1x=e8tNXm($fP;m&T)l4NOPV0r3\[BI9-.*Z&YIZOxjK/-
U"JjDqAv^cOx'Qt26CjGWdHM0-%JeevzC1YNq,+oIacZ5-=ybrUz\JlOcD.g%JwDq
U"eQVxjjQXefRUajG0CrfP,h&vt/P.w#V2tviKJDa.>rQC42.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?F<WWW<]1X)q)FNKe>4x28mUw'.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(<t7uM_6rRgBRj\9<ndT%q=r'LkfYvf29ACQSW21m3suwvn71I
U"q*Fc,[h<hR.[92QGOfx-n/:lVM'3ch'%'b:HLph3))8h\,ks$*;__::=/AA'B%r
U"Uc_%,64eWkH+\X;#i>#o9k0LVPs-=eqk$Fs&o(5ls_0TO8#X<)O<9N?xN)<BK+<
U"/NpRhL*$GQhKF+__._UBO6=)IsUykvj9cG4<Dy\li#Z'yiF#oZn>=7OKat0Pw[M
U"a+2hQ.&+IG;1E7HR'*s4pq<+b]-HG&]/;j<BmNKH9Tw<,igz1uf^k\'4H30FLrZ
U"Rw(&.RN,H5][,uP*kLo2(_RB?;5AH$8k^;TD:abfF7myaAm61uFR:SirWRf]U(;
U"tIc*n#NaP)4Thsh6#nw]V(PPedQr5>0YZPw04JVYi6>:FdYSu6H?2.kCmV_,Jg-
U":_f2XhE;);\S6C7iAeM9V#)JNLn,/q/E=7?;^$uX.W-Ab4xgFE#2b:d[KhcTp)[
U">s-TtwsUeb2s6fNu2bCxSevh0HUCUaBOUcNqpFIG-cMs<<dm18a%3iN0T.zY0<w
U"7wUHS6G=,cSky)O\BfLflmWckxl&GjoBYDmEQW/o(_R%q1W?t)CI/f(,fi]+jDg
U"oB6pi0gQJ_V9mm;V;Ng%lMt?mTaWe;jf%oKI<9znRfk._R[]ccj8)25lkhijL6x
U"T?0c5;po=[CUVC$Cs?IcJ.R99(go6h$uWlR45+%Gb$AGndk6Q95lRBtE;%fMw1f
U"2QdiB:cJr&)snJXzvue=Trof+D8qC1PHjMoZ*L5SIOR0f$VY;S5*+y0)jYN)%cC
U":$Z>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:oLk<v9#XFkY<A$SBAU8G&IVLs&Da1IPf[C[,f.bns9EsxVu1fz
U"rPOZ*yrp\8VZK*A9T%[;:adN#\=TSq/J/'k-6C?Xo0l%kko3BaTy'GmURq:0J4K
U"bWv,PTi.0V8vBQqU.G9M&sEc,r)u#'dj>jo/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<EbM=>=(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%<B$=CK
U".&7ACTxfNf\MojmXs=J4,WZJ30*'UQQbF$it>>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-JFkHM<Ubn)XgkBRrxQr[dTbv
U"rIARsAF=qpD#Pj-f,/JkR^hvPJ%HmlA[WtV6VI<\$<-k&OrlPsN)W&6<M8IP])#
U"+/I=mu/e2VbcN-8'3t[OLv\)?$Pe/#4%'nt4GL;ZgN,yhwfCTVr5c-/aoc768ob
U"u8VI6Nu5jo<477qYqwJlnd:;S-AklF3tOYYU#R&+vMd/^SArHZWYPvQ:7]qK8?E
U"&NjD0.XP)n^tQcT,b>QDd$Rn:,JvDrGqu8>rVXZ:MZf,Z.^y_jvON)fmLXKe8OC
U"m6[$,fDc2K]81lnN08El^]>el=&#;(YslT$TNkVo7<n'WchvH^qP0i8/t_^bNyw
U"NFYUme&$St,3QiH<HV5;Te/cz$:u?(j44Usk))T?Yz<'qFK3tRmR:gCNnJ\8(0w
U"d**o*9:VnMoHf)8\PCB\QqIc.Eyuk3\eXjMPVBvKjTAQ;fnj)4rn\y8vDbw(1tq
U"\Y/:kM(qCUvOv5gj*/8n.v^aW;M4qa#o2t8N14LBu1jdi\UL<5-4,dmlv^1Y0X)
U"&>5vGwdy^=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
