%
% stack: inflow-search
%

*zipinifo

"hold" &_Zip.Inflow ^_Zip.Basis folder !Zip.Holder

empty
_Zip.Outflow
{
 seq121 File.PrevDirOf
%
% stack: srch-dir prev-dir
%
 isnull ?
 false

 _Zip.Inflow &"_Hold" heretext exec$
"holding" log)(
 {
  filing
dup logs
  second ^_Zip.Holder movedir
 } if

 exch
} loop
filing)