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