SUBROUTINE MAIN
      LOGICAL*1 BUF(40), CLOWER
      INTEGER DTYPE, GETARG
      DTYPE = 5
      IF(.NOT.(GETARG(1, BUF, 40) .NE. -1))GOTO 23000
      IF(.NOT.(BUF(1) .EQ. 45 .AND. CLOWER(BUF(2)) .EQ. 108))GOTO 23002
      DTYPE = 6
      GOTO 23003
23002 CONTINUE
      IF(.NOT.(BUF(1) .EQ. 63 .AND. BUF(2) .EQ. 0))GOTO 23004
      CALL ERROR(17Husage:  pwd [-l].)
23004 CONTINUE
23003 CONTINUE
23000 CONTINUE
      CALL GWDIR(BUF, DTYPE)
      CALL PUTLIN(BUF, 2)
      CALL PUTCH(10, 2)
      RETURN
      END