for i=0to 511d=int(i/8)
a=mod(int(i/64),8)
b=mod(d,8)
c=i-d*8
?100*a+c+b*10using"%04g"," is -";
f(a):f(b):f(c):?next
sub f(n)?mid$("-----x-w--wxr--r-xrw-rwx",n*3+1,3);end sub