for x=0to 7for y=0to 7for z=0to 7 ?str$(x*100+y*10+z,"%04.f")," is "; for j=0to 9?mid$("-xrw",1+(1+mod(j,3))*!!and(i,2^(9-j)),1);next ?:i=i+1next next next
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
return to the top page