include c:\cxpl\codes;          \intrinsic 'code' declarations

func Logic(A, B);
int  A, B;
[HexOut(0, A and B);  ChOut(0, ^ );
 HexOut(0, A or  B);  ChOut(0, ^ );
 HexOut(0, not A);    ChOut(0, ^ );
 HexOut(0, A xor B);
]; \Logic

[Logic(false, false); CrLf(0);
 Logic(true, false);  CrLf(0);
 Logic(true, true);   CrLf(0);
 Logic(1, 1);   CrLf(0);
 Logic(1, 2);   CrLf(0);
]