/* REXX INSERT Copyright YCOS Yves Colliard Software 1990-2009 */
/* TRACE ?R  */
  /* einschalten des interaktiven Trace Modus */
  /* */
a1 = "REXX KURS"
a2 = "REXXKURS"
a3 = "REXX"
  /* */
SAY INSERT('TSOISPF ',a1)           /* Ausgabe: TSOISPF REXX KURS */
SAY INSERT('TSOISPF ',a1,5)         /* Ausgabe: REXX TSOISPF KURS */
SAY INSERT('UND',a2,4,5)            /* Ausgabe: REXXUND  KURS     */
SAY INSERT('UND',a2,4,7,"!")        /* Ausgabe: REXXUND!!!!KURS   */
SAY INSERT('KURS',a3,6,8,"!")       /* Ausgabe: REXX!!KURS!!!!    */