#INCLUDE "player.module"

PROC test()
  CHAN LASER data:
  PAR
    pioneer.hud(data?)
    WHILE TRUE
      LASER d:
      INT t:
      TIMER tim:
      SEQ
        SEQ count = 0 FOR SIZE d
          SEQ
            tim ? t
            tim ? AFTER t PLUS 10000
            SEQ i = 0 FOR SIZE d
              IF
                (i > count) AND (i < (count + 10))
                  d[i] := 200
                TRUE
                  d[i] := 800
            data ! d
:
