Function Xorw(a,b:word):word
  	;
   EXTERNAL;
{*USER*
 Simple function provides XORW  := ( A XOR B), the exclusive-or
of the input arguements.
}