'looks impressive, sloppy, and symmetric all at the same time. WOOHOO!

CLS
SCREEN 12
RANDOMIZE TIMER

pal = INT(RND * 5) + 1
IF pal = 2 THEN pal = 256
IF pal = 3 THEN pal = 257
IF pal = 4 THEN pal = 65536
IF pal = 5 THEN pal = 65537

FOR i = 1 TO 60 STEP 4
x = x + 1
PALETTE x, i * pal
NEXT
PALETTE 1, 0

size = 15
delay = 0
winX = 320
winY = 240
col1 = 1
col2 = 9
accel = .2
maxsp = 15
minsp = -maxsp
rr = 1
DIM x(size), y(size)
DIM xx(size), yy(size), nx(size), ny(size)
DIM col(size)
DIM r(size)
DIM t(size), v(size), u(size)


maxX = 640 - winX
maxY = 480 - winY
x = maxX
y = maxY
FOR i = 1 TO size
xx(i) = -RND * accel - accel
yy(i) = -RND * accel - accel
x = x - 400 / size
y = y - 400 / size
x(i) = x
y(i) = y
xx(i) = minsp
yy(i) = minsp
r = r + rr
r(i) = r
IF col = col1 THEN col = col2 ELSE col = col1
IF i < 16 THEN col(i) = i ELSE col(i) = 15
NEXT

DO
FOR i = 1 TO delay STEP 1: NEXT

FOR i = 1 TO size

IF i < size THEN
LINE (x(i), y(i))-(x(i + 1), y(i + 1)), col(i)
LINE (640 - x(i), 480 - y(i))-(640 - x(i + 1), 480 - y(i + 1)), col(i)
LINE (640 - x(i), y(i))-(640 - x(i + 1), y(i + 1)), col(i)
LINE (x(i), 480 - y(i))-(x(i + 1), 480 - y(i + 1)), col(i)

'LINE (x1, y1)-(x2, y2), 0
LINE (x(size - i), y(size - i))-(640 - x(i + 1), 480 - y(i + 1)), col(i)
LINE (640 - x(size - i), y(size - i))-(x(i + 1), 480 - y(i + 1)), col(i)
'x1 = x(size - 1): y1 = y(size - 1): x2 = 640 - x(i + 1): y2 = 480 - y(i + 1)
END IF
t(i) = x(i): v(i) = y(i): u(i) = r(i)
NEXT

FOR i = 1 TO size
IF i = size THEN
        xx(i) = xx(i) + nx(i)
        yy(i) = yy(i) + ny(i)
        IF xx(i) > maxsp THEN xx(i) = maxsp
        IF xx(i) < minsp THEN xx(i) = minsp
        IF yy(i) > maxsp THEN yy(i) = maxsp
        IF yy(i) < minsp THEN yy(i) = minsp

        x(i) = x(i) + xx(i)
        y(i) = y(i) + yy(i)
        IF x(i) > maxX THEN nx(i) = -RND * accel - accel
        IF x(i) < winX THEN nx(i) = RND * accel + accel
        IF y(i) > maxY THEN ny(i) = -RND * accel - accel
        IF y(i) < winY THEN ny(i) = RND * accel + accel
END IF
IF i < size THEN
        x(i) = x(i + 1)
        y(i) = y(i + 1)
END IF

NEXT

LOOP UNTIL INKEY$ <> ""