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