OpenEuphoria

SLEEP command

• Posted by Joe Phillips <bubba at TXWES.EDU> Apr 13, 1998
• 736 views

>--> Any idea to have such a SLEEP command?

Actually, it is done rather easily. (the key is returned, if required, with
the help of a global variable or you could just push it back to the
keyboard queue.)

include get.e

global object key_pressed

global procedure sleep( object tm)
object k
object tk
tk=time()
k=-1
while (k = -1 ) and ((  time()-tk ) < tm ) do
  k=get_key()
end while
key_pressed = k
end procedure


--[ Joe Phillips, Assistant Director
--[ Texas Wesleyan University     817-531-4444
--[
--[  "The tongue of the just is as choice silver:
--[   the heart of the wicked is little worth."  Proverbs 10:20