%
% conduit processes from .cog directives
%

<
|Start
"xlshandle" log)(
 !Xls.Handle

|Phones
%
% process phone, name, email into the Locn and Media
% folders on Bin/Tree
%
 "Bin\Serv\Phones.txt" ofcond read
 {
  "|" catcr slice
  exch isnull ?
 "<Name>
" !builder
  "|" 0 5 1 parse
  4 -1 roll asc2hex ^"<first value=""" &"""/>
" ^:builder
  3 -1 roll asc2hex ^"<last value=""" &"""/>
" ^:builder
  2 -1 roll asc2hex ^"<email value=""" &"""/>
" ^:builder

asc2hex ^"<company value=""" &"""/>
" ^:builder
dup ^"<num value=""" &"""/>
" ^:builder
 "</Name>
" ^:builder
  dup ofmedia pop
  oflocn &".nam" _builder exch write
 } loop
 pop2

|Excel
 <
 |Restore
%
% restore excel
%
  "Restore" *zlsmstep
 |Top
%
% bring excel on top
%
  "Top" *zlsmstep
 |Minimize
%
% bring excel minimal
%
  "Minimize" *zlsmstep
 |Maximize
%
% bring excel maximal
%
  "Maximize" *zlsmstep
 |ReShow
%
% cause ShowWork display
%
  "ReShow" *xlsrfunc pop
 > pop

|Conduit
 <
 |Restore
%
% restore conduit after minimizing excel
%
  "Minimize" *zlsmstep
  "CondRest" *zlsmstep
/*
 `"<Indexed ord=""1999999"" ></Indexed>"`
 "cndV_1999999_Indexed.txt" oftell write
*/
 > pop

|PreForm
 "PreForm" *xlsrfunc

|Size
 pop2
/*
 getmax
 second !Conduit.Width
 dup !Conduit.Height
*/
 _Cond.StartX _Cond.StartY
"&&&&&&&&&&&&&&&& " &3 &" " &2 logs
 "Size" *xlsrfunc
"sizefunc" log)(
 pop
%
% size the worksheet area to nearly the full size
%
 .005 .01 .99 .98 *xlsrszer
%
% next engage the records tracking
%
*xlsrszes(

|UfDims
"ufdims" log)(
 pop

|Exit
 false !Conduit.Stay
 "EndApp" *xlsrfunc pop
/*
 `"<ExitMenu ord=""1999999"" ></ExitMenu>"`
 "cndV_1999999_ExitMenu.txt" oftell write
 App.UnEmbed
*/
 "Save" *zlsmstep
 7201 step!

> not
{
} if