character*99c;read'(a)',c;k=len_trim(c);do1 i=1,k;n=k-i+1;c(k+i:)=c(n:);1 print'(a)',c(n:k+i);end
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page