'CR200/CR200X Series
'Created by Short Cut (3.2)

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

Alias CS450(1)=Stage
Alias CS450(2)=Temp

Units BattV=Volts
Units Stage=cm
Units Temp=deg C

'Define Data Tables
DataTable(Hydro,True,-1)
	DataInterval(0,15,Min)
	Sample(1,BattV)
	Sample(1,Stage)
	Average(1,Stage,False)
	Sample(1,Temp)
EndTable

'Main Program
BeginProg
	'Main Scan
	Scan(60,Sec)
		'Default CR200 Series Datalogger Battery Voltage measurement 'BattV'
		Battery(BattV)
		SWBatt(True)
		'CS450/CS451/CS455/CS456 Pressure Transducer measurements 'Stage' and 'Temp'
		SDI12Recorder(Stage,"0M1!",1,0)
		Stage=Stage*70.307
		'Radio 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 < 5) Then
			SetStatus(Rf_ForceOn,1)
		Else
			SetStatus(Rf_ForceOn,0)
		EndIf
		'Call Data Tables and Store Data
		CallTable Hydro
	NextScan
EndProg