&args cover   /* name of river coverage
/* transfer items to nodes from downstream arcs
&if [show program] ne 'ARC' &then; &do
   &type This must be started from ARC
   &return &pause 'Exiting.  Try again.'
&end
 
/* set up for processing
build  %cover% line  /* second argument added 9/27/96
renode %cover%
indexitem %cover%.aat FNODE# 
&if ^ [iteminfo %cover% -node JORDER -exists] &then
  additem %cover%.nat %cover%.nat JORDER 4 4 i
&if ^ [iteminfo %cover% -node SHREVE -exists] &then
  additem %cover%.nat %cover%.nat SHREVE 4 4 i
&if ^ [iteminfo %cover% -node STRAHLER -exists] &then
  additem %cover%.nat %cover%.nat STRAHLER 2 2 i
&if ^ [iteminfo %cover% -node TLENGTH  -exists] &then
  additem %cover%.nat %cover%.nat TLENGTH 4    12     F      3
 
relate add
arcnod
%cover%.nat
info
FNODE#
%cover%#
linear
rw
nodarc
%cover%.aat
info
ARC#
%cover%#
linear
ro
[unquote '']
 
tables
sel %cover%.nat
calc JORDER = nodarc//JORDER
calc SHREVE = nodarc//SHREVE
calc STRAHLER = nodarc//STRAHLER
calc TLENGTH = nodarc//TLENGTH
quit