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