d $!{DO}	KILL directory.subdirectory... {YES}
È $!		Kill a directory
,$!
$!	If the directory is not empty, then the contents are listed,
ô$! and the user is asked if he wishes to delete the non-empty directory
X$!
¼$!	If the user entered YES, either in the CALL, or the response,
 $! then the directory is KILLed anyway
„$!
è$! note.. Creates and Deletes KILLWORK.VX
L$!
°$!-end.of.info-
$
x$ if( 'f$length( p1 ).eq.0 ) then inquire p1 "_KILL what"
Ü$ if( p1 .eqs."" ) then exit
@$
¤$ if( 'f$locate("[",p1).eqs.'f$length(p1) ) then p1 := ['p1'
$ if( 'f$locate("]",p1).eqs.'f$length(p1) ) then p1 := 'p1']
l$ if('f$locate(":",p1).eqs.'f$length(p1)) then -
Ð   p1 := 'f$logical("SYS$DISK")''p1'
4$ assign/user nl: sys$output
˜$ directory 'p1'/out=KILLWORK.VX
ü$ open/err=notdir killwork KILLWORK.VX
`	$ read/end=nofile killwork line
Ä	$ close killwork
(
$ copy killwork.VX sys$output
Œ
$ delete KILLWORK.VX;*
ð
$ if( p2.eqs."YES" ) then goto yeskill
T$ inquire killit "_Note ''p1' still has files, Kill it <~y>"
¸$ killit := 'f$extract(0,1,killit)
$ if(killit.nes."Y") then exit
€$
ä$yeskill:
H$ del 'p1'*.*.*
¬$ goto dokill
$
t$nofile:
Ø$ close killwork
<$ delete KILLWORK.VX;*
 $
$dokill:
h$ len = 'f$length(p1)
Ì$ pos = len
0$
”$finddir:
ø$ if( "''f$extract( pos,1,p1 )'" .eqs. "." ) then goto gotdir
\$ pos = pos-1
À$ if( pos.gt.0 ) then goto finddir
$$  ilbr = 'f$locate("[",p1)+1
ˆ$  irbr = 'f$locate("]",p1)
ì$  hold := 'f$extract(0,ilbr,p1)'0,0]
P$  ilen = irbr - ilbr
´$  name := 'f$extract(ilbr,ilen,p1)'.dir
$  goto killmain
|$
à$notdir:
D$ write sys$output "_NO!! ",p1," isn't a subdirectory."
¨$ exit
$
p$gotdir:
Ô$ hold := 'f$extract(0,pos,p1)"]"
8$ loc = pos+1
œ$ siz = len-pos-2
 $ name := 'f$extract(loc,siz,p1)".dir"
d$
È$killmain:
,$ write sys$output "_O.K. ",p1," is dead."
$ set/protection=w:d 'hold''name'
ô$ delete 'hold''name';*