/* REXX PUSH Copyright YCOS Yves Colliard Software 1990-2009 */
/* TRACE ?R  */
  /* einschalten des interaktiven Trace Modus */
  /* */
a = "Nummer 1"
b = "Nummer 2"
  /* */
QUEUE a                         /* Nummer 1 ist im Puffer     */
QUEUE b                         /* Nummer 2 ist im Puffer     */
PUSH "Nummer 3"                 /* Nummer 3 ist im Puffer     */
  /* */
say QUEUED()                    /* Ausgabe: 3                 */
PULL p1                         /* Puffer lesen               */
SAY p1                          /* Ausgabe: NUMMER 3          */
  /* */
say QUEUED()                    /* Ausgabe: 2                 */
PARSE PULL p2                   /* Puffer lesen               */
SAY p2                          /* Ausgabe: Nummer 1          */
  /* */
say QUEUED()                    /* Ausgabe: 1                 */
PULL p3                         /* Puffer lesen               */
SAY p3                          /* Ausgabe: NUMMER 2          */
say QUEUED()                    /* Ausgabe: 0                 */