      SUBROUTINE PLU.ALLOW.PARSE(ROUTE,ALLOW.NET,ALLOW.MSK)
*PIC-LAN
*
*ALL
*PC
*N
*
*
*
      INCLUDE SYS.TYPE.INCLUDE
*
      ALLOW.NET = ''
      ALLOW.MSK = ''
      I1 = DCOUNT(ROUTE,AM)
      FOR I = 1 TO I1
         R = ROUTE<I>
         IF FIELD(R,' ',1) = 'ALLOW' THEN
            A.NET = FIELD(R,' ',2)
            A.MSK = FIELD(R,' ',3)
            IF A.MSK = '' THEN A.MSK = '255.255.255.255'
            IF A.NET MATCHES '1N0N.1N0N.1N0N.1N0N' AND A.MSK MATCHES '1N0N.1N0N.1N0N.1N0N' THEN
               ALLOW.NET<-1> = A.NET
               ALLOW.MSK<-1> = A.MSK
            END
         END
      NEXT I
*
      RETURN
   END
