.; kilmtdirs - delete empty directories

	.if <strlen> gt 1 .goto ok00
	;
	;	This will delete all empty directories.
	;
	;	If you create a file in one of these empty
	;	directories while I am working: you will annoy the
	;	filing system, you will lose any way of refering to the file
	;	and you will not regain the disk space that file occupies.
	;
	;	So say NO if you think anyone on the computer might be
	;	creating files.
	;
	.ask maybe Do you want to continue
	.iff maybe .exit <warnin>
.ok00:

	.enable substitution

	.sets home <uic>

	.ifins ...mtd .goto ok10
	ins $mtd
	@[1,2]ballsup / Install Empty Directory Finder (MTD)
.ok10:

	.ifins ...reo .goto ok20
	ins $reoder
.ok20:

	mtd >work
	@[1,2]ballsup / List all the empty directories

	reo <work >work "\@killfile `"
	set /uic=[1,1]
	@[1,2]ballsup / Gain File Manager Privileges

	@'home'work.

	set /uic='home'
	@[1,2]ballsup / Forgo File Manager Privileges

	.if p1 = "KEEPWORK" .goto ok80
	delete work;*
	@[1,2]ballsup / Clean up working files
.ok80:
