dim a(15,100)
for i=1to 100if!mod(i,3)y=y+1
if!mod(i,5)y=y-1
a(y,i)=i
a(y,0)=i
next
for j=0to 15
for i=1to a(j,0)w=a(j,i)
if w?w,"";
if!w if i>9?" ";
if!w?" ";
next
?next