Sample program using the new _Files$ function

[SMcNeill]

Maybe this will help -- I give you the ALL-POWERFUL Function Byte2Bit!!

Code: (Select All)

Dim b As _Byte

b = &B11

'but we only want a single bit!

b = Byte2Bit(b)

Print b



Function Byte2Bit~&& (a_byte As _Byte)

    Byte2Bit = a_byte And 1~`1

End Function