Randomize

SetBrushColor 0
DrawRect 0,0,640,200

pi2 = pi / 2
rot = 0

dx = 1
dy = 1
counter = 0

kx = 60
ky = 20

while true 
  KeepBacklightActive

  if counter >=1000 then
    dx = Rnd(10)+1
    dy = Rnd(10)+1
    kx = 40+Rnd(50)
    ky = 15+Rnd(50)
    SetBrushColor 0
    SetBrushColor 0
    ClearRect 0,0,640,200
    counter = 0
  else 
    counter = counter + 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.2

  if ReadKey then
    Exit while
  end if
wend