%
% Application control timing
%
% Main survey tick
%
|0
 _mode
 <
 |command
%
% the command may set another downstream command
%
  _commander
  empty !commander "robot" !mode
  execstr

%
% standard operating mode for applications
%
 |robot
%
% perform next in chain of survey tasks
%
  [=Survey]
  [Any?]
  {
   [Pop]
   dup [Bottom]
   call
  }
  {
%
% survey tasks engaged
%
   *survidle
  } ifelse
 > not
 {
%
% custom application modes disable standard survey tasks
%

 } if

 _interval

%
% Main robot exit
%
|1
 "%%% bail tree and pho" &; "bail" text!bin
 0