main:
let adcsetup = %0000000011100000 'ADC5,6,7 are used for analog in
calibfreq -8
serout B.2,N2400,(254,1)'reset readout
measure:
pause 1000'wait a second
readadc10 5,w1 'Amps
w1=w1*5
readadc10 6,w2 'VAC
w2=w2*3 'RMS to p-p
readadc10 7,w3 'Volts
If w3>5 then
	w3=w3-5 'a little offset
	endif
w4=w3/40
w5=w4*40
w5=w3-w5/4
serout B.2,N2400,(254,128)'jump to line 1
pause 10'pauses needed after serout commands
serout B.2,N2400,("                 ")
pause 10
serout B.2,N2400,(254,128)'jump to line 1
pause 10
serout B.2,N2400,(#w4,".",#w5,"V","     ",#w1,"mA")
pause 10'pauses needed after serout commands
serout B.2,N2400,(254,192)'jump to line 2
pause 10
serout B.2,N2400,("                 ")
pause 10
serout B.2,N2400,(254,192)'jump to line 2
pause 10
if w2>2000 then
serout B.2,N2400,(">2 VAC!")
elseif w2<50 then
serout B.2,N2400,("low VAC")
else
serout B.2,N2400,(#w2," mVAC")
endif
goto measure

end