# uuuand -- bitwise "and" of two integer arguments # Phil Hodge, 8-Feb-89 function created int procedure uuuand (a, b) int a, b # i: input values # o: the function value is a and b #-- int and() begin return (and (a, b)) end