#!/usr/local/bin/tops -i -s /usr/local/tops/sys -u /opt/mytops/usr/
/* GNU General Public License

Program Tops - a stack-based computing environment
Copyright (C) 1999-2005  Dale R. Williamson

Author: Dale R. Williamson <dale.williamson@prodigy.net>

This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software Foundation,
Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

------------------------------------------------------------------------

File: telclient  September 2005
Copyright (C) 2005  D. R. Williamson

Connect to the tops telnet server running on host.  The tops telnet
server can be started on host with script telserver.  Example:

   % telclient -host kaffia -port 9891 

/* Default host is local machine if not set by switch -host: */ */
   if((HOST=argv("-host"))=="") HOST=IPloop;

/* Default PORT is 9890 if not set by switch -port: */
   (PORT,f)=(9890,number(argv("-port")));

/* Source the client words in file term.v: */
   msource(catmsg(no),"term.v","Client Words");

/* Connect the tops telnet client: */
   CLIENT_TELNET(HOST,PORT);
