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

'Declare Variables and Units
Dim MinIntoDay
Public BattV
Public SW12State

Units BattV=Volts

'Define Data Tables
DataTable(HrlyDiag,True,-1)
	DataInterval(0,60,Min)
	Average(1,BattV,False)
EndTable

'Main Program
BeginProg
	'Main Scan
	Scan(60,Sec)
		'Default CR200 Series Datalogger Battery Voltage measurement 'BattV'
		Battery(BattV)
		'SW12 Timed Control
		'Get minutes into current day
		MinIntoDay=Public.TimeStamp(4,1)/60
		'Turn ON SW12 between 0000 hours and 2358 hours
		If (MinIntoDay>=0 And MinIntoDay<1438)
			SW12State=True
		Else
			SW12State=False
		EndIf
		'Always turn OFF SW12 if battery drops below 11.5 volts
		If BattV<11.5 Then SW12State=False
		'Set SW12 to the state of 'SW12State' variable
		SWBatt(SW12State)
		'Call Data Tables and Store Data
		CallTable HrlyDiag
	NextScan
EndProg