[Back to NUMBERS SWAG index] [Back to Main SWAG index] [Original]

    {
     >   This would seem like something simple but can
     > someone explain how to
     >   calculate what is included in the following
     > statement once I have read
     >   the variable:
    Looks like a user record of some BBS system or so...

    Or did you want to know how to check / set the bits? }

    FUNCTION GetBit (v, BitNumber: BYTE): BOOLEAN;
       BEGIN
          IF (v AND (1 SHL BitNumber))<>0 THEN
             GetBit:=TRUE
          ELSE
             GetBit:=FALSE;
       END;     {Returns TRUE if specified bit is set }

    PROCEDURE SetBit (VAR v: Byte; BitNumber: Byte; SetReset: BOOLEAN);
       BEGIN
          IF SetReset THEN
             v:=v OR (1 SHL BitNumber)
          ELSE
             v:=v AND NOT (1 SHL BitNumber);
       END;

[Back to NUMBERS SWAG index] [Back to Main SWAG index] [Original]