10	! ----- CURRENT_DIRECTORY.FUN -----
	!
	! ----- FUNCTION TO RETURN THE CURRENT DEFAULT DIRECTORY -----
	!
	! ---------- RETURNED: ----------
	!
	! ----- CURRENT_DIRECTORY = CURRENT DEFAULT DIRECTORY AS [xxxx] -----
	!
	! ----- Last Change 05/01/89 by Brian Lomasky -----
	!
	! ----- Teradyne, Inc., 179 Lincoln Street, Boston, MA  02111 -----
	! ----- (617) 482-2706, x3259 -----
	!
	! ----- Neither Brian Lomasky nor Teradyne, Inc. implicitly or -----
	! ----- explicitly implies this program is usable in any way. -----
	! ----- This program is released to the public domain in an -----
	! ----- "AS-IS" condition. -----
	!
	! ----- Restrictions: -----
	! -----   1) Requires VAX BASIC V2.4 or later. -----
	!
	FUNCTION STRING CURRENT_DIRECTORY
		OPTION TYPE = EXPLICIT

		EXTERNAL LONG CONSTANT RMS$_NORMAL

		DECLARE WORD CURR_DIR_LEN	! LENGTH OF CURRENT DIRECTORY
		DECLARE LONG SYS_STATUS		! SYSTEM SERVICE EXIT STATUS

		MAP (CDR) STRING CURR_DIR = 150%! CURRENT DIRECTORY

		EXTERNAL LONG FUNCTION SYS$SETDDIR ! GET/SET DEFAULT DIRECTORY

		! ----- GET CURRENT DIRECTORY -----
		SYS_STATUS = SYS$SETDDIR(, CURR_DIR_LEN, CURR_DIR)
		CALL LIB$STOP(SYS_STATUS BY VALUE) IF SYS_STATUS <> RMS$_NORMAL

		! ----- RETURN CURRENT DIRECTORY STRING -----
		CURRENT_DIRECTORY = LEFT(CURR_DIR, CURR_DIR_LEN)
	END FUNCTION