%
% Xpan step has been merged
%
% stack: pshop-info-file
%
"xpanc" log)(
fromjs exec

%
% get the next image
%
_Xpan.Stills
_Xpan.Current
{
 "Micros_S*.txt" nextof ?
 empty !Scope.Series
 filing exec
 _Scope.Series any?
 {
  zero
  {
%
% end of the desired series
%
   pop empty
  }
  {
%
% part of series being processed
%
  } ifelse
  true ?
 } if

} loop
pop2nd

%
% stack: series-next
%
any?
{
%
% next in the series, process the stills into the main file
%
% stack: series-next
%
 dup !Xpan.Current
 *xpanproc
}
{
%
% series ended, save the main file named after last series file
%
% stack:
%
 *xpansave
} ifelse