ZZ>
  > M1:
  > Say 'Press any key to continue'
  > key = SysGetKey(noecho)
  >
  > IF key='r'
  >    THEN CALL R1
  >    ESLE CALL T1
  >
  > IF key='R'
  >    THEN CALL R1
  >    ESLE CALL T1
  >
  > R1:
  > SAY " You entered "'R'
  > call M1
  >
  > T1:
  > SAY " I DON'T UNDERSTAND, TRY AGAIN"
  > CALL M1
ZZ>

  Call is not the way to do the above.  It pushes a "return" address
  onto the stack, expecting a return later on.  You are applying
  recursion when you should be using iteration.  Try this :

ZZ>
  > /*  TESTHOT.CMD   --  testing out hotkeys */
  > call rxfuncadd 'SysGetKey', 'RexxUtil', 'SysGetKey'
  >
  > do forever
  >    Say 'Press any key to continue'
  >    key = SysGetKey(noecho)
  >
  >    select
  >    when key = 'r' call R1
  >    when key = 'R' call R1
  >    otherwise      call T1
  >    end
  >
  > end
  >
  > R1:
  >    SAY " You entered "||key
  >    return
  >
  > T1:
  >    SAY " I DON'T UNDERSTAND "||key||", TRY AGAIN"
  >    return
ZZ>

  > JdeBP <
___
 X MegaMail 2.10 #0:

--- Maximus/2 2.01wb