1. 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--
2. Re: delay()
- Posted by simulat <simulat at INTERGATE.BC.CA> Jun 17, 1999
- 384 views
- Last edited Jun 18, 1999
------=_NextPart_000_000D_01BEB90E.651E0720 charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable Thanks for the delay Mike Bye Martin ------=_NextPart_000_000D_01BEB90E.651E0720 charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD> <META content=3Dtext/html;charset=3Diso-8859-1 = http-equiv=3DContent-Type> <META content=3D"MSHTML 5.00.2314.1000" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=3D#ffffff> <DIV><FONT size=3D2>Thanks for the delay Mike </FONT></DIV> <DIV>Bye</DIV> <DIV>Martin</DIV> ------=_NextPart_000_000D_01BEB90E.651E0720--