%
%
%
_Summ.Text
"-- " _Telm.Tcount _Summ.Halfer sub & 
&" --> " _Telm.Tcount
dup !Summ.Halfer
_Summ.Bcnt sub &
&" --> =" &_Telm.Tcount
&"
 (" _Summ.Xval Time.TimeOf & &")"
&;
&
_Summ.Xval
^"Data summary ends at: " &;
&"   with a total of: " _Telm.Tcount _Summ.Bcnt sub & &;
&

"TCOUNT," !Summ.Haxis

40 countup
{
 dup ^"Summ.TT" dup _ negative
%
% stack: display index target prior-neg
%
"ttproc " &3 log)(
 {
%
% has not been used in tool sequence
%
% stack: display index target
%
  pop2
 }
 {
%
% has been used in tool sequence, show current number
%
% stack: display index target
%
  "T" third 2 prezero & &"," ^:Summ.Haxis
  
  "Tool " &3) &" --- " exch _ & &;
  &
 } ifelse

} for

_Summ.Year &"," &_Summ.Month &"," &_Summ.Day
_Summ.Fprefix &"T.csv" ofbin write

_Summ.Haxis -1 right
_Summ.Fdated &"H.csv" ofbin write

"_SummaryHA" &_Summ.Year _Summ.Month 2 prezero & _Summ.Day 2 prezero & text!bin