%
% acceptance vectors for Technical Service operation
%
page@sel
<
%
% the CustServe.html vectors
%
|EustServe

 wireop(
"EustServe-->" log)(
 <
 |Initial
%
% initialize technical service operations
%
  *tsrvinit

 |Accept
%
% restore the help screen to obscure controls
%
  help@
  *archarea perscreen
  helpdim

 |Cancel

 |primary1 % Tool Bits
  _Tsrv.ToolBits
  {
   *xlsrloay
  }
  {
   *xlsrstar
   true !Tsrv.ToolBits
  } ifelse
 |primary2 % Products
 |primary3 % Schedule
 |primary4 % Projects
 |primary5 % Tracker
 |primary6 % Maintain
 |primary7 % Machines
  "Machine" *entervan
  "Loading . . ." *enterval &
  Help.!
  hide "taskarea" "Machine" *taskopen

 |primary8 % Metals
%
% digital microscope operations
%
  _Tsrv.Metals
  {
   false *xlsrmetl
  }
  {
%
% have simulated axis movement, so scoping will always be enabled
%
   true !Scope.StartA
   true !Scope.StartB
   *testsera
   true !Tsrv.Metals
  } ifelse

 |primary9 % Summary
 |primary10 % Exit Data
  *tsrvends

 > pop

>

*acceptun

%
% stack: found
%