/*makelctys.aml - make locality routes. Called from makeroutes.aml
/*
/* Bruce Harold, Eagle Technology, New Zealand.
/* bruce_harold@eagle.co.nz
/*
&args netcover placecover radius
clearselect
reselect %placecover% point type <> 'SBRB'
netcover %netcover% sbrb append
cursor p declare %placecover% point ro
cursor p open
&do &while %:p.aml$next%
allocate [value :p.%netcover%-id] end %radius% # out connected
cursor p next
&end
cursor p (!close remove!)
clearselect
/*
&return