      SUBROUTINE PLW.BW.LOG
*PIC-LAN
*
*ALL
*PC
*Y
*
*
*
*
      INCLUDE SYS.TYPE.INCLUDE
*
      INCLUDE PL.COMMON
      INCLUDE PL.COMMON.DEFS
      INCLUDE PL.DEFS
      INCLUDE PLIP.COMMON
      INCLUDE PLW.COMMON
*
      IF NOT(INDEX(PLIP$WWW.LOG.OPT,'Q',1)) THEN RETURN
*
      NW = PL_NOW()
      TM = INT(NW/600) * 600
*
      PL_LIC_STATUS_ZERO W1,W2,O1,O2
*
      READU D FROM PL$BW.LOG.FD , TM ELSE D = ''
      D<1> = D<1> + W1
      D<2> = D<2> + W2
      D<3> = D<3> + O1
      D<4> = D<4> + O2
      WRITE D ON PL$BW.LOG.FD , TM
*
      RETURN
   END
