%
% stack: ziptext posn linetext
%
% extract file stats
%
"|" 1 3 1 parse
!Zip.FileDtime
!Zip.FileSize
dup !Zip.FileName
1 right "/" eq$
dup
{
%
% convert the directory branch to backslash format
% use this with Zip.Fdir as the current focus
%
 _Zip.FileName "/" "\" replall !Zip.Focus
} if
%
% indicate whether item (true) or folder (false)
%
not
%
% stack: is-zip-item
%