quote box by pooq

character*15::a="""'{[:\\$%`#.@?*-"
do i=1,29
do j=1,48
k=min(min(i,30-i),min(j,49-j))
print'(a$)',a(k:k)
enddo
print*
enddo
end

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page