#!/usr/local/bin/tops -s /usr/local/tops/sys -u /opt/mytops/usr/
{
   File tops_sndcls
   March 2008

   Close the server sound file queuing server

   Copyright (C) 2008  Dale R. Williamson

   This script closes the daemon server that is playing sound files.  

   The sound file server was started by script tops_snd.  This script
   runs its word CLOSE to cleanly shutdown.
}
\-----------------------------------------------------------------------

   "SNDSERVER" msgPeek number 
   IF (nPORT) IPloop swap CLIENT (nS) dup -1 >
      IF (nS) "CLOSE" over (nS) remoterun sclose
      ELSE drop " tops_sndcls: failed to connect, "
         "SNDSERVER may not be running" + . nl
      THEN
   ELSE " tops_sndcls: no SNDSERVER port number found" . nl
   THEN
