$	set noon
$	verify= f$verify( 0 )
$	on control_y then goto exit_remember
$!
$! REMEMBER
$! Version 2.1
$!
$! Purpose:
$!
$!	Record the current default directory in the login root.
$!
$!	Example:	REMEMBER
$!
$! Author(s):  James J. Fullerton
$! Creation Date:  23-MAR-1989
$! Date Last Approved:  4-AUG-1989
$! Revisions (Date, Name, and summary of revision(s)):
$!
$! Record the default in the login root.
$!
$	open/write out_file SYS$LOGIN:SAVED.DEFAULT
$	write out_file f$environment("DEFAULT")
$	close out_file
$!
$ exit_remember:
$	verify= f$verify( verify )
$	exit