$!	name: delsub.com
$!
$!	location: sys$library
$!
$!	by: s. szep (based on Allen Watson's DECUS paper)
$!
$!	date: 1/3/85
$!
$!	revised: 3/16/85
$!
$!	purpose: to delete all subdirectories of a directory.
$!
$!	note: called by DELTREE.COM
$!
$!
$ 	on warning then goto done
$!
$	dirtodelete = f$directory()
$!
$!	see if subdir's exist; 
$!		if so, delete them.
$!
$ sub_loop:
$	subdir = f$search("*.dir;1")
$	if subdir .eqs. "" -
		then goto do_one
$ 	subname = f$parse(subdir,,,"name")
$	subdir = dirtodelete - "]" -
		+ "." + subname + "]"
$	set default 'subdir'
$!
$!	invoke this procedure recursively
$!
$	@ac$mgr:delsub
$	set default [-]
$	goto sub_loop
$!
$ do_one:
$ 	if f$search("*.*;*") .eqs. "" -
		then goto done	
$	set prot = (s:rwed) -
		'dirtodelete'*.*;*
$	delete/nocon *.*;*
$ done:
$	exit