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
DEF TEST1
A=7 'local (don't do this, use VAR)
END
A=3 'global
DEF TEST2
A=7 'global
END
DEF TEST3
VAR A=7 'local
END
DEF TEST4 A
A=7 'local
END
DEF TEST5 OUT A
A=7 'local
END