%
% start or stop atop server
%
{
 5300 step!
 "--- SERVER STARTED ---" Info.!
 amach
 {
  "c:\___Work\_____Names\allvms.cmd" exists
"-----------------------------" log)(
  {
   "c:\___Work\_____Names\allvms.cmd" *runsnorm
  } if
 }
 {
  "Donn" *allseter
 } ifelse
}
{
 "--- SERVER stopped ---" Info.!
 5200 step!
 amach not
 {
  "Conn" *allseter
  _Arching.Vm
  {
%
% remove ready entry from xone
%
   "ready_" lock&
"delready" log)(
   del
%
% remove present entry from xone
%
   "present_" lock&
"delpresent" log)(
   del

  } if
 } if
} ifelse