The following code results in ’ This item doesn’t exist’ for all lines wit a Bitwise operation. This is intended for an ios-device.

dim score, mask, i, bit As integer
for i= 0 to 15
bit = Bitwise.BitAnd(number, mask)
if bit >0 then
score = score +1
else
score = score - 1
end if
mask = Bitwise.shiftleft(mask,1)
next i

You can just use the and/or/xor/not operators without the bitwise module. As for shifting, left shift of x << y is the same as x * 2^y and right shift of x >> y is the same as x / 2^y