Campbell Scientific CR3000 Micrologger - Manual (Page 253)

Section 7. Installation
253
'Declare Variables
Public PTemp, Batt_Volt, Level, TimeIntoTest
Public Counter(10)
Public Flag(8) As Boolean
'Define Data Tables
DataTable (LogTable,1,-1)
Minimum (1,Batt_Volt,FP2,0,False)
Sample (1,PTemp,FP2)
Sample (1,Level,FP2)
Sample (1,TimeIntoTest, FP2)
EndTable
'Main Program
BeginProg
Scan (1,Sec,0,0)
If TimeIntoInterval(0,1,Min) Then Flag(1) = True
If Flag(1) = True Then ExitScan
NextScan
'10 Second Data Interval
If Flag(1) = True Then
Scan (10,Sec,0,60)
Counter(2) = Counter(2) + 1
Battery (Batt_volt)
PanelTemp (PTemp,250)
TCDiff (Level,1,mV20,1,TypeT,PTemp,True ,0,250,1.0,0)
If TimeIntoInterval (0,1,Min) Then
TimeIntoTest = TimeIntoTest + 1
EndIf
'Call Output Tables
CallTable LogTable
NextScan
'30 Second Data Interval
Scan (30,Sec,0,40)
counter(3) = counter(3) + 1
Battery (Batt_volt)
PanelTemp (PTemp,250)
TCDiff (Level,1,mV20,1,TypeT,PTemp,True ,0,250,1.0,0)
If TimeIntoInterval (0,1,Min) Then
TimeIntoTest = TimeIntoTest + 1
EndIf
'Call Output Tables
CallTable LogTable
NextScan