Craig Morrison wrote in a message to Jerry McBride:

 JM> Anyway, I have the .dll for freq/download if you desire a
 JM> look-see... includes c source, under the name INKEY.ZIP. I
 JM> have to warn you before hand, that this .dll has a small bug
 JM> in it, that doesn't clear the "keyready" variable. To do so,
 JM> you must first unload the function, then reload it...

 CM> Ummm, have ya tried "getting" the key that is waiting? When you 
 CM> use the "see if there is a key waiting" function it doesn't 
 CM> remove the key, all it does is check to see if there is a key 
 CM> waiting.

Craig, I have a rexx script that supplies the desired inkey$ function. It
came from BILL PARKER as a demo proggy. Here's the rexx that he tossed my
way. Works great! 

/* sit in a loop waiting for a key to be pressed */

call RxFuncAdd 'SysGetKey', 'RexxUtil', 'SysGetKey'
i = 0
do while key  'Q' & key  'q'
  i = i + 1
  key = InKey()
  if key  '' then say "at iteration" i "key pressed
was" key
end
call RxFuncDrop 'SysGetKey'
exit

InKey: procedure
if CHARS() = 0 then return ''
return SysGetKey('NOECHO')


Jerry McBride 
--- timEd/2 1.01+