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
Note that non-ascii characters in the above source code will be escaped (such as \x9f).