%
% create time-chain summary
%
empty !Summ.Begin
60 60 mul 1000 mul !Summ.Period
0 !Summ.Diff
0 !Summ.From
0 !Summ.Halfer
0 !Summ.Aller
empty !Summ.Text
empty !Summ.Prior
"*.*" !wilder
"d0123E25E3ED317F7FE\xtx\" ofconn
dup &"xtime" folder !Summ.Xtime
dup &"ytime" folder !Summ.Ytime
dup &"..\Timed" folder !Summ.Timed
_Summ.Prior
{
 nextfile ?
 dup !Summ.Prior
 *machmsgq
 {
  "Rcved" <_Msg.Lookup>
  {
   _Msg.Rcved
   hex2asc
   "%" empty replall
   trim
"trimd" log)(
   dup numeric
   {
    !Summ.Data
%
% have a telem tick
% parse the time into a date\triad folder
%
    dup "_" right$ "." left$
    dup !Summ.Ms
    fromjs$ "Eastern Standard Time" Time.UtcTo
    dup !Summ.Xval
    dup Time.TimeOrder !Summ.XstampT
    Time.DateOrder dup !Summ.XstampD
    ^_Summ.Timed folder
%%% "xfold" log)(
    !Summ.Xfold
%
% put a digested tick into the time folder
%
    empty
    "Summ.Data" sval
    "Summ.Xval" sval
    "Summ.XstampD" sval
    "Summ.XstampT" sval
    _Summ.XstampT ^_Summ.Xfold text
    write
    _Summ.Begin isnull)
    {
     _Summ.Xval dup !Summ.Begin
     ^"Dusan A - Data summary begins at: " &;
     &"   with hourly subtotals" &;
     !Summ.Text
     _Summ.Ms !Summ.From
    } if
    _Summ.Ms _Summ.From sub
"per" log)(
    _Summ.Period gt
    {
     _Summ.Text
     _Summ.From _Summ.Period add !Summ.From
     _Summ.Aller _Summ.Data sub !Summ.Aller
     _Summ.Halfer _Summ.Data sub !Summ.Halfer
     "-- " &_Summ.Halfer &" --> " &_Summ.Aller
     &" (" _Summ.Xval Time.TimeOf & &")"
     &;
     &
     !Summ.Text
     _Summ.Data !Summ.Halfer
     _Summ.Aller _Summ.Data add !Summ.Aller
    }
    {
     _Summ.Aller _Summ.Data add !Summ.Aller
     _Summ.Halfer _Summ.Data add !Summ.Halfer
    } ifelse
   }
   {
    pop
   } ifelse
  }
  {
  } ifelse
 } if
 dup ^3
 _Summ.XstampD &"_" &_Summ.XstampT text ^_Summ.Ytime
 copyfile
 dup ^3
 second ^_Summ.Xtime
 overwrite
} loop
filing)
_Summ.Text
"-- " &_Summ.Halfer &" --> " &_Summ.Aller
&" (" _Summ.Xval Time.TimeOf & &")"
&;
&
_Summ.Xval
^"Data summary ends at: " &;
&"   with a total of: " &_Summ.Aller &;
&
"_SummaryDA" text!bin