Option Explicit

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

ClearDisplay
FloorSensorsOn
call Display("Floor Sensors")
do while ReadButtons() = 0
	call SetCursor(1,0)
	adc = GetADC(20)					'get the left reading
	voltage = CSng(adc) / 197.0			'convert to voltage
	str = Cstr(voltage)				'convert to string
	str = Mid(str,1,5)					'truncate string
	call	Display(str)					'display it	

	adc = GetADC(19)					'get the right reading
	voltage = CSng(adc) / 197.0			'convert to voltage
	str = Cstr(voltage)				'convert to string
	str = Mid(str,1,5)					'truncate string
	call	Display(" " & str)				'display it	

	adc = GetADC(19)					'get the right reading
'	voltage = CSng(adc) / 197.0			'convert to voltage
	str = Cstr(adc)				'convert to string
	call	Display(" " & str)				'display it	

	call Delay(0.1)
loop	
FloorSensorsOff
end sub