%
% zip text file entry, turn file name into directory
% create under Zip.Inflow name folder
%
_Zip.FileName "/" right$/
dup !Zip.Filer
^"\" ^_Zip.Inflow
^_Zip.Basis folder
%
% stack: filed-folder
%
"zipf" log)(
!Zip.Filed