Friday October 21 1994 00:55, Donald Woolwine wrote to All:

 DW>  Hi I'm real new at programming and  am trying my hand at a
 DW> writing a few REXX programs. I have seem to run into a problem, I
 DW> think. I am getting a stack full error after about 45 entries
 DW> into a looping routine similar to the one that follows.

Your problem is that you are recursively "call"ing the routines
rather that simply jumping to them (using the "signal" command).

Re-written (and optimized a little), your program would be:

/*  TESTHOT.CMD   --  testing out hotkeys */
call rxfuncadd 'SysGetKey', 'RexxUtil', 'SysGetKey'
M1:
Say 'Press any key to continue'
key = SysGetKey(noecho)
IF ((key='q') | (key='Q')) THEN EXIT        /* Quit option */
IF ((key='r') | (key='R')) THEN SIGNAL R1   /* combined for brevity */
SAY " I DON'T UNDERSTAND, TRY AGAIN"
SIGNAL M1
R1:
SAY " You entered 'R'"
SIGNAL M1


For what it's worth, there was no clean way to exit the program either.  I
included an extra check for a "Q" to allow you to quit
gracefully.

Bob

--- GoldED/2 2.42.G0614+