INTEGER LASTC0,LASTS0,LASTD0,LASTE0,ARGCT,AP
      INTEGER I,J,SPOS,EPOS
      INTEGER GETARG,GETLIN,INDEX
      INTEGER ARG(102),NAME(102)
      INTEGER A$BUF(200)
      INTEGER USAGE0(45)
      INTEGER AAAAA0
      INTEGER PARSCL
      INTEGER AAAAB0(12)
      INTEGER AAAAC0
      INTEGER AAAAD0
      INTEGER AAAAE0(5)
      DATA USAGE0/213,243,225,231,229,186,160,160,226,225,243,229,238,22
     *5,237,229,160,173,168,226,252,230,252,243,252,228,252,231,169,160,
     *251,160,188,240,225,244,232,238,225,237,229,190,160,253,0/
      DATA AAAAB0/226,230,231,243,228,238,188,233,231,238,190,0/
      DATA AAAAE0/170,243,170,238,0/
      IF((PARSCL(AAAAB0,A$BUF).NE.-3))GOTO 10001
        CALL ERROR(USAGE0)
10001 ARGCT=0
      IF((A$BUF(226-225+1).EQ.0))GOTO 10002
        ARGCT=ARGCT+(1)
10002 IF((A$BUF(230-225+1).EQ.0))GOTO 10003
        ARGCT=ARGCT+(1)
10003 IF((A$BUF(243-225+1).EQ.0))GOTO 10004
        ARGCT=ARGCT+(1)
10004 IF((A$BUF(228-225+1).EQ.0))GOTO 10005
        ARGCT=ARGCT+(1)
10005 IF((A$BUF(231-225+1).EQ.0))GOTO 10006
        ARGCT=ARGCT+(1)
10006 IF((ARGCT.LE.1))GOTO 10007
        CALL ERROR(USAGE0)
10007 AP=1
      GOTO 10010
10008 AP=AP+(1)
10010 IF((GETARG(AP,ARG,102).EQ.-1))GOTO 10009
        AAAAA0=1
        GOTO 10000
10011 GOTO 10008
10009 IF((AP.NE.1))GOTO 10012
10013   IF((GETLIN(ARG,-10).EQ.-1))GOTO 10014
          I=INDEX(ARG,138)
          IF((I.EQ.0))GOTO 10015
            ARG(I)=0
10015     AAAAA0=2
          GOTO 10000
10016   GOTO 10013
10014 CONTINUE
10012 CALL SWT
10000 LASTC0=0
      LASTS0=0
      LASTD0=0
      I=1
      GOTO 10019
10017 I=I+(1)
10019 IF((ARG(I).EQ.0))GOTO 10018
        AAAAC0=ARG(I)
        GOTO 10020
10021     IF((ARG(I+1).EQ.0))GOTO 10022
            I=I+(1)
10022   GOTO 10023
10024     LASTC0=I
        GOTO 10023
10025     LASTS0=I
        GOTO 10023
10026     LASTD0=I
        GOTO 10023
10020   AAAAD0=AAAAC0-173
        GOTO(10026,10025,10027,10027,10027,10027,10027,10027,10027,10027
     *,10027,10027,10024,10027,10027,10027,10027,10027,10021),AAAAD0
10027   CONTINUE
10023 GOTO 10017
10018 LASTE0=I-1
      IF((A$BUF(228-225+1).EQ.0))GOTO 10028
        SPOS=1
        EPOS=LASTS0-1
        GOTO 10029
10028   IF((A$BUF(243-225+1).EQ.0))GOTO 10030
          EPOS=LASTE0
          IF((LASTD0.LE.LASTS0))GOTO 10031
            SPOS=LASTD0+1
            GOTO 10032
10031       SPOS=EPOS+1
10032     GOTO 10033
10030     IF((A$BUF(230-225+1).EQ.0))GOTO 10034
            SPOS=1
            IF((LASTD0.LE.LASTS0))GOTO 10035
              EPOS=LASTD0-1
              GOTO 10036
10035         EPOS=LASTE0
10036       GOTO 10037
10034       IF((A$BUF(231-225+1).EQ.0))GOTO 10038
              SPOS=LASTS0+1
              EPOS=LASTE0
              GOTO 10039
10038         SPOS=LASTS0+1
              IF((LASTD0.LE.LASTS0))GOTO 10040
                EPOS=LASTD0-1
                GOTO 10041
10040           EPOS=LASTE0
10041       CONTINUE
10039     CONTINUE
10037   CONTINUE
10033 CONTINUE
10029 I=SPOS
      J=1
      GOTO 10044
10042 I=I+(1)
      J=J+(1)
10044 IF((I.GT.EPOS))GOTO 10043
        NAME(J)=ARG(I)
      GOTO 10042
10043 NAME(J)=0
      CALL PRINT(-11,AAAAE0,NAME)
      GOTO 10045
10045 GOTO(10011,10016),AAAAA0
      GOTO 10045
      END
C ---- Long Name Map ----
C lastcolon                      lastc0
C lastslash                      lasts0
C lastdot                        lastd0
C lastchar                       laste0
C usagemsg                       usage0