Return to ckuus2.c CVS log

Up to [MW Coherent from dump] / coherent / e / bin / ckermit

Annotation of coherent/e/bin/ckermit/ckuus2.c, revision 1.1

1.1     ! root        1: /*  C K U U S 2  --  User interface STRINGS & help module for C-Kermit  */
        !             2:  
        !             3: /*
        !             4:   Author: Frank da Cruz ([email protected], [email protected]),
        !             5:   Columbia University Center for Computing Activities.
        !             6:   First released January 1985.
        !             7:   Copyright (C) 1985, 1992, Trustees of Columbia University in the City of New
        !             8:   York.  Permission is granted to any individual or institution to use this
        !             9:   software as long as it is not sold for profit.  This copyright notice must be
        !            10:   retained.  This software may not be included in commercial products without
        !            11:   written permission of Columbia University.
        !            12: */
        !            13:  
        !            14: /*
        !            15:  This module separates long strings from the body of the other ckuus* modules.
        !            16: */
        !            17: 
        !            18: #include "ckcdeb.h"
        !            19: #include "ckcnet.h"
        !            20: #include "ckcasc.h"
        !            21: #include "ckcker.h"
        !            22: #include "ckuusr.h"
        !            23: #include "ckcxla.h"
        !            24:  
        !            25: extern char *ccntab[];
        !            26: 
        !            27: #ifndef NOICP
        !            28: #ifdef DCMDBUF
        !            29: extern char *cmdbuf;
        !            30: #else
        !            31: extern char cmdbuf[];
        !            32: #endif /* DCMDBUF */
        !            33: #endif /* NOICP */
        !            34: 
        !            35: #ifdef DEBUG
        !            36: extern char debfil[];
        !            37: #endif /* DEBUG */
        !            38: #ifdef TLOG
        !            39: extern char trafil[];
        !            40: #endif
        !            41: 
        !            42: extern char *xarg0;
        !            43: extern int nrmt, nprm, dfloc, local, parity, duplex, escape;
        !            44: extern int turn, flow;
        !            45: extern int binary, warn, quiet, keep;
        !            46: extern int success;
        !            47: 
        !            48: extern long speed;
        !            49: extern char *dftty, *versio, *ckxsys;
        !            50: extern struct keytab prmtab[];
        !            51: extern struct keytab remcmd[];
        !            52:  
        !            53: /* Command-Line help (Unix command-line arguments) */
        !            54: 
        !            55: #ifndef NOCMDL
        !            56: static
        !            57: char *hlp1[] = {
        !            58: #ifndef NOICP
        !            59: " [cmdfile] [-x arg [-x arg]...[-yyy]..] [ = text ] ]\n",
        !            60: #else
        !            61: "[-x arg [-x arg]...[-yyy]..]\n",
        !            62: #endif
        !            63: "  -x is an option requiring an argument, -y an option with no argument.\n",
        !            64: #ifndef NOICP
        !            65: #ifndef NOSPL
        !            66: "     = means ignore following words, but place in array \\&@[].\n",
        !            67: #else
        !            68: "     = means ignore following material.\n",
        !            69: #endif /* NOSPL */
        !            70: #else
        !            71: "     = means ignore following material.\n",
        !            72: #endif /* NOICP */
        !            73: "actions:\n",
        !            74: "  -s files  send files                    -r  receive files\n",
        !            75: "  -s -      send files from stdin         -k  receive files to stdout\n",
        !            76: #ifndef NOSERVER
        !            77: "  -x        enter server mode             -f  finish remote server\n\n",
        !            78: #else
        !            79: "  -f        finish remote server\n\n",
        !            80: #endif /* NOSERVER */
        !            81: "  -g files  get remote files from server (quote wildcards)\n",
        !            82: "  -a name   alternate file name, used with -s, -r, -g\n",
        !            83: "  -c        connect (before file transfer), used with -l and -b\n",
        !            84: "  -n        connect (after file transfer), used with -l and -b\n\n",
        !            85: "settings:\n",
        !            86: "  -l line   communication line device     -q   quiet during file transfer\n",
        !            87: #ifdef NETCONN
        !            88: "  -j host   network host name             -i   binary file transfer\n",
        !            89: #else
        !            90: "  -i        binary file transfer\n",
        !            91: #endif /* NETCONN */
        !            92: "  -b bps    line speed, e.g. 2400         -t   half duplex, xon handshake\n",
        !            93: #ifdef DEBUG
        !            94: "  -p x      parity, x = e,o,m,s, or n     -d   log debug info to debug.log\n",
        !            95: #else
        !            96: "  -p x      parity, x = e,o,m,s, or n\n",
        !            97: #endif /* DEBUG */
        !            98: #ifndef NOICP
        !            99: "  -y name   alternate init file name      -w   write over files\n",
        !           100: #else
        !           101: "  -w        write over files\n",
        !           102: #endif /* NOICP */
        !           103: "  -e n      receive packet length         -v n window size\n",
        !           104: #ifndef NODIAL
        !           105: "  -m name   modem type                    -z   force foreground\n",
        !           106: #else
        !           107: "  -z        force foreground\n",
        !           108: #endif /* NODIAL */
        !           109: #ifdef SUNX25
        !           110: "  -X  X.25 address              -o index  X.25 closed user group call\n",
        !           111: "  -u  X.25 reverse charge call  -U string X.25 call user data\n",
        !           112: #endif /* SUNX25 */
        !           113: #ifdef NOICP
        !           114: "Interactive command parser removed.\n",
        !           115: #else
        !           116: "If no action command is included, or -S is, enter interactive dialog.\n",
        !           117: #endif
        !           118: ""
        !           119: };
        !           120:  
        !           121: /*  U S A G E */
        !           122:  
        !           123: VOID
        !           124: usage() {
        !           125: #ifndef MINIX
        !           126: #ifdef NOICP
        !           127: #endif /* NOICP */    
        !           128:     conol("Usage: ");
        !           129:     conol(xarg0);
        !           130:     conola(hlp1);
        !           131: #else
        !           132:     conol("Usage: ");
        !           133:     conol(xarg0);
        !           134:     conol(" [-x arg [-x arg]...[-yyy]..] ]\n");
        !           135: #endif /* MINIX */
        !           136: }
        !           137: #endif /* NOCMDL */
        !           138: 
        !           139: #ifndef NOICP
        !           140: 
        !           141: /*  Interactive help strings  */
        !           142:  
        !           143: static char *tophlp[] = { 
        !           144: "Trustees of Columbia University in the City of New York.\n",
        !           145: 
        !           146: #ifndef NOHELP
        !           147: "Type INTRO for an introduction to C-Kermit, press ? for a list of commands.",
        !           148: "Type HELP followed by a command name for help about a specific command.",
        !           149: #else
        !           150: "Type ? for a list of commands; see documentation for detailed descriptions.",
        !           151: #endif /* NOHELP */
        !           152: "While typing commands, you may use the following special characters:",
        !           153: " DEL, RUBOUT, BACKSPACE, CTRL-H: Delete the most recent character typed.",
        !           154: " CTRL-W:  Delete the most recent word typed.",
        !           155: " CTRL-U:  Delete the current line.",
        !           156: " CTRL-R:  Redisplay the current line.",
        !           157: " ?        (question mark) Display a menu for the current command field.",
        !           158: " ESC      (or TAB) Attempt to complete the current field.",
        !           159: " \\        (backslash) include the following character literally",
        !           160: #ifndef NOSPL
        !           161: "          or introduce a backslash code, variable, or function.\n",
        !           162: #else
        !           163: "          or introduce a numeric backslash code.\n",
        !           164: #endif /* NOSPL */
        !           165: 
        !           166: "Command words other than filenames can be abbreviated in most contexts.",
        !           167: #ifndef NOCMDL
        !           168: "From system level, type \"kermit -h\" for help about command-line options.",
        !           169: #endif /* NOCMDL */
        !           170: " ",
        !           171: #ifdef MAC
        !           172: "Documentation for Command Window: \"Using C-Kermit\" by Frank da Cruz and",
        !           173: "Christine M. Gianone. Digital Press ISBN: 1-55558-108-0; Prentice-Hall ISBN:",
        !           174: "0-13-037490-3.  DECdirect:+1-800-344-4825, Order # EY-J896E-DP, US $34.95,",
        !           175: "January 1993.  Macintosh-specific documentation is in preparation.",
        !           176: #else
        !           177: "DOCUMENTATION: \"Using C-Kermit\" by Frank da Cruz and Christine M. Gianone,",
        !           178: "Digital Press.  DP ISBN: 1-55558-108-0; Prentice-Hall ISBN: 0-13-037490-3.",
        !           179: "DECdirect: +1-800-344-4825, Order Number EY-J896E-DP, US $34.95, Jan 1993.",
        !           180: #endif /* MAC */
        !           181: ""
        !           182: };
        !           183:  
        !           184: #ifndef NOHELP
        !           185: char *introtxt[] = {
        !           186: "Welcome to C-Kermit communications software for:",
        !           187: " . Error-free file transfer",
        !           188: " . Terminal connection",
        !           189: #ifndef NOSPL
        !           190: " . Script programming",
        !           191: #endif /* NOSPL */
        !           192: #ifndef NOICS
        !           193: " . International character set conversion",
        !           194: #endif /* NOICS */
        !           195: "\nSupporting:",
        !           196: " . Serial connections, direct or dialed.",
        !           197: #ifndef NODIAL
        !           198: " . Automatic modem dialing",
        !           199: #endif /* NODIAL */
        !           200: #ifdef TCPSOCKET
        !           201: " . TCP/IP network connections",
        !           202: #endif /* TCPSOCKET */
        !           203: #ifdef SUNX25
        !           204: " . X.25 network connections",
        !           205: #endif /* SUNX25 */
        !           206: #ifdef OS2
        !           207: #ifdef DECNET
        !           208: " . DECnet/PATHWORKS LAT Ethernet connections",
        !           209: "   (if you have PATHWORKS installed on your OS/2 system)",
        !           210: #endif /* DECNET */
        !           211: #ifdef NPIPE
        !           212: " . Microsoft LAN Manager named-pipe network connections",
        !           213: "   (if you have LAN Manager installed on your OS/2 system)",
        !           214: #endif /* NPIPE */
        !           215: #endif /* OS2 */
        !           216: " . UNIX, VAX/VMS, OS/2, AOS/VS, OS-9, Commodore Amiga, Atari ST.",
        !           217: "\nBasic C-Kermit commands:",
        !           218: "  EXIT          exit from C-Kermit",
        !           219: "  HELP          request help about a command",
        !           220: "  TAKE          execute commands from a file",
        !           221: 
        !           222: "\nCommands for file transfer:",
        !           223: "  SEND          send files",
        !           224: "  RECEIVE       receive files",
        !           225: "  SERVER        be a file transfer server",
        !           226: 
        !           227: "\nEssential settings:",
        !           228: "  SET PARITY    communications parity",
        !           229: "  SET FLOW      communications flow control, such as XON/XOFF",
        !           230: "  SET FILE      file settings, for example TYPE TEXT or TYPE BINARY",
        !           231: 
        !           232: "\nTo make a direct serial connection:",
        !           233: "  SET LINE      select serial communication device",
        !           234: "  SET SPEED     select communication speed   ",
        !           235: "  CONNECT       begin terminal connection",
        !           236: 
        !           237: #ifndef NODIAL
        !           238: "\nTo dial out with a modem:",
        !           239: "  SET MODEM     select modem type",
        !           240: "  SET LINE      select serial communication device",
        !           241: "  SET SPEED     select communication speed   ",
        !           242: "  DIAL          dial ",
        !           243: "  CONNECT       begin terminal connection",
        !           244: #endif /* NODIAL */
        !           245: 
        !           246: #ifdef NETCONN
        !           247: "\nTo make a network connection:",
        !           248: "  SET NETWORK   select network type",
        !           249: "  SET HOST      select network host",
        !           250: "  CONNECT       begin terminal connection",
        !           251: #ifdef TNCODE
        !           252: "  TELNET        select a TCP/IP host and CONNECT to it",
        !           253: #endif /* TNCODE */
        !           254: #endif /* NETCONN */
        !           255: 
        !           256: "\nTo return from a terminal connection to the C-Kermit prompt:",
        !           257: "  Type your escape character followed by the letter C.",
        !           258: 
        !           259: "\nTo display your escape character:",
        !           260: "  SHOW ESCAPE",
        !           261: 
        !           262: "\nTo display other settings:",
        !           263: "  SHOW COMMUNICATIONS, SHOW TERMINAL, SHOW FILE, SHOW PROTOCOL, etc.",
        !           264: 
        !           265: "\nFor further information about a particular command, type HELP xxx,",
        !           266: "where xxx is the name of the command.  For documentation, news of new",
        !           267: "releases, and information about other Kermit software, contact:\n",
        !           268: "  Kermit Distribution        E-mail:",
        !           269: "  Columbia University        [email protected] (Internet)",
        !           270: "  612 West 115th Street      KERMIT@CUVMA (BITNET/EARN)",
        !           271: "  New York, NY 10025 USA",
        !           272: "  Phone: (212) 854-3703      Fax: (212) 662-6442",
        !           273: ""
        !           274: };
        !           275: 
        !           276: static char *hmxxbye = "Syntax: BYE\n\
        !           277: Shut down and log out a remote Kermit server";
        !           278:  
        !           279: static char *hmxxclo[] = {
        !           280: "Syntax:  CLOSE name",
        !           281: "Example: CLOSE SESSION\n",
        !           282: "Close one of the following logs or files:",
        !           283: "  SESSION",
        !           284: #ifdef TLOG
        !           285: "  TRANSACTION",
        !           286: #endif /* TLOG */
        !           287: "  PACKET",
        !           288: #ifdef DEBUG
        !           289: "  DEBUGGING",
        !           290: #endif /* DEBUG */
        !           291: #ifndef NOSPL
        !           292: "  READ",
        !           293: "  WRITE",
        !           294: #endif /* NOSPL */
        !           295: "Type HELP LOG and HELP OPEN for further info.", "" };
        !           296:  
        !           297: static char *hmxxcon = "Syntax: CONNECT (or C)\n\n\
        !           298: Connect to a remote computer via the tty device given in the most recent\n\
        !           299: SET LINE command, or the network host named in the most recent SET HOST\n\
        !           300: command.  Type the escape character followed by C to get back, or followed\n\
        !           301: by ? for a list of CONNECT-mode escape commands.";
        !           302:  
        !           303: static char *hmxxget = "Syntax: GET filespec\n\
        !           304: Tell the remote Kermit server to send the named file or files.\n\
        !           305: If the filespec is omitted, then you are prompted for the remote and\n\
        !           306: local filenames separately.";
        !           307:  
        !           308: static char *hmxxlg[] = { "Syntax: LOG (or L) name [ { NEW, APPEND } ]",
        !           309: "Record information in a log file:\n",
        !           310: #ifdef DEBUG
        !           311: "DEBUGGING     Debugging information, to help track down bugs in the C-Kermit",
        !           312: "              program (default log name is debug.log).\n",
        !           313: #endif /* DEBUG */
        !           314: "PACKETS       Kermit packets, to help with protocol problems (packet.log)",
        !           315: "SESSION       Terminal session, during CONNECT command (session.log)",
        !           316: #ifdef TLOG
        !           317: "TRANSACTIONS  Names and statistics about files transferred (transact.log)\n",
        !           318: #endif /* TLOG */
        !           319: "If you include the APPEND keyword after the filename, the existing log file,",
        !           320: "if any, is appended to; otherwise a new file is created.",
        !           321: "" } ;
        !           322:  
        !           323: #ifndef NOSCRIPT
        !           324: static char *hmxxlogi[] = { "\
        !           325: Syntax: SCRIPT text\n",
        !           326: "Login to a remote system using the text provided.  The login script",
        !           327: "is intended to operate similarly to uucp \"L.sys\" entries.",
        !           328: "A login script is a sequence of the form:\n",
        !           329: "  expect send [expect send] . . .\n",
        !           330: "where 'expect' is a prompt or message to be issued by the remote site, and",
        !           331: "'send' is the names, numbers, etc, to return.  The send may also be the",
        !           332: "keyword EOT, to send control-d, or BREAK (or \\\\b), to send a break signal.",
        !           333: "Letters in send may be prefixed by ~ to send special characters.  These are:",
        !           334: "~b backspace, ~s space, ~q '?', ~n linefeed, ~r return, ~c don\'t",
        !           335: "append a return, and ~o[o[o]] for octal of a character.  As with some",
        !           336: "uucp systems, sent strings are followed by ~r unless they end with ~c.\n",
        !           337: "Only the last 7 characters in each expect are matched.  A null expect,",
        !           338: "e.g. ~0 or two adjacent dashes, causes a short delay.  If you expect",
        !           339: "that a sequence might not arrive, as with uucp, conditional sequences",
        !           340: "may be expressed in the form:\n",
        !           341: "  -send-expect[-send-expect[...]]\n",
        !           342: "where dashed sequences are followed as long as previous expects fail.",
        !           343: "" };
        !           344: #endif
        !           345:  
        !           346: static char *hmxxrc[] = { "Syntax: RECEIVE (or R) [filespec]\n",
        !           347: "Wait for a file to arrive from the other Kermit, which must be given a",
        !           348: "SEND command.  If the optional filespec is given, the (first) incoming",
        !           349: "file will be stored under that name, otherwise it will be stored under",
        !           350: "the name it arrives with.",
        !           351: "" } ;
        !           352:  
        !           353: static char *hmxxsen = "\
        !           354: Syntax: SEND (or S) filespec [name]\n\n\
        !           355: Send the file or files specified by filespec.\n\
        !           356: filespec may contain wildcard characters '*' or '?'.  If no wildcards,\n\
        !           357: then 'name' may be used to specify the name 'filespec' is sent under; if\n\
        !           358: 'name' is omitted, the file is sent under its own name.";
        !           359:  
        !           360: #ifndef NOMSEND
        !           361: static char *hmssmse = "\
        !           362: Syntax: MSEND filespec [ filespec [ ... ] ]\n\n\
        !           363: Send the files specified by the filespecs.  One or more filespecs may be\n\
        !           364: listed, separated by spaces.  Any or all filespecs may contain wildcards\n\
        !           365: and they may be in different directories.  An alternate name cannot be given.";
        !           366: #endif /* NOMSEND */
        !           367: 
        !           368: #ifndef NOSERVER
        !           369: static char *hmxxser = "Syntax: SERVER\n\n\
        !           370: Enter server mode on the currently selected line.  All further commands\n\
        !           371: will be taken in packet form from the other Kermit program.  Use FINISH\n\
        !           372: or BYE to get C-Kermit out of server mode.";
        !           373: #endif /* NOSERVER */
        !           374:  
        !           375: static char *hmhset[] = { "\
        !           376: The SET command is used to establish various communication or file",
        !           377: "parameters.  The SHOW command can be used to display the values of",
        !           378: "SET parameters.  Help is available for each individual parameter;",
        !           379: "type HELP SET ? to see what's available.",
        !           380: "" } ;
        !           381:  
        !           382: #ifndef NOSETKEY
        !           383: static char *hmhskey[] = { "Syntax: SET KEY k text\n",
        !           384: "Map the key k to send 'text' when pressed during CONNECT mode.",
        !           385: "K can be expressed as decimal number or backslash code, 'text'",
        !           386: "can also contain any backslash code.  If 'text' has the length 1",
        !           387: "it is treated specially.  In some environments (OS/2, for example)",
        !           388: "that single character may be wider than 8 bits, if specified in",
        !           389: "backslash notation.  In this case, a scan code mapping takes place,",
        !           390: "i.e. key k takes over the function of the key whose scan code is",
        !           391: "assigned to k.  This may even be a controlling key for the CONNECT",
        !           392: "mode.  If 'text' is empty, the default key binding is restored for",
        !           393: "the key k.  SET KEY mappings take place before terminal character-set",
        !           394: "translation.",
        !           395: ""};
        !           396: #endif /* NOSETKEY */
        !           397: 
        !           398: static char *hmxychkt[] = { "Syntax: SET BLOCK-CHECK type\n",
        !           399: "Type of packet block check to be used for error detection, 1, 2, 3, or",
        !           400: "BLANK-FREE-2.  Type 1 is standard, and catches most errors.  Types 2 and 3",
        !           401: "specify more rigorous checking at the cost of higher overhead.  The",
        !           402: "BLANK-FREE-2 type is the same as Type 2, but is guaranteed to contain no",
        !           403: "blanks.",
        !           404: "" } ;
        !           405:  
        !           406: #ifndef NODIAL
        !           407: static char *hmxydial[] = {
        !           408: "SET DIAL DIAL-COMMAND [ text ]",
        !           409: "The 'text' replaces C-Kermit's built-in modem dialing command.  It must",
        !           410: "include '%s' (percent s) as a place-holder for the telephone numbers",
        !           411: "given in your DIAL commands.  If the 'text' is omitted, C-Kermit uses its",
        !           412: "built-in modem-specific dialing command.\n",
        !           413: "SET DIAL DIRECTORY filename",
        !           414: "Name of dialing directory file.  Type HELP DIAL for further info.\n",
        !           415: "SET DIAL DISPLAY {ON, OFF}",
        !           416: "Whether to display dialing progress on the screen.\n",
        !           417: "SET DIAL HANGUP {ON, OFF}",
        !           418: "Whether the DIAL command should hang up the phone before dialing.\n",
        !           419: "SET DIAL INIT-STRING [ text ]",
        !           420: "The 'text' is a replacement for C-Kermit's built-in initialization command",
        !           421: "for the modem.  If 'text' omitted, use built-in initialization command.\n",
        !           422: "SET DIAL KERMIT-SPOOF {ON, OFF}",
        !           423: "If the selected modem type supports the Kermit protocol directly,",
        !           424: "use this command to turn its Kermit protocol function on or off.\n",
        !           425: "SET DIAL MODEM-HANGUP {ON, OFF}",
        !           426: "Governs how the HANGUP, <esc>H, and similar operations work when you have",
        !           427: "a dialed connection (in local mode, and a specific modem type is set).",
        !           428: "ON means to use modem commands to hang up the phone, e.g. ATH0.",
        !           429: "OFF means to hang up by attempting to turn off the DTR signal.",
        !           430: "ON is not necessarily supported for all modem types.\n",
        !           431: "SET DIAL MNP-ENABLE {ON, OFF}",
        !           432: "Enable or disable MNP negotiation by the modem.\n",
        !           433: "SET DIAL PREFIX [ text ]",
        !           434: "Establish a prefix to be applied to the phone numbers given in the DIAL",
        !           435: "command or read from the dialing directory.\n",
        !           436: "SET DIAL SPEED-MATCHING {ON, OFF}",
        !           437: "ON (the default) means that C-Kermit changes its serial interface speed to",
        !           438: "agree with the speed reported by the modem's CONNECT message, if any.  OFF",
        !           439: "means that C-Kermit should not change its interface speed.\n",
        !           440: "SET DIAL TIMEOUT number",
        !           441: "How many seconds to wait for a dialed call to complete.  Use this command",
        !           442: "to override the DIAL command's automatic timeout calculation.  A value",
        !           443: "of 0 turns off this feature and returns to Kermit's automatic dial",
        !           444: "timeout calculation.\n",
        !           445: "Also see DIAL and SET MODEM.  Use SHOW DIAL to display dial-related",
        !           446: "settings.\n",
        !           447: "" } ;
        !           448: #endif /* NODIAL */
        !           449: 
        !           450: static char *hmxyflo[] = { "Syntax: SET FLOW value\n",
        !           451: "Type of flow control to use during file transfer and CONNECT mode.",
        !           452: "Choices: KEEP (don't change device's current setting), XON/XOFF (software",
        !           453: "flow control, the default), NONE (no flow control at all), and possibly",
        !           454: "others including RTS/CTS (hardware) depending on the capabilities of your",
        !           455: "system.  Type SET FLOW ? for a list.",
        !           456: ""};
        !           457: 
        !           458: static char *hmxyf[] = { "Syntax: SET FILE parameter value",
        !           459: "Parameters:\n",
        !           460: "TYPE: How file contents are to be treated during file transfer.",
        !           461: "TYPE is normally TEXT, with conversion of record format and character set.",
        !           462: "BINARY means to do no conversion.  Use BINARY for executable programs or",
        !           463: "binary data.  Example: SET FILE TYPE BINARY.\n",
        !           464: 
        !           465: #ifdef VMS
        !           466: "For VAX/VMS, you may include an optional record-format after the word",
        !           467: "BINARY.  This may be FIXED (the default) or UNDEFINED.",
        !           468: "Two additional VMS file types are also supported: IMAGE and LABELED.  IMAGE",
        !           469: "means raw block i/o, no interference from RMS, and applies to file transmis-",
        !           470: "sion only.  LABELED means to send or interpret RMS attributes with the file.",
        !           471: "\n",
        !           472: #endif /* VMS */
        !           473: 
        !           474: "BYTESIZE { 7, 8 }: normally 8.  If 7, truncate the 8th bit of all file \
        !           475: bytes.\n",
        !           476: 
        !           477: #ifndef NOCSETS
        !           478: "CHARACTER-SET: tells the encoding of the local file, ASCII by default.",
        !           479: "The names ITALIAN, PORTUGUESE, NORWEGIAN, etc, refer to 7-bit ISO-646",
        !           480: "national character sets.  LATIN1 is the 8-bit ISO 8859-1 Latin Alphabet 1",
        !           481: "for Western European languages.",
        !           482: "NEXT is the 8-bit character set of the NeXT workstation.",
        !           483: "The CPnnn sets are for IBM PCs.  MACINTOSH-LATIN is for the Macintosh.",
        !           484: #ifndef NOLATIN2
        !           485: "LATIN2 is ISO 8859-2 for Eastern European languages that are written with",
        !           486: "Roman letters.",
        !           487: #endif /* NOLATIN2 */
        !           488: #ifdef CYRILLIC
        !           489: "KOI-CYRILLIC, CYRILLIC-ISO, and CP866 are 8-bit Cyrillic character sets.",
        !           490: "SHORT-KOI is a 7-bit ASCII coding for Cyrillic.",
        !           491: #endif /* CYRILLIC */
        !           492: #ifdef KANJI
        !           493: "JAPANESE-EUC, JIS7-KANJI, DEC-KANJI, and SHIFT-JIS-KANJI are Japanese",
        !           494: "Kanji character sets.",
        !           495: #endif /* KANJI */
        !           496: "Type SET FILE CHAR ? for a complete list of file character sets.\n",
        !           497: #endif /* NOCSETS */
        !           498: 
        !           499: "INCOMPLETE - what to do with an incompletely received file: DISCARD",
        !           500: "(default), or KEEP.\n",
        !           501: 
        !           502: "NAMES are normally CONVERTED to 'common form' during transmission; LITERAL",
        !           503: "means use filenames literally (useful between like systems).\n",
        !           504: 
        !           505: "COLLISION tells what to do when a file arrives that has the same name as",
        !           506: "an existing file.  The options are:",
        !           507: "  BACKUP (default) - Rename the old file to a new, unique name and store",
        !           508: "    the incoming file under the name it was sent with.",
        !           509: "  OVERWRITE - Overwrite (replace) the existing file.",
        !           510: "  APPEND - Append the incoming file to the end of the existing file.",
        !           511: "  DISCARD - Refuse and/or discard the incoming file.",
        !           512: "  RENAME - Give the incoming file a unique name.",
        !           513: "  UPDATE - Accept the incoming file only if it is newer than the existing",
        !           514: "    file.",
        !           515: "Example: SET FILE COLLISION UPDATE\n",
        !           516: 
        !           517: #ifdef VMS
        !           518: "RECORD-LENGTH sets the record length for received files of type BINARY. Use",
        !           519: "this to receive VMS BACKUP savesets or other fixed-format files. The default",
        !           520: "of 512 is suitable for executable (.EXE) files, etc.\n",
        !           521: "Example: SET FILE REC 8192\n",
        !           522: #endif /* VMS */
        !           523: 
        !           524: "SET FILE DISPLAY selects the format of the file transfer display for",
        !           525: "local-mode file transfer.  The choices are:",
        !           526: "  SERIAL (the default).  One dot is printed for every K bytes transferred.",
        !           527: "    This format works on any kind of terminal, even a hardcopy.",
        !           528: "  CRT.  Numbers are continuously updated on a single screen line.  This",
        !           529: "    format can be used on any video display terminal.",
        !           530: #ifdef CK_CURSES
        !           531: "  FULLSCREEN.  A fully formatted 24x80 screen showing lots of information.",
        !           532: "    This requires a video display terminal whose control sequences are",
        !           533: "    understood by Kermit.",
        !           534: #endif /* CK_CURSES */
        !           535: "  NONE.  No file transfer display at all.\n",
        !           536: 
        !           537: "WARNING.  SET FILE WARNING is superseded by the newer command, SET FILE",
        !           538: "COLLISION.  SET FILE WARNING ON is equivalent to SET FILE COLLISION RENAME",
        !           539: "and SET FILE WARNING OFF is equivalent to SET FILE COLLISION OVERWRITE.\n",
        !           540: 
        !           541: "" };
        !           542:  
        !           543: static char *hmxyhsh[] = { "Syntax: SET HANDSHAKE value\n",
        !           544: "Character to use for half duplex line turnaround handshake during file",
        !           545: "transfer.  C-Kermit waits for this character from the other computer before",
        !           546: "sending its next packet.  Default is NONE, others are XON, LF, BELL, ESC,",
        !           547: "etc.  SET HANDSHAKE CODE <n> lets you specify the numeric ASCII value of the",
        !           548: "handshake character.  Type SET HANDSH ? for a list.",
        !           549: "" };
        !           550: 
        !           551: #ifndef NOSERVER
        !           552: static char *hsetsrv[] = {"\
        !           553: SET SERVER DISPLAY {ON,OFF}",
        !           554: "Tell whether local-mode C-Kermit during server operation should put a",
        !           555: "file transfer display on the screen.  Default is OFF.\n",
        !           556: "SET SERVER TIMEOUT n",
        !           557: "Server command wait timeout interval, how often the C-Kermit server issues",
        !           558: "a NAK while waiting for a command packet.  Specify 0 for no NAKs at all.",
        !           559: "Default is 0.",
        !           560: "" };
        !           561: #endif /* NOSERVER */
        !           562: 
        !           563: static char *hmhrmt[] = { "\
        !           564: The REMOTE command is used to send file management instructions to a",
        !           565: "remote Kermit server.  There should already be a Kermit running in server",
        !           566: "mode on the other end of the currently selected line.  Type REMOTE ? to",
        !           567: "see a list of available remote commands.  Type HELP REMOTE x to get",
        !           568: "further information about a particular remote command 'x'.",
        !           569: "" } ;
        !           570: 
        !           571: #ifndef NOSPL
        !           572: static char *ifhlp[] = { "Syntax: IF [NOT] condition command\n",
        !           573: "If the condition is (is not) true, do the command.  Only one command may",
        !           574: "be given, and it must appear on the same line as the IF.  Conditions are:\n",
        !           575: "  SUCCESS    - the previous command succeeded",
        !           576: "  FAILURE    - the previous command failed",
        !           577: "  BACKGROUND - C-Kermit is running in the background",
        !           578: "  FOREGROUND - C-Kermit is running in the foreground\n",
        !           579: "  DEFINED variablename or macroname - The named variable or macro is defined",
        !           580: "  NUMERIC variable or constant      - The variable or constant is numeric",
        !           581: "  EXIST filename                    - The named file exists\n",
        !           582: "  COUNT   - subtract one from COUNT, execute the command if the result is",
        !           583: "            greater than zero (see SET COUNT)\n",
        !           584: "  EQUAL s1 s2 - s1 and s2 (character strings or variables) are equal",
        !           585: "  LLT s1 s2   - s1 is lexically (alphabetically) less than s2",
        !           586: "  LGT s1 s1   - s1 is lexically (alphabetically) greater than s2\n",
        !           587: "  = n1 n1 - n1 and n2 (numbers or variables containing numbers) are equal",
        !           588: "  < n1 n2 - n1 is arithmetically less than n2",
        !           589: "  > n1 n2 - n1 is arithmetically greater than n2\n",
        !           590: "The IF command may be followed on the next line by an ELSE command. Example:",
        !           591: "  IF < \\%x 10 ECHO It's less",
        !           592: "  ELSE echo It's not less\n",
        !           593: "See also XIF.",
        !           594: "" };
        !           595: #endif /* NOSPL */
        !           596: 
        !           597: #ifndef NOSPL
        !           598: static char *ifxhlp[] = { "\
        !           599: Syntax: XIF condition { commandlist } [ ELSE { commandlist } ]\n",
        !           600: "Extended IF command.  The conditions are the same as for IF (type HELP IF)",
        !           601: "but multiple comma-separated commands may be grouped within braces in both", 
        !           602: "the IF and ELSE parts.  The ELSE part, if any, must be on the same line as",
        !           603: "the XIF (or use dash for line continuation).  Example:\n",
        !           604: "  XIF equal \\%a YES { echo OK, goto begin } ELSE { echo Not OK, stop }",
        !           605: "" };
        !           606: #endif /* NOSPL */
        !           607: 
        !           608: #ifndef NOSPL
        !           609: static char *forhlp[] = { "\
        !           610: Syntax: FOR variablename initial-value final-value increment { commandlist }",
        !           611: "\nFOR loop.  Execute the comma-separated commands in the commandlist the",
        !           612: "number of times given by the initial value, final value and increment.",
        !           613: "Example:  FOR \\%i 10 1 -1 { pause 1, echo \\%i }", "" };
        !           614: 
        !           615: static char *whihlp[] = { "\
        !           616: Syntax: WHILE condition { commandlist }",
        !           617: "\nWHILE loop.  Execute the comma-separated commands in the commandlist while",
        !           618: "the condition is true.  Conditions are the same as for IF commands.", "" };
        !           619: #endif /* NOSPL */
        !           620: 
        !           621: #ifndef NOSPL
        !           622: static char *openhlp[] = {
        !           623: "Syntax:  OPEN mode filename\n",
        !           624: "For use with READ and WRITE commands.  Open the local file in the specified",
        !           625: "mode: READ, WRITE, or APPEND.  !READ and !WRITE mean to read from or write",
        !           626: "to a system command rather than a file.  Examples:\n",
        !           627: "  OPEN READ oofa.txt",
        !           628: "  OPEN !READ sort foo.bar",
        !           629: "" };
        !           630: #endif /* NOSPL */
        !           631: 
        !           632: #ifndef NOSPL
        !           633: static char *hxxaskq[] = {
        !           634: "Syntax:  ASKQ variablename prompt",
        !           635: "Example: ASKQ %p { Password:}\n",
        !           636: "Issues the prompt and defines the variable to be whatever you type in.",
        !           637: "The characters that you type do not echo on the screen.",
        !           638: "Use braces to preserve leading and/or trailing spaces in the prompt.",
        !           639: "To include a question mark, precede it by backslash (\\).","" };
        !           640: #endif /* NOSPL */
        !           641: 
        !           642: #ifndef NOSPL
        !           643: static char *hxxask[] = {
        !           644: "Syntax:  ASK variablename prompt",
        !           645: "Example: ASK %n { What is your name\\? }\n",
        !           646: "Issues the prompt and defines the variable to be whatever you type in.",
        !           647: "Use braces to preserve leading and/or trailing spaces in the prompt.",
        !           648: "To include a question mark, precede it by backslash (\\).","" };
        !           649: #endif /* NOSPL */
        !           650: 
        !           651: #ifndef NOSPL
        !           652: static char *hxxdef[] = {
        !           653: "Syntax: DEFINE name [ definition ]\n",
        !           654: "Defines a macro or variable.  Its value is the definition, taken literally.",
        !           655: "No expansion or evaluation of the definition is done.  Thus if the", 
        !           656: "definition includes any variable or function references, their names are",
        !           657: "included, rather than their values (compare with ASSIGN).  If the definition",
        !           658: "is omitted, then the named variable or macro is undefined.\n",
        !           659: "A typical macro definition looks like this:\n",
        !           660: "  DEFINE name command, command, command, ...\n",
        !           661: "for example:\n",
        !           662: "  DEFINE vax set parity even, set duplex full, set flow xon/xoff\n",
        !           663: "which defines a Kermit command macro called 'vax'.  The definition is a",
        !           664: "comma-separated list of Kermit commands.  Use the DO command to execute",
        !           665: "the macro, or just type its name, followed optionally by arguments.\n",
        !           666: "The definition of a variable can be anything at all, for example:\n",
        !           667: "  DEFINE \\%a Monday",
        !           668: "  DEFINE \\%b 3\n",
        !           669: "These variables can be used almost anywhere, for example:\n",
        !           670: "  ECHO Today is \\%a",
        !           671: "  SET BLOCK-CHECK \\%b",
        !           672: "" };
        !           673: #endif /* NOSPL */
        !           674: 
        !           675: #ifndef NOSPL
        !           676: static char *hxxass[] = {
        !           677: "Syntax:  ASSIGN variablename string.",
        !           678: "Example: ASSIGN \\%a My name is \\%b.\n",
        !           679: "Assigns the current value of the string to the variable (or macro).",
        !           680: "The definition string is fully evaluated before it is assigned, so that",
        !           681: "the values of any variables are contained are used, rather than their",
        !           682: "names.  Compare with DEFINE.  To illustrate the difference, try this:\n",
        !           683: "  DEFINE \\%a hello",
        !           684: "  DEFINE \\%x \\%a",
        !           685: "  ASSIGN \\%y \\%a",
        !           686: "  DEFINE \\%a goodbye",
        !           687: "  ECHO \\%x \\%y\n",
        !           688: "This will print 'goodbye hello'.", "" };
        !           689: #endif /* NOSPL */
        !           690: 
        !           691: #ifndef NOSPL
        !           692: static char *hxxdec[] = {
        !           693: "Syntax: DECREMENT variablename [ number ]\n",
        !           694: "Decrement (subtract one from) the value of a variable if the current value",
        !           695: "is numeric.  If the number argument is given, subtract that number instead.",
        !           696: "\nExamples: DECR \\%a, DECR \\%a 7, DECR \\%a \\%n", "" };
        !           697: #endif /* NOSPL */
        !           698: 
        !           699: #ifndef NOSPL
        !           700: static char *hxxinc[] = {
        !           701: "Syntax: INCREMENT variablename [ number ]\n",
        !           702: "Increment (add one to) the value of a variable if the current value is",
        !           703: "numeric.  If the number argument is given, add that number instead.\n",
        !           704: "Examples: INCR \\%a, INCR \\%a 7, INCR \\%a \\%n", "" };
        !           705: #endif /* NOSPL */
        !           706: 
        !           707: #ifdef SUNX25
        !           708: static char *hxxpad[] = {
        !           709: "Syntax: PAD command",
        !           710: "X.25 PAD commands:\n",
        !           711: "    PAD CLEAR     - Clear the virtual call",
        !           712: "    PAD STATUS    - Return the status of virtual call",
        !           713: "    PAD RESET     - Send a reset packet",
        !           714: "    PAD INTERRUPT - Send an interrupt packet",
        !           715: ""};
        !           716: 
        !           717: static char *hxyx25[] = {
        !           718: "Syntax: SET X.25 option { ON [ data ], OFF }\n",
        !           719: "X.25 call options:",
        !           720: "  CLOSED-USER-GROUP { ON index, OFF }",
        !           721: "    Enable or disable closed user group call, where index is the group",
        !           722: "    index, 0 to 99.",
        !           723: "  REVERSE-CHARGE { ON, OFF }",
        !           724: "    Tell whether you want to reverse the charges for the call.",
        !           725: "  CALL-USER-DATA { ON string, OFF }",
        !           726: "    Specify call user-data for the X.25 call.",
        !           727: ""};
        !           728: #endif /* SUNX25 */
        !           729: 
        !           730: static char *hxxpau[] = {
        !           731: "Syntax:  PAUSE [ number ]",
        !           732: "Example: PAUSE 3\n",
        !           733: "Do nothing for the specified number of seconds; if no number given, one",
        !           734: "second.  If interrupted from the keyboard, set FAILURE, otherwise SUCCESS.",
        !           735: "" };
        !           736: 
        !           737: static char *hxxmsl[] = {
        !           738: "Syntax:  MSLEEP [ number ]",
        !           739: "Example: MSLEEP 500\n",
        !           740: "Do nothing for the specified number of milliseconds; if no number given,",
        !           741: "100 milliseconds.","" };
        !           742: 
        !           743: #ifndef NOPUSH
        !           744: static char *hxxshe[] = {
        !           745: "Syntax: ! [ command ] or RUN [ command ] or PUSH [ command ]\n",
        !           746: "Give a command to the local operating system's command processor, and",
        !           747: "display the results on the screen.\n",
        !           748: "If the command is omitted, enter interactive mode; return to Kermit",
        !           749: "by exiting from the system's command parser.  The command is usually",
        !           750: "EXIT or QUIT or LOGOUT.",  "" };
        !           751: #endif /* NOPUSH */
        !           752: 
        !           753: #ifndef NOXMIT
        !           754: static char *hxxxmit[] = {
        !           755: "Syntax: TRANSMIT file\n",
        !           756: "The TRANSMIT command is used for sending single files to other computers",
        !           757: "that don't have Kermit.  Text files are sent a line at a time; binary files",
        !           758: "are sent a character at a time.  There is no guarantee that the other",
        !           759: "computer will receive the file correctly and completely.  Before you start",
        !           760: "the TRANSMIT command, you must put the other computer in data collection",
        !           761: "mode, for example by starting a text editor.  TRANSMIT may be interrupted by",
        !           762: "Ctrl-C.  Synonym: XMIT.",
        !           763: "" };
        !           764: #endif /* NOXMIT */
        !           765: 
        !           766: #ifndef NOCSETS
        !           767: static char *hxxxla[] = {
        !           768: "Syntax: TRANSLATE file1 cs1 cs2 [ file2 ]\n",
        !           769: "Translates file1 from the character set cs1 into the character set cs2",
        !           770: "and stores the result in file2.  The character sets can be any of",
        !           771: "C-Kermit's file character sets.  If file2 is omitted, the translation",
        !           772: "is displayed on the screen.  Uses Latin-1 as intermediate character set",
        !           773: "unless LANGUAGE is set to RUSSIAN, in which case it uses Latin-Cyrillic.",
        !           774: "Synonym: XLATE.  Example:\n",
        !           775: "TRANSLATE lasagna.lat latin1 italian lasagna.nrc",
        !           776: "" };
        !           777: #endif /* NOCSETS */
        !           778: 
        !           779: #ifndef NOSPL
        !           780: static char *hxxwai[] = {
        !           781: "Syntax:  WAIT number [modem-signal(s)]",
        !           782: "Example: WAIT 5 \\cd\\cts\n",
        !           783: "Waits up to the given number of seconds for all of the specified signals.",
        !           784: "Sets FAILURE if signals do not appear in given time or if interrupted by",
        !           785: "typing anything at the keyboard during the waiting period.\n",
        !           786: "Signals: \\cd = Carrier Detect, \\dsr = Dataset Ready, \\cts = Clear To Send",
        !           787: "Warning: This command does not work yet, signals are ignored.", "" };
        !           788: #endif /* NOSPL */
        !           789: 
        !           790: static char *hxxwri[] = {
        !           791: "Syntax: WRITE name text\n",
        !           792: "Writes the given text to the named log or file.  The text text may include",
        !           793: "backslash codes, and is not terminated by a newline unless you include the",
        !           794: "appropriate code.  The name parameter can be any of the following:\n",
        !           795: "  DEBUG-LOG",
        !           796: "  ERROR (standard error)",
        !           797: #ifndef NOSPL
        !           798: "  FILE (the OPEN WRITE, OPEN !WRITE, or OPEN APPEND file, see HELP OPEN)",
        !           799: #endif /* NOSPL */
        !           800: "  PACKET-LOG",
        !           801: "  SCREEN (compare with ECHO)",
        !           802: "  SESSION-LOG",
        !           803: "  TRANSACTION-LOG", "" };
        !           804: 
        !           805: #ifndef NODIAL
        !           806: static char *hxxdial[] = { "Syntax:  DIAL phonenumber",
        !           807: "Example: DIAL 7654321\n",
        !           808: "Dial a number using an autodial modem.  First you must SET MODEM, then",
        !           809: "SET LINE, then SET SPEED.  Then give the DIAL command, including the phone",
        !           810: "number, for example:\n",
        !           811: "  DIAL 7654321\n",
        !           812: #ifdef NETCONN
        !           813: "If the modem is on a network modem server, SET HOST first, then SET MODEM,",
        !           814: "then DIAL.  See also SET DIAL, SET MODEM, SET LINE, SET HOST, SET SPEED,",
        !           815: "and REDIAL.\n",
        !           816: #else
        !           817: "See also SET DIAL, SET MODEM, SET LINE, SET SPEED, REDIAL.\n",
        !           818: #endif /* NETCONN */
        !           819: "The 'phonenumber' can also the name of an entry from your dialing directory,",
        !           820: "which is a plain text file, one entry per line:\n",
        !           821: "  name  phonenumber  speed   parity   comments\n",
        !           822: "for example:\n",
        !           823: "  e-mail  765-4321   2400    even     My electronic mailbox\n",
        !           824: "The fields are separated by spaces, and all fields after the 'phonenumber'",
        !           825: "are optional.  If the speed or parity are present, they replace your current",
        !           826: "SET SPEED and SET PARITY settings.  Specify your dialing directory file with",
        !           827: "the SET DIAL DIRECTORY command.",
        !           828:  "" };
        !           829: #endif /* NODIAL */
        !           830: 
        !           831: #endif /* NOHELP */
        !           832: 
        !           833: /*  D O H L P  --  Give a help message  */
        !           834:  
        !           835: _PROTOTYP( int dohset, (int) );
        !           836: 
        !           837: int
        !           838: dohlp(xx) int xx; {
        !           839:     int x,y;
        !           840:  
        !           841:     debug(F101,"DOHELP xx","",xx);
        !           842:     if (xx < 0) return(xx);
        !           843:     switch (xx) {
        !           844:  
        !           845: #ifdef NOHELP
        !           846: 
        !           847: case XXHLP:
        !           848:     if ((x = cmcfm()) < 0)
        !           849:       return(x);
        !           850:     printf("%s, Copyright (C) 1985, 1992,",versio);
        !           851:     return(hmsga(tophlp));
        !           852: 
        !           853: #else /* help is available */
        !           854: 
        !           855: #ifndef NOSPL
        !           856: case XXASS:                            /* assign */
        !           857:     return(hmsga(hxxass));
        !           858: 
        !           859: case XXASK:                            /* ask */
        !           860:     return(hmsga(hxxask));
        !           861: 
        !           862: case XXASKQ:
        !           863:     return(hmsga(hxxaskq));
        !           864: #endif /* NOSPL */
        !           865: 
        !           866: #ifndef NOFRILLS
        !           867: case XXBUG:
        !           868:     return(hmsg("Describe how to report C-Kermit bugs."));
        !           869: #endif /* NOFRILLS */
        !           870: 
        !           871: case XXBYE:                            /* bye */
        !           872:     return(hmsg(hmxxbye));
        !           873:  
        !           874: case XXCHK:                            /* check */
        !           875:     return(hmsg("\
        !           876: Syntax: CHECK name\n\
        !           877: Check to see if the named feature is included in this version of C-Kermit.\n\
        !           878: To list the features you can check, type \"check ?\"."));
        !           879: 
        !           880: #ifndef NOFRILLS
        !           881: case XXCLE:                            /* clear */
        !           882:     return(hmsg("\
        !           883: Syntax: CLEAR\n\
        !           884: Clear the serial port input buffer."));
        !           885: #endif /* NOFRILLS */
        !           886: 
        !           887: case XXCLO:                            /* close */
        !           888:     return(hmsga(hmxxclo));
        !           889:  
        !           890: case XXCOM:                            /* comment */
        !           891:     return(hmsg("\
        !           892: Syntax: COMMENT text\n\
        !           893: Example: COMMENT - this is a comment.\n\n\
        !           894: Introduce a comment.  Beginning of command line only.  Commands may also\n\
        !           895: have trailing comments, introduced by ; (semicolon)."));
        !           896: 
        !           897: case XXCON:                            /* connect */
        !           898:     hmsg(hmxxcon);
        !           899:     printf("Your escape character is Ctrl-%c (ASCII %d, %s)\r\n",
        !           900:           ctl(escape), escape, (escape == 127 ? "DEL" : ccntab[escape]));
        !           901:     return(0);
        !           902:  
        !           903: case XXCWD:                            /* cd / cwd */
        !           904: #ifdef vms
        !           905:     return(hmsg("Syntax: CD [ directory or device:directory ]\n\
        !           906: Change Working Directory, equivalent to VMS SET DEFAULT command"));
        !           907: #else
        !           908: #ifdef datageneral
        !           909:     return(hmsg("Change Working Directory, equivalent to DG 'dir' command"));
        !           910: #else
        !           911: #ifdef OS2
        !           912:   return(hmsg("Change Working Directory, equivalent to OS/2 'chdir' command"));
        !           913: #else
        !           914:     return(hmsg("Syntax: CD [ directoryname ]\n\n\
        !           915: Change Working Directory, equivalent to UNIX cd command."));
        !           916: #endif /* OS2 */
        !           917: #endif /* datageneral */
        !           918: #endif /* vms */
        !           919:  
        !           920: #ifndef NOSPL
        !           921: case XXDCL:
        !           922:     return(hmsg("Syntax:  DECLARE arrayname[size]\n\
        !           923: Example: DECLARE \\&a[20]\n\n\
        !           924: Declares an array of the given size.  Array elements can be used just like\n\
        !           925: any other variables."));
        !           926: 
        !           927: case XXDEF:                            /* define */
        !           928:     return(hmsga(hxxdef));
        !           929: #endif /* NOSPL */
        !           930: 
        !           931: #ifndef NOFRILLS
        !           932: case XXDEL:                            /* delete */
        !           933:     return(hmsg("Syntax: DELETE filespec\n\n\
        !           934: Delete a local file or files.  RM is a synonym for DELETE."));
        !           935: #endif /* NOFRILLS */
        !           936:  
        !           937: #ifndef NODIAL
        !           938: case XXDIAL:                           /* dial */
        !           939:     return(hmsga(hxxdial));
        !           940: #endif
        !           941:  
        !           942: case XXDIR:                            /* directory */
        !           943:     return(hmsg("Syntax: DIRECTORY [ filespec ]\n\
        !           944: Display a directory listing of local files."));
        !           945:  
        !           946: #ifndef NOSERVER
        !           947: #ifndef NOFRILLS
        !           948: case XXDIS:
        !           949:     return(hmsg("Syntax: DISABLE command\n\n\
        !           950: Security for the C-Kermit server.  Prevent the client Kermit program from\n\
        !           951: executing the named REMOTE command, such as CD, DELETE, RECEIVE, etc."));
        !           952: #endif /* NOFRILLS */
        !           953: #endif /* NOSERVER */
        !           954: 
        !           955: #ifndef NOSPL
        !           956: case XXDO:                             /* do */
        !           957:     return(hmsg("Syntax: [ DO ] macroname [ arguments ]\n\n\
        !           958: Execute a macro that was defined by the DEFINE command.  The word DO\n\
        !           959: can be omitted.  Trailing argument words, if any, are automatically\n\
        !           960: assigned to the macro argument variables \\%1, \\%2, etc."));
        !           961: #endif /* NOSPL */
        !           962: 
        !           963: #ifndef NOSPL
        !           964: case XXDEC:
        !           965:     return(hmsga(hxxdec));
        !           966: #endif /* NOSPL */
        !           967: 
        !           968: case XXECH:                            /* echo */
        !           969:     return(hmsg("Syntax: ECHO text\n\
        !           970: Display the text on the screen, followed by a newline.  The ECHO text may\n\
        !           971: contain backslash codes.  Example: ECHO \\7Wake up!\\7")); 
        !           972:  
        !           973: #ifndef NOSERVER
        !           974: #ifndef NOFRILLS
        !           975: case XXENA:
        !           976:     return(hmsg("Syntax: ENABLE capability\n\n\
        !           977: For use with server mode.  Allow the client Kermit program access to the\n\
        !           978: named capability, such as CD, DELETE, RECEIVE, etc.  Opposite of DISABLE."));
        !           979: #endif /* NOFRILLS */
        !           980: #endif /* NOSERVER */
        !           981: 
        !           982: #ifndef NOSPL
        !           983: case XXEND:                            /* end */
        !           984:     return(hmsg("Syntax: END [ number [ message ] ]\n\
        !           985: Exit from the current macro or TAKE file, back to wherever invoked from.\n\
        !           986: Number is return code.  Message, if given, is printed."));
        !           987: #endif /* NOSPL */
        !           988: 
        !           989: #ifndef NOFRILLS
        !           990: case XXERR:                            /* error */
        !           991:     return(hmsg("Syntax: ERROR\n\
        !           992: Send an Error packet to the other Kermit to get it out of packet mode."));
        !           993: #endif /* NOFRILLS */
        !           994: 
        !           995: case XXEXI:                            /* exit */
        !           996: case XXQUI:
        !           997:     return(hmsg("Syntax: QUIT (or EXIT)\n\
        !           998: Exit from the Kermit program, closing all open files and devices."));
        !           999:  
        !          1000: case XXFIN:
        !          1001:     return(hmsg("Syntax: FINISH\n\
        !          1002: Tell the remote Kermit server to shut down without logging out."));
        !          1003:  
        !          1004: #ifndef NOSPL
        !          1005: case XXFOR:
        !          1006:     return(hmsga(forhlp));
        !          1007: #endif /* NOSPL */
        !          1008: 
        !          1009: case XXGET:
        !          1010:     return(hmsg(hmxxget));
        !          1011:  
        !          1012: #ifndef NOSPL
        !          1013: #ifndef NOFRILLS
        !          1014:   case XXGOK:
        !          1015:     return(hmsg("Syntax: GETOK prompt\n\
        !          1016: Print the prompt, make user type 'yes', 'no', or 'ok', and set SUCCESS or\n\
        !          1017: FAILURE accordingly."));
        !          1018: #endif /* NOFRILLS */
        !          1019: #endif /* NOSPL */
        !          1020: 
        !          1021: #ifndef NOSPL
        !          1022: case XXGOTO:
        !          1023:     return(hmsg("Syntax: GOTO label\n\
        !          1024: In a TAKE file or macro, go to the given label.  A label is a word on the\n\
        !          1025: left margin that starts with a colon (:).  Example:\n\n\
        !          1026: :oofa\n\
        !          1027: echo Hello!\n\
        !          1028: goto oofa"));
        !          1029: #endif /* NOSPL */
        !          1030: 
        !          1031: case XXHAN:
        !          1032:     return(hmsg("Syntax: HANGUP\n\
        !          1033: Hang up the phone or network connection."));    
        !          1034: 
        !          1035: case XXHLP:
        !          1036: /*
        !          1037:   We get confirmation here, even though we do it again in hmsga(), to prevent
        !          1038:   the Copyright message from being printed prematurely.  This doesn't do any
        !          1039:   harm, because the first call to cmcfm() sets cmflgs to 1, making the second
        !          1040:   call return immediately.
        !          1041: */
        !          1042:     if ((x = cmcfm()) < 0)
        !          1043:       return(x);
        !          1044:     printf("%s, Copyright (C) 1985, 1992,",versio);
        !          1045:     return(hmsga(tophlp));
        !          1046: 
        !          1047: case XXINT:
        !          1048:     return(hmsg("Give a brief introduction to C-Kermit."));    
        !          1049: 
        !          1050: #ifndef NOSPL
        !          1051: case XXIF:
        !          1052:     return(hmsga(ifhlp));
        !          1053: 
        !          1054: case XXINC:
        !          1055:     return(hmsga(hxxinc));
        !          1056: 
        !          1057: case XXINP:
        !          1058:    return(hmsg("\
        !          1059: Syntax:  INPUT n [ text ]\n\
        !          1060: Example: INPUT 5 Login:\n\n\
        !          1061: Wait up to n seconds for the given text to arrive on the communication line.\n\
        !          1062: If no text, waits for any character.  For use in script programs with\n\
        !          1063: IF FAILURE and IF SUCCESS.  Also see SET INPUT."));
        !          1064: #endif /* NOSPL */
        !          1065: 
        !          1066: #ifndef NODIAL
        !          1067: case XXRED:
        !          1068:     return(hmsg("Redial the number given in the most recent DIAL commnd."));
        !          1069: #endif /* NODIAL */
        !          1070: 
        !          1071: #ifndef NOSPL
        !          1072: case XXREI:
        !          1073:     return(hmsg("Syntax: REINPUT n string\n\n\
        !          1074: Look for the string in the text that has recently been INPUT, set SUCCESS\n\
        !          1075: or FAILURE accordingly.  Timeout, n, must be specified but is ignored."));
        !          1076: #endif /* NOSPL */
        !          1077: 
        !          1078: #ifndef NOFRILLS
        !          1079: case XXREN:
        !          1080:     return(hmsg("Syntax: RENAME oldname newname\n\n\
        !          1081: Change the name of file 'oldname' to 'newname'."));
        !          1082: #endif /* NOFRILLS */
        !          1083: 
        !          1084: #ifndef NOSPL
        !          1085: case XXLBL:
        !          1086:     return(hmsg("\
        !          1087: Introduce a label, like :loop, for use with GOTO in TAKE files or macros.\n\
        !          1088: See GOTO."));
        !          1089: #endif /* NOSPL */
        !          1090: 
        !          1091: case XXLOG:
        !          1092:     return(hmsga(hmxxlg));
        !          1093:  
        !          1094: #ifndef NOSCRIPT
        !          1095: case XXLOGI:
        !          1096:     return(hmsga(hmxxlogi));
        !          1097: #endif
        !          1098:  
        !          1099: #ifndef NOFRILLS
        !          1100: case XXMAI:
        !          1101:     return(hmsg("Syntax: MAIL filename address\n\n\
        !          1102: Send the file to the remote Kermit, which must be in RECEIVE or SERVER mode,\n\
        !          1103: and request that the remote host deliver the file as electronic mail to the\n\
        !          1104: given address.  Example: MAIL BUG.TXT KERMIT@CUVMA"));
        !          1105: #endif /* NOFRILLS */
        !          1106: 
        !          1107: #ifndef NOMSEND
        !          1108: case XXMSE:
        !          1109:     return(hmsg(hmssmse));
        !          1110: #endif /* NOMSEND */
        !          1111: 
        !          1112: #ifndef NOSPL
        !          1113: case XXOPE:
        !          1114:     return(hmsga(openhlp));
        !          1115: #endif /* NOSPL */
        !          1116: 
        !          1117: #ifndef NOSPL
        !          1118: case XXOUT:
        !          1119:     return(hmsg("Syntax: OUTPUT text\n\n\
        !          1120: Send the text out the currently selected line, as if you had typed it\n\
        !          1121: during CONNECT mode.  The text may contain backslash codes.  Example:\n\n\
        !          1122:   OUTPUT help\\13"));
        !          1123: #endif /* NOSPL */
        !          1124: 
        !          1125: #ifdef SUNX25
        !          1126: case XXPAD:
        !          1127:     return(hmsga(hxxpad));
        !          1128: #endif /* SUNX25 */
        !          1129: 
        !          1130: #ifndef NOSPL
        !          1131: case XXPAU:
        !          1132:     return(hmsga(hxxpau));
        !          1133: 
        !          1134: case XXMSL:
        !          1135:     return(hmsga(hxxmsl));
        !          1136: #endif /* NOSPL */
        !          1137: 
        !          1138: #ifdef TCPSOCKET
        !          1139: case XXPNG:
        !          1140:     return(hmsg("Syntax: PING [ IP-hostname-or-number ]\n\n\
        !          1141: Check if given IP network host is reachable.  Default host from most\n\
        !          1142: recent SET HOST or TELNET command.  Runs system PING program, if any."));
        !          1143: #endif /* TCPSOCKET */
        !          1144: 
        !          1145: #ifndef NOFRILLS
        !          1146: case XXPRI:
        !          1147:     return(hmsg("Syntax: PRINT file [ options ]\n\n\
        !          1148: Print the local file on a local printer with the given options."));
        !          1149: #endif /* NOFRILLS */
        !          1150: 
        !          1151: case XXPWD:
        !          1152:     return(hmsg("Syntax: PWD\n\
        !          1153: Print the name of the current working directory."));
        !          1154: 
        !          1155: #ifndef NOSPL
        !          1156: case XXREA:
        !          1157:     return(hmsg("Syntax: READ variablename\n\
        !          1158: Read a line from the currently open READ or !READ file into the variable\n\
        !          1159: (see OPEN)."));
        !          1160: #endif /* NOSPL */
        !          1161: 
        !          1162: case XXREC:
        !          1163:     return(hmsga(hmxxrc));
        !          1164:  
        !          1165: case XXREM:
        !          1166:     y = cmkey(remcmd,nrmt,"Remote command","",xxstring);
        !          1167:     return(dohrmt(y));
        !          1168:  
        !          1169: #ifndef NOSPL
        !          1170: case XXRET:
        !          1171:     return(hmsg("Syntax: RETURN [ value ]\n\
        !          1172: Return from a macro.  An optional return value can be given for use with\n\
        !          1173: with \\fexecute(macro), which allows macros to be used like functions."));
        !          1174: case XXSEN:
        !          1175:     return(hmsg(hmxxsen));
        !          1176: #endif /* NOSPL */
        !          1177:  
        !          1178: #ifndef NOSERVER
        !          1179: case XXSER:
        !          1180:     return(hmsg(hmxxser));
        !          1181: #endif /* NOSERVER */
        !          1182:  
        !          1183: #ifndef NOJC
        !          1184: case XXSUS:
        !          1185:     return(hmsg("Syntax: SUSPEND or Z\n\
        !          1186: Suspend Kermit.  Continue Kermit with the appropriate system command,\n\
        !          1187: such as fg."));
        !          1188: #endif /* NOJC */
        !          1189: 
        !          1190: case XXSET:
        !          1191:     y = cmkey(prmtab,nprm,"Parameter","",xxstring);
        !          1192:     debug(F101,"HELP SET y","",y);
        !          1193:     return(dohset(y));
        !          1194:  
        !          1195: #ifndef NOPUSH
        !          1196: case XXSHE:
        !          1197:     return(hmsga(hxxshe));
        !          1198: #endif /* NOPUSH */
        !          1199:  
        !          1200: #ifndef NOSHOW
        !          1201: case XXSHO:
        !          1202:     return(hmsg("\
        !          1203: Display current values of various items (SET parameters, variables, etc).\n\
        !          1204: Type SHOW ? for a list of categories."));
        !          1205: #endif /* NOSHOW */
        !          1206:  
        !          1207: case XXSPA:
        !          1208: #ifdef datageneral
        !          1209:     return(hmsg("\
        !          1210: Display disk usage in current device, directory,\n\
        !          1211: or return space for a specified device, directory."));
        !          1212: #else
        !          1213:     return(hmsg("Syntax: SPACE\n\
        !          1214: Display disk usage in current device and/or directory"));
        !          1215: #endif
        !          1216:  
        !          1217: case XXSTA:
        !          1218:     return(hmsg("Syntax: STATISTICS\n\
        !          1219: Display statistics about most recent file transfer"));
        !          1220:  
        !          1221: #ifndef NOSPL
        !          1222: case XXSTO:
        !          1223:     return(hmsg("Syntax: STOP [ number [ message ] ]\n\
        !          1224: Stop executing the current macro or TAKE file and return immediately to\n\
        !          1225: the C-Kermit prompt.  Number is a return code.  Message printed if given."));
        !          1226: #endif /* NOSPL */
        !          1227: 
        !          1228: case XXTAK:
        !          1229:     return(hmsg("Syntax: TAKE filename\n\
        !          1230: Take Kermit commands from the named file.  Kermit command files may\n\
        !          1231: themselves contain TAKE commands, up to a reasonable depth of nesting."));
        !          1232:  
        !          1233: #ifdef NETCONN
        !          1234: case XXTEL:
        !          1235:     return(hmsg("Syntax: TELNET [ host ]\n\
        !          1236: Equivalent to SET HOST host, followed by CONNECT.  If hostname omitted,\n\
        !          1237: previous connection (if any) is resumed."));
        !          1238: #endif /* NETCONN */
        !          1239: 
        !          1240: 
        !          1241: #ifndef NOXMIT
        !          1242: case XXTRA:
        !          1243:     return(hmsga(hxxxmit));
        !          1244: #endif /* NOXMIT */
        !          1245: 
        !          1246: #ifndef NOFRILLS
        !          1247: case XXTYP:
        !          1248:     return(hmsg("Syntax: TYPE file\n\
        !          1249: Display a file on the screen.  Pauses if you type Ctrl-S, resumes if you\n\
        !          1250: type Ctrl-Q, returns immediately to C-Kermit prompt if you type Ctrl-C."
        !          1251: ));
        !          1252: #endif /* NOFRILLS */
        !          1253: 
        !          1254: #ifndef NOSPL
        !          1255: case XXWHI:
        !          1256:     return(hmsga(whihlp));
        !          1257: #endif /* NOSPL */
        !          1258: 
        !          1259: #ifndef NOCSETS
        !          1260: case XXXLA:
        !          1261:     return(hmsga(hxxxla));
        !          1262: #endif /* NOCSETS */
        !          1263: 
        !          1264: case XXVER:
        !          1265:     return(hmsg("Syntax: VERSION\nDisplays the program version number."));
        !          1266: 
        !          1267: #ifndef NOSPL
        !          1268: case XXWAI:
        !          1269:     return(hmsga(hxxwai));
        !          1270: #endif /* NOSPL */
        !          1271: 
        !          1272: #ifndef NOFRILLS
        !          1273: case XXWHO:
        !          1274:     return(hmsg("Syntax: WHO [ user ]\nDisplays info about the user."));
        !          1275: 
        !          1276: case XXWRI:
        !          1277:     return(hmsga(hxxwri));
        !          1278: #endif /* NOFRILLS */
        !          1279: 
        !          1280: #ifndef NOSPL
        !          1281: case XXIFX:
        !          1282:     return(hmsga(ifxhlp));
        !          1283: #endif /* NOSPL */
        !          1284: 
        !          1285: #endif /* NOHELP */
        !          1286: 
        !          1287: default:
        !          1288:     if ((x = cmcfm()) < 0) return(x);
        !          1289:     printf("Help not available - %s\n",cmdbuf);
        !          1290:     break;
        !          1291:     }
        !          1292:     return(success = 0);
        !          1293: }
        !          1294: 
        !          1295: #ifdef NOHELP 
        !          1296: 
        !          1297: int                                    /* Print an array of lines, */
        !          1298: hmsga(s) char *s[]; {                  /* cheap version. */
        !          1299:     int i;
        !          1300:     if ((i = cmcfm()) < 0) return(i);
        !          1301:     printf("\n");                      /* Start off with a blank line */
        !          1302:     for (i = 0; *s[i]; i++) {          /* Print each line. */
        !          1303:        printf("%s\n",s[i]);
        !          1304:     }
        !          1305:     printf("\n");
        !          1306:     return(0);
        !          1307: }
        !          1308: 
        !          1309: #else
        !          1310: 
        !          1311: int                                    /* Print an array of lines, */
        !          1312: hmsga(s) char *s[]; {                  /* pausing at end of each screen. */
        !          1313:     int x, y, i, j, k, n;
        !          1314:     if ((x = cmcfm()) < 0) return(x);
        !          1315: 
        !          1316:     printf("\n");                      /* Start off with a blank line */
        !          1317:     n = 1;                             /* Line counter */
        !          1318:     for (i = 0; *s[i]; i++) {
        !          1319:        printf("%s\n",s[i]);            /* Print a line. */
        !          1320:         y = (int)strlen(s[i]);
        !          1321:         k = 1;
        !          1322:         for (j = 0; j < y; j++)                /* See how many newlines were */
        !          1323:           if (s[i][j] == '\n') k++;    /* in the string... */
        !          1324:         n += k;
        !          1325:        if (n > 21)                     /* After a screenful, give them */
        !          1326:           if (!askmore()) return(-9);
        !          1327:           else n = 0;
        !          1328:     }
        !          1329:     printf("\n");
        !          1330:     return(0);
        !          1331: }
        !          1332: 
        !          1333: /*  H M S G  --  Get confirmation, then print the given message  */
        !          1334:  
        !          1335: int
        !          1336: hmsg(s) char *s; {
        !          1337:     int x;
        !          1338:     if ((x = cmcfm()) < 0) return(x);
        !          1339:     printf("\n%s\n\n",s);
        !          1340:     return(0);
        !          1341: }
        !          1342:  
        !          1343: #ifndef NOXMIT
        !          1344: static char *hsetxmit[] = {
        !          1345: "Syntax: SET TRANSMIT parameter value\n",
        !          1346: "Controls the behavior of the TRANSMIT command, used for uploading files",
        !          1347: "to computers that don't have Kermit programs.  Parameters are:\n",
        !          1348: "ECHO ON/OFF:     Whether to echo text as it is being transmitted.",
        !          1349: "EOF text:        Text to send after end of file is reached.",
        !          1350: "FILL number:     ASCII value of character to insert into blank lines.",
        !          1351: "LINEFEED ON/OFF: Transmit LF as well as CR at the end of each line.",
        !          1352: "                 Normally, only CR is sent.",
        !          1353: "LOCKING-SHIFT ON/OFF: Whether to use SO/SI for transmitting 8-bit data",
        !          1354: "                 when PARITY is not NONE.",
        !          1355: "PAUSE number:    How many milliseconds to pause after transmitting each line",
        !          1356: "                 (text mode), or each character (binary mode).",
        !          1357: "PROMPT number:   ASCII value of character to look for from host before",
        !          1358: "                 sending next line, normally LF (10).",
        !          1359: "Synonym: SET XMIT.",
        !          1360: "" };
        !          1361: #endif /* NOXMIT */
        !          1362: 
        !          1363: static char *hsetbkg[] = {
        !          1364: "Syntax: SET BACKGROUND { OFF, ON }\n",
        !          1365: "SET BACKGROUND OFF forces prompts and messages to appear on your screen",
        !          1366: "even though Kermit thinks it is running in the background.", "" };
        !          1367: 
        !          1368: #ifdef DYNAMIC
        !          1369: static char *hsetbuf[] = {
        !          1370: "Syntax: SET BUFFERS n1 n2\n",
        !          1371: "Change the overall amount of memory allocated for SEND and RECEIVE packet",
        !          1372: "buffers, respectively.  Bigger numbers let you have longer packets and more",
        !          1373: "window slots", "" };
        !          1374: #endif /* DYNAMIC */
        !          1375: 
        !          1376: static char *hsetcmd[] = {
        !          1377: "Syntax: SET COMMAND BYTESIZE { 7, 8 }\n",
        !          1378: "SET COMMAND BYTE 8 allows you to use an 8-bit (international) character set",
        !          1379: "in the commands you type at the C-Kermit> prompt.  7 is the default.", "" };
        !          1380: 
        !          1381: static char *hsetcar[] = {
        !          1382: "Syntax: SET CARRIER ON, AUTO, or OFF\n",
        !          1383: "Attempts to control treatment of carrier on the communication device.",
        !          1384: "ON means that carrier is required at all times except during the DIAL",
        !          1385: "command.  OFF means that carrier is never required.  AUTO (the default)",
        !          1386: "means that carrier is required only during CONNECT.", "" };
        !          1387: 
        !          1388: static char *hsetat[] = {
        !          1389: "Syntax: SET ATTRIBUTES name ON or OFF\n",
        !          1390: "Use this command to enable (ON) or disable (OFF) the transmission of",
        !          1391: "selected file attributes along with each file, and to handle or ignore",
        !          1392: "selected incoming file attributes, including:\n",
        !          1393: "  CHARACTER-SET:  The transfer character set for text files",
        !          1394: "  DATE:           The file's creation date",
        !          1395: "  DISPOSITION:    Unusual things to do with the file, like MAIL or PRINT",
        !          1396: "  LENGTH:         The file's length",
        !          1397: "  SYSTEM-ID:      Machine/Operating system of origin",
        !          1398: "  TYPE:           The file's type (text or binary)\n",
        !          1399: "You can also specify ALL to select all of them.  Examples:\n",
        !          1400: "  SET ATTR DATE OFF\n  SET ATTR SIZE ON\n  SET ATTR ALL OFF", ""
        !          1401: };
        !          1402: 
        !          1403: #ifndef NOSPL
        !          1404: static char *hxxinp[] = {
        !          1405: "Syntax: SET INPUT parameter value\n",
        !          1406: "The SET INPUT command controls the behavior of the INPUT command:\n",
        !          1407: "SET INPUT CASE { IGNORE, OBSERVE }",
        !          1408: "Tells whether alphabetic case is to be significant in string comparisons.\n",
        !          1409: "SET INPUT ECHO { ON, OFF }",
        !          1410: "Tells whether to display arriving characters read by INPUT on the screen.\n",
        !          1411: "SET INPUT SILENCE <number>",
        !          1412: "The maximum number to seconds of silence (no input at all) before the INPUT",
        !          1413: "command times out, 0 for no maximum.\n",
        !          1414: "SET INPUT TIMEOUT-ACTION { PROCEED, QUIT }",
        !          1415: "Tells whether to proceed or quit from a script program if an INPUT command",
        !          1416: "fails.  PROCEED (default) allows use of IF SUCCESS and IF FAILURE commands.",
        !          1417: "" };
        !          1418: #endif /* NOSPL */
        !          1419: 
        !          1420: static char *hxytak[] = {
        !          1421: "Syntax: SET TAKE parameter value\n",
        !          1422: "Controls behavior of TAKE command.\n",
        !          1423: "SET TAKE ECHO { ON, OFF } tells whether commands read from a TAKE file",
        !          1424: "should be displayed on the screen.\n",
        !          1425: "SET TAKE ERROR { ON, OFF } tells whether a TAKE command file should be",
        !          1426: "automatically terminated when a command fails.", "" };
        !          1427: 
        !          1428: static char *hxyterm[] = {
        !          1429: "Syntax: SET TERMINAL parameter value\n",
        !          1430: #ifdef OS2
        !          1431: "SET TERMINAL ARROW-KEYS { APPLICATION, CURSOR }",
        !          1432: "sets the mode for the arrow keys during VT terminal emulation.\n", 
        !          1433: #endif /* OS2 */
        !          1434: "SET TERMINAL BYTESIZE 7 or 8, to use 7- or 8-bit terminal characters",
        !          1435: "between C-Kermit and the remote host during CONNECT.\n",
        !          1436: "SET TERMINAL CHARACTER-SET <remote-cs> [ <local-cs> ] to specify the",
        !          1437: "character set used by the remote host, <remote-cs>, and the character",
        !          1438: "set used by C-Kermit locally, <local-cs>.  If you don't specify the",
        !          1439: "local character set, the current FILE CHARACTER-SET is used.  When you",
        !          1440: "specify two different character sets, C-Kermit translates between them",
        !          1441: "during CONNECT.  By default, both character sets are TRANSPARENT.\n",
        !          1442: #ifdef OS2
        !          1443: "SET TERMINAL COLOR <screenpart> <foreground> <background>, to set",
        !          1444: "the colors of the terminal emulation screen. <screenpart> may be one",
        !          1445: "of NORMAL, REVERSE, UNDERLINED, STATUS and HELP. <foreground> and",
        !          1446: "<background> may be one of BLACK, BLUE, GREEN, CYAN, RED, MAGENTA,",
        !          1447: "BROWN, LGRAY, DGRAY, LBLUE, LGREEN, LCYAN, LRED, LMAGENTA, YELLOW",
        !          1448: "or WHITE.  The L prefix for the color names means Light.\n",
        !          1449: #endif /* OS2 */
        !          1450: "SET TERMINAL CR-DISPLAY { CRLF, NORMAL } to specify how incoming",
        !          1451: "carriage return characters are to be displayed on your screen.\n",
        !          1452: "SET TERMINAL ECHO { LOCAL, REMOTE } to specify which side does the",
        !          1453: "echoing during terminal connection.\n",
        !          1454: #ifdef OS2
        !          1455: "SET TERMINAL KEYPAD-MODE { APPLICATION, NUMERIC } to specify the keypad",
        !          1456: "mode for VT terminal emulation.\n",
        !          1457: #endif /* OS2 */
        !          1458: "SET TERMINAL LOCKING-SHIFT { OFF, ON } tells C-Kermit whether to use",
        !          1459: "Shift-In/Shift-Out (Ctrl-O and Ctrl-N) to switch between 7-bit and 8-bit",
        !          1460: "characters during CONNECT.  OFF by default.\n",
        !          1461: "SET TERMINAL NEWLINE-MODE { OFF, ON } tells whether to send CRLF when you",
        !          1462: "type CR during CONNECT mode.\n",
        !          1463: #ifdef OS2
        !          1464: "SET TERMINAL TYPE { VT102, VT52 } to select which terminal to emulate.\n",
        !          1465: "SET TERMINAL WRAP { OFF, ON } to tell whether the VT terminal emulator",
        !          1466: "should automatically wrap long lines on your screen.\n",
        !          1467: #endif /* OS2 */
        !          1468: "Type SHOW TERMINAL to see current terminal settings.",
        !          1469: "" };
        !          1470: 
        !          1471: #ifdef NETCONN
        !          1472: static char *hxyhost[] = {
        !          1473: "Syntax:  SET HOST hostname-or-number\n",
        !          1474: "Select a network host.  Use this command instead of SET LINE.",
        !          1475: "After SET HOST give the host name or number.  TCP/IP Examples:\n",
        !          1476: "  SET HOST watsun.cc.columbia.edu",
        !          1477: "  SET HOST 128.59.39.2",
        !          1478: "" };
        !          1479: 
        !          1480: #ifdef TNCODE
        !          1481: static char *hxytel[] = {
        !          1482: "Syntax: SET TELNET parameter value\n",
        !          1483: "For TCP/IP SET HOST and TELNET connections:\n",
        !          1484: "SET TELNET ECHO { LOCAL, REMOTE }",
        !          1485: "  C-Kermit's initial echoing state for TELNET connections, LOCAL by default.",
        !          1486: "  After the connection is made, TELNET negotiations determine the echoing",
        !          1487: "  state.",
        !          1488: "SET TELNET NEWLINE-MODE { OFF, ON }",
        !          1489: "  ON (the default) means send CRLF when user types CR.",
        !          1490: "  OFF means send CR alone.",
        !          1491: "SET TELNET TERMINAL-TYPE name",
        !          1492: "  The terminal type to send to the remote TELNET host.  If none is given,",
        !          1493: "  your local terminal type is sent.\n",
        !          1494: "Type SHOW NETWORK to see the current values of these parameters.",
        !          1495: "" };
        !          1496: #endif /* TNCODE */
        !          1497: 
        !          1498: static char *hxynet[] = {
        !          1499: "Syntax: SET NETWORK network-type\n",
        !          1500: "Select the type of network to be used with SET HOST connections:\n",
        !          1501: #ifdef TCPSOCKET
        !          1502: "  SET NETWORK TCP/IP",
        !          1503: #endif /* TCPSOCKET */
        !          1504: #ifdef SUNX25
        !          1505: "  SET NETWORK X.25",
        !          1506: #endif /* SUNX25 */
        !          1507: #ifdef DECNET
        !          1508: "  SET NETWORK DECNET",
        !          1509: #endif /* DECNET */
        !          1510: ""};
        !          1511: #endif /* NETCONN */
        !          1512:  
        !          1513: #ifndef NOSPL
        !          1514: static char *hxymacr[] = {
        !          1515: "Syntax: SET MACRO parameter value\n",
        !          1516: "Controls the behavior of macros.\n",
        !          1517: "SET MACRO ECHO { ON, OFF } tells whether commands executed from a macro",
        !          1518: "definition should be displayed on the screen.\n",
        !          1519: "SET MACRO ERROR { ON, OFF } tells whether a macro should be automatically",
        !          1520: "terminated upon a command error.", "" };
        !          1521: #endif /* NOSPL */
        !          1522: 
        !          1523: #ifndef NODIAL
        !          1524: static char *hxymodm[] = {
        !          1525: "Syntax: SET MODEM-DIALER name\n",
        !          1526: "Type of modem for dialing remote connections.  Selects the dialing protocol,",
        !          1527: #ifdef MINIDIAL
        !          1528: "such as HAYES, to be used by the DIAL command.  Several dialing protocols",
        !          1529: #else
        !          1530: "such as HAYES, to be used by the DIAL command.  Many modem dialing protocols",
        !          1531: #endif /* MINIDIAL */
        !          1532: "are supported; type SET MODEM ? for a list.  DIRECT or NONE means a direct",
        !          1533: "connection, with no modem at all.  Also see HELP DIAL, HELP SET CARRIER.",
        !          1534: "" };
        !          1535: #endif /* NODIAL */
        !          1536: 
        !          1537: static char *hmxyprm[] = {
        !          1538: "Syntax: SET PROMPT [ text ]\n",
        !          1539: #ifdef MAC
        !          1540: "Prompt text for this program, normally 'C-Kermit>'.  May contain backslash",
        !          1541: #else
        !          1542: "Prompt text for this program, normally 'Mac-Kermit>'.  May contain backslash",
        !          1543: #endif /* MAC */
        !          1544: "codes for special effects.  Surround by { } to preserve leading or trailing",
        !          1545: #ifdef MAC
        !          1546: "spaces.  If text omitted, prompt reverts to C-Kermit>.",
        !          1547: #else
        !          1548: "spaces.  If text omitted, prompt reverts to Mac-Kermit>.",
        !          1549: #endif /* MAC */
        !          1550: "" };
        !          1551: 
        !          1552: static char *hxywind[] = {
        !          1553: "Syntax: SET WINDOW-SIZE number\n",
        !          1554: "Specify number of window slots for sliding windows, the number of packets",
        !          1555: "that can be transmitted before pausing for acknowledgement.  The default",
        !          1556: "is one, the maximum is 31.  Increased window size may result in reduced",
        !          1557: "maximum packet length.  Use sliding windows for improved efficiency on",
        !          1558: "connections with long delays.  A full duplex connection is required.",
        !          1559: "" };
        !          1560: 
        !          1561: static char *hxyrcv[] = { 
        !          1562: "Syntax: SET RECEIVE parameter value\n",
        !          1563: "Specify parameters for inbound packets:\n",
        !          1564: "END-OF-PACKET number",
        !          1565: " ASCII value of control character that terminates incoming packets,",
        !          1566: " normally 13 (carriage return).\n",
        !          1567: "PACKET-LENGTH number",
        !          1568: " Maximum length packet the other Kermit should send.\n",
        !          1569: "PADDING number",
        !          1570: " Number of prepacket padding characters to ask for (normally 0).\n",
        !          1571: "PAD-CHARACTER number",
        !          1572: " ASCII value of control character to use for padding (normally 0).\n",
        !          1573: "START-OF-PACKET number",
        !          1574: " ASCII value of character that marks start of inbound packet.\n",
        !          1575: "TIMEOUT number",
        !          1576: " Number of seconds other Kermit should wait for a packet before sending",
        !          1577: " NAK or retransmitting.",
        !          1578: "" };
        !          1579: 
        !          1580: static char *hxysnd[] = {
        !          1581: "Syntax: SET SEND parameter value\n",
        !          1582: "Specify parameters for outbound packets.  This command should be used only",
        !          1583: "to override the normal negotiated parameters and is rarely needed:\n",
        !          1584: "END-OF-PACKET number",
        !          1585: " ASCII value of control character to terminate an outbound packet,",
        !          1586: " normally 13 (carriage return).\n",
        !          1587: "PACKET-LENGTH number",
        !          1588: " Maximum length packet to send, even if other Kermit asks for longer ones.\n",
        !          1589: "PADDING number",
        !          1590: " Number of prepacket padding characters to send.\n",
        !          1591: "PAD-CHARACTER number",
        !          1592: " ASCII value of control character to use for padding.\n",
        !          1593: "START-OF-PACKET number",
        !          1594: " ASCII value of character to mark start of outbound packet.\n",
        !          1595: "TIMEOUT number",
        !          1596: " Number of seconds to wait for a packet before sending NAK or",
        !          1597: " retransmitting.",
        !          1598: "" };
        !          1599: 
        !          1600: static char *hxyxfer[] = {
        !          1601: "Syntax: SET TRANSFER LOCKING-SHIFT { OFF, ON, FORCED }\n",
        !          1602: "Tell whether locking-shift protocol should be used during file transfer",
        !          1603: "to achieve 8-bit transparency on a 7-bit connection.  ON means to request",
        !          1604: "its use if PARITY is not NONE and to use it if the other Kermit agrees,",
        !          1605: "OFF means not to use it, FORCED means to use it even if the other Kermit",
        !          1606: "does not agree.",
        !          1607: #ifndef NOCSETS
        !          1608: "\nSyntax: SET TRANSFER CHARACTER-SET name\n",
        !          1609: "Select the character set used to represent textual data in Kermit packets.",
        !          1610: "Text characters are translated to/from the FILE CHARACTER-SET.",
        !          1611: "The choices are TRANSPARENT (no translation, the default), ASCII,",
        !          1612: "LATIN1 (ISO Latin Alphabet 1), LATIN2 (ISO Latin Alphabet 2),",
        !          1613: #ifdef CYRILLIC
        !          1614: #ifdef KANJI
        !          1615: "CYRILLIC-ISO (ISO Latin/Cyrillic),",
        !          1616: "and JAPANESE-EUC.",
        !          1617: #else
        !          1618: "and CYRILLIC-ISO (ISO Latin/Cyrillic).",
        !          1619: #endif /* KANJI */
        !          1620: #else /* No CYRILLIC */
        !          1621: #ifdef KANJI
        !          1622: "and JAPANESE-EUC.",
        !          1623: #endif /* KANJI */
        !          1624: #endif /* CYRILLIC */
        !          1625: "Synonym: SET XFER CHARACTER-SET.", 
        !          1626: #endif /* NOCSETS */
        !          1627: "" };
        !          1628: 
        !          1629: /*  D O H S E T  --  Give help for SET command  */
        !          1630:  
        !          1631: int
        !          1632: dohset(xx) int xx; {
        !          1633:     int x;
        !          1634: 
        !          1635:     if (xx == -3) return(hmsga(hmhset));
        !          1636:     if (xx < 0) return(xx);
        !          1637:     if ((x = cmcfm()) < 0) return(x);
        !          1638:     switch (xx) {
        !          1639:  
        !          1640: case XYATTR:
        !          1641:     return(hmsga(hsetat));
        !          1642: 
        !          1643: case XYBACK:
        !          1644:     return(hmsga(hsetbkg));
        !          1645: 
        !          1646: #ifdef DYNAMIC
        !          1647: case XYBUF:
        !          1648:     return(hmsga(hsetbuf));
        !          1649: #endif /* DYNAMIC */
        !          1650: 
        !          1651: case XYCARR:
        !          1652:     return(hmsga(hsetcar));
        !          1653: 
        !          1654: #ifndef NOSPL
        !          1655: case XYCASE:
        !          1656:     return(hmsg("Syntax: SET CASE { ON, OFF }\n\
        !          1657: Tells whether alphabetic case is significant in string comparisons\n\
        !          1658: done by INPUT, IF, and other commands."));
        !          1659: #endif /* NOSPL */
        !          1660: 
        !          1661: case XYCMD:
        !          1662:     return(hmsga(hsetcmd));
        !          1663: 
        !          1664: case XYIFD:
        !          1665:     return(hmsg("Syntax: SET INCOMPLETE { DISCARD, KEEP }\n\
        !          1666: Discard or Keep incompletely received files, default is DISCARD."));
        !          1667: 
        !          1668: #ifndef NOSPL
        !          1669: case XYINPU:
        !          1670:     return(hmsga(hxxinp));
        !          1671: #endif /* NOSPL */
        !          1672: 
        !          1673: case XYCHKT:
        !          1674:     return(hmsga(hmxychkt));
        !          1675:  
        !          1676: #ifndef NOSPL
        !          1677: case XYCOUN:
        !          1678:     return(hmsg("Syntax:  SET COUNT number\n\
        !          1679: Example: SET COUNT 5\n\
        !          1680: Set up a loop counter, for use with IF COUNT."));
        !          1681: #endif /* NOSPL */
        !          1682: 
        !          1683: case XYDEBU:
        !          1684: #ifdef DEBUG    
        !          1685:     return(hmsg("Syntax: SET DEBUG { SESSION, ON, OFF }\n\
        !          1686: SESSION means display control and 8-bit characters symbolically during\n\
        !          1687: CONNECT mode.  ON means log debugging information to file debug.log."));
        !          1688: #else
        !          1689:     return(hmsg("Syntax: SET DEBUG { SESSION, OFF }\n\
        !          1690: SESSION means display control and 8-bit characters symbolically during\n\
        !          1691: CONNECT mode."));
        !          1692: #endif /* DEBUG */
        !          1693: 
        !          1694: case XYDFLT:
        !          1695:     return(hmsg("Syntax: SET DEFAULT directory\n\
        !          1696: Change directory.  Equivalent to CD command."));
        !          1697: 
        !          1698: case XYDELA: 
        !          1699:     return(hmsg("Syntax: SET DELAY number\n\
        !          1700: Number of seconds to wait before sending first packet after SEND command."));
        !          1701:  
        !          1702: #ifndef NODIAL
        !          1703: case XYDIAL:
        !          1704:     return(hmsga(hmxydial));
        !          1705: #endif /* NODIAL */
        !          1706: 
        !          1707: #ifdef UNIX
        !          1708: case XYSUSP:
        !          1709:     return(hmsg("Syntax: SET SUSPEND { OFF, ON }\n\n\
        !          1710: Disables SUSPEND command, suspend signals, and <esc-char>Z during CONNECT."));
        !          1711: #endif
        !          1712: 
        !          1713: #ifndef NOSCRIPT
        !          1714: case XYSCRI:
        !          1715:     return(hmsg("Syntax: SET SCRIPT ECHO { OFF, ON }\n\n\
        !          1716: Disables/Enables echoing of SCRIPT command operation."));
        !          1717: #endif /* NOSCRIPT */
        !          1718: 
        !          1719: case XYTAKE:
        !          1720:     return(hmsga(hxytak));
        !          1721: 
        !          1722: case XYTERM:
        !          1723:     return(hmsga(hxyterm));
        !          1724: 
        !          1725: case XYDUPL:
        !          1726:     return(hmsg("Syntax: SET DUPLEX { FULL, HALF }\n\n\
        !          1727: During CONNECT: FULL means remote host echoes, HALF means C-Kermit\n\
        !          1728: does its own echoing."));
        !          1729:  
        !          1730: case XYESC:
        !          1731:     return(hmsg("Syntax: SET ESCAPE number\n\n\
        !          1732: Decimal ASCII value for escape character during CONNECT, normally 28\n\
        !          1733: (Control-\\).  Type the escape character followed by C to get back to the\n\
        !          1734: C-Kermit prompt."));
        !          1735:  
        !          1736: case XYFILE:
        !          1737:     return(hmsga(hmxyf));
        !          1738:  
        !          1739: case XYFLOW:
        !          1740:     return(hmsga(hmxyflo));
        !          1741:  
        !          1742: case XYHAND:
        !          1743:    return(hmsga(hmxyhsh));
        !          1744: 
        !          1745: #ifdef NETCONN
        !          1746: case XYHOST:
        !          1747: return(hmsga(hxyhost));
        !          1748: case XYNET:
        !          1749: return(hmsga(hxynet));
        !          1750: 
        !          1751: #ifdef SUNX25
        !          1752: case XYX25:
        !          1753:     return(hmsga(hxyx25));
        !          1754: 
        !          1755: case XYPAD:
        !          1756:     return(hmsg("Syntax: SET PAD name value\n\
        !          1757: Set a PAD X.3 parameter with a desired value."));
        !          1758: #endif /* SUNX25 */ 
        !          1759: #endif /* NETCONN */
        !          1760: 
        !          1761: #ifndef NOSETKEY
        !          1762: case XYKEY:                            /* SET KEY */
        !          1763:     return(hmsga(hmhskey));
        !          1764: #endif /* NOSETKEY */
        !          1765: 
        !          1766: #ifndef NOCSETS
        !          1767: case XYLANG:
        !          1768:     return(hmsg("Syntax: SET LANGUAGE name\n\
        !          1769: Selects language-specific translation rules for text-mode file transfers.\n\
        !          1770: Used with SET FILE CHARACTER-SET and SET TRANSFER CHARACTER-SET when one\n\
        !          1771: of these is ASCII."));
        !          1772: #endif /* NOCSETS */
        !          1773: 
        !          1774: case XYLINE:
        !          1775:     printf("\nSyntax: SET LINE devicename\n\n\
        !          1776: Select communication device to use.  Normally %s.\n",dftty);
        !          1777:     if (!dfloc) {
        !          1778:        printf("\
        !          1779: If you SET LINE to other than %s, then Kermit\n",dftty);
        !          1780:        printf("\
        !          1781: will be in 'local' mode; SET LINE alone will reset Kermit to remote mode.\n\
        !          1782: To use the modem to dial out, first SET MODEM-DIALER (e.g., to HAYES), then");
        !          1783: puts("\nSET LINE xxx, next issue the DIAL command, and finally CONNECT.\n");
        !          1784:     }
        !          1785:     return(0);
        !          1786:  
        !          1787: #ifndef NOSPL
        !          1788: case XYMACR:
        !          1789:     return(hmsga(hxymacr));
        !          1790: #endif /* NOSPL */
        !          1791: 
        !          1792: #ifndef NODIAL
        !          1793: case XYMODM:
        !          1794:     return(hmsga(hxymodm));
        !          1795: #endif /* NODIAL */
        !          1796:  
        !          1797: case XYPARI:
        !          1798:     return(hmsg("Syntax: SET PARITY name\n\n\
        !          1799: Parity to use during terminal connection and file transfer: EVEN, ODD, MARK,\n\
        !          1800: SPACE, or NONE.  Normally NONE."));
        !          1801:  
        !          1802: case XYPROM:
        !          1803:     return(hmsga(hmxyprm));
        !          1804:  
        !          1805: case XYQUIE:
        !          1806:     return(hmsg("Syntax: SET QUIET {ON, OFF}\n\n\
        !          1807: Normally OFF.  ON disables most information messages during interactive\n\
        !          1808: operation."));
        !          1809: 
        !          1810: case XYRETR:
        !          1811:     return(hmsg("Syntax: SET RETRY number\n\n\
        !          1812: How many times to retransmit a particular packet before giving up."));
        !          1813: 
        !          1814: #ifdef UNIX
        !          1815: case XYSESS:
        !          1816:     return(hmsg("Syntax: SET SESSION-LOG { BINARY, TEXT }\n\n\
        !          1817: If BINARY, record all CONNECT characters in session log.  If TEXT, strip\n\
        !          1818: out carriage returns."));
        !          1819: #endif /* UNIX */
        !          1820: 
        !          1821: case XYSPEE:
        !          1822:     return(hmsg("Syntax: SET SPEED number\n\n\
        !          1823: Communication line speed for external tty line specified in most recent\n\
        !          1824: SET LINE command, in bits per second.  Type SET SPEED ? for a list of\n\
        !          1825: possible speeds."));
        !          1826: 
        !          1827: case XYRECV:
        !          1828:     return(hmsga(hxyrcv));
        !          1829: case XYSEND:
        !          1830:     return(hmsga(hxysnd));
        !          1831: 
        !          1832: #ifndef NOSERVER
        !          1833: case XYSERV:
        !          1834:     return(hmsga(hsetsrv));
        !          1835: #endif /* NOSERVER */
        !          1836: 
        !          1837: #ifdef TNCODE
        !          1838: case XYTEL:
        !          1839:     return(hmsga(hxytel));
        !          1840: #endif /* TNCODE */
        !          1841: 
        !          1842: #ifndef NOXMIT
        !          1843: case XYXMIT:
        !          1844:     return(hmsga(hsetxmit));
        !          1845: #endif /* NOXMIT */
        !          1846: 
        !          1847: #ifndef NOCSETS
        !          1848: case XYUNCS:
        !          1849:     return(hmsg("Syntax: SET UNKNOWN-CHAR-SET action\n\n\
        !          1850: DISCARD (default) means reject any arriving files encoded in unknown\n\
        !          1851: character sets.  KEEP means to accept them anyway."));
        !          1852: #endif /* NOCSETS */
        !          1853: 
        !          1854: #ifdef UNIX
        !          1855: case XYWILD:
        !          1856:     return(hmsg("Syntax: SET WILDCARD-EXPANSION { KERMIT, SHELL }\n\n\
        !          1857: KERMIT (the default) means C-Kermit expands filename wildcards in SEND\n\
        !          1858: and MSEND commands and incoming GET commands.  SHELL means your shell does \
        !          1859: it."));
        !          1860: #endif /* UNIX */
        !          1861: 
        !          1862: case XYWIND:
        !          1863:     return(hmsga(hxywind));
        !          1864: 
        !          1865: case XYXFER:
        !          1866:     return(hmsga(hxyxfer));
        !          1867: 
        !          1868: default:
        !          1869:     printf("Not available yet - %s\n",cmdbuf);
        !          1870:     return(0);
        !          1871:     }
        !          1872: }
        !          1873: 
        !          1874:  
        !          1875: /*  D O H R M T  --  Give help about REMOTE command  */
        !          1876:  
        !          1877: static char *hrset[] = {
        !          1878: "Syntax:  REMOTE SET parameter value",
        !          1879: "Example: REMOTE SET FILE TYPE BINARY\n",
        !          1880: "Ask the remote Kermit server to set the named parameter to the given value.",
        !          1881: "Equivalent to typing the corresponding SET command directly to the other",
        !          1882: "Kermit if it were in interactive mode.", "" };
        !          1883: 
        !          1884: int
        !          1885: dohrmt(xx) int xx; {
        !          1886:     int x;
        !          1887:     if (xx == -3) return(hmsga(hmhrmt));
        !          1888:     if (xx < 0) return(xx);
        !          1889:     if ((x = cmcfm()) < 0) return(x);
        !          1890:     switch (xx) {
        !          1891:  
        !          1892: case XZCWD:
        !          1893:     return(hmsg("Syntax: REMOTE CD [ name ]\n\n\
        !          1894: Ask remote Kermit server to change its working directory or device.\n\
        !          1895: If the device or directory name is omitted, restore the default."));
        !          1896:  
        !          1897: case XZDEL:
        !          1898:     return(hmsg("Syntax: REMOTE DELETE filespec\n\n\
        !          1899: Ask the remote Kermit server to delete the named file(s)."));
        !          1900:  
        !          1901: case XZDIR:
        !          1902:     return(hmsg("Syntax: REMOTE DIRECTORY [ filespec ]\n\n\
        !          1903: Ask the remote Kermit server to provide a directory listing of the named\n\
        !          1904: file(s) or if no file specification is given, of all files in the current\n\
        !          1905: directory."));
        !          1906:  
        !          1907: case XZHLP:
        !          1908:     return(hmsg("Syntax: REMOTE HELP\n\n\
        !          1909: Ask the remote Kermit server to list the services it provides."));
        !          1910:  
        !          1911: case XZHOS:
        !          1912:     return(hmsg("Syntax: REMOTE HOST command\n\n\
        !          1913: Send a command to the remote host computer in its own command language\n\
        !          1914: through the remote Kermit server."));
        !          1915:  
        !          1916: #ifndef NOFRILLS
        !          1917: case XZKER:
        !          1918:     return(hmsg("Syntax: REMOTE KERMIT command\n\n\
        !          1919: Send a command to the remote Kermit server in its own command language."));
        !          1920: 
        !          1921: case XZLGI:
        !          1922:     return(hmsg("Syntax: REMOTE LOGIN user password [ account ]\n\n\
        !          1923: Log in to a remote Kermit server that requires you login."));
        !          1924: 
        !          1925: case XZLGO:
        !          1926:     return(hmsg("Syntax: REMOTE LOGOUT\n\n\
        !          1927: Log out from a remote Kermit server to which you have previously logged in."));
        !          1928: 
        !          1929: case XZPRI:
        !          1930:     return(hmsg("Syntax: REMOTE PRINT filespec [ options ]\n\n\
        !          1931: Send the specified file(s) to the remote Kermit and ask it to have the\n\
        !          1932: file printed on the remote system's printer, using any specified options."));
        !          1933: #endif /* NOFRILLS */
        !          1934: 
        !          1935: case XZSET:
        !          1936:     return(hmsga(hrset));
        !          1937: 
        !          1938: case XZSPA:
        !          1939:     return(hmsg("Syntax: REMOTE SPACE [ name ]\n\n\
        !          1940: Ask the remote Kermit server to tell you about its disk space on the current\n\
        !          1941: disk or directory, or in the one that you name."));
        !          1942:  
        !          1943: #ifndef NOFRILLS
        !          1944: case XZTYP:
        !          1945:     return(hmsg("Syntax: REMOTE TYPE file\n\n\
        !          1946: Ask the remote Kermit server to type the named file(s) on your screen."));
        !          1947:  
        !          1948: case XZWHO:
        !          1949:     return(hmsg("Syntax: REMOTE WHO [ name ]\n\n\
        !          1950: Ask the remote Kermit server to list who's logged in, or to give information\n\
        !          1951: about the named user."));
        !          1952: #endif /* NOFRILLS */
        !          1953:  
        !          1954: default:
        !          1955:     if ((x = cmcfm()) < 0) return(x);
        !          1956:     printf("not working yet - %s\n",cmdbuf);
        !          1957:     return(-2);
        !          1958:     }
        !          1959: }
        !          1960: 
        !          1961: #endif /* NOHELP */
        !          1962: #endif /* NOICP */

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.