SUBROUTINE MAIN
      LOGICAL*1 BUF(36), CLOWER
      INTEGER DTYPE, GETARG
      LOGICAL*1 ST001Z(17)
      DATA ST001Z(1)/117/,ST001Z(2)/115/,ST001Z(3)/97/,ST001Z(4)/103/,ST
     *001Z(5)/101/,ST001Z(6)/58/,ST001Z(7)/32/,ST001Z(8)/32/,ST001Z(9)/1
     *12/,ST001Z(10)/119/,ST001Z(11)/100/,ST001Z(12)/32/,ST001Z(13)/91/,
     *ST001Z(14)/45/,ST001Z(15)/108/,ST001Z(16)/93/,ST001Z(17)/0/
      CALL QUERY(ST001Z)
      DTYPE = 5
      IF (.NOT.(GETARG(1, BUF, 36) .NE. -1))GOTO 23000
      IF (.NOT.(BUF(1) .EQ. 45 .AND. CLOWER(BUF(2)) .EQ. 108))GOTO 23002
      DTYPE = 6
23002 CONTINUE
23000 CONTINUE
      CALL GWDIR(BUF, DTYPE)
      CALL PUTLIN(BUF, 2)
      CALL PUTCH(10, 2)
      RETURN
      END