INTEGER MKSACL,GFNARG,GTACL$,EXPAND,GCDIR$,EQUAL
      INTEGER PATH(180),ACLPA0(180),PAIRS(200)
      INTEGER XPATH(180),SEP(4)
      INTEGER STATE(4),TYPE,KEY,ATTAC0
      LOGICAL VERBO0,DOPAI0,DOLONG,DOPRI0
      INTEGER A$BUF(200)
      INTEGER USAGE(60)
      INTEGER CANT(27)
      INTEGER TYPEI(7)
      INTEGER TYPES(64)
      INTEGER PARSCL
      INTEGER AAAAA0(35)
      INTEGER AAAAB0(3)
      INTEGER AAAAC0(2)
      INTEGER AAAAD0
      INTEGER AAAAE0
      INTEGER AAAAF0(4)
      INTEGER AAAAG0(7)
      INTEGER AAAAH0(4)
      INTEGER AAAAI0(3)
      INTEGER AAAAJ0(2)
      INTEGER AAAAK0(5)
      DATA USAGE/213,243,225,231,229,186,160,236,225,227,236,160,219,173
     *,236,221,160,219,173,226,160,219,173,225,221,221,160,219,173,240,2
     *21,160,219,173,244,221,160,219,173,227,221,160,219,173,246,221,160
     *,251,188,240,225,244,232,238,225,237,229,190,253,0/
      DATA CANT/195,225,238,238,239,244,160,236,233,243,244,160,225,227,
     *236,160,230,239,242,160,167,170,243,167,170,238,0/
      DATA TYPES/243,240,229,227,233,230,233,227,0,225,227,225,244,0,228
     *,229,230,225,245,236,244,160,243,240,229,227,233,230,233,227,0,228
     *,229,230,225,245,236,244,160,225,227,225,244,0,233,243,160,225,238
     *,160,225,227,225,244,0,240,242,233,239,242,233,244,249,0/
      DATA TYPEI/6,1,10,15,32,45,56/
      DATA AAAAA0/236,188,230,190,225,188,230,190,226,188,230,190,227,18
     *8,230,190,240,188,230,190,244,188,230,190,246,188,230,190,238,188,
     *233,231,238,190,0/
      DATA AAAAB0/170,238,0/
      DATA AAAAC0/160,0/
      DATA AAAAF0/170,243,160,0/
      DATA AAAAG0/226,249,160,170,243,160,0/
      DATA AAAAH0/170,243,160,0/
      DATA AAAAI0/160,168,0/
      DATA AAAAJ0/169,0/
      DATA AAAAK0/170,243,170,238,0/
      IF((PARSCL(AAAAA0,A$BUF).NE.-3))GOTO 10000
        CALL ERROR(USAGE)
10000 DOLONG=(A$BUF(236-225+1).NE.0)
      DOPRI0=(A$BUF(240-225+1).NE.0)
      VERBO0=(A$BUF(246-225+1).NE.0).OR.DOLONG
      DOPAI0=.NOT.((A$BUF(244-225+1).NE.0).OR.(A$BUF(226-225+1).NE.0))
      DOPAI0=DOPAI0.OR.DOLONG.OR.(A$BUF(225-225+1).NE.0)
      IF((A$BUF(227-225+1).NE.0))GOTO 10002
      IF(DOLONG)GOTO 10002
      GOTO 10001
10002   CALL CTOC(AAAAB0,SEP,3)
        GOTO 10003
10001   CALL CTOC(AAAAC0,SEP,3)
10003 IF((.NOT.DOPRI0))GOTO 10004
        KEY=2
        GOTO 10005
10004   KEY=1
10005 STATE(1)=1
10006   AAAAD0=GFNARG(XPATH,STATE)
        GOTO 10007
10008     CALL SWT
10009     CALL ERROR(USAGE)
        GOTO 10010
10007   AAAAE0=AAAAD0+4
        GOTO(10009,10011,10008),AAAAE0
10011     IF((EXPAND(XPATH,PATH,180).NE.-3))GOTO 10012
            CALL PRINT(-15,CANT,XPATH)
            GOTO 10013
10012       IF((GTACL$(PATH,KEY,ATTAC0).NE.-3))GOTO 10014
              CALL PRINT(-15,CANT,XPATH)
              GOTO 10015
10014         IF((MKSACL(ACLPA0,PAIRS,TYPE,SEP).NE.-3))GOTO 10016
                CALL PRINT(-15,CANT,XPATH)
                GOTO 10017
10016           IF((.NOT.DOPRI0))GOTO 10018
                  TYPE=5
10018           IF((.NOT.VERBO0))GOTO 10019
                  CALL PRINT(-11,AAAAF0,PATH)
10019           IF(DOLONG)GOTO 10021
                IF((.NOT.VERBO0))GOTO 10022
                IF((A$BUF(226-225+1).EQ.0))GOTO 10022
                GOTO 10021
10022           GOTO 10020
10021           IF(DOPRI0)GOTO 10020
                  CALL PRINT(-11,AAAAG0,ACLPA0)
                  GOTO 10023
10020             IF((A$BUF(226-225+1).EQ.0))GOTO 10024
                    CALL PRINT(-11,AAAAH0,ACLPA0)
10024           CONTINUE
10023           IF(DOLONG)GOTO 10026
                IF((A$BUF(244-225+1).NE.0))GOTO 10026
                GOTO 10025
10026             IF((.NOT.VERBO0))GOTO 10027
                    CALL PRINT(-11,AAAAI0)
10027             CALL PUTLIN(TYPES(TYPEI(TYPE+2)),-11)
                  IF((.NOT.VERBO0))GOTO 10028
                    CALL PRINT(-11,AAAAJ0)
10028           CONTINUE
10025           CALL PRINT(-11,SEP)
                IF((.NOT.DOPAI0))GOTO 10029
                  CALL PRINT(-11,AAAAK0,PAIRS)
10029         CONTINUE
10017       CONTINUE
10015     CONTINUE
10013   CONTINUE
10010   IF((ATTAC0.NE.1))GOTO 10030
          CALL FOLLOW(0,0)
10030 CONTINUE
      GOTO 10006
      END
C ---- Long Name Map ----
C dopairs                        dopai0
C verbose                        verbo0
C dopriority                     dopri0
C aclpath                        aclpa0
C attachsw                       attac0