Randomize ' initiate random number generator

Tail = 25
ScreenX = 640
ScreenY = 200

' Declare some array that will conain drawed line info 
' (to be able to undraw lines)
Dim x1(Tail), y1(Tail), x2(Tail), y2(Tail) as integer

' Initiate first line points
x1[0] = 10+Rnd(ScreenX-10)
x2[0] = 10+Rnd(ScreenX-10)
y1[0] = 10+Rnd(ScreenY-10)
y2[0] = 10+Rnd(ScreenY-10)

c = Rnd(Rgb(255,255,255)) ' setup random colour

'xd1 = 9 : xd2 = 7 : yd1 = 6 : yd2 = 10
'xd1 = 7 : xd2 = 5 : yd1 = 6 : yd2 = 8
xd1 = 5 : xd2 = 3 : yd1 = 4 : yd2 = 6

Change = 0

SetBrushColor 0
DrawRect 0,0,ScreenX,ScreenY

while true ' works forever, till Exit while won't be called
  KeepBacklightActive
  SetPenColor c
  DrawLine x1(0),y1(0),x2(0),y2(0) ' draw new line
  SetPenColor 0
  DrawLine x1(Tail),y1(Tail),x2(Tail),y2(Tail) ' undraw last line

  ' Scroll array
  i = Tail
  while i>0
    x1(i) = x1(i-1)
    y1(i) = y1(i-1)

    x2(i) = x2(i-1)
    y2(i) = y2(i-1)
    i = i - 1
  wend

 ' Initite new pos of next line

  x1(0) = x1(0) + xd1
  x2(0) = x2(0) + xd2
  y1(0) = y1(0) + yd1
  y2(0) = y2(0) + yd2

  ' direction corection
  if x1[0] < 1 or x1[0]>=ScreenX-1 then
    xd1 = -xd1
    Change = Change+1
  endif

  if (x2[0] < 1 or x2[0]>=ScreenX-1) then
    xd2 = -xd2
    Change = Change+1
  endif

  if (y1[0] < 1 or y1[0]>=ScreenY-1) then
    yd1 = -yd1
    Change = Change+1
  endif

  if (y2[0] < 1 or y2[0]>=ScreenY-1) then
    yd2 = -yd2
    Change = Change+1
  endif

  if (Change >=4) then
    c = Rnd(Rgb(255,255,255)) ' setup random colour
    Change = 0
  endif

  delay 0.001

   If readkey then ' exit on any key press
       exit while
   endif

wend