%
% stack: directive-root
%
Task.@
anytext conn(
{
 nextfile ?
%
% use the third term, ms time stamp, to create a process absorption into the run tree
%
%%% reading second noext term3 *ymlxsurr
%
% stack: conn-dir seed surr-xml
%
% surround this new xml time-stamped content with
% branch tag of current absorbed
% photo system operations xml directive
%
%%% "PhoSys" web!
 true ?
} loop
any?
{
 reading tuck
 finaled
 pop2
 true
}
{
 pop
 false
} ifelse

%
% stack: [ svc-msg ] has-svc-msg
%