Option Explicit

sub CheckBattery()
dim adc as integer
dim voltage as single

	if BatteryLow = false then
		adc = GetADC(18)					'get the 9 volt reading
		voltage = CSng(adc) / 105.307		'convert to voltage
		if voltage < 6.0 then
			BatteryLow = true
			calltask "SlowREDblink",blinkStack
		else
			adc = GetADC(17)					'get the 6 volt reading
			voltage = CSng(adc) / 105.307		'convert to voltage
			if voltage < 5.0 then
				BatteryLow = true
				calltask "SlowREDblink",blinkStack
			end if
		end if
	end if
end sub