.; inx.cmd - ensure a file exists
.; p1	file spec					frotz
.; p2	why it is needed		access_codes_for_castor&pollax
.; IF 'P1' IS EMPTY, SUCCEED
.; #3	file to write requirements
.;
	.enable substitution
	.enable escape
	.data #3 file 'p1' must exist for 'p2'
	.test p1
	.if <strlen> = 0 .exit <succes>
.retry:
	.testfile 'p1'
	.if <filerr> = 1 .exit <succes>
	; PROBLEM -- I need file 'p1' 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:
