%
% example "20241016" "d:\___Work\" "c"
%
% stack: directory dir-path ordinal
%

!Zip.Iter

!Zip.Srcer

!Zip.Loc

_Zip.Loc "\" "$" replall
_Zip.Srcer 1 left ^
^_Zip.Iter
"zipock" log)(
!Zip.Pocket

_Zip.Srcer &_Zip.Loc &"\"

*testlisz

"C:\___Work\___Zipper" folder
dup !Zip.Basis
&"___Source" folder
!Zip.Outflow

_Zip.Pocket ^_Zip.Outflow folder
"zipt" log)(
!Zip.Target

"" textwild
_Zip.Basis
empty
{
 nextfile ?
"outflow" log)(
 dup ^3 second ^_Zip.Target
"mvto" log)(
 movefile
} loop
filing)