FUNCTION ibtestf, bitset, bitpos

    @compile_opt.pro        ; On error, return to caller

RETURN, ( bitset AND ishft(1L, bitpos) ) NE 0L
END