DIM Pal(255)
SCREEN 12
x% = POINT(0): y% = POINT(1)
FOR sz = 255 TO 0 STEP -1
q = sz
CIRCLE (x%, y%), sz, q
NEXT sz
PALETTE USING Pal
'RUN "2cool@.bas"