.; ink.cmd - create a '<libuic>'foo.cmd
.; p1	name of .cmd file					foo
.; p2	purpose of .cmd file				install_lisp.cob
.; #2	file to write commands to for backout
.; #3	file to write requirements
.;
.; backout:	delete lb:'<libuic>'-.cmd
.;
	.enable substitution
	.enable escape
	.data #3 you will need system command file 'p1'.cmd for 'p2'
	.sets cnam "LB:'<libuic>''p1'.CMD"
	@ini ...pip $pip DEC_file_utility
	.testfile 'cnam'
	.if <filerr> <> 1 .goto 100
	; 'cnam' already exists.
	; I can (1) supercede it or (2) leave it alone
	.testfile 'cnam'
	.sets old "'<filspc>'"
	.testfile 'p1'.cmd
	.sets new "'<filspc>'"
	.ask superc Supercede 'old' with 'new'
	.iff superc .exit <succes>
.100:
.retry:
	pip 'cnam'/nv=sy:'<uic>''p1'.cmd
	.if <exstat> = <succes> .goto made
	; PROBLEM -- I couldn''t install 'cnam'
	; 'cnam' is used for 'p2'
	.asks junk type <ESCAPE> to continue regardless, <RETURN> to retry
	.ift <escape> .goto banzai
	; PAUSING so you can correct the problem before retrying
	.pause
	.goto retry
.banzai:
.made:
	.testfile 'cnam'
	.data #2 pip '<filspc>'/de/nm
	.exit <succes>
