%
% no current chunk, see if one is available
%
 _Summ.Coll
 dup !Summ.Data
 "DATE " right$ any?
"yfl" log)(
%
% stack: [ right-of-date-header ] has-right
%
 {
%
% there is a begin date marker, check for next begin record
%
  "DATE " found?
  {
%
% the end marker has been found
%
   "DATE " slice ^"DATE " !Summ.Coll
   length 100 gt
   {
    pop empty
   } if
   !Summ.Chunk
  }
  {
%
% there is no end marker
%
"nofend" log)(
   pop
  } ifelse
 }
 {
%
% no begin marker
%
"noyfl" log#
 } ifelse