character*99c(9);n=mod(loc(n),5);read'(a)',(c(i),i=1,9);print'(a)',(c(i)(5-n/2*4-1/n:18-n/3*5),i=-n,9);end
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page