#-h- pwd.r            448 asc 08-may-80 10:30:22
#-h- pwd.q            399 asc 08-may-80 10:30:17
 subroutine main

 character buf(FILENAMESIZE), clower
 integer dtype, getarg

# call initr4
 dtype = PATH
 if (getarg(1, buf, FILENAMESIZE) != EOF)
    if (buf(1) == MINUS & clower(buf(2)) == LETL)
	dtype = LOCAL
    else if (buf(1) == QMARK & buf(2) == EOS)
	call error("usage:  pwd [-l].")
 call gwdir(buf, dtype)
 call putlin(buf, STDOUT)
 call putch(NEWLINE, STDOUT)
# call endr4

 return
 end