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

Note that non-ascii characters in the above source code will be escaped (such as \x9f).