10MODE2 20P=1:C=500 30REPEAT 50PROCcircle(640,512,C) 60P=P+1:C=C-7 70UNTIL C<0 80VDU19,RND(15),RND(15);0;0;0;0; 90GOTO80 100END 110DEF PROCcircle(X,Y,R) 120N=50 130T=0 140DP=PI/N 150DT=2*DP 160MOVEX,Y 170FOR I%=0 TO N 180MOVEX,Y 181GCOL 0,P+I% 190PLOT 85,X+R*COS(T),Y+R*SIN(T) 200T=T+DT 210NEXT I% 220ENDPROC