$!		Build the symbols for GSAS
$!
$	'GSAS_VERSION'C	==	"''P1'"							!GSAS command files
$	'GSAS_VERSION'D	==	'GSAS_VERSION'C-".COM]"+".DATA]"			!GSAS data files
$	'GSAS_VERSION'P	==	'GSAS_VERSION'C-".COM]"+".PARM]"			!GSAS parameter files
$	'GSAS_VERSION'X	==	'GSAS_VERSION'C-"GSAS.COM]"+"GSAS.EXE]"			!GSAS executables
$!
$	SET	MESS/NOTEXT/NOID/NOFAC/NOSEV						!There is no need to note an ERROR
$	IF F$FILE_ATTRIBUTES("SYS$LIBRARY:DECW$XLIBSHR.EXE","KNOWN") THEN - 		! if the check for DECWindows fails
	'GSAS_VERSION'X ==	'GSAS_VERSION'X-"]"+"W]"
$	SET	MESS/TEXT/ID/FAC/SEV							!Resume normal ERROR reporting
$!
$!	Define logicals for LANSCE Archive optical disks - If you have
$!	LANSCE raw data files ("IDF files") then modify these logicals
$!	to point at the directory you have placed them in. This is only
$!	needed by FSTBUSBIN and the SCD specific programs.
$!
$!	DEFINE/NOLOG	850001	ARCHIV::ODA0:[DATA_ARCHIVE]
$!	DEFINE/NOLOG	880001	ARCHIV::ODA0:[DATA_ARCHIVE]
$	DEFINE/NOLOG	LANSCE_ARCHIVE	WNR_REMOTE_ARCHIVE_DIRECTORY
$!
$!		Define the operating conditions such as listint page length
$!		and the default for GENLES and other long running codes
$!
$	PGLTH	=	F$TYPE(PAGE_LENGTH)
$	IF	PGLTH.EQS.""	THEN	PAGE_LENGTH	==	60
$	PGLTH	=	F$TYPE(DEFAULT_ONLINE)
$	IF	PGLTH.EQS.""	THEN	DEFAULT_ONLINE	==	"OFFLINE"
$!
