include "inc/cmdsys.plh"
include "inc/conio.plh"

const EXTENT=18
const LIGHTS=3
var xlight[LIGHTS] = 3, 18, 0
var ylight[LIGHTS] = 0,  9, 15
var ixlight[LIGHTS] =  1,  1, -1
var iylight[LIGHTS] = -1,  1,  1

def sparkle(l)#0
  conio:gotoxy(xlight[l], ylight[l])
  putc('*')
  if xlight[l] == 0 or xlight[l] == EXTENT
    ixlight[l] = -ixlight[l]
  fin
  xlight[l] = xlight[l] + ixlight[l]
  if ylight[l] == 0 or ylight[l] == EXTENT
    iylight[l] = -iylight[l]
  fin
  ylight[l] = ylight[l] + iylight[l]
  if conio:rnd() & $04
    conio:gotoxy(xlight[l], ylight[l])
    putc('+')
  fin
end

conio:home()
while not conio:keypressed()
  sparkle(0)
  sparkle(1)
  sparkle(2)
loop
done
