#Picaxe 08M2
#Terminal 4800
main:
readadc c.1,b0
b0 = b0 * 100 / 51 ; Calculate voltage 000 to 500
b1 = b0 / 100 // 10 ; Hundreds
b2 = b0 / 10 // 10 ; Tens
b3 = b0 / 1 // 10 ; Units
sertxd("votage=",#b1,".",#b2,#b3,cr,lf)
pause 500
goto main