.; kilfile - unprotect and delete a file

	.enable substitution

	.parse p1 "." nam ext
	.if <strlen> = 1 .sets p1 p1+"."

	.testfile 'p1'
	.sets file <filspc>
	.if <filerr> = 177746 .exit <succes>
	@[1,2]ballsup / Find file 'file' to delete it

	.sets home <uic>

	pip 'file'/pr:0
	.if <exstat> = <succes> .goto ok40
	.if <exstat> = <warnin> .goto ok20
	@[1,2]ballsup / Deprotect file 'file' before deleting it

.ok20:

	set /uic=[1,1]
	@[1,2]ballsup / Gain Filing privileges

	pip 'file'/pr:0
	@[1,2]ballsup / Deprotect file 'file' before deleting it

.ok40:

	pip 'file'/de
	@[1,2]ballsup / Delete file 'file'

	.if <uic> = home .goto ok60
	set /uic='home'
	@[1,2]ballsup / Forgo Filing privileges
.ok60:
