/*

to hold, merge into hold\extension
no extension
. in front
_ in front
number in front
hyphen in fname
no _ within fname

to merge as text
.320
.340
.360
.380
.430
.620
.720
.aam
.bak
.xtx
.yxy
.sph
.zxz
.txt

.?320
.?340
.?360
.?380
.?430
.?620
.?720
.?aam
.?txt
*/

empty
_Zip.Outflow

{
 seq121 File.PrevDirOf
%
% stack: srch-dir prev-dir
%
 isnull ?
true !Zip.Merg

/*
dup extension "." empty replall
dup !Zip.Plain
length 4 eq
{
%
% look for the last 3 of 4 characters matching
% the accepted list of 3 character extensions
%
 -1 left <robtlook>
 {
%
% if it is txt we want to merge it
%
  true !Zip.Merg
 } if   
}
{
%
% the extension past the dot
% is not a 4 character string
% if it is a txt we want the Zip.Merg
% to be overidden to false (happens in robtlook) 
%
 <robtlook> pop
} ifelse
%
% Zip.Merg is true if the directory of that
% filename is to be merged into the .txt version
%
% stack: srch-dir prev-dir
%
_Zip.Merg
{
%
% move the directory this represents into
% the .txt version
%
 dup ^_Zip.Outflow
 dup retext
 movedir
} if
%
% stack: srch-dir prev-dir
%
*/

exch
} loop
filing)