BBS: Inland Empire Archive Date: 02-17-94 (12:27) Number: 83 From: MARK BUTLER Refer#: NONE To: AUSTIN GERACI Recvd: NO Subj: QB/QBX Clock 1/2 Conf: (2) Quik_Bas
Following up on a message from Robert Fortune to Austin Geraci, Mark mumbled: AG>Ok I have a problem, I included a status bar in my program, AG>but the time onle changes after I press enter. Is there any AG>way I can keep the time moving all the time? The following 'PostIt!' is an asm-based clock routine for QB/QBX that I picked up somewhere. It's one of the better ones I've seen. The asm source code and obj-file are both in this 'PostIt!'... ==========================8< Cut Here 8<============================= '>>> Page 1 of CLOCK.LZH begins here. TYPE:BINAA TLEN:3976 DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.1 SUB V1:OPEN "O",1,"CLOCK.LZH",4^6:Z&=3976:?STRING$(50,177); U"FGxR;A7ZR,['%%m['%%,&/vAE%&.hq%thpS%tgoV&yr%%I'i1Q3<%cPuhvx/ZSG U"*UDiwl'%:S)rCj+6Wc./#;5]w.W]Bs6]q3/6fE:+__SncJZ/YU$=J==zP8p.-96 U"Gpm)F>'0T$\m-9\p1;YtdHwvdS/w&O[Uj+d]=l%JKq*Kac_[P,aE,w0]k%XB2<< U"aN([kHRwI3e*%k*xb#+4,=fYcCaFZDhJTL3Q5?khGJ>.heSgSk'/-cG*8DCcy)J U"me4J3oePNrOKt3SYx?'bq>WmmDmMW4e%xP#(2w&sg401.Pgt9.>]Mal3-teaVVx U"ZPL/6:qMH[l0KC#ZEid8WGgnja>LB,+;C)Nl4:7lqFW6fReqd<Lm;*OT=(wK8*n U"Q)\x=rahl:AlWeHS_lk%OjOB7L\&tEZFeq41:R5p9?,p7GDe9hTR*LIO5M9jzHZ U"O8+FR';V2rOfgtjGKKx']*5Pe7uz-*>w:V\+Wrx>\QX[\/9ON,j1<pF^vpSq1L2 U"4Vs(LPN<mCK:e3kX_^PwOXT71=g^Us4*fnf<]T_;Tuns.oUA^(H(/-;4/.'jZL> U"9T.ES#=DJ#Zw[M)3Mb_vjk(u$d(E)y,D^9q%thqc?6/\NmtITq1X8:R7:;S#G=) U"L4MgJS*kO](mY;o3/ZkSQ:pYCc58UN<BZ>2doVG:GzL<]F?8VG1Fx5R_G:9>8O? U"#V2/UfVkA<,]+\iF^7mqmfBsvPkG162J8$lIghC$(NpgMa.'dF$+gR?:qGSxq-g U"5:C>%m[h9,P0kRDO=/tt=JC485fNho5(.ASAj5d4pq4E7;GFR);7ZR'[1%%&P\% U"%)l/vA%E&.h%qthp%Sfxr*Jfr%R%-\Jkln</6npm&=$v<(Pfe*tRLQ't)tPGz2x U"+rsN+tW'R=hAn4K68lECap#W:Tu<?xxWIPcUXsebnsLPaDwQ$dGUX;?01L5-0V0 U"S='ZOfV#EgTiBf2)<utdQob>gDN;_UWwMH2X<V5-=9vDsrTnRep[ZpEBmdt6Z*W U"uNf4bX4-&mj.]WVE5MWl?f[1l1T;tKG5Th8\vlfuCfs6LuZNYr:9M>,i[;&t8uM U"\G8xdrL<m5#oeH)7CdJnU<<mhV$Eht:S?-lkxMu1dhNx\Ir[rG[j(lWRft26emP U"/>YtTa-8T?b7K5cDs)RpH\AMr,uHv*Hib'JT<*EbSdF3g([Qt?].3/F+Ld3*VZ[ U"i7m_&VLoHNm]6Rmp_?ij.)Ze/$GuJ+6+CNf_\y+EQ4tkfg7UIH3svfB.X5K(T/K U"1r[KzIMEW21fUw4GQ*>&Kq9A]?HZuAJOhp0[N'KDuvrgHh1bT:L.nd,_5h<cDZI U"XXKWLPiIp7GN\Uc5x:#0wOJKYRZ+-xqIsr>pnij>ja,WIg7?eQ=mg^#BO<ejB1o U"U/Vnu6F>)Zw/$Vr[AwifiZ9I*iGMYKJ0Kl3)W[<ivpJ*ab$ysrIDB#8GIc8>RP3 U"A(Q'AQ+EmQ_u^3T/&6VL6B[9$)MK)8kaG^'ZOp:][UGH'..0/Y'N;HO1Z_;q U")=;<aV4b;^_g>X;b>E<cdZiF_q?:N(G5ThIJPwG3Yg?AoYd6['3i)&l4JxJPy2? U"ii/C58R,ot,NFN[GFuQ2nbo(:6&>BXk_%zigR^Si^*6Zi\Pex5+5x&/rlgvok[X U"vXkOFp$jE?zMatC5048hT/t<BpButv7wDEM0]oR>ihtEtwP*qp2t1FjXS/[SI0H U"^\c4^k],Jc;qmJBYH9zfP.73KsTb[HiW+fCsbzglSuw%qz]Z8FHapJoq/qvZMF; U"Fqw0t5[RzDVabf7)\-H4SdUacTmI3QrF-'25Z+iMGIga/ShoZd##DY58uYS%0q] U"mpe/ldRL7+\k%48;QX\&t)FOz5<%?Y#Y%76HiXi&4B_&Y-n$;5N1eTb<Rn-UnJP U"0[o?jC1/0$4Q(xQ-(bpPTswHDeDJlX,Jcp<6UGeFZqK3I5a3I7E5,TF%ToERqbs U"MhY8AhAF/7]zP4%7Vn*&mA#W9eoT8[uQb[;4#<w)9/#?+mi%/LE?'yJ&8k5s+ U"UZ/:9D$G5OOCcJXOA#RAIk4i]MygdWZ%.'V5:\F-jjd:pjMe#Ba#B,[^2':K;2O U"[[\WI_1T8iasMMeAcJW.^YDXY\EgxAx]]a^e+Ek;F5VgHA>8&rPCaGs&Ft^W)+. U"=2t4:K#:Wle\u_R7;:tzYI%[R4JDFyiz2N]Pz:^XG/LO4g=f(TZIxpwy-i_4L9d U"u>P\ZkT.^m?rP3El>)7]55;1%SHH<ts0^1GWI.65jOZ_moXtPgX*rO107DA$ucs U"vYo8WEk<pAXx/&%p>5B;\764?-mLKG2Mr[uAh-<,;2IT&c*E>?jA%_E^u?3>\,8 U"u23(:=V38,0)7Me&eNg\A7]SCXP1D$'Sn;9*7*0udX*Y7yk8;[-ku#e^umL45hg U"9OK<dT%E%&M(=g5C>XWZCE=2Y7?<.Nf%*04AH5JMP-ELIb7y0NRibo+K-ZLD;>e U"TpLh2^s#N=\&hAUo].D3Q]\&A,N1%;1-Afo8\>epHKs]qtAw^*yZJK;p/,M;]M5 U"#k[yG<UM/dD-tJ(Y)KUtO0<D0JSVT+UUVwj%\qg*r.]QR/\w;:cxF-8L9$h%Q?v U"k$I?+gU+LW9K#V[1tIq[>i+PqH#pUNMHSYk'nRVw1_4XpfqPtD>yaDSwx>d'v2( U"VNpq%;GYNs-7d>*.iv)(T2o*_.Im>Cuu?olF%_h7=V;BlRj'XV3jOFr_$8xD^/' U"#-8F*d4Gg>kS+95?dSV*5)B#).^q-tsh,$aSLDGl3X3#%1=VjVKg.f]OY/FsYPF U"ti#(bBt-rXP+7-Y#+'E8M15';1%]RdlB0Z_iH7$Fuxa.2:[4QxF*NQFku'raL9N U"A%XJ4J.5*mg5L(=fdHknO^2%_Y\qi4Ew].jX;Q(0G^UB_b1\#&+fEJwG+]1?Ay7 U"m&0IBGqsPZjgLJ4OXYhZ[*&_Y%e4iVhGRX.3PFFbvA\25L_'hV_nOU7=g-(bYB^ U"P,kH(?Fc=J<ex(^l^N+CR9^Ul(&ySr6M(&0&d,ki3^LxY]^Hak=F=4/o(Olm>S= U"q=G(FHU58<6\Z]YA>tY[zeLfqGRuRuyK[iS(5]=ab2[5Hqiu/4OXzcdFP&FC3%2 U"bgj]Ud6YNDGh#Lv)(Eg<tJc<YoMQFODrp,V#[F'sSGhI7(vMO3*z&J*6js2RT?F U"bFszkePnWv3wk8s#pkQTqOv[dJQ0Ry0eA^?RDsE9S(J2ioK]uu+E-\Jp^WLLZ38 U"UFh9(]fbo]yGHn1v=ebq%_G^Ca>/m>_ejy_E82Jhbf&L>Y/E$BYhh5.M'&VXG#0 U"miWteg<.jQIAxLNgS?zBl_Ck=Ow0hRG.v,L1iTwnv5p*lHATbGBv]yUN&n1bwuC U"$gsNuI:6KUX\:*L7snLmZ2\trQ-lA&Cd,.Kg^aM#IBn>*S4bM358ge=hX6.]T/l U"d%Ac_h:Y6P-l)L'u^0Xhr<9;gVT2qG:LhS?R*RD1'R%]u1<KHR,A=Xk7?[<E43^ U"ML2;OLEck6K/#nIN*JGTOk0Z1QEEnfaEHeGi,z4Q'l$JWrvQXQg>[j/>pEAOaY/ U"RBBl)+q[g(CWrwaOBVDU2=$*^5T^za9Zus\TH''8Nh=0$2<&jfz9'cDCCIM1h/Z U"cOr(;;*3KBAbH5qbEG)X^f,[d3iq#B<n]G[lU]h3K_2G,Z^<Yu'WKL6+;T5Brgn U".^P1ZZA(UcKrO2'HJ,FjCF,AkM:*>'+A]6TL#Aks>'T6g=b0$u$eqXT9j^86$9> U"5[,8U:Lz:6dGt]DexB;iz$c=)?a<>TjF:%)V3IlVM*X,&<gU\d7oqgX7i-S>2;$ U"^HS?9o\l%MP9EK.4i^-h6$kTIjoew)L]2TQ0.RbKdb8d?.uUG2lqgwZFEYe*bKD U"L*/6FGotF8ST%BSXR;'7VW]R/r_+8G)^na#$Cu0P)Dsyn>e/a,o&pr()Paz[JK] U"4T8f_e)KYsNk_X-)%sv6A_1vbuY6%%s.j=W-rtL;icpV4:uDCX*N<^[q1ml+)pT U"#RSZCmMk:mbKHo9L2.,<dq*)75l#O^dV2&PcII&W6mC0hPa#>_TZ/eQ[m3Er:B? U"+D?]Ba9h\Cs$]:IPP]SL8_T81PL2<Dv[P>x1^9Ed4p^4/Z-eD)j2CH;<X+tZl<h U"SWLvGPL^Y9Dz5YaAUA;V%0ImZUiw.DM^Md,O>xmYHv<lnoHQfw:H1m9]u<F#>q7 U"+[]p\XYB,=Lh/Y/mR]Hp<j3,*RPh4qx6G?uLVBF)_?4D,*keeIT%=5=O&LamtE3 U"(p,1)oPnls1xS(azoPF;G8A#Q'_tHDcXP<KpHXkKdW7$SYhx)pI%V&b5.On37)O U"W$A/zf+/efe_c,4kg.'-]dYQernbe$?JVTU<A6Gm7u^H^sk6HGikk'nCP;2ST7f U",KER*9Z*&w-,zL/3ufmO(vle.e5k76QAX0+c]ciIg\Qu(6SSTmDgE2+OclT^?+R U"ID-<N=[C825M,k+Y:GmXr3*1080kkhpj'q6.&G\q+Lx8FiW<'X/\.*W+>HoqK0C U"e0^R641HYInPPGJtwMAbT;O^h2fP'Q9B+95%D?]O$Im.GMdE]k9duh.$[*a_EyI U"'JFb/fk$FQ]94+mI$TaC-G>u%[(acD;aO%f<,'d2=FbYa?[IK?u[A#Lssb>L1)U U"d<tU3NV-pS[tQTB59;x9FifPvG#(;BJeg$ZWWHo_sf338OX2<6J.$UmK_er?La1 '>>> Page 1 of CLOCK.LZH ends here. Continued on next page. --- timEd-B9 * Answers: $1, Correct answers: $5, Dumb looks: Free! * Origin: MotherShip Portholes, Portland OR (1:105/330.5)
Books at Amazon:
Back to BASIC: The History, Corruption, and Future of the Language
Hackers: Heroes of the Computer Revolution (including Tiny BASIC)
Go to: The Story of the Math Majors, Bridge Players, Engineers, Chess Wizards, Scientists and Iconoclasts who were the Hero Programmers of the Software Revolution
The Advent of the Algorithm: The Idea that Rules the World
Moths in the Machine: The Power and Perils of Programming
Mastering Visual Basic .NET