%
% Atop tick vectors
%
% stack: tick-step
%
dup !Atop.Cutton
"#@#@" log)(
<
|0
%
% initial server
%

 *camersta

 "tick0" !Atop.Cutton
 *atopfirg

|1
%
% posts server messages to a text box
%
  "Watchdog" text_conn trim squoter
  ^"BasicData._Info = "
  &";"
  Base.!

 "tick1" !Atop.Cutton
 *atopfirg

|2

 "tick2" !Atop.Cutton
 *atopfirg

|3

 "tick3" !Atop.Cutton
 *atopfirg

|4

 "tick4" !Atop.Cutton
 *atopfirg

|5

 "tick5" !Atop.Cutton
 *atopfirg

> not
{
%
% the raw tick input is now the vector setting to process
%
 *atopfirg
} if