On Saturday, 01-21-1995  Bill Parker wrote to David Noon about "Rexx -
Inkey$ ?" as follows:

BP> The REXX reference manual agrees with you but I can't seem 
BP> to get CHARIN from the keyboard to function properly for 
BP> me. If you have a simple, working REXX script that 
BP> illustrates waiting for a single character then please post 
BP> it.

Hi Bill,

Sorry, but I'm afraid it doesn't work. However, there is a REXXUTIL
function called SysGetKey().

Try the following:

 /* REXX command to test SysGetKey(). KBTEST.CMD */
 CALL RxFuncAdd "SysGetKey","REXXUTIL","SysGetKey"
 SAY "Enter some keystrokes"
 DO UNTIL Keystroke = '1B'X /* End with ESC */
    Keystroke = SysGetKey("NOECHO")
    SAY "Keystroke was '" || C2X(Keystroke) || "'X"
 END
 EXIT

[Be aware that the above was indented 1 column.]

Regards

Dave

 * KWQ/2 1.2i * Mobius strippers never show you their back side.
--- Maximus/2 2.02