SCREEN 12: DEFSNG A-Z
RingMover = 0
Stepper = .022
DX = 4.6: DY = 3
X1 = 300: Y1 = 10
10 RingMover = RingMover + Stepper
X1 = X1 + DX * COS(RingMover)
Y1 = Y1 + DY * SIN(RingMover)
V1 = (Y1 - 10) / 3: H1 = V1
V2 = V1 * .5: H2 = V2
V3 = V1 * .3: H3 = V3
X2 = X1 + H3: X3 = X1 - H2: X4 = X3 + H1 * 2 - 40
Y2 = Y1 + V1: Y3 = 479 - Y1 - V2: Y4 = Y3 + V3
LINE (X1, Y1)-(X2, Y2), 0, BF
LINE (X1, Y1)-(X2, Y2), 15, B
LINE (X3, Y3)-(X4, Y4), 0, BF
LINE (X3, Y3)-(X4, Y4), 15, B
IF ABS(Y3 - Y4) > 4 THEN GOTO 10
20 A$ = INKEY$
IF A$ = " " THEN GOTO 10 ELSE GOTO 20