delay()
- Posted by Michael Nelson <MichaelANelson at WORLDNET.ATT.NET> Jun 16, 1999
- 384 views
------=_NextPart_000_0022_01BEB7DB.586FDF00 charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable Coded a simple utility that I miss from basic--it delays execution for a = specified number of seconds: global procedure delay(atom seconds) atom t1,t2 t1=3Dtime() t2=3D0 while t2<seconds do t2=3Dtime()-t1 if t2<0 then t2+=3D86400 end if --midnight wraparound for DOS32 end while end procedure --Mike Nelson ------=_NextPart_000_0022_01BEB7DB.586FDF00 charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable <!DOCTYPE HTML PUBLIC "-//W3C//DTD W3 HTML//EN"> <HTML> <HEAD> <META content=3Dtext/html;charset=3Diso-8859-1 = http-equiv=3DContent-Type> <META content=3D'"MSHTML 4.72.3110.7"' name=3DGENERATOR> </HEAD> <BODY bgColor=3D#ffffff> <DIV><FONT color=3D#000000 size=3D2>Coded a simple utility that I miss = from=20 basic--it delays execution for a specified number of = seconds:</FONT></DIV> <DIV><FONT color=3D#000000 size=3D2></FONT> </DIV> <DIV><FONT size=3D2>global procedure delay(atom seconds)</FONT></DIV> <DIV><FONT size=3D2></FONT><FONT color=3D#000000 = size=3D2> atom=20 t1,t2</FONT></DIV> <DIV><FONT color=3D#000000 size=3D2> = t1=3Dtime()</FONT></DIV> <DIV><FONT color=3D#000000 size=3D2> = t2=3D0</FONT></DIV> <DIV><FONT color=3D#000000 size=3D2> while = t2<seconds=20 do</FONT></DIV> <DIV><FONT color=3D#000000 = t2=3Dtime()-t1</FONT></DIV> <DIV><FONT color=3D#000000 = size=3D2> if=20 t2<0 then t2+=3D86400 end if --midnight wraparound for = DOS32</FONT></DIV> <DIV><FONT color=3D#000000 size=3D2> end = while</FONT></DIV> <DIV><FONT color=3D#000000 size=3D2></FONT><FONT size=3D2>end = procedure</FONT></DIV> <DIV><FONT color=3D#000000 size=3D2></FONT> </DIV> <DIV><FONT color=3D#000000 size=3D2>--Mike Nelson</FONT></DIV> ------=_NextPart_000_0022_01BEB7DB.586FDF00--