CR1000 Manual - Campbell Scientific

Section 7. Installation
Figure 78: Bool8 data from bit-shift example (PC data file)
CRBasic Example 47.
Public Alarm(32)
Public Flags As Long
Public FlagsBool8(4) As Long
Programming with Bool8 and a bit‐shift operator
DataTable(Bool8Data,True,-1)
DataInterval(0,1,Sec,10)
'store bits 1 through 16 in columns 1 through 16 of data file
Sample(2,FlagsBool8(1),Bool8)
'store bits 17 through 32 in columns 17 through 32 of data file
Sample(2,FlagsBool8(3),Bool8)
EndTable
BeginProg
Scan(1,Sec,3,0)
'Reset all bits each pass before setting bits selectively
Flags = &h0
'Set bits selectively. Hex is used to save space.
'Logical OR bitwise comparison
229