input""a for i=1to a for j=1to max(i,a-i+1)?mid$(" X",(j=a-i+1or j=i)+1,1);next ?next
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page