BATTERY LOW LEVEL OUTPUT

option explicit

' This script is provided "as-is", without warranty of any kind,
' expressed or implied, including but not limited to the warranties of
' merchatability, fitness for a particular purpose and
' noninfringemement. In no event shall Roboteq be liable for any claim,
' damages or other liability, arising from the use of the software"

' Detects if there is undervoltage at the battery.  
' If the controller battery voltage reads back less than 15V, the digital output 1 will be enabled.
' Else the digital output will be disabled.

dim VBATT as integer 'declare variable

print("starting ... \r") ' let user know the script is running

top: 'beginning of loop

VBATT = getvalue(_VOLTS, 2) ' Reads battery voltage 

print("Battery Volts = ", VBATT,"\r") ' Prints battery voltage (reported as actual voltage x10)

if VBATT < 150 then
	setcommand(_DSET, 5) ' if battery voltage is less than 15V then set digital output 5 on
else
	setcommand(_DRES, 5) ' else reset digital output 5 to off.	
end if

wait(10) 'wait 10 mS
goto top 'return to top of loop