%
% acceptance vectors for Customer ops indicators
%
page@sel
<
|CustOp
 wireop(
">CustOp" log)(
 <
 |Initial
  "CustOp" *helpface
%
% bring indicators active
%
  *csysinit

 |Image1
%
% turn on or off photo server
%
%
% enter or leave test mode
%
_Aamg.Service
{
%
% turn off server mode
%

0 !Aamg.Tick
0 !Gearing
0 !tick

 false !Aamg.Service
 "Ops:Server;On" ind)@(
}
{
 true !Aamg.Service
 "Ops:Server;Dim" ind)@(
 *custiniu
} ifelse


 |Image2
%
% enter or leave test mode
%
_Aamg.Testing
{
%
% turn off test mode
%
 false !Aamg.Testing
 "Ops:Testing;On" ind)@(
}
{
 true !Aamg.Testing
 "Ops:Testing;Dim" ind)@(
} ifelse

 |Image3
%
% enable outgoing messages
%
 true !Aamg.SmsOut
 "Ops:Outgoing;On" ind@
 "Ops:NoOut;Off" ind@

 |Image4
%
% enable incoming messages
%
 true !Aamg.SmsIn
 "Ops:Incoming;On" ind@
 "Ops:NoInc;Off" ind@
 "Ops:Reset;On" ind@

 |Image5
%
% reset/clear all sms messages
%

 |Image6
%
% disable outgoing messages
%
 false !Aamg.SmsOut
 "Ops:Outgoing;Dim" ind@
 "Ops:NoOut;On" ind@

 |Image7
%
% disable incoming messages
%
 false !Aamg.SmsIn
 "Ops:Incoming;On" ind@
 "Ops:NoInc;Off" ind@
 "Ops:Reset;On" ind@

 |Image18
%
% error indicator
%

 > pop

>

*acceptun

%
% stack: found
%