{<<<< SetBit >>>>}
{ From: COMPLETE TURBO PASCAL by Jeff Duntemann  }
{ Scott, Foresman & Co. 1986  ISBN 0-673-18600-8 }
{ Described in section 20.4 -- Last mod 2/1/86   }

PROCEDURE SetBit(VAR Target; BitNum : Integer);

VAR 
  Subject : Integer ABSOLUTE Target;
  Mask    : Integer;

BEGIN
  Mask := 1 SHL BitNum;
  Subject := Subject OR Mask
END;
