expand text by *yuko*

character*99c;read*,n;read'(a)',c;do1 i=1,n;1 print'(999a1)',((c(j:j-min(i-1,n-i,k-1,n-k)),k=1,n),j=1,len_trim(c));end

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page