CLS
SCREEN 9
DO
FOR a = 0 TO 2 * 3.14159 STEP 1
x = 100 * COS(a) + 320
y = 100 * SIN(a) + 190
PSET (x, y)
LINE (320, 190)-(x, y), 11
SLEEP 1

LINE (0, 0)-(640, 480), 0, BF
NEXT a
LOOP