%
% acceptance vectors for Gwizard Service operation
%
page@sel
<
%
% the GwizServe.html vectors
%
|GwizServe

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

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

 |Cancel

 |primary1 % Tool Bits
 |primary2 % Products
 |primary3 % Schedule
 |primary4 % Projects
  _Tsrv.ToolBits
  {
   *xlsrloay
  }
  {
   true !Tsrv.Projects
   *xlsrstar
   true !Tsrv.ToolBits
  } ifelse

 |primary5 % Tracker
 |primary6 % Maintain
 |primary7 % Machines
 |primary8 % Metals
 |primary9 % Summary
 |primary10 % Exit Data
  *gsrvends

 > pop

>

*acceptun

%
% stack: found
%