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