'who says low-res graphics suck? This one I'm proud of. CLS SCREEN 13 RANDOMIZE TIMER size = 60 rad = 3 pal = 65536 maxsp = 1 accel = .065 winX = 160 winY = 100 delay = 0 e = .4 ee = 0 IF size < 63 THEN x = size ELSE x = 63 FOR i = 1 TO size STEP 1 x = x - 1 IF x < 1 THEN x = 1 PALETTE i, x * pal NEXT 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) minsp = -maxsp maxX = 320 - winX maxY = 200 - winY x = maxX + size ^ 2 y = maxY + size ^ 2 FOR i = size TO 1 STEP -1 nx(i) = accel + accel ny(i) = accel + accel xx(i) = maxsp yy(i) = maxsp x = x - size y = y - size x(i) = x y(i) = y r(i) = i * rad col(i) = i NEXT DO FOR i = 1 TO delay STEP 1: NEXT IF count < size THEN GOTO 10 FOR i = size / 10 TO 1 STEP -1 FOR j = 1 TO 10 CIRCLE (x(i * j), y(i * j)), r(i * j), col(i * j), , , e 'CIRCLE (320 - x(i * j), 200 - y(i * j)), r(i * j), col(i * j), , , 1 'CIRCLE (x(i * j), 200 - y(i * j)), r(i * j), col(i * j), , , 1 'CIRCLE (320 - x(i * j), y(i * j)), r(i * j), col(i * j), , , 1 NEXT t(i) = x(i): v(i) = y(i): u(i) = r(i) NEXT 10 count = count + 1 FOR i = size TO 1 STEP -1 IF i = 1 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 > 1 THEN x(i) = x(i - 1) y(i) = y(i - 1) END IF NEXT e = e + ee IF e >= 1 THEN ee = -.001 IF e <= .1 THEN ee = .001 LOOP UNTIL INKEY$ <> ""