cut string by *yuko*

character*31::c,d="";read(*,'(a)',end=1)c,c,d;1 print'(aa26)',c,d;end

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

download

return to the top page