_Atop.Cutton
"cutnC32 " &_Xact log)(
<
%---Server On
|on
 0x02 *vectorse
 *aamgxact
%---Server Off
|off
 0x01 *vectorse
%---Server Off
|xact
 _Arching.Vm
 {
 *axumontr
 } if
%---Tick 1 of spurs - process xacts - every function
|tick1
 *phoserxz
%---Tick 2 of spurs - 
|tick2
 *phoserxz
%---Tick 3 of spurs - 
|tick3
 *phoserxz
%---Tick 4 of spurs - 
|tick4
 *phoserxz
%---Tick 5 of spurs - 
|tick5
 *phoserxz

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