%
% acceptance vectors for AtopA indicators
%
page@
%%% "accAtopA" log)(
<
|AtopA
 *atopxlat
 <
 |Initial
  "AtopA" *helpface
  *atopinit

%
% vendings sets this now
%
%%%  numprods *prodmode

  twilchan "Mode" *aamgnums
%
% this is dependent on locker code axuact C
% which is also set to 0 for twil channel
% it is then any for the comm server
%
  twilnum zero
  {
   "Any" !Axu.BuildTwi
  }
  {
   "Only" !Axu.BuildTwi
  } ifelse

  "Normal" !Axu.Shooters
%%%  "None" !Axu.Shooters

/*
%
% this is Arching.Itype set in aamgnums Mode
%
%%%  "Lettering" !Axu.SmsRoute
  "None" !Axu.SmsRoute
*/

/*
%
% this is Arching.Atype set in aamgnums Mode
%
  "Normal" !Axu.Lettering
%%%  "FirstOf" !Axu.Lettering
*/

/*
%
% this is Arching.Ttype
%
%%%  "TemProd" !Axu.Prods
  "Normal" !Axu.Prods
*/

%%%  "Upcopy" !Axu.Built
%%%  "ToCloud" !Axu.Built
  "Here" !Axu.Built

  "Direct" !Axu.Temed

  "Present" !Axu.Message

  "Products" !Axu.Post
  axumoff
pop false
  {
    "None" !Axu.Outgoing
  }
  {
    "MMS" !Axu.Outgoing
  } ifelse

%%%  "Treed" !Axu.BackOp
  "Normal" !Axu.BackOp

  5420 !tick
%%%  *taskbkeu(

 |Flow
%
% cable(|strand(|wireop(|wired(|wirex(|wirex2(|wirex3(|wirex4(
%                |Flow  |AtopA  |None  |None  |Ax01A |**vectoriz |naver=
%
  wirex4(
dup logs
  -1 left
  execstr

 |Back
  "PhoVis(false);" Base.!
  *deskshow(

 |Code
%
% open the content file from locker text (now content suffix)
%
% cable(|strand(|wireop(|wired(|wirex(|wirex2(|wirex3(|wirex4(
%                Code    AtopA  None   None     0C
%
  _Edit.Enabled
  {
   wirex3( *atopsord
   "fire" !Nx=
   "Mode" *nexushub
   editon
  } if

 |Mode
%
% cable(|strand(|wireop(|wired(|wirex(|wirex2(|wirex3(|wirex4(
%                |Mode  |AtopA  |None  |None   |Ax01A  |Ced   |naver=
%
  wirex4( true?
  dup !Atop.Ced
  {
%
% dev mode now on
%
  }
  {
%
% dev mode off, revert to current atop content name
%
   *atoplnex
  } ifelse

 |Cutter
  5600 !tick

 |Html
  wirex3( *atophtml

 |Source
%
% open the content file from locker text (now content suffix)
%
% cable(|strand(|wireop(|wired(|wirex(|wirex2(|wirex3(|wirex4(
%                ImFile  AtopA  None   None     0C
%
  wirex3( *atopsorc
  "PhoVis(true);" Base.!

|Tree
%
% open the content file from locker text (now content suffix)
%
% cable(|strand(|wireop(|wired(|wirex(|wirex2(|wirex3(|wirex4(
%                Tree    AtopA  None   None     0C
%
 _Edit.Enabled
 {
  wirex3( *atopsord
  "xml" !Nx=
  "Mode" *nexushub
  editon
 } if

|Preview
 *atoplnex
 _Atop.Ced
 {
%
% in dev mode, start portal
%
  'SetQreview("/"' jspend
  Base.! 
 }
 {
%
% normal markdown preview
%
  "Help" vector()
 } ifelse

|Update
 5692 !tick

|Edit
 *atoplnex
 _Atop.Ced
 {
%
% in dev mode, bring up Photoshop console
%
  *atophcon

 }
 {
%
% normal mode, use preview if not edit-enabled
%
  _Edit.Enabled { "Editor" } { "Help" } ifelse vector()

 } ifelse
 > pop

| 2 left "Ac" eq$ |
 *atopxlat
 <
 |Initial
%
% startup
%
  _Ent.Page 4 left "Acnt" eq$
  {
   _Ent.Page !Atop.Content
   *atoplnex
   true !Atop.Proceed
  } if

 |Info
  "Not this data" Info.!

 > not
 {
  wireop( *acuracta
 } if

|Exit

 wireop(
">Exit" log)(
 <
 |Initial
  false !Presel
  "PortHide()"
  Base.!

 > pop

>

*acceptun

%
% stack: found
%