Замена XOR

 
;(A OR B) AND (NOT (A AND B))
;(a XOR b) = ((a OR b) - (a AND b))
For a.a=0 To 1
  For b.a=0 To 1
    Debug Str(a)+Str(b)+Str(a!b)+Str( (a|b)&(~(a&b)) )
    Next
    Next
  
0000
0111
1011
1100