%
% check if this is an OpNew using a test person
%
_Aamg.Testing _Aamg.Inject and
"aamginj" log)(
{
 dup term4 noext
%
% don't do test sequence if already
%
 "Zseq_" &2
"zseqz" log)(
 _ any)?
"zseqa" log)(
 {
%
% already injected
%
  pop
 }
 {
%
% no injections yet
%
  dup 3 left "999" eq$
"zseqb" log)(
  {
%
% if in test mode and inject, start the test image snap timer
% start the shot injection timer if testing
%
%
% place aamg test injection of image downstream 15 seconds 
%
   ^"Zseq_"
"zseqy" log)(
   true exch !
   "*aamgtest" "shot_inject_1" "aamg" 15000 *timeract
   !Act.Timer
  }
  {
   pop
  } ifelse
 } ifelse
} if