DW>/*  TESTHOT.CMD   --  testing out hotkeys */
DW>call rxfuncadd 'SysGetKey', 'RexxUtil', 'SysGetKey'

DW>M1:
DW>Say 'Press any key to continue'
DW>key = SysGetKey(noecho)

DW>IF key='r'
DW>   THEN
DW>     CALL R1

DW>   ESLE CALL T1

DW>IF key='R'
DW>   THEN
DW>    CALL R1
DW>   ESLE CALL T1

DW>R1:
DW>SAY " You entered "'R'
DW>call M1

DW>T1:
DW>SAY " I DON'T UNDERSTAND, TRY AGAIN"
DW>CALL M1

DW>stack full message but I can find no info on removing the problem or clearing
DW>the stack. My only source of ref is the on-line info with came with OS/2 and
DW>what little info OS/2 Unleashed. Any help would be appriciated. Thank you

Called routines MUST end with a RETURN.  Use the command SIGNAL to
actually jump to another label, as in SIGNAL M1 used below.  Try this
procedure:

/*  TESTHOT.CMD   --  testing out hotkeys */
call rxfuncadd 'SysGetKey', 'RexxUtil', 'SysGetKey'

M1:
Say 'Press any key to continue'
key = SysGetKey(noecho)

IF key='r'
   THEN
     CALL R1

   ELSE CALL T1   /* corrected spelling of ESLE */

IF key='R'
   THEN
    CALL R1
   ELSE CALL T1   /* corrected spelling of ESLE */

SIGNAL M1         /* this is REXX's GOTO command */

R1:
SAY " You entered "'R'
RETURN  /* this replaces "call M1" */

T1:
SAY " I DON'T UNDERSTAND, TRY AGAIN"
RETURN /* this replaces "CALL M1" */

Or, replace all the CALL commands with SIGNAL and it will work as you
desire.  Try the following. (Unnecessary stuff deleted.)

/**/
call rxfuncadd 'SysGetKey', 'RexxUtil', 'SysGetKey'

M1:
Say 'Press any key to continue'


.
--- QScan v1.131b / 01-0169