dim b$(1)
for z=1to 35p=0
s=0
line input""a$
n=split(a$+" 0",b$())
for i=1to 10j=i+p
d=val(b$(j))
t=d+val(b$(j+1))
s=s+t+val(b$(j+2))*(t>9)
p=p+(d<10)
?s;next
?next