CLS
M=15:N=13
FOR C=1 TO 7
R=C*2-1
COLOR C
GOSUB CIRCLE
NEXT
LABEL ENDL
GOTO ENDL

LABEL CIRCLE
X=R:Y=0:F=-2*R+3
D$=CHR$($EC)
LABEL CIRLP
IF X<Y THEN RETURN
CURSOR M-X,N-Y:PRINT D$;
CURSOR M-X,N+Y:PRINT D$;
CURSOR M+X,N-Y:PRINT D$;
CURSOR M+X,N+Y:PRINT D$;
CURSOR M-Y,N-X:PRINT D$;
CURSOR M-Y,N+X:PRINT D$;
CURSOR M+Y,N-X:PRINT D$;
CURSOR M+Y,N+X:PRINT D$;
IF F>=0 THEN X=X-1:F=F-X*4
Y=Y+1:F=F+Y*4+2
GOTO CIRLP