Number := 128 LShift := lsh(Number,2) RShift := rsh(Number,2) Select := Number band 1 Select := 127 band 4 Set := 127 bor lsh(1,7)