Option Explicit

sub REDblink()
do while running = 1
	call putpin(25,0)				'turn on the LED
	sleep(0.2)
	call putpin(25,1)				'turn off the LED
	sleep(0.2)
loop
end sub

sub SlowREDblink()
do while BatteryLow
	call putpin(25,0)				'turn on the LED
	sleep(0.5)
	call putpin(25,1)				'turn off the LED
	sleep(0.2)
loop
end sub