OpenEuphoria

1. suspend

• Posted by Mathew Hounsell <mat.hounsell at MAILEXCITE.COM> Sep 19, 1998
• 712 views

Alan this should be faster

procedure suspend(atom seconds)
atom t

        machine_proc(38,1000) -- tick_rate
        t = time() + seconds
        while time() < t do
        end while
        machine_proc(38,0)
end procedure

In-lining it will make it faster too.


---
Sincerely,
Mathew Hounsell
Mat.Hounsell at Mailexcite.Com




Free web-based email, Forever, From anywhere!
http://www.mailexcite.com