%
% start or stop atop server
%
{
 5798 step!
 "--- SERVER STARTED ---" Info.!
amach not
{
 "Donn" *allseter
} if
}
{
 "--- SERVER stopped ---" Info.!
 5792 step!
amach not
{
 "Conn" *allseter
} if
} ifelse