SCREEN 11: DEFSNG A-Z
RingMover = 0 'Circles around ring
Stepper = .016 'Size of interval
InterMultX = 3
InterMultY = 3
BoxMult = .2
V1 = 1.5: V2 = 1
Q = 1
X = 320: Y = 8
10 RingMover = RingMover + Stepper
Q = -Q: IF Q = 1 THEN V = V1 ELSE V = V2
X = X + InterMultX * COS(V * RingMover)
Y = Y + InterMultY * SIN(RingMover)
EndX = X + Y * BoxMult: EndY = Y + Y * BoxMult
LINE (X, Y)-(EndX, EndY), 0, BF
LINE (X, Y)-(EndX, EndY), 1, B
GOTO 10