QB/QBX Clock 1/2

 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)
Outer Court
Echo Basic Postings

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