MODE 2
FRAMEBUFFER CREATE
FRAMEBUFFER WRITE F
Do
 CLS
 t=Timer
 n=7
 r=n*16
 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)
     x=(o*Cos(rb)+e*Sin(rb))*r+160
     y=(e*Cos(rb)-o*Sin(rb))*r+120
     If Cos(a)*Sin(ra)-k*Cos(ra)<.05 Then
       C=Map(Int(Rnd*14)+1)
       Circle x,y,4,,,C,C
     Else
       Circle x,y,1,,,Map(15)
     EndIf
   Next b
 Next a
 FRAMEBUFFER COPY F,N,B
Loop While Inkey$=""