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