BITAND - Bits AND durchfuehren

REXX Built-In Funktionen
Umsetzung der Zeichenkette

Syntax:                                 
BITAND(info1<,<info2><,fuell>>)

/* REXX BITAND Copyright YCOS Yves Colliard Software 1990-2009 */
/* TRACE ?R  */
  /* einschalten des interaktiven Trace Modus */
  /* */
a1 = "80"X    /* '1000 0000'b            */
a2 = "E0"X    /* '1110 0000'b            */
a3 = "E0E1"X  /* '1110 0000 1110 0001'b  */
a4 = "ABCD"   /* '1100 0001 1100 0010 1100 0011 1100 0100'b  */
  /* */
SAY C2X(BITAND(a1,a2))       /* Ausgabe: "80"X                   */
SAY C2X(BITAND(a1,a3))       /* Ausgabe: "80E1"X                 */
SAY C2X(BITAND(a1,a3,"6F"X)) /* Ausgabe: "8061"X                 */
SAY BITAND(a4,,"1011 1111"b) /* Ausgabe: "abcd"                  */