	.ENABLE SUBSTITUTION
;
;		'<FILSPC>'
;
;	Install FIGURE on an RSX system
;
	.SETS S$OUIC <UIC>
	.SETS S$MCR "MCR "
	.IF <CLI> = "MCR"	.SETS S$MCR ""
	.PARSE <FILSPC> ":]" S$DDEV S$DUIC S$JUNK
	.SETS S$DDEV S$DDEV+":"
	.SETS S$DUIC S$DUIC+"]"
	'S$MCR'ASN 'S$DDEV'=SY:
	'S$MCR'SET /UIC='S$DUIC'
	.TESTFILE 'S$DDEV''S$DUIC'FIG.TSK
	.IF <FILERR> <> 1	@FIGBLDRSX FALSE

	.SETS S$INS S$DDEV+S$DUIC
	.ASK L$Q Shall I copy your task image to LB:'<LIBUIC>'
	.IFF L$Q	.GOTO FIGCOP
	'S$MCR'SET /UIC='<LIBUIC>'
	'S$MCR'PIP LB:'<LIBUIC>'/NV='S$DDEV''S$DUIC'FIG.TSK
	.SETS S$INS "LB:'<LIBUIC>'"
.FIGCOP:.;

	.ASK L$Q Shall I install the help files
	.IFF L$Q .GOTO HLPDON
	'S$MCR'SET /UIC=[1,2]
	.OPEN LB:FIG.TMP
	.DATA SET TE HCPY
	.DATA D ALL "<<VMS>>"
	.DATA S/<<RSX>>//WH
	.DATA EXIT
	.CLOSE
	'S$MCR'EDT LB:FIGURE.HLP='S$DDEV''S$DUIC'FIGSOURCE.HLP,LB:'<UIC>'FIG.TMP
	'S$MCR'PIP FIG.TMP;*/DE/NM
	.OPEN LB:FIG.HLP
	.DATA 1 FIGURE
	.DATA @FIGURE
	.CLOSE
	'S$MCR'PIP LB:FIG.HLP/PU & LB:*.*;1/RE=LB:FIG.HLP
	'S$MCR'PIP LB:FIGURE.HLP/PU & LB:*.*;1/RE=LB:FIGURE.HLP
	'S$MCR'SET /UIC='S$DUIC'
.HLPDON:.;

	'S$MCR'ASN =SY:
	'S$MCR'SET /UIC='S$OUIC'
	;
	; To complete your installation, you may wish to place the command
	;      INS 'S$INS'FIG/TASK=...FIG
	; in your startup command file, or execute it in VMR.
