/* REXX BITOR Copyright YCOS Yves Colliard Software 1990-2009 */
/* TRACE ?R  */
  /* einschalten des interaktiven Trace Modus */
  /* */
a1 = "6F"X
a2 = "E6"X
a3 = "E6E1"X
a4 = "abcd"   /* '1000 0001 1000 0010 1000 0011 1000 0100'b  */
  /* */
SAY C2X(BITOR(a1,a2))        /* Ausgabe: "EF"X                   */
SAY C2X(BITOR(a1,a3))        /* Ausgabe: "EFE1"X                 */
SAY C2X(BITOR(a1,a3,"35"X))  /* Ausgabe: "EFF5"X                 */
SAY BITOR(a4,,"0100 0000"b)  /* Ausgabe: "ABCD"                  */