procedure setup
	
end

procedure loop
	a = AnalogRead(6)
	
	PrintLine(a)	
	Delay(1000)	
end