BP> Thanks, Phil...but you do this with SysGetKey. Someone here
 BP> claimed they were able to make CHARIN() operate like Inkey$
 BP> and that is the example I would like to see because CHARIN()
 BP> doesn't appear to work that way on my system. 

 JM> I haven't been able to implement an inkey$ function in 
 JM> rexx. I've tried charin() and sysgetkey(), but each expects
 JM> to see the enter key pressed before it'll return to the progam.

SysGetKey() should not be waiting for the ENTER key. The REXX reference
manual says "Unlike the REXX CHARIN built-in function, SysGetKey()
does not wait until the Enter key is pressed."

The following seems to work properly on my system...you might want to give
it a try and let me know what happens.

/* 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')

Bill

--- Maximus/2 2.01wb