%
% Conduit timing spurs
%
|7000 %%% 7200 !Gearing
%
% for all services
%
 *tmngstar

%%% *chaining(
%
% initialize conduit system process
%

 0 !Atop.Ticker
%
% use the Combo as the non-Office setting, Dombo is Office route
%
 _Arching.Dombo
 {
%
% ramp up excel
%
  "*.cog" ofrslt delfiles
  "cndV_*.*" oftell delfiles

%
% copy in the Excel workbook that collects messages
% if it doesn't exist
%
  "BackServe\ZackServe.xlsm" ofcond exists
"zackexist" log)(
  {
  }
  {
   "Installed\BackServe\ZackServe.xlsm" ofcond
   "BackServe\ZackServe.xlsm" ofcond
   copyfile
  } ifelse

  7101 !tick
 }
 {
%
% only normal building and control
%
  7009 !tick
 } ifelse
 100

|7001 7003 !Gearing
%
% use maximized coordinates for conduit size
%
 getmax !Cond.StartY !Cond.StartX
 0 App._Sub Win.Min
 *aamgspug

|7003 7005 !Gearing
 *aamgspug

|7005 7006 !Gearing
 *aamgspug

|7006 7007 !Gearing
 *aamgspug

|7007 7008 !Gearing
%
% start Excel. map key events, start workbook
%
 *zlsrstar
 *aamgspug

|7008
%
% wait for proper zlsr startup procedures
%
 *aamgspug

/*
|7002 7010 !Gearing
 _Atop.Swover
 {
%
% engage vector 3
%
  3 atopvec
 }
 {
 } ifelse
 *aamgspug
*/

|7009
 0 *atoptick
 7200 !Gearing
 *aamgspug

|7010 7020 !Gearing   %%%%%%%%%%%%%%
 App.Standing
 {
  _Initing not
  {
%
% delete next exec xtx file from Results
%
   *condnxex
  } if
%
% the non-Office version has no excel user form
%
  _Xls.Uhwnd zero
  {
  }
  {
   *zlsrmont
  } ifelse
 } if
%
% for all services
%
 +Watchdog 8 gt
 {
  *watchers
 } if
"timing21" *timelaps
 1 *atoptick
 *aamgspug

|7020 7050 !Gearing

 *condpact

 
 _Arching.Dombo
 {
  *condcogs
 } if

 App.Standing
 {
%
% non-office version acts like office version stay
%
  _Conduit.Stay _Arching.Combo or _Initing or
  {
   2 *atoptick
   *aamgspug
  }
  {
%
% if conduit not present and not initial pass
% test engagement process
%
   7090 !tick
   100
  } ifelse
 }
 {
  2 *atoptick
  *aamgspug
 } ifelse

|7050 7080 !Gearing
 _Arching.Dombo
 {
  _Conduit.Tagging
  {
   *condmesa
  } if
 } if
 3 *atoptick
%%% *colgpull
 *aamgspug

|7080 7090 !Gearing
 _Arching.Dombo
 {
  _Conduit.Tagging
  {
   *condmesa
  } if
 } if

 4 *atoptick

%%% *colgpulm

 *aamgspug

|7090 7010 !Gearing

%%% *colgpuln

%
% for all services
%
%%%%% *cndarqtn

 _Arching.Dombo
 {
%
% 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
%
    7201 !Gearing
   } ifelse
  } ifelse
 }
 {
%
% proceed with normal building
%
 } ifelse
 false !Initing
 _Atop.Swover
 {
  *buildnuc
 } if

 *aamgspug

|7101 7001 !Gearing
%
% for phosend routing, will then close excel
% currently this test of workbook present is disabled
%
 false !Xls.Already
%%% *zlsrstas
 _Xls.Already
 {
  `"<Closer ord=""1999999"" ></Closer>"`
  "cndV_1999999_Closer.txt" oftell write
  7200 !Gearing
 }
 {
 } ifelse
 *aamgspug

|7199 7199 !Gearing
 *atopchek
%
% vector back to the active cycling return if non-Office
%
 *aamgspug

|7200 7199 !Gearing
 "off" *atoptick
 App.Standing
"initvec" log)(
 {
  _Initing
"initved" log)(
  {
%
% first pass through timing sequence
%
% this is an insurance there is no server operation
% this means we must wait for excel
%
%
% engage vector 3
%
% Atop chain ready at home screen
% with awing and photoshop started
% transit to C61
%
`"C21" *atopoint|
3 atopvec|
`
!Atop.Chain
%%%   3 atopvec

  }
  {
%
% server is done processing, keep cycling
%
   7010 step!
  } ifelse
 
 }
 {
 } ifelse
 *aamgspug

|7201 7202 !Gearing
%
% phosend route for winding down excel ops
%
% unhook from Excel main events, close the workbook
%
 _Xls.Wbdac
 {
  7210 step!
 }
 {
  *zlsrloay
 } ifelse
 *aamgspug

%
% wait for excel dismount
%
|7202 7203 !Gearing
 *aamgspug
|7203 7204 !Gearing
 *aamgspug
|7204 7205 !Gearing
 *aamgspug
|7205 7206 !Gearing
 *aamgspug
|7206 7207 !Gearing
%%% *zlsrstas
 *aamgspug
|7207 7199 !Gearing
%
% exit the monitoring of Excel
%
%%% 0 !tick
%%% *shutdown
%%% 1000
 *aamgspug

|7210
 0 !tick
 *shutdown
 100

|7300 7010 !Gearing
 true !Photo.Init
 "on" *atoptick
 0x08 *vectorse
 *aamgspug