Float xx[10], yy[10]
randomize
Do k=0,9
   xx[k]=0.0
   yy[k]=0.0
Loop
qp=0; s=2
x=320.0; y=240.0
t=random(628)/100.0; dt=0.0
Do
   If random(100)>25
      solid color (0)
      solid circle (xx[qp], yy[qp], 2)
      x=x+cos(t)*s
      If (x<0) x=x+640
      If (x>639) x=x-640
      y=y+sin(t)*s
      If (y<0) y=y+480
      If (y>479) y=y-480
      ddt=-0.005*(random(3)-1)
      dt=dt+ddt
      If dt>0.025 Set dt=0.025
      If dt<-0.025 Set dt=-0.025
      t=t+dt
      solid color (6)
      solid circle (x, y, 2)
      xx[qp]=x; yy[qp]=y
      qp=(qp+1)%10
      delay (20)
   Endif
   Else delay (100)
   read quit key
Loop