MODE 2
Dim Xa(255), Ya(255)
x0=MM.HRES\2:y0=MM.VRES\2
Xdir=1:Ydir=1:C=Map(14)
n=4
r=n*16
Do
 i=0
 t=Timer
 tr=t-n*50
 ra=tr/1234
 rb=tr/2345
 For a=0 To Pi Step .39268
   For b=0 To Pi*2 Step .8-.6*Sin(a)
     o=Sin(a)*Cos(b)
     k=Sin(a)*Sin(b)
     e=Cos(a)*Cos(ra)+k*Sin(ra)
     Pixel Xa(i),Ya(i),0
     Xa(i)=(o*Cos(rb)+e*Sin(rb))*r+x0
     Ya(i)=(e*Cos(rb)-o*Sin(rb))*r+y0
     Pixel Xa(i),Ya(i),C
     Inc i
   Next b
 Next a
 If x0<r Then Xdir=1:C=Map(Int(Rnd*16))
 If y0<r Then Ydir=1:C=Map(Int(Rnd*16))
 If x0>MM.HRES-r Then Xdir=-1:C=Map(Int(Rnd*16))
 If y0>MM.VRES-r Then Ydir=-1:C=Map(Int(Rnd*16))
 Inc x0,Xdir:Inc y0,Ydir
Loop While Inkey$=""