C
C	Define command indexes as integers.
C
	INTEGER*4 auto_cmd, bye_cmd, clear, connect_cmd, cross_cmd,
	1	  dialup_cmd, discon_cmd, dump_cmd, exit_cmd, finish_cmd,
	2	  get_cmd, hangup_cmd, help_cmd, local_cmd, pause_cmd,
	3	  push_cmd, quit_cmd, receive_cmd, redial_cmd, remote_cmd,
	4	  script_cmd, send_cmd, server_cmd, set_cmd, show_cmd,
	5	  slave_cmd, spawn_cmd, status_cmd, take_cmd
C
C	Define indexes into the command table.
C
	PARAMETER (auto_cmd	=	1)
	PARAMETER (bye_cmd	=	2)
	PARAMETER (clear_cmd	=	3)
	PARAMETER (connect_cmd	=	4)
	PARAMETER (cross_cmd	=	5)
	PARAMETER (dialup_cmd	=	6)
	PARAMETER (discon_cmd	=	7)
	PARAMETER (dump_cmd	=	8)
	PARAMETER (exit_cmd	=	9)
	PARAMETER (finish_cmd	=	10)
	PARAMETER (get_cmd	=	11)
	PARAMETER (hangup_cmd	=	12)
	PARAMETER (help_cmd	=	13)
	PARAMETER (local_cmd	=	14)
	PARAMETER (pause_cmd	=	15)
	PARAMETER (push_cmd	=	16)
	PARAMETER (quit_cmd	=	17)
	PARAMETER (receive_cmd	=	18)
	PARAMETER (redial_cmd	=	19)
	PARAMETER (remote_cmd	=	20)
	PARAMETER (script_cmd	=	21)
	PARAMETER (send_cmd	=	22)
	PARAMETER (server_cmd	=	23)
	PARAMETER (set_cmd	=	24)
	PARAMETER (show_cmd	=	25)
	PARAMETER (slave_cmd	=	26)
	PARAMETER (spawn_cmd	=	27)
	PARAMETER (status_cmd	=	28)
	PARAMETER (take_cmd	=	29)

	CHARACTER*15 CMD_TBL(29)

	DATA CMD_TBL /'AUTO_LOGIN     ','BYE            ','CLEAR          ',
	1	      'CONNECT        ','CROSSFILE      ','DIALUP         ',
	2	      'DISCONNECT     ','DUMP           ','EXIT           ',
	3	      'FINISH         ','GET            ','HANGUP         ',
	4	      'HELP           ','LOCAL          ','PAUSE          ',
	5	      'PUSH           ','QUIT           ','RECEIVE        ',
	6	      'REDIAL         ','REMOTE         ','SCRIPT         ',
	7	      'SEND           ','SERVER         ','SET            ',
	8	      'SHOW           ','SLAVE          ','SPAWN          ',
	9	      'STATUS         ','TAKE           '/
C
C	Define keyword indexes as integers.
C
	INTEGER*4 ast_key, all_key, author_key, autodial_key, baud_key,
	1	  bits_key, bits7_key, bits8_key, block_key, break_key,
	2	  debug_key, delay_key, dialer_key, display_key, dumpd_key,
	3	  dumpe_key, dumpte_key, dumpti_key, duplex_key, echo_key,
	4	  eight_key, endof_key, errors_key, escape_key, file_key,
	5	  handshake_key, hangup_key, idle_key, incomplet_key,
	6	  interrupt_key, line_key, locals_key, logfile_key,
	7	  loglocal_key, marker_key, modem_key, nologfile_key,
	8	  packet_key, padding_key, parity_key, pause_key,
	9	  phone_key, prefix_key, port_key, progs_key, progt_key,
	1	  progv_key, prompt_key, protocol_key, readd_key, readt_key,
	1	  record_key, reformat_key, remote_key, repeat_key, retry_key,
	2	  script_key, signals_key, slot_key, system_key, speed_key,
	3	  start_key, timeout_key, typeahead_key, unix_key, verify_key,
	4	  version_key, watch_key, xon_key
C
C	Define indexes into the keyword table.
C
	PARAMETER (ast_key	=	1)
	PARAMETER (all_key	=	2)
	PARAMETER (author_key	=	3)
	PARAMETER (autodial_key	=	4)
	PARAMETER (baud_key	=	5)
	PARAMETER (bits_key	=	6)
	PARAMETER (bits7_key	=	7)
	PARAMETER (bits8_key	=	8)
	PARAMETER (block_key	=	9)
	PARAMETER (break_key	=	10)
	PARAMETER (debug_key	=	11)
	PARAMETER (delay_key	=	12)
	PARAMETER (dialer_key	=	13)
	PARAMETER (display_key	=	14)
	PARAMETER (dumpd_key	=	15)
	PARAMETER (dumpe_key	=	16)
	PARAMETER (dumpte_key	=	17)
	PARAMETER (dumpti_key	=	18)
	PARAMETER (duplex_key	=	19)
	PARAMETER (echo_key	=	20)
	PARAMETER (eight_key	=	21)
	PARAMETER (endof_key	=	22)
	PARAMETER (errors_key	=	23)
	PARAMETER (escape_key	=	24)
	PARAMETER (file_key	=	25)
	PARAMETER (handshake_key=	26)
	PARAMETER (hangup_key	=	27)
	PARAMETER (idle_key	=	28)
	PARAMETER (incomplet_key=	29)
	PARAMETER (interrupt_key=	30)
	PARAMETER (line_key	=	31)
	PARAMETER (locals_key	=	32)
	PARAMETER (logfile_key	=	33)
	PARAMETER (loglocal_key	=	34)
	PARAMETER (marker_key	=	35)
	PARAMETER (modem_key	=	36)
	PARAMETER (nologfile_key=	37)
	PARAMETER (packet_key	=	38)
	PARAMETER (padding_key	=	39)
	PARAMETER (parity_key	=	40)
	PARAMETER (pause_key	=	41)
	PARAMETER (phone_key    =	42)
	PARAMETER (prefix_key	=	43)
	PARAMETER (port_key	=	44)
	PARAMETER (progs_key	=	45)
	PARAMETER (progt_key	=	46)
	PARAMETER (progv_key	=	47)
	PARAMETER (prompt_key	=	48)
	PARAMETER (protocol_key	=	49)
	PARAMETER (readd_key	=	50)
	PARAMETER (readt_key	=	51)
	PARAMETER (record_key	=	52)
	PARAMETER (reformat_key	=	53)
	PARAMETER (remote_key	=	54)
	PARAMETER (repeat_key	=	55)
	PARAMETER (retry_key	=	56)
	PARAMETER (script_key	=	57)
	PARAMETER (signals_key	=	58)
	PARAMETER (slot_key	=	59)
	PARAMETER (speed_key	=	60)
	PARAMETER (start_key	=	61)
	PARAMETER (system_key	=	62)
	PARAMETER (timeout_key	=	63)
	PARAMETER (typeahead_key=	64)
	PARAMETER (unix_key	=	65)
	PARAMETER (verify_key	=	66)
	PARAMETER (version_key	=	67)
	PARAMETER (watch_key	=	68)
	PARAMETER (xon_key	=	69)

	CHARACTER*15 KEY_TBL(69)

	DATA KEY_TBL /'*              ','ALL            ','AUTHOR         ',
	1	      'AUTODIAL_LIMIT ','BAUD_RATE      ','BITS           ',
	2	      '7BIT           ','8BIT           ','BLOCK_CHECK    ',
	3	      'BREAK          ','DEBUG          ','DELAY_COUNT    ',
	4	      'DIALER_PORT    ','DISPLAY        ','DUMP_DELAY     ',
	5	      'DUMP_ECHO      ','DUMP_TERMINATOR','DUMP_TIMEOUT   ',
	6	      'DUPLEX         ','ECHO           ','EIGHT_BIT_PREF ',
	7	      'END_OF_LINE    ','ERRORS         ','ESCAPE         ',
	8	      'FILE_TYPE      ','HANDSHAKE      ','HANGUP         ',
	9	      'IDLE_TIMEOUT   ','INCOMPLETE     ','INTERRUPT      ',
	1	      'LINE           ','LOCAL_SIGNALS  ','LOGFILE        ',
	2	      'LOGLOCAL       ','MARKER         ','MODEM_TYPE     ',
	3	      'NOLOGFILE      ','PACKET_LENGTH  ','PADDING_COUNT  ',
	4	      'PARITY_TYPE    ','PAUSE_TIME     ','PHONE_NUMBER   ',
	5	      'PREFIX         ','PORT           ','PROGRAM_START  ',
	6	      'PROGRAM_TIMEOUT','PROGRAM_VERIFY ','PROMPT         ',
	7	      'PROTOCOL_TYPE  ','READ_DELAY     ','READ_TIMEOUT   ',
	8	      'RECORD_FORMAT  ','REFORMAT       ','REMOTE_PORT    ',
	9	      'REPEAT_COUNT   ','RETRY_LIMIT    ','SCRIPT_TIMEOUT ',
	1	      'SIGNALS        ','SLOT           ','SPEED          ',
	2	      'START_REMOTE   ','SYSTEM_TYPE    ','TIMEOUT_COUNT  ',
	3	      'TYPEAHEAD_LIMIT','UNIX_MODE      ','VERIFY_MODE    ',
	4	      'VERSION        ','WATCH_FILES    ','XON            '/
C
C	Define sub-command indexes as integers.
C
	INTEGER*4 ascii_sub, binary_sub, block_sub, compress_sub, copy_sub,
	1	  cwd_sub, ddcmp_sub, delete_sub, direct_sub, erase_sub,
	2	  help_sub, host_sub, kermit_sub, login_sub, logout_sub,
	3	  mail_sub, message_sub, mount_sub, off_sub, on_sub,
	4	  print_sub, rename_sub, type_sub, set_sub, show_sub,
	5	  space_sub, stats_sub, submit_sub, vaxnet_sub, wait_sub,
	6	  who_sub, xmodem_sub
C
C	Define indexes for various sub-commands.
C
	PARAMETER (ascii_sub	=	1)
	PARAMETER (binary_sub	=	2)
	PARAMETER (block_sub	=	3)
	PARAMETER (compress_sub	=	4)
	PARAMETER (copy_sub	=	5)
	PARAMETER (cwd_sub	=	6)
	PARAMETER (ddcmp_sub	=	7)
	PARAMETER (delete_sub	=	8)
	PARAMETER (direct_sub	=	9)
	PARAMETER (erase_sub	=	10)
	PARAMETER (help_sub	=	11)
	PARAMETER (host_sub	=	12)
	PARAMETER (kermit_sub	=	13)
	PARAMETER (login_sub	=	14)
	PARAMETER (logout_sub	=	15)
	PARAMETER (mail_sub	=	16)
	PARAMETER (message_sub	=	17)
	PARAMETER (mount_sub	=	18)
	PARAMETER (off_sub	=	19)
	PARAMETER (on_sub	=	20)
	PARAMETER (print_sub	=	21)
	PARAMETER (rename_sub	=	22)
	PARAMETER (type_sub	=	23)
	PARAMETER (set_sub	=	24)
	PARAMETER (show_sub	=	25)
	PARAMETER (space_sub	=	26)
	PARAMETER (stats_sub	=	27)
	PARAMETER (submit_sub	=	28)
	PARAMETER (vaxnet_sub	=	29)
	PARAMETER (wait_sub	=	30)
	PARAMETER (who_sub	=	31)
	PARAMETER (xmodem_sub	=	32)

	CHARACTER*10 SUB_TBL(32)

	DATA SUB_TBL /'ASCII     ','BINARY    ','BLOCK     ','COMPRESS  ',
	1	      'COPY      ','CWD       ','DDCMP     ','DELETE    ',
	2	      'DIRECTORY ','ERASE     ','HELP      ','HOST      ',
	3	      'KERMIT    ','LOGIN     ','LOGOUT    ','MAIL      ',
	4	      'MESSAGE   ','MOUNT     ','OFF       ','ON        ',
	5	      'PRINT     ','RENAME    ','TYPE      ','SET       ',
	6	      'SHOW      ','SPACE     ','STATISTICS','SUBMIT    ',
	7	      'VAXNET    ','WAIT      ','WHO       ','XMODEM    '/

	COMMON /KEYWORDS/ CMD_TBL, KEY_TBL, SUB_TBL