long l_a,l_b,l_c,l_d,l_e
long sum
integer s
l_a=long(trim(sle_1.text))
l_b=long(trim(sle_2.text))
l_c=long(trim(sle_3.text))
l_d=long(trim(sle_4.text))
l_e=long(trim(sle_5.text))
for s=1 to 5
sum+=(l_a+l_b+l_c+l_d+l_e)
if sum>0 then
st_1.text=String(sum)
end if
next
