%
% machine and comm program vectors
%

|Return
 pop
 root\ select*
 *machinis
 *machdevf
 @@
 false

|EditSave
 pop
 sel@
 *machdevi
 \_Body
 *enterval
 Help.!
 @@
 true

%
% perform the descent to the target tree
%
|Via
%
% stack: child-tree-name
%
 pop
 true

|Back
 pop
 fork@)?
 {
%
% if in test mode make sure serial port is handled
%
  _Msys.IsTest
  {
%
% if serial port has not been closed, will bring serial interface to surface
%
   *serloffa
  }
  {
%
% not in test mode
%
   *taskbacx
  } ifelse
  true !Msys.TelmSave
 }
 {
%
% in the root Machines tree, no serial port could be open
%
  *machbacx
  helpon
 } ifelse
 "PreSel" vector()
 true

|Run
 pop
 fork@)?
 {
 }
 {
%
% running based on master tree
%
  *machstar
 } ifelse
 @Machs weboff
 @@
 true

|Select
 pop
%
% perform Click setting
%
 *taskcise
 {
%
% selection allowed
%
  fork@)?
  {
%
% select causes display of values
%
  }
  {
   *machsoff
   *machtoff
   *machinis
  } ifelse
  *machdevi
  @@
  "PostSel" vector()
 } if
 true

|Already
 pop
"Already mach" log#
 fork@)?
 {
  _Msys.IsTest
  {
   *testsery(
  } if
  "Returning to operation." *enterinf Help.!
 }
 {
  *taskalrd
  *msysinit
  "Returning to Machine operations." *enterinf Help.!
  true !Tsrv.Machines
 } ifelse
 @@
 root\ select*
 *machdevi
 "Passify" true 7000 100000 *machisat
 true

|Init
 pop
 "Init" !Mach.Mode

%
% load tree contents init is vectored when StdTree form notifies
% that Dpanel is loaded
%
 *norminiu
 fork@)?
 {
  *machesta
  *msysinit
  "Machine operation." *enterinf Help.!
 }
 {
%
% startup of machine screens, no clicking on tree
%
  false @^Touch
%
% eliminate the stake of the cloud message listener
%
  *cloudoff
%
% wait for the message listener to fully load
%
%%%  *msystarr(
  *msystart(
 } ifelse
 @@
 true

|View
 pop
 true