On (08 Mar 98) David Rothschild wrote to All...
 DR>   How do can I read the individual bits that are inside a byte?
        ' 
-------------------------------------------------------------------
        ' $DYNAMIC
        DEFINT A-Z
        ' 
-------------------------------------------------------------------
        ' extract a bit from a byte
        ' 
-------------------------------------------------------------------
        SUB EXTRACTBIT (BYTE,BIT,VALUE)
            VALUE = (BYTE \ 2 ^ BIT) AND 1
        END SUB
        ' 
------------------------------------------------------------------
 Greetings from Apeldoorn, the Netherlands, Cor.
 cor.van.den.hooven@babysoft.xs4all.nl
... BASIC LIVES !
--- PPoint 2.05
---------------