1. SLEEP command
>--> 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
