Option Explicit

public sub RunDiag()
dim adc as integer
dim voltage as single
dim str as string

call ClearDisplay()
call Display("Batteries Bumper")
do while ReadButtons() = 0
	call SetCursor(1,0)
	adc = GetADC(18)					'get the 9 volt reading
	voltage = CSng(adc) / 105.307		'convert to voltage
	str = Cstr(voltage)				'convert to string
	str = Mid(str,1,4)					'truncate string
	call	Display(str)					'display it	

	adc = GetADC(17)					'get the 6 volt reading
	voltage = CSng(adc) / 105.307		'convert to voltage
	str = Cstr(voltage)				'convert to string
	str = Mid(str,1,4)					'truncate string
	call	Display(" " & str)				'display it	

	call	SetCursor(1,11)
	if GetPin(LeftBumper) = 0 then		'look at the left bumper
		call Display("L  ")
	else
		call Display("_  ")
	end if
	if GetPin(RightBumper) = 0 then		'look at the right bumper
		call Display("R")
	else
		call Display("_")
	end if

	call Delay(0.2)
loop	
end sub