/* REXX STRIP Copyright YCOS Yves Colliard Software 1990-2009 */
/* TRACE ?R  */
  /* einschalten des interaktiven Trace Modus */
  /* */
a1 = "   REXX   "
a2 = "----Colliard----"
  /* */
SAY STRIP(a1)                 /* Ausgabe: "REXX"                 */
SAY STRIP(a1,"L")             /* Ausgabe: "REXX  "               */
SAY STRIP(a1,"T")             /* Ausgabe: "  REXX"               */
SAY STRIP(a2,,"-")            /* Ausgabe: "Colliard"             */
SAY STRIP(a2,"B","-")         /* Ausgabe: "Colliard"             */