%
% assign number to tool index sum
%
% stack: number index
%
dup ^"Summ.TT"
dup _
"priorn" &5 log)(
4 1 roll
%
% stack: prior-number number index target
%
fourth negative
"ttneg" log)(
{
%
% the tool has not been assigned, set the indexed sum
%
% stack: prior-number number index target
%
 pop2nd seq221 ! pop2nd
}
{
%
% stack: prior-number number index target
%
 third exch !
%
% stack: prior-number number index
%
 tuck
 isnull
 {
  pop dup
 } if
 2 copy gt
"prgt " &4 &" --< " &3 log)(
 {
%
% the tool has been changed
%
% stack: index prior-number number
%
  "**** Tool " &4) &" has changed, from " &3) &" to " &2 &;
dup logs
  ^:Summ.Text
 }
 {
%
% stack: index prior-number number
%
  pop2nd pop2nd 
 } ifelse
} ifelse
"finum" log)(
%
% stack: number
%