'CR1000
'Created by Short Cut (3.1)

'Declare Variables and Units
Public BattV
Public PTemp_C
Public PT1
Public PT2
Public Pb

Units BattV=Volts
Units PTemp_C=Deg C
Units PT1=ft
Units PT2=ft
Units Pb=psi

'Define Data Tables
DataTable(QtrHrWtr,True,-1)
	DataInterval(0,15,Min,10)
	Sample(1,PT1,FP2)
	Sample(1,PT2,FP2)
	Maximum(1,PT1,FP2,False,False)
	Minimum(1,PT1,FP2,False,False)
	Maximum(1,PT2,FP2,False,False)
	Minimum(1,PT2,FP2,False,False)
EndTable

DataTable(Daily,True,-1)
	DataInterval(0,1440,Min,10)
	Minimum(1,BattV,FP2,False,False)
EndTable

DataTable(Hourly,True,-1)
	DataInterval(0,60,Min,10)
	Sample(1,Pb,FP2)
	Average(1,PT1,FP2,False)
	Average(1,PT2,FP2,False)
EndTable

'Main Program
BeginProg
	'Main Scan
	Scan(60,Sec,1,0)
	  'Turn modem on at the top of every hour for 15mins
    If IfTime(0,60,Min) Then PortSet(9,1)
		If IfTime(15,60,min) Then PortSet(9,0)  	  
		'Default Datalogger Battery Voltage measurement 'BattV'
		Battery(BattV)
		'Default Wiring Panel Temperature measurement 'PTemp_C'
		PanelTemp(PTemp_C,_60Hz)
		PortSet(2,1)
		Delay(0,3,Sec)
		'Generic 4-20 mA Input measurement 'PT1'
		VoltDiff(PT1,1,mV2500,1,True,0,_60Hz,0.009375,-4.39)
		'Generic 4-20 mA Input measurement 'PT2'
		VoltDiff(PT2,1,mV2500,2,True,0,_60Hz,0.009375,-4.39)
		PortSet(2,0)
		'CS106 Barometric Pressure Sensor measurement 'Pb'
		If TimeIntoInterval(59,60,Min) Then PortSet(1,1)
		If TimeIntoInterval(0,60,Min) Then
			VoltSe(Pb,1,mV2500,5,1,0,_60Hz,0.240,500)
			Pb=Pb*0.0145
			PortSet(1,0)
		EndIf
		'Call Data Tables and Store Data
		CallTable QtrHrWtr
		CallTable Daily
		CallTable Hourly
	NextScan
EndProg