character*99c(100);do1 i=1,100;read(*,'(a)',end=2)c(i) do1 j=1,i;1 if(c(i)==c(j))c(j+1:)=c(j:) 2 print'(a)',(trim(c(i)),i=1,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