for j=0to 14for i=1to min(j*7.5-n,95)+5if j=int(i/3)-int(i/5)?i,"";:goto 1
?mid$("  ",1+!i>9);
1next:n=!n:?next