>programs. I have seem to run into a problem, I think. I am getting a stack
  >full
  >error after about 45 entries into a looping routine similar to the one that
  >follows.

    You're pushing the return address of M1 onto the stach and not popping it
off.  Replace your M1: label with the line "do forever", the
"call M1" in the
middle with "iterate" and the last "call M1" with
"end" (the do forever)

    [some deleted]

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

DW>IF key=
  >   THEN

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

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

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

    Just avoid putting anything there if you don't pull it off.  CALL stores
the return address of the function on the stack.  You could just leave off the
CALL and run the label directly, but how abou this for an improvement...

---8<---
/* Get a key via REXX       */
/* Jonathan Markevich  1994 */

do forever
    Say 'Press any key to continue'    
    pull key                      /* You don't need a REXXUTIL function */

    select
         when key = 'r' then
              Say 'You entered R'

         when key = 'x' then
              leave               /* I added this for kicks */

         when key = 't' then
              Say 'You entered T'

         otherwise
              Say 'I don't understand!'

    end  /* Select */

end  /* Do */
---8<---

     Ideally, compare the UPPERCASE key entered.  i.e.  
if TRANSLATE(key)="T"... this allows for upper or lowercase to be entered.

    Have fun!  Welcome to the wonderful world of programming!

              Yo-Han    
___
 * MR/2 2.09A NR * Don't assume malice for what stupidity can explain.
--- FidoPCB v1.5 beta-'j'