!Interrogate the user database ("adminfile": usually MANAGR:ADMIN.DAT)
!to find the owners of one or more directories and their groups.
!Parameter is a list of directory names separated by commas.
!J. Butler Oct 1984

include  "inc:fs.imp"
include  "inc:fsutil.imp"
include  "inc:util.imp"
include  "managr:addefs.inc"
include  "managr:admin.inc"

begin 
record  (admin fm) a
ownstring  (255) param,s = ""

param = cli param
param = current user if  param = ""
param = "ANON" if  param = ""

while  param # "" cycle 
   s = param and  param = "" unless  param -> s.(",").param
   if  find dir(s, a) start 
     show dir(a)
   else 
     to upper(s)
     printstring("Sorry, can't find ".s); newline
   finish 
repeat 

endofprogram