Randomize

SetBrushColor 0
DrawRect 0,0,640,200

pi2 = pi / 2
rot = 0
counter = 0

dx = Rnd(10)+1
dy = Rnd(10)+1
    kx = 100+Rnd(20)
    ky = 60+Rnd(20)

dim flag

while true 
  KeepBacklightActive

  if counter >=3200 then
    dx = Rnd(10)+1
    dy = Rnd(10)+1
    kx = 100+Rnd(20)
    ky = 60+Rnd(20)
    SetBrushColor 0
    SetPenColor 0
    ClearRect 0,0,640,200
    counter = 0
  else 
    counter = counter + 1
  endif
  
   if  flag > 1600 then
    SetBrushColor 0
    SetPenColor 0
    ClearRect 0,0,640,200
    flag = 0
  else
    flag = flag+1
  endif  

  ax = 320 + kx * COS(dx * rot)
  ay = 100 + ky * SIN(dy * rot)
  SetPenColor Rnd(Rgb(255,255,255))
  DrawLine ax, ay,ax + 80 * COS(rot), ay + 20 * SIN(rot)
  SetPenColor Rnd(Rgb(255,255,255))
  DrawLine ax, ay,ax - 80 * COS(rot + pi), ay + -20 * SIN(rot + pi)
  SetPenColor Rnd(Rgb(255,255,255))
  DrawLine ax + 80 * COS(rot), ay + 20 * SIN(rot),ax - 80 * COS(rot + pi), ay + -20 * SIN(rot + pi)
  rot = rot + 0.0025

  if ReadKey then
    Exit while
  end if
wend