Fun.

I added a poly to the spiral code. Very psychedelic.
GLOBAL change,x,y,aa,col,ca,mel,xo,yo
change=20.0 // this excites the dots on screen
WHILE NOT FALSE
FOR aa=1 TO 12996 STEP change
INC ca, 0.1
mel = MOD(aa+ca,12996)
SELECT mel
CASE 1 TO 2166
col = RGB(255,INTEGER(mel/8.494117647058824),0)
CASE 2167 TO 4332
col = RGB(255-(mel-2166)/8.494117647058824, 255,0)
CASE 4333 TO 6498
col = RGB(0, 255, (mel-4332)/8.494117647058824)
CASE 6499 TO 8664
col = RGB(0, 255-(mel-6495)/8.494117647058824, 255)
CASE 8665 TO 10830
col = RGB((mel-8664)/8.494117647058824, 0, 255)
CASE 10831 TO 12996
col = RGB(255, 0, 255-(mel-10830)/8.494117647058824)
DEFAULT
col = RGB(128,128,128)
ENDSELECT
x=COS(aa)/36
y=SIN(aa)/36
SMOOTHSHADING TRUE
STARTPOLY -1, 0
ALPHAMODE 0.1
POLYVECTOR 322+y*aa,243+x*aa, 0, 0, col
POLYVECTOR 322+y*aa,243+xo*aa, 0, 10, col
POLYVECTOR 322+yo*aa,243+xo*aa, 10, 10, col
POLYVECTOR 323+yo*aa,243+x*aa, 10, 0, col
ALPHAMODE 0.1
ENDPOLY
ALPHAMODE 0.5
DRAWLINE 323+y*aa,243+x*aa, 323+yo*aa,243+xo*aa, col
DRAWRECT 322+y*aa,242+x*aa,3,3, RGB(196,196,196)
xo = x
yo = y
NEXT
INC change, 0.0333 // let the fun begin!
SHOWSCREEN
//KEYWAIT
WEND // infinity in action!