character::c*239="aaaaaaaaabc" do1 i=1,239,2 print'(a)a',trim(c) j=99-ichar(c(i:)) c=trim(c)//"aaa bc "(j*3:j*3+2) 1 c(:i+1)="" end
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page