%
% Conduit timing spurs
%
|8000 %%% 8200 !Gearing

%
% for all services
%
% timing services
%
 30 Time.Pulse
 30 !Aamg.Spin
 true !Initing
 Time.Now !Delta
 0 !Watchdog
 Time.Now !Watching
%
% flag for Conduit present
%
 true !Conduit.Stay
%
% gate for processing .tag files bound for Excel
%
 false !Conduit.Tagging

 0 !Conduit.Present

 false !Conduit.Gating

%
% initialize conduit slave system process
%
% user must close the Excel app if already running
%
 _Aamg.Testing
 {
  8101 !tick
 }
 {
  8101 !tick
 } ifelse
 100

|8001 8003 !Gearing
%
% use maximized coordinates for conduit size
%
 getmax !Cond.StartY !Cond.StartX
 0 App._Sub Win.Min
 *aamgspuh

|8003 8005 !Gearing
 *aamgspuh

|8005 8006 !Gearing
 *aamgspuh

|8006 8007 !Gearing
 *aamgspuh

|8007 8008 !Gearing
%
% start Excel. map key events, start workbook
%
 *zlsrstar
 *aamgspuh

|8008
%
% wait for proper zlsr startup procedures
%
 *aamgspuh

|8010 8020 !Gearing   %%%%%%%%%%%%%%

 _Initing
 {
  _Aamg.Testing
  {
  }
  {
  
  } ifelse
%%% *condzack
 }
 {

%
% delete next exec xtx file from Results
%
  *condnxex

 } ifelse
%
% for all services
%
 +Watchdog 8 gt
 {
  *watchers
 } if
 *zlsrmont
 *aamgspuh

|8020 8050 !Gearing
%
% execute directives from conduit
%
 *condcogs
 _Conduit.Stay _Initing or
 {
   *aamgspuh
 }
 {
%
% if conduit not present and not initial pass
% test engagement process
%
  8090 !tick
  100
 } ifelse

|8050 8080 !Gearing
 _Conduit.Tagging
 {
  *condmesa
 } if
 *aamgspuh

|8080 8090 !Gearing
 _Conduit.Tagging
 {
  *condmesa
 } if
 *aamgspuh

|8090 8010 !Gearing
%
% for all services
%
 _Initing
 {
%
% first pass through timing sequence
%
  _Xls.Uhwnd *winrects
"xlsurect" log)(
  pop
%
% zero conduit present counter
%
  0 !Conduit.Present
 }
 {
%
% not initial pass
%
  _Conduit.Stay
  {
%
% conduit still present
%
   0 !Conduit.Present
  }
  {

%
% conduit not present, force excel exit status 
%
   `"<ExitMenu ord=""1999999"" ></ExitMenu>"`
   "cndV_1999999_ExitMenu.txt" oftell write

%
% proceed to exit
%
   8200 !Gearing

  } ifelse
 } ifelse
 false !Initing
 *aamgspuh

|8101 8001 !Gearing
%
% currently this test of workbook present is disabled
%
 false !Xls.Already
%%% *zlsrstas
 _Xls.Already
 {
  `"<Closer ord=""1999999"" ></Closer>"`
  "cndV_1999999_Closer.txt" oftell write
  8200 !Gearing
 }
 {
 } ifelse
 *aamgspuh

|8200 8201 !Gearing
%
% unhook from Excel main events, close the workbook
%
 *zlsrloay
 *aamgspuh
%
% wait for 
%
|8201 8202 !Gearing
 *aamgspuh
|8202 8203 !Gearing
 *aamgspuh
|8203 8204 !Gearing
 *aamgspuh
|8204 8205 !Gearing
 *aamgspuh
|8205 8206 !Gearing
%%% *zlsrstas
 *aamgspuh
|8206
%
% exit the monitoring of Excel
%
 0 !tick
 *shutdown
 1000

|8300 8101 !Gearing
 *aamgspuh

|8400 8010 !Gearing
 *aamgspuh