%
% stack: new-phase
%
!Camera.Phase
empty
"Camera.Phase" sval

amach
{
 "phase" text!xact
 _Camera.Phase "Post" eq$
 {
  "phase.txt" ofxact ".xtx" overext
  _Xact text ofcur del
 } if

}
{
 "phase_" &_Arching.ServLock text!xact
/*
 false !found
 "Prog_" textwild
 empty ofxone
 empty
 {
  true !found
  filing
  "Prog_" &_Arching.ServLock &"_" &_Xact
  &"_" &_Camera.Phase &"_" basenow & text
  rename
  true ?
 } loop
 filing)
 _found not
 {
  _Arching.ServLock
  "Prog_" &_Arching.ServLock &"_" &_Xact
  &"_" &_Camera.Phase &"_" basenow & text ofxone
  write
 } if
*/
} ifelse