Прикреплена тема "Побитовый AND" изviewforum.php?f=2

Не нашел в среде. Сляпал свой. Может надо кому...

MODULE My;
IMPORT StdLog, SYSTEM;

PROCEDURE [code] BitAnd*(a: INTEGER; b: INTEGER) :INTEGER
05BH, 021H, 0D8H;

PROCEDURE Do*;
VAR i, j: INTEGER;
BEGIN
FOR j:=0 TO 100 DO
i:=BitAnd(j,5);
StdLog.Int(i);
END;
END Do;
END My.
My.Do