/* REXX ITERATE Copyright YCOS Yves Colliard Software 1990-2009 */
/* TRACE ?R  */
  /* einschalten des interaktiven Trace Modus */
  /* */
d = 10
c = 25
g.1 = 'REXX'
g.2 = 'TSOISPF'
g.3 = 'KURS'
  /* */
  /* */
DO i=1 TO 3          /* 3malige Ausfuehrung, von 1 bis 3 */
  IF i=2 THEN ITERATE
  SAY g.i            /* Ausgabe: REXX, KURS              */
END
  /* */
DO UNTIL d=c         /* bis d = c               */
  d = d + 1          /* 11, 12, 13, 14          */
  if d > 14 & d < 23 THEN ITERATE
                     /* 14 < d < 23 nichts      */
  SAY d              /* Ausgabe: 23, 24 und 25  */
END
  /* */
DO d=25 TO 22 BY -1  /* 4malige Ausfuehrung, von 25 bis 22 um -1 */
  SAY d              /* Ausgabe: 25, 24, 23 und 22               */
  DO u=1 TO 5           /* pro d Schleife 5malige Ausfuehrung */
    SAY u*d             /* Ausgabe: 25, 50, 75, 100 und 125   */
                        /*          24, 48, 72, 96 und 120    */
                        /*          23                        */
                        /*          22, 44, 66, 88 und 110    */
    if d = 23 THEN ITERATE d    /* d=23 dann naechste d Schleife */
  END
END
  /* */