%
% create an entry in focused directory with YYYYMMDDhhmmss_00000000001_nn..nn.txt
% date_filesize_ordinal
% construct fire code text to impart summarized info
%
empty
"Zip.Fname" sval
"Zip.Filer" sval
"Zip.FileDtime" sval
"Zip.FileSize" sval
"Zip.FileName" sval
"Zip.Focus" sval
"Zip.Ref" sval
"Zip.Fdir" sval
"Zip.Inflow" sval
"Zip.Outflow" sval
"Zip.Text" sval
"Zip.Ordinal" sval

_Zip.FileDtime dup Time.DateOrder exch Time.TimeOrder & &"_"
_Zip.FileSize 11 prezero & &"_"
&_Zip.Ordinal
text
^_Zip.Filed write