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

For I=0 To 2100
If Y>230 Then
 X=160
 Y=240
 x0=X:y0=Y
 x1=Cos(Rnd*Pi)*5
 y1=5+Rnd*16
EndIf
 X=X+x1:Y=Y-y1:y1=y1-1
 Inc C,-1:If C<1 Then C=15
 Color Map(C)
 If X>0 And X<320 Then Line x0,y0,X,Y
 x0=X:y0=Y
Next

Do
For N=0 To 14
  T=cm(1)
  For i=1 To 14:cm(i)=cm(i+1):Next
  cm(15)=T
  For i=1 To 15:Map(i)=cm(i):Next
  Map Set
  Pause 100
Next
For i=1 To 15
  If i<3 Then cm(i)=Map(Int(Rnd*15)) Else cm(i)=0
Next
Loop