*zipinifo

empty
_Zip.Outflow
{
 seq121 File.PrevDirOf
%
% stack: srch-dir prev-dir
%
"nxdir" log)(
 isnull ?

 _Zip.Inflow &"_Trim" heretext exec$

} loop
filing)