Hello Donald,

DW> think. I am getting a stack full error after about 45 entries into a
DW> looping routine similar to the one that follows.

You need to 'return' from your 'Calls'

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

 /*
Put this top bit in a loop so that you always come back to the top.
Use 'select..when' instead of all the 'if..then.. else' constructs,
its a lot easier.
 */

 do forever 
 Say 'Press any key to continue'
 key = SysGetKey(noecho)

  Select 
    when  key='r'   THEN CALL R1 
    when key='R'  THEN  CALL R1
    otherwise CALL T1
  end /*select */
 end /* do */
 
 R1:
 SAY " You entered "'R'
 return 

 T1:
 SAY " I DON'T UNDERSTAND, TRY AGAIN"
 return
 /*===========================*/

Everytime you 'call' a label,some stuff gets put on the stack. It only
gets taken off the stack when you 'return'. If you don't return, sooner
or later, the stack is full. 

Colin.

___
 X KWQ/2 1.2f X Success didn't spoil me; I've always been this way.
--- Maximus/2 2.01wb