function btest0, ibyte, ibit
;
;
;
return, (long(ibyte) / (long(2)^ibit)) mod 2
end