%
% stack: raw-instruct
%
"Insure" *nexushub

*atoptype
"valid" log)(
{
%
% valid instruct and type
%
 _Atop.Prefix &_Atop.Instruct
 dup !Atop.Target
 "c:\___Final" folder( !Atop.Dest
 ^
 folder( !Atop.Dir
 &_Atop.Target psd dup !Atop.Fspec
"fspec" log)(
 exists
"exists" log)(
 {
 }
 {
%
% we must copy the Content or Vector model psd to the newly created folder
% identified in Atop.Dir
%
  _Atop.Dest &_Atop.Type &"\" &_Atop.Type psd
  _Atop.Fspec
  copyfile

 } ifelse

 _Atop.Fspec tojs
 squoter
^"//+OpenFile
//*
OpenFile("
 jspend
%%% quoter
%%% &;

 *phocperf

 *phofront(

/*
&"*phocperf
"
 "atopen_open photoshop file" text!bin

"rem wait for Fire to close
rem can cancel operation here
pause
c:
cd \___Fire
Lancer.exe " _Arching.ServName lower & &" all tops atopen
"
 "atopen.cmd" ofbin writeb

 "atopen.cmd" ofbin quoter ^"cmd /C " *runsnorm

 "Exit" vector()
*/

}
{
%
% invalid instruct and type
%
} ifelse