      INTEGER A$BUF(200)
      INTEGER ARG(128)
      INTEGER I,OWNER(3),CODE,MAXLE0,LEVEL,ENTRY(32)
      INTEGER FOLLOW,GETARG,TSCAN$
      INTEGER USAGE(45)
      INTEGER AAAAA0
      INTEGER AAAAB0
      INTEGER PARSCL
      INTEGER AAAAC0(8)
      INTEGER AAAAD0(20)
      INTEGER AAAAE0(19)
      INTEGER AAAAF0
      INTEGER AAAAG0
      INTEGER AAAAH0(25)
      DATA USAGE/213,243,225,231,229,186,160,227,232,239,247,238,160,219
     *,173,243,160,219,188,236,229,246,229,236,243,190,221,221,160,188,2
     *39,247,238,229,242,190,160,251,188,228,233,242,190,253,0/
      DATA AAAAC0/173,243,160,188,239,233,190,0/
      DATA AAAAD0/239,247,238,229,242,160,238,225,237,229,160,244,239,23
     *9,160,236,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,239,247,238,229,242,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)
      DO 10005 I=1,3
        OWNER(I)='  '
10005 CONTINUE
10006 I=1
      CALL CTOP(ARG,I,OWNER,3)
      IF((ARG(I).EQ.0))GOTO 10007
        CALL ERROR(AAAAD0)
10007 I=2
      GOTO 10010
10008 I=I+(1)
10010 IF((GETARG(I,ARG,128).EQ.-1))GOTO 10009
        IF((FOLLOW(ARG,0).EQ.-3))GOTO 10011
          IF((A$BUF(243-225+1).EQ.0))GOTO 10012
            AAAAA0=1
            GOTO 10000
10013       GOTO 10014
10012       AAAAB0=1
            GOTO 10001
10015     CONTINUE
10014     CALL AT$HOM(CODE)
          GOTO 10016
10011     CALL PRINT(-15,AAAAE0,ARG)
10016 GOTO 10008
10009 IF((I.NE.2))GOTO 10017
        IF((A$BUF(243-225+1).EQ.0))GOTO 10018
          AAAAA0=2
          GOTO 10000
10019     GOTO 10020
10018     AAAAB0=2
          GOTO 10001
10021   CONTINUE
10020 CONTINUE
10017 GOTO 10022
10000 LEVEL=0
10023   AAAAF0=TSCAN$(ARG,ENTRY,LEVEL,MAXLE0,8)
        GOTO 10024
10025     GOTO 10026
10027     AAAAB0=3
          GOTO 10001
10028   GOTO 10029
10024   AAAAG0=AAAAF0+2
        GOTO(10025,10027),AAAAG0
10029 CONTINUE
      GOTO 10023
10026 GOTO 10030
10022 GOTO 10031
10001 CALL SPAS$$(OWNER,0,CODE)
      IF((CODE.EQ.0))GOTO 10032
        CALL PRINT(-15,AAAAH0,ARG)
10032 GOTO 10033
10031 CALL SWT
10030 GOTO(10013,10019),AAAAA0
      GOTO 10030
10033 GOTO(10015,10021,10028),AAAAB0
      GOTO 10033
      END
C ---- Long Name Map ----
C dosubtree                      dosub0
C maxlevels                      maxle0
C docurrentdir                   docur0
