for i=0to 8a=a+b+!i
b=a-b
for j=1to b?chr$(j+48+7*!j<10);next
?next