      SUBROUTINE PLU.ALLOW.SUB(ADDR,ALLOW.NET,ALLOW.MSK,RESULT)
*PIC-LAN
*
*ALL
*PC
*N
*
*
*
      INCLUDE SYS.TYPE.INCLUDE
*
      IF ALLOW.NET = '' THEN
         RESULT = YES
         RETURN
      END
*
      RESULT = NO
      I1 = DCOUNT(ALLOW.NET,AM)
      FOR I = 1 TO I1 UNTIL RESULT
         CALL PLU.IP.AND(ADDR,ALLOW.MSK<I>,RES.IP)
         IF RES.IP = ALLOW.NET<I> THEN RESULT = YES
      NEXT I
*
      RETURN
   END
