10 COLOR 1,15,8:SCREEN2
20 FOR I=1 TO 13
30 CIRCLE(40+I*15,40+I*10),55-I*3,15-I,0,6.28:PAINT STEP(0,0),15-I
40 NEXT
50 GOTO 50