input""r
for x=-r to r
c$=""
for y=-r to r
c$=c$+mid$("* ",(x*x+y*y>r*r)+1,1)next
?c$next