Squares Fixed by *yuko*

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