MODE 2
Dim integer cm(15)=(0,14,0,7,0,0,6,0,0,4,0,0,2,0,0,0)
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=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(1)
 For i=1 To 15-1:cm(i)=cm(i+1):Next
 cm(15)=T
 For i=1 To 15:Map(i)=cm(i):Next
 Map Set
 Pause 50
Loop