$ Save_Verify	= f$verify( 0 )
$ SET NOON
$ !============================================================================
$ ! NAME :		OUT_FILE
$ !
$ ! ABSTRACT :		Sets up access to tools in this directory.
$ !
$ ! COMMAND PROCEDURES :
$ !
$ !	SETLOGS.COM	- Defines logical names.
$ !	SETSYMBS.COM	- Defines global symbols.
$ !
$ ! REVISIONS :
$ !	TODAYS_DATE	USER_NAME	ORIGINAL
$ !============================================================================
$
$ Save_Dir	:= 'f$logical( "sys$disk" )''f$directory()'
$
$ SET DEF	DIR_NAME
$
$ @setlogs
$ @setsymbs
$
$Return:
$ SET DEFAULT	'Save_Dir'				! restore directory
$ IF Save_Verify THEN SET VERIFY