dim ЧИСЛО&, ЕЩЁ_ЧИСЛО&
dim ИНТЕРЕСУЮЩИЙ_БИТ as byte
dim msg$

ЕЩЁ_ЧИСЛО = 2^ИНТЕРЕСУЮЩИЙ_БИТ

if ЧИСЛО AND ЕЩЁ_ЧИСЛО = ЕЩЁ_ЧИСЛО then
msg= "бит "& ИНТЕРЕСУЮЩИЙ_БИТ &" установлен"
else
msg= "бит "& ИНТЕРЕСУЮЩИЙ_БИТ &" сброшен"
end if