SCREEN 11

DIM a(1000, 10), x(1000), y(1000)

atoms = 3
levels = 3
states = levels ^ atoms
radius = 200
cmp = 0


FOR t = 0 TO states - 1

REM base(levels) translation
s = t
FOR cn = 1 TO atoms
a(t, cn) = s MOD levels
s = INT(s / levels)
NEXT cn

REM circular translation
angle = (t + .5) / states * 3.141 * 2
x(t) = 320 + (radius * COS(angle))
y(t) = 240 + (radius * SIN(angle))

NEXT t



FOR t = 0 TO states - 2
FOR s = t TO states - 1

comp = 0
FOR cn = 1 TO atoms
IF a(t, cn) = a(s, cn) THEN comp = comp + 1
NEXT cn

IF comp = cmp THEN LINE (x(t), y(t))-(x(s), y(s))

NEXT s
NEXT t