longg = 0
for a = 1 to 100
z(1) = getadc(3)
waitus 100
longg = longg + z(1)
next
z(1) = longg / 100
'-----------------------------
longg = 0
for a = 1 to 100
z(2) = getadc(3)
waitus 100
longg = longg + z(2)
next
z(2) = longg / 100
'-----------------------------
longg = 0
for a = 1 to 100
z(3) = getadc(3)
waitus 100
longg = longg + z(3)
next
z(3) = longg / 100
'-----------------------------
longg = 0
for a = 1 to 100
z(4) = getadc(3)
waitus 100
longg = longg + z(4)
next
z(4) = longg / 100
'-----------------------------
z(5) = 0
z(5) = z(1)
z(5) = z(5) + z(2)
z(5) = z(5) + z(3)
z(5) = z(5) + z(4)
z(5) = z(5) / 4
z(5) = z(5) - z_manfi