%
% acceptance vectors for Imr Ops platform, unpartnered
%
page@sel
<
|Macht
 wireop(
">Macht" log)(
 <
 |Initial
  "Macht" *helpface
%
% Imr Ops partnership, first time init, has no partnership
%
  false !Msys.HasPartner
%
% invoke partnership, will navigate to siphon.htm under Pic32MZ
% when appropriate ip and ssid is accomplished
%
  *machrepa
%
% float the partner screen above machine indicators
%
  "Machs" @Macht floatup
  @@
%
% allow touch of tree area, select the root of tree now
%
  true @^Touch
  root\ select*

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

 |Hide
  @Macht weboff

 > pop

>

*acceptun

%
% stack: found
%