_Atop.Cutton
"cutnC31 " &_Xact log)(
<
%---Server On
|on
 0x02 *vectorse
 *shtrbase
 *aamgxact
%---Server Off
|off
 0x01 *vectorse
%---Server Off
|xact
 *axuevery
%---Tick 1 of spurs - process xacts - every function
|tick1
 *sweepers
 *phoserxz
%---Tick 2 of spurs - 
|tick2
 axuact
 <
 |S
 > not
 {
  *twilimgt
 } if
 *phoserxz
%---Tick 3 of spurs - 
|tick3
 *cameroll
 *phoserxz
%---Tick 4 of spurs - 
|tick4
 axuact
 <
 |S
 > not
 {
  *smsmontr
 } if
 *phoserxz

/*
%---Tick 5 of spurs - 
|tick5 %%% there is no tick5 call
%%% *custjmon
%%% *phoserxz
*/

%---Vector 0 - Set vectors
|Vector0
 0x01 *vectorse
%---Vector 1 - Start server
|Vector1
 true *atopserv
%---Vector 2 - Stop server
|Vector2
 false *atopserv
%---Vector 3
|Vector3
%---Vector 4
|Vector4
%---Vector 5
|Vector5
%---Incoming again - shut off server
|prim0
 false *atopserv
 *buttzone
> not
{
%
% no cutton-type
%
 *buttzone
} if