quote box by pooq

character*15::a="-*?@.#`%$\\:[{'"""
do i=-14,14
do j=-24,24
k=max(max(abs(j)-9,1),abs(i)+1)
if(j/=0)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