bit_test function?

[LondonNDIB]

Is there a way to do something similar to c language bit_test?

That is, to test if a bit in a binary representation is a 1?

Eg.

$var = 5; = 0x05  = 0000 0101
bit_test( $var, 2 ); returns true because bit 2 (which is third from the right) is a 1
bit_test( $var, 1 ); returns false because bit 1 (2nd from the right) is a 0
bit_test( $var, 0 ); returns true
; and so on. bits 3 thru 7 all return false

I searched the help and forum here for "bit_test" "bit test" "bit tester"

Thanks.

[LondonNDIB]

nevermind. I can do it with BitAND

[Yashied]

Func bit_test($iValue, $iBit)
    Return BitAND(BitShift($iValue, $iBit), 1)
EndFunc   ;==>bit_test

[LondonNDIB]

elegant, thank you.