character c,t*999,l*99 integer i,j,x x=0 i=1 do while(2>1) read(5,'(a)',end=1),l j=1 do while(2>1) if(l(j:j+1)==' ')exit j=j+1 end do if(i==1.and.l(1:1)>'A')x=1 if(x<1.or.l(j-1:j-1)==':')j=j-1 t(i:i+j)=l i=i+j end do 1 if(x>0)i=i-1 call f(t,i-1) end subroutine f(c,l) character c*(l) print'(a)',c return end
Note that non-ascii characters in the above source code will be escaped (such as \x9f).