bitwise ANDing in navision

Since this the bitwise operation for AND. It is pretty simple to write your own function that takes two parameters compares them and returns the result.

0 1 0 1 0 1 1 0
0 0 1 1 0 0 1 0

---

0 0 0 1 0 0 1 0

The example is too complicated/. There is simple function:

BitAnd(A : Integer;B : Integer) : Integer
Var
  Pos : integer;
  Tmp : integer;

begin
  Pos :=1;
  Tmp := 0;
  FOR i:=1 TO 32 DO BEGIN   //count of bits in integer
    IF ((A MOD 2) =1) AND ((B MOD 2)=1) THEN
      Tmp := Tmp + Pos;
    Pos := Pos * 2;
    A := A DIV 2;
    B := B DIV 2;
  END;
  EXIT(Tmp);
end;

BitOr(A : Integer;B : Integer) : Integer
Var
  Pos : integer;
  Tmp : integer;

begin
  Pos :=1;
  Tmp := 0;
  FOR i:=1 TO 32 DO BEGIN   //count of bits in integer
    IF ((A MOD 2) =1) OR ((B MOD 2)=1) THEN
      Tmp := Tmp + Pos;
    Pos := Pos * 2;
    A := A DIV 2;
    B := B DIV 2;
  END;
  EXIT(Tmp);
end;