/* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
/* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

/* showdisconnects.aml 
/* Date: 3/11/02
/* Author: Brent L. Brock
/* Div. of Biology, Kansas State University

/* Description: Selects arc segments that are not connected to another user defined arc 
/* network. Designed for identifying disconnected stream segments in the National 
/* Hydrography Database

/* Runs in arcedit
/* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
/* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

&sv sel2 = 0
ef arc
&type 'Select an arc at the root of the stream network.'
sel
sel connect
&sv sel1 = [show number selected]
&do &until %sel1% = %sel2%
&sv sel1 = [show number selected]
asel connect
&sv sel2 = [show number selected]
&end
nsel
sfd n
&return