'CR1000
'Created by Short Cut (3.2)

'Declare Variables and Units
Dim MinIntoDay
Public BattV
Public PTemp_C
Public CS450(2)

Alias CS450(1)=WaterLevel
Alias CS450(2)=Temp_C

Units BattV=Volts
Units PTemp_C=Deg C
Units WaterLevel=meters
Units Temp_C=deg C

'Define Data Tables
DataTable(WaterLev,True,-1)
	DataInterval(0,15,Min,10)
	Sample(1,BattV,FP2)
	Sample(1,WaterLevel,FP2)
	Sample(1,Temp_C,FP2)
EndTable

'Main Program
BeginProg
	'Main Scan
	Scan(60,Sec,1,0)
		'Default CR1000 Datalogger Battery Voltage measurement 'BattV'
		Battery(BattV)
		'Default CR1000 Datalogger Wiring Panel Temperature measurement 'PTemp_C'
		PanelTemp(PTemp_C,250)
		'CS450/CS451/CS455/CS456 Pressure Transducer measurements 'WaterLevel' and 'Temp_C'
		SDI12Recorder(WaterLevel,7,"0","M1!",1,0)
		WaterLevel=WaterLevel*0.70307
		'SW12 Timed Control
		'Get minutes into current day
		MinIntoDay=Public.TimeStamp(4,1)/60
		'Turn ON SW12 for 10 minutes every 60 minutes
		If (MinIntoDay MOD 60 < 10) Then
			PortSet(1,1)
		'Turn OFF SW12 only if time runs out and RS232 is not active
		ElseIf (ComPortIsActive(ComRS232)=False) Then
			PortSet(1,0)
		EndIf
		'Always turn OFF SW12 if battery drops below 11.5 volts
		If BattV<11.5 Then PortSet(1,0)
		'Call Data Tables and Store Data
		CallTable WaterLev
	NextScan
EndProg