Cls
Dim X%(50),Y%(50),Xp%(50),Yp%(50)
For I%=1 To 50
  Xp%(I%)=(Rnd*20.)-10.
  Yp%(I%)=(Rnd*20.)-10.
  X%(I%)=120
   Y%(I%)=64
Next I%
Do
  Cls
  Exit If Getkey
  For I%=1 To 50
    Plot X%(I%),Y%(I%)
    Add X%(I%),Xp%(I%)
    Add Y%(I%),Yp%(I%)
    If X%(I%)<0 Or X%(I%)>=240 Or Y%(I%)<0 Or Y%(I%)>=128
      X%(I%)=120
      Y%(I%)=64
    Endif
    Plot X%(I%),Y%(I%)
  Next I%
Loop