Hey, try some recursion while you're at it: ACLS CIRCLE 200,120,119 'center of screen DEF CIRCLE X,Y,R GCIRCLE X,Y,R IF R<8 THEN RETURN 'escape function R=R/2 CIRCLE X-R,Y,R CIRCLE X+R,Y,R END