%
% copy next sequential target
%
% stack: xact tack-dir seed xact-thumb xact-image
%
third term2 noext !Xact
ofxact
%
% stack: xact tack-dir seed xact-thumb src-large
%
 "images/ma" +counter 2 prezero & jpg ^_dtack copyfile
ofxact
%
% stack: xact tack-dir seed src-thumb
%
dup "tooltips/ma" _counter 2 prezero & jpg ^_dtack copyfile
%
% stack: xact tack-dir seed src-thumb
%
 "thumbnails/ma" _counter 2 prezero & jpg ^_dtack copyfile
%
% stack: xact tack-dir seed
%
"script.js" ^_etack read

'title:"Ma' _counter 2 prezero & &'"'
%
% stack: xact tack-dir seed orig-scr old-img-prefix
%

'title:'
_counter 1 eq
{
 &'parent.BasicData.FirstImg = '
} if
 &'"Xact ' &_Xact &'"'
%
% stack: xact tack-dir seed orig-scr old-image-prefix new-img-prefix
%

replall
%
% stack: xact tack-dir seed adj-scr
%
"script.js" ^_etack write

%
% stack: xact tack-dir seed
%
third
"mkaj" log)(
!Xact