waitTime = 10 ;* in seconds
napDuration = 500 ;* in milliseconds, whatever is appropriate
promptCharacter = system(26)
crt promptCharacter:
startTime = time()
loop
input characterPresent, -1
now = time()
if characterPresent then
prompt ""
input theData
prompt promptCharacter
thenClause = @true
exit
end else
if now >= (startTime + waitTime) then
thenClause = @false
exit
end
end
nap napDuration
repeat
if thenClause then
crt "Input received."
end else
crt "No input seen."
end
end
--
Regards,
Clif
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
W. Clifton Oliver, CCP
CLIFTON OLIVER & ASSOCIATES
Tel: +1 619 460 5678 Web: www.oliver.com
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-------
u2-users mailing list
[EMAIL PROTECTED]
http://www.u2ug.org/listinfo/u2-users
