_Atop.Cutton
"cutn2c1" log)(
<
%---Server On
|on
 0x02 *vectorse
 *shtrbase
 *aamgxact
 7000 !tick
%---Server Off
|off
 0x01 *vectorse
%---Server Xact
|xact
 axuact upper "K" eq$ { *AcntC33c } if
%---Tick 1 of spurs - sweep of public server
|tick1
 _|
"tick1" log)(
 *aamginsp
 axuact upper "K" eq$
"is33" log)(
 { *AcntC33c } if
%---Tick 2 of spurs - MMS xfer to incoming
|tick2
 _| *aamginsp
 axuact upper "K" eq$ { *AcntC33c } if
%---Tick 3 of spurs - cameroll roll incoming
|tick3
 _| *aamginsp
 axuact upper "K" eq$ { *AcntC33c } if
%---Tick 4 of spurs - check for mms or sms messages
|tick4
 _| *aamginsp
 axuact upper "K" eq$ { *AcntC33c } if
%---Tick 5 of spurs - check for user interact
|tick5
 _| *aamginsp
 axuact upper "K" eq$ { *AcntC33c } if

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