INTEGER A$BUF(200)
      INTEGER ARG(128),C
      INTEGER I,PWD(3),CODE,MAXLE0,LEVEL,ENTRY(32)
      INTEGER FOLLOW,GETARG,TSCAN$
      INTEGER USAGE(49)
      INTEGER AAAAA0
      INTEGER AAAAB0
      INTEGER PARSCL
      INTEGER AAAAC0(8)
      INTEGER AAAAD0(18)
      INTEGER AAAAE0(19)
      INTEGER AAAAF0
      INTEGER AAAAG0
      INTEGER AAAAH0(28)
      DATA USAGE/213,243,225,231,229,186,160,240,225,243,243,247,228,160
     *,219,173,243,160,219,188,236,229,246,229,236,243,190,221,221,160,1
     *88,240,225,243,243,247,239,242,228,190,160,251,188,228,233,242,190
     *,253,0/
      DATA AAAAC0/173,243,160,188,239,233,190,0/
      DATA AAAAD0/240,225,243,243,247,239,242,228,160,244,239,239,160,23
     *6,239,238,231,0/
      DATA AAAAE0/170,243,186,160,226,225,228,160,240,225,244,232,238,22
     *5,237,229,170,238,0/
      DATA AAAAH0/170,243,186,160,227,225,238,167,244,160,227,232,225,23
     *8,231,229,160,240,225,243,243,247,239,242,228,170,238,0/
      IF((PARSCL(AAAAC0,A$BUF).NE.-3))GOTO 10002
        CALL ERROR(USAGE)
10002 IF((A$BUF(243-225+1).EQ.2))GOTO 10003
        A$BUF(243-225+27)=31
10003 MAXLE0=A$BUF(243-225+27)+1
      IF((GETARG(1,ARG,128).NE.-1))GOTO 10004
        CALL ERROR(USAGE)
10004 CALL MAPSTR(ARG,2)
      IF((ARG(1).NE.0))GOTO 10005
        C=0
        GOTO 10006
10005   C='  '
10006 DO 10007 I=1,3
        PWD(I)=C
10007 CONTINUE
10008 I=1
      CALL CTOP(ARG,I,PWD,3)
      IF((ARG(I).EQ.0))GOTO 10009
        CALL ERROR(AAAAD0)
10009 I=2
      GOTO 10012
10010 I=I+(1)
10012 IF((GETARG(I,ARG,128).EQ.-1))GOTO 10011
        IF((FOLLOW(ARG,0).EQ.-3))GOTO 10013
          IF((A$BUF(243-225+1).EQ.0))GOTO 10014
            AAAAA0=1
            GOTO 10000
10015       GOTO 10016
10014       AAAAB0=1
            GOTO 10001
10017     CONTINUE
10016     CALL AT$HOM(CODE)
          GOTO 10018
10013     CALL PRINT(-15,AAAAE0,ARG)
10018 GOTO 10010
10011 IF((I.NE.2))GOTO 10019
        IF((A$BUF(243-225+1).EQ.0))GOTO 10020
          AAAAA0=2
          GOTO 10000
10021     GOTO 10022
10020     AAAAB0=2
          GOTO 10001
10023   CONTINUE
10022 CONTINUE
10019 GOTO 10024
10000 LEVEL=0
10025   AAAAF0=TSCAN$(ARG,ENTRY,LEVEL,MAXLE0,8)
        GOTO 10026
10027     GOTO 10028
10029     AAAAB0=3
          GOTO 10001
10030   GOTO 10031
10026   AAAAG0=AAAAF0+2
        GOTO(10027,10029),AAAAG0
10031 CONTINUE
      GOTO 10025
10028 GOTO 10032
10024 GOTO 10033
10001 CALL SPAS$$(0,PWD,CODE)
      IF((CODE.EQ.0))GOTO 10034
        CALL PRINT(-15,AAAAH0,ARG)
10034 GOTO 10035
10033 CALL SWT
10032 GOTO(10015,10021),AAAAA0
      GOTO 10032
10035 GOTO(10017,10023,10030),AAAAB0
      GOTO 10035
      END
C ---- Long Name Map ----
C dosubtree                      dosub0
C maxlevels                      maxle0
C docurrentdir                   docur0