$!
$! Command procedure to invoke the LIST utility.
$!
$! Description:
$!
$!	If a wildcard (* or %) or a directory name with (...) is found,
$! the directory utility wil be used to create a command file to be
$! passed to LIST.  This will allow wildcard UIC's and subdirectorys.
$!
$	list := "mcr list"
$	if p1 .eqs. "*" then p1 := "*.LIS"
$	size = 'f$length(p1)
$	if size .eq. 0 then goto normal
$	if 'f$locate("[*",p1) .ne. size then goto wildcard
$	if 'f$locate("...",p1) .ne. size then goto wildcard
$	if 'f$locate("%",p1) .eq. size then goto normal
$wildcard:
$	term := 'f$logical("TT")'
$	disk := 'f$logical("SYS$SYSDISK")'
$	temp := 'disk'[SCRATCH]'f$extract(1,4,term)'.tmp
$	dir := directory/noheader/notrailer/output='temp'
$	on control_y then goto cleanup
$	dir 'p1'
$	assign/user_mode sys$command sys$input
$	list @'temp'
$cleanup:
$	delete 'temp';0
$	exit
$normal:
$	assign/user_mode sys$command sys$input
$	list 'p1'