/* REXX DELSTACK Copyright YCOS Yves Colliard Software 1990-2009 */
/* TRACE ?R  */
  /* einschalten des interaktiven Trace Modus */
  /* */
tx1 = "REXX"
  /* */
QSTACK                          /* Data Stack Abfrage              */
SAY "Anzahl Stacks:" rc
  /* */
NEWSTACK                        /* neuen Data Stack anlegen        */
PUSH tx1
  /* */
QSTACK                          /* Data Stack Abfrage              */
SAY "Anzahl Stacks:" rc
  /* */
DELSTACK                        /* Data Stack loeschen             */
  /* */
QSTACK                          /* Data Stack Abfrage              */
SAY "Anzahl Stacks:" rc
  /* */