for y=1to 29for x=1to 49?mid$("\"'{[:\$%`#.@?*-",min(min(y,30-y),min(x,49-x)),1);next
?next