procedure setup end procedure loop a = AnalogRead(0) PrintLine(a) Delay(1000) end