4096to:4607 do:[:i|(((i radix:8)copyFrom:4),' is -',((0to:8)collect:[:x|'-rwx'at:(i bitShift:-8+x)\\2*(x\\3+1)+1]))displayNl]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page