      INTEGER I
      INTEGER GETARG,GETLIN
      INTEGER LINE(102),PATH(180),TREE(256)
      IF((GETARG(1,LINE,102).NE.-1))GOTO 10000
10001     I=GETLIN(LINE,-10)
          IF((I.NE.-1))GOTO 10002
            GOTO 10003
10002     LINE(I)=0
          CALL EXPAND(LINE,PATH,180)
          CALL MKTR$(PATH,TREE)
          CALL PUTLIN(TREE,-11)
          CALL PUTCH(138,-11)
        GOTO 10001
10003   GOTO 10004
10000   I=1
        GOTO 10007
10005   I=I+(1)
10007   IF((GETARG(I,LINE,102).EQ.-1))GOTO 10006
          CALL EXPAND(LINE,PATH,180)
          CALL MKTR$(PATH,TREE)
          CALL PUTLIN(TREE,-11)
          CALL PUTCH(138,-11)
        GOTO 10005
10006 CONTINUE
10004 CALL SWT
      END
C ---- Long Name Map ----
