MODE 2
Dim integer cm(15)=(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15)
Colour Map cm(),cm()

Q=.375
For E=1 To 40 Step .025
R=E*E/4:T=R/99
s1=Sin(T):c1=Cos(T)
N=5+R/1:A=-Pi*2/N
S=Sin(A):C=Cos(A)
X=0:Y=R:I=Int(Rnd)
For L=0 To N
  I=I+1 And 15: If I=0 Then I=1
  Color Map(I)
  Pixel 160+X*c1*Q-Y*s1,120+X*s1*Q+Y*c1
  x1=X*C-Y*S:Y=X*S+Y*C:X=x1
Next
Next

Do
T=cm(15)
For i=15 To 1+1 Step -1:cm(i)=cm(i-1):Next
cm(1)=T
For i=1 To 15:Map(i)=cm(i):Next
Map Set
Pause 50
Loop