%
% acceptance vectors for Machine Comm
%
page@sel
<

|Devices
%
% machine and program code vector operations
% note that the case for the first tab is derived from the tab # in E4
% to derive startup, use a separate lookup for prior tab 'name' in E5
%
 wireop(
">Devices" log)(
 <
 |Initial
  "Device" *helpface
  *iotrstar(

 |Tab
%
% react to the tab selection
%
  wired(
">>Tab" log)(
  <
  |Options
%
% check for first time entering
%
   wirex(
">>>Options" log)(
   <
   |-1
%
% this is startup, the first time form loaded
% user selects the desired path from here
%
    lockdis
    0 !JS.CompA
    0 !JS.CompB

   > not
   {
    lockdis
   } if

  |Change
   *devcchng

  |MachEdit
   *devcedit

  |New
   edits?
   {
    contab
   }
   {
    *devcnewm
   } ifelse

  > pop

%
% expand specific references
%
 |Search

%
% invoke Xhelp
%
 |Help
  "Devices" x!/*

 |Save
  "SendOps('Store');"
  Help.!

 |Store
  *devcstor

 |Cancel
  empty !Edits
  zerotab
  *reselect(

%
% done
%
 |Reject
  *nodebacr

%
% set compare anchor A
%
 |AnchorA
  *fanchora

%
% set compare anchor B
%
 |AnchorB
  *fanchorb

 > pop

>

*acceptun

%
% stack: found
%