10 COLOR 1,15,8:SCREEN2
20 FOR K=0 TO 15
30 CIRCLE(128,95),127-8*K,15-K,,,.7
40 PAINT(128,95),15-K
50 NEXT
60 GOTO 60