basic
' Declare variables
Public BattV          ' Battery voltage
Public PZ(5) As Float ' Array to store data from 5 vibrating wire piezometers
Public Barom          ' Barometer reading
Public RainGauge      ' Rain gauge reading
Public ReservoirLvl   ' Reservoir level sensor reading

' Declare datalogger settings
Dim PZ_IDs(5) As String * 50
PZ_IDs(1) = "PZ_01"
PZ_IDs(2) = "PZ_02"
PZ_IDs(3) = "PZ_03"
PZ_IDs(4) = "PZ_04"
PZ_IDs(5) = "PZ_05"

' Define data tables
DataTable(Table1, True, -1)
    DataInterval(0, 60, Min, 10) ' Collect data every 60 minutes
    Minimum(1, BattV, FP2, False, False) ' Record minimum battery voltage
    Sample(5, PZ(), FP2) ' Collect samples from the 5 piezometers
    Average(1, Barom, FP2, False) ' Average of barometer readings
    Totalize(1, RainGauge, FP2, False) ' Total rainfall
    Average(1, ReservoirLvl, FP2, False) ' Average reservoir level
EndTable

' Main Program
BeginProg
    ' Begin program sequence
    Scan(5, Sec, 0, 0) ' Scan every 5 seconds
        
        ' Measure battery voltage
        Battery(BattV)

        ' Measure data from vibrating wire piezometers
        VibratingWire(PZ(1), 1, 1)
        VibratingWire(PZ(2), 1, 2)
        VibratingWire(PZ(3), 1, 3)
        VibratingWire(PZ(4), 1, 4)
        VibratingWire(PZ(5), 1, 5)

        ' Measure barometer data
        VoltSe(Barom, 1, mV2500, 6, False, 0, _60Hz, 1, 0)
        
        ' Measure rain gauge data
        PulseCount(RainGauge, 1, 1, 2, 0, 0)
        
        ' Measure reservoir level data
        VoltSe(ReservoirLvl, 1, mV2500, 7, False, 0, _60Hz, 1, 0)

        ' Call data tables and store data
        CallTable(Table1)
        
    NextScan
EndProg