_Summ.Chunk any?
{
%
% there is a chunk to process
%
% stack: new-coll
%
 false !Telm.Flaw
 "TIME" slicex trim
"yfla" log)(
 dup numeric second length) 6 eq and not _Telm.Flaw or !Telm.Flaw
 !Telm.Date
 "TOTAL COUNT" slicex trim
"yflb" log)(
 dup numeric second length) 6 eq and not _Telm.Flaw or !Telm.Flaw
 !Telm.Time
 "T 9" slicex trim
"yflc" log)(
 !Telm.Tcount
 "T10" slicex trim 9 *machinct
"yfld" log)(
 !Telm.T9
 "T11" slicex trim 10 *machinct
"yflf" log)(
 !Telm.T10
 "T12" slicex trim 11 *machinct
"yflg" log)(
 !Telm.T11
 "DATE " left$ trim 12 *machinct
"yflh" log)(
 !Telm.T12
 _Telm.T12 any)?
"t12" log)(
 _Telm.Flaw
"flaw" log)(
 not and
 {
  empty
  "Telm.Msec" sval
  "Telm.Date" sval
  "Telm.Time" sval
  "Telm.Tcount" sval
  "Telm.T9" sval
  "Telm.T10" sval
  "Telm.T11" sval
  "Telm.T12" sval
  &"/*
" &_Summ.Chunk &; &"*/
"
  _Telm.Date &"_" &_Telm.Time text
  "HitachiA" connect
  dup !Telm.File
  write
  _Telm.Date &","
  _Telm.Time &"," &
  _Telm.Tcount &"," &
  _Telm.T9 &"," &
  _Telm.T10 &"," &
  _Telm.T11 &"," &
  _Telm.T12 &; &
  _Telm.File ".csv" reextend write
 }
 {
"not12" log#
 } ifelse
 empty !Summ.Chunk

}
{
%
% check for collected data, to extract chunk
%
 *machchnn

} ifelse