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