      REM MONITOR-WEB
*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
      INCLUDE PL.INIT.INCLUDE
*
      V.OPT = INDEX(SENT<2>,'V',1) <> 0
*
      OPEN 'DEBUG.LOG' TO LOG.FD ELSE CALL PLXX.STOP(201,'DEBUG.LOG')
*
      HEADING "PicLan-IP Debug Log 'LL'"
*
      PL_EXECUTE 'SSELECT DEBUG.LOG' CAPTURING DUMMY
*
      SELECTE TO SEL0
      EOF = NO
      LOOP
         READNEXT ID FROM SEL0 ELSE EOF = YES
      UNTIL EOF DO
         IF V.OPT OR FIELD(ID,'!',2) = '001' THEN
            PRINT ID 'L#20' : OCONV(ID[1,5],'D2/') : ' ' : OCONV(ID[6,5],'MTS')
         END
         READ D FROM LOG.FD , ID THEN
            SELECT D
            SELECTE TO SEL1
            EOF1 = NO
            LOOP
               READNEXT S FROM SEL1 ELSE EOF1 = YES
            UNTIL EOF1 DO
               PRINT S[1,131]
            REPEAT
         END
      REPEAT
   END
