_Atop.Cutton
"cutnC35 " &_Xact log)(
<
%---Server On
|on
 0x02 *vectorse
%---Server Off
|off
 0x01 *vectorse
%---Server Off
|xact

%---Tick 1 of spurs - process xacts - every function
|tick1

%---Tick 2 of spurs - 
|tick2

%---Tick 3 of spurs - 
|tick3

%---Tick 4 of spurs - 
|tick4

%---Tick 5 of spurs - 
|tick5


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