$	set noon
$	verify= f$verify( 0 )
$	on control_y then goto exit_children
$!
$! CHILDREN
$! Version 1.2
$!
$! Purpose:
$!
$!	List the next lower level directories of the current directory.
$!
$!	Example:	CHILDREN
$!
$! Author(s):  James J. Fullerton
$! Creation Date:  20-JAN-1989
$! Date Last Approved:  14-JUN-1989
$! Revisions (Date, Name, and summary of revision(s)):
$!
$!
$! Check for existence of any children.
$!
$	child= f$search( "*.DIR", 1 )
$	if child .eqs. ""
$	then
$		write sys$output "No children."
$		goto exit_children
$	else
$		write sys$output f$parse( child,,, "NAME" )
$	endif
$!
$! Get next child.
$!
$ get_next_child:
$!
$	child= f$search( "*.DIR", 1 )
$	if child .eqs. ""
$	then
$		goto exit_children
$	else
$		write sys$output f$parse( child,,, "NAME" )
$		goto get_next_child
$	endif
$!
$ exit_children:
$	verify= f$verify( verify )
$	exit