do i=2 to 30
do j=2 to 50
call charout,substr('a'x'"''{[:\$%`#.@?*-',min(min(i,32-i),min(j,51-j)),1)
end
end