character*99a,b,c do j=1,16 a=b c="" read(*,'(a)',end=1)b 1 do i=1,49 if(b(i:)>"!")c(i*2:)="_" if(a(i:)>"!")c(i*2-1:)="|_|" enddo print'(a)',trim(c) enddo end
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page