From:	CSBVAX::MRGATE!@KL.SRI.COM:postmaster%VAX4.BITNET@UWAVM.ACS.WASHINGTON.EDU@SMTP 21-NOV-1987 12:38
To:	EVERHART
Subj:	Undeliverable mail

Received: from UWAVM.ACS.WASHINGTON.EDU by KL.SRI.COM with TCP; Tue 17 Nov 87 16:10:09-PST
P1-Message-Id: US**EDU;UWAVM.ACS.WASHINGTON.EDU:LyknCv@A
Date:         Tue, 17 Nov 87 15:21-0800
X400-Trace:   US**EDU; arrival Tue, 17 Nov 87 15:21-0800 action Relayed
X400-Trace:   US**EDU; arrival Tue, 17 Nov 87 15:23-0800 action Relayed
From:         PMDF Mail Server<Postmaster@VAX4.BITNET>
To:           <INFO-VAX@KL.SRI.COM>
Subject:      Undeliverable mail
Message-Id:   <UWAVM.ACS.WASHINGTON.EDU:LyknCv@A*>

The message could not be delivered to:

Addressee: 8250480
Reason: %MAIL-E-NOSUCHUSR, no such user 8250480 at node VAX4

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

Received: from JNET-DAEMON by VAX4; Tue, 17 Nov 87 15:20 PST
Received: From OREGON1(MAILER) by UWAV4 with RSCS id 1466          for
 8250480@UWAV4; Tue, 17 Nov 87 15:20 PST
Received: by OREGON1 (Mailer X1.25) id 1316; Tue, 17 Nov 87 15:07:45 PST
Date: Mon, 16 Nov 87 10:01 CDT
From: "Eric D. Engstrom - 'Murphy'" <SEENGS1@MACALSTR>
Subject: Part 6
Sender: INFO-VAX Discussion <INFO-VAX@VTVM2>
To: "(no name)" <8250480@UWAV4>
Reply-to: INFO-VAX@KL.SRI.COM

$Part6:
$ File_is="TPU_006.LSE"
$ Check_Sum_is=184888564
$ Copy SYS$Input VMS_SHAR_DUMMY.DUMMY
X!TPU_006.LSE
X
X
XDELETE PLACEHOLDER "KEYMAP | KEYMAPLIST" -
X    /LANGUAGE=VAXTPU
XDEFINE PLACEHOLDER "KEYMAP | KEYMAPLIST" -
X    /LANGUAGE=VAXTPU -
X    /NOAUTO_SUBSTITUTE -
X    /DESCRIPTION="" -
X    /DUPLICATION=CONTEXT_DEPENDENT -
X    /SEPARATOR="" -
X    /TOPIC="" -
X    /TYPE=MENU
X
X    "keymap" /PLACEHOLDER/NOLIST/DESCRIPTION=""
X    "keymaplist" /PLACEHOLDER/NOLIST/DESCRIPTION=""
X
XEND DEFINE
X
XDELETE PLACEHOLDER KEYMAPLIST -
X    /LANGUAGE=VAXTPU
XDEFINE PLACEHOLDER KEYMAPLIST -
X    /LANGUAGE=VAXTPU -
X    /NOAUTO_SUBSTITUTE -
X    /DESCRIPTION="A value of key-map list data type" -
X    /DUPLICATION=CONTEXT_DEPENDENT -
X    /SEPARATOR="" -
X    /TOPIC="" -
X    /TYPE=TERMINAL
X
X    "Supply an entity of proper type"
X
XEND DEFINE
X
XDELETE PLACEHOLDER "KEYMAPLIST := " -
X    /LANGUAGE=VAXTPU
XDEFINE PLACEHOLDER "KEYMAPLIST := " -
X    /LANGUAGE=VAXTPU -
X    /NOAUTO_SUBSTITUTE -
X    /DESCRIPTION="A value of string data type" -
X    /DUPLICATION=CONTEXT_DEPENDENT -
X    /SEPARATOR="" -
X    /TOPIC="" -
X    /TYPE=NONTERMINAL
X
X    "!{keymaplist_var} := "
X
XEND DEFINE
X
XDELETE PLACEHOLDER KEYMAPLIST_VAR -
X    /LANGUAGE=VAXTPU
XDEFINE PLACEHOLDER KEYMAPLIST_VAR -
X    /LANGUAGE=VAXTPU -
X    /NOAUTO_SUBSTITUTE -
X    /DESCRIPTION="A variable of string data type" -
X    /DUPLICATION=CONTEXT_DEPENDENT -
X    /SEPARATOR="" -
X    /TOPIC="" -
X    /TYPE=TERMINAL
X
X    "Supply an entity of proper type"
X
XEND DEFINE
X
XDELETE PLACEHOLDER KEYMAP_VAR -
X    /LANGUAGE=VAXTPU
XDEFINE PLACEHOLDER KEYMAP_VAR -
X    /LANGUAGE=VAXTPU -
X    /NOAUTO_SUBSTITUTE -
X    /DESCRIPTION="A variable of string data type" -
X    /DUPLICATION=CONTEXT_DEPENDENT -
X    /SEPARATOR="" -
X    /TOPIC="" -
X    /TYPE=TERMINAL
X
X    "Supply an entity of proper type"
X
XEND DEFINE
X
XDELETE PLACEHOLDER "KEYWORD := " -
X    /LANGUAGE=VAXTPU
XDEFINE PLACEHOLDER "KEYWORD := " -
X    /LANGUAGE=VAXTPU -
X    /NOAUTO_SUBSTITUTE -
X    /DESCRIPTION="A keyword valid in the given context" -
X    /DUPLICATION=CONTEXT_DEPENDENT -
X    /SEPARATOR="" -
X    /TOPIC="" -
X    /TYPE=NONTERMINAL
X
X    "!{variable} := "
X
XEND DEFINE
X
XDELETE PLACEHOLDER KEY_NAME -
X    /LANGUAGE=VAXTPU
XDEFINE PLACEHOLDER KEY_NAME -
X    /LANGUAGE=VAXTPU -
X    /NOAUTO_SUBSTITUTE -
X    /DESCRIPTION="Names for definable keys" -
X    /DUPLICATION=CONTEXT_DEPENDENT -
X    /SEPARATOR="" -
X    /TOPIC="" -
X    /TYPE=MENU
X
X    "string_var" /PLACEHOLDER/NOLIST/DESCRIPTION=""
X    "KEY_NAME" /TOKEN/DESCRIPTION=""
X    "PF1"/DESCRIPTION=""
X    "PF2"/DESCRIPTION=""
X    "PF3"/DESCRIPTION=""
X    "PF4"/DESCRIPTION=""
X    "KP0"/DESCRIPTION=""
X    "KP1"/DESCRIPTION=""
X    "KP2"/DESCRIPTION=""
X    "KP3"/DESCRIPTION=""
X    "KP4"/DESCRIPTION=""
X    "KP5"/DESCRIPTION=""
X    "KP6"/DESCRIPTION=""
X    "KP7"/DESCRIPTION=""
X    "KP8"/DESCRIPTION=""
X    "KP9"/DESCRIPTION=""
X    "PERIOD"/DESCRIPTION=""
X    "COMMA"/DESCRIPTION=""
X    "MINUS"/DESCRIPTION=""
X    "ENTER"/DESCRIPTION=""
X    "UP"/DESCRIPTION=""
X    "DOWN"/DESCRIPTION=""
X    "LEFT"/DESCRIPTION=""
X    "RIGHT"/DESCRIPTION=""
X    "E1"/DESCRIPTION=""
X    "E2"/DESCRIPTION=""
X    "E3"/DESCRIPTION=""
X    "E4"/DESCRIPTION=""
X    "E5"/DESCRIPTION=""
X    "E6"/DESCRIPTION=""
X    "HELP"/DESCRIPTION=""
X    "DO"/DESCRIPTION=""
X    "F6"/DESCRIPTION=""
X    "F7"/DESCRIPTION=""
X    "F8"/DESCRIPTION=""
X    "F9"/DESCRIPTION=""
X    "F10"/DESCRIPTION=""
X    "F11"/DESCRIPTION=""
X    "F12"/DESCRIPTION=""
X    "F13"/DESCRIPTION=""
X    "F14"/DESCRIPTION=""
X    "F15"/DESCRIPTION=""
X    "F16"/DESCRIPTION=""
X    "F17"/DESCRIPTION=""
X    "F18"/DESCRIPTION=""
X    "F19"/DESCRIPTION=""
X    "F20"/DESCRIPTION=""
X    "TAB_KEY"/DESCRIPTION=""
X    "RET_KEY"/DESCRIPTION=""
X    "DEL_KEY"/DESCRIPTION=""
X    "LF_KEY"/DESCRIPTION=""
X    "BS_KEY"/DESCRIPTION=""
X    "CTRL_A_KEY"/DESCRIPTION=""
X    "CTRL_B_KEY"/DESCRIPTION=""
X    "CTRL_C_KEY"/DESCRIPTION=""
X    "CTRL_D_KEY"/DESCRIPTION=""
X    "CTRL_E_KEY"/DESCRIPTION=""
X    "CTRL_F_KEY"/DESCRIPTION=""
X    "CTRL_G_KEY"/DESCRIPTION=""
X    "CTRL_H_KEY"/DESCRIPTION=""
X    "CTRL_I_KEY"/DESCRIPTION=""
X    "CTRL_J_KEY"/DESCRIPTION=""
X    "CTRL_K_KEY"/DESCRIPTION=""
X    "CTRL_L_KEY"/DESCRIPTION=""
X    "CTRL_M_KEY"/DESCRIPTION=""
X    "CTRL_N_KEY"/DESCRIPTION=""
X    "CTRL_O_KEY"/DESCRIPTION=""
X    "CTRL_P_KEY"/DESCRIPTION=""
X    "CTRL_Q_KEY"/DESCRIPTION=""
X    "CTRL_R_KEY"/DESCRIPTION=""
X    "CTRL_S_KEY"/DESCRIPTION=""
X    "CTRL_T_KEY"/DESCRIPTION=""
X    "CTRL_U_KEY"/DESCRIPTION=""
X    "CTRL_V_KEY"/DESCRIPTION=""
X    "CTRL_W_KEY"/DESCRIPTION=""
X    "CTRL_X_KEY"/DESCRIPTION=""
X    "CTRL_Y_KEY"/DESCRIPTION=""
X    "CTRL_Z_KEY"/DESCRIPTION=""
X
XEND DEFINE
X
XDELETE PLACEHOLDER "KEY_NAME := " -
X    /LANGUAGE=VAXTPU
XDEFINE PLACEHOLDER "KEY_NAME := " -
X    /LANGUAGE=VAXTPU -
X    /NOAUTO_SUBSTITUTE -
X    /DESCRIPTION="Assignment to a keyname" -
X    /DUPLICATION=CONTEXT_DEPENDENT -
X    /SEPARATOR="" -
X    /TOPIC="" -
X    /TYPE=NONTERMINAL
X
X    "!{key_name} := "
X
XEND DEFINE
X
XDELETE PLACEHOLDER LEARN -
X    /LANGUAGE=VAXTPU
XDEFINE PLACEHOLDER LEARN -
X    /LANGUAGE=VAXTPU -
X    /NOAUTO_SUBSTITUTE -
X    /DESCRIPTION="An expression of learn data type" -
X    /DUPLICATION=CONTEXT_DEPENDENT -
X    /SEPARATOR="" -
X    /TOPIC="" -
X    /TYPE=TERMINAL
X
X    "Supply a learn expression"
X
XEND DEFINE
X
XDELETE PLACEHOLDER "LEARN := " -
X    /LANGUAGE=VAXTPU
XDEFINE PLACEHOLDER "LEARN := " -
X    /LANGUAGE=VAXTPU -
X    /NOAUTO_SUBSTITUTE -
X    /DESCRIPTION="An assignment to the learn data type" -
X    /DUPLICATION=CONTEXT_DEPENDENT -
X    /SEPARATOR="" -
X    /TOPIC="" -
X    /TYPE=NONTERMINAL
X
X    "!{learn_var} := "
X
XEND DEFINE
X
XDELETE PLACEHOLDER LEARN_KEYWORD -
X    /LANGUAGE=VAXTPU
XDEFINE PLACEHOLDER LEARN_KEYWORD -
X    /LANGUAGE=VAXTPU -
X    /NOAUTO_SUBSTITUTE -
X    /DESCRIPTION="A keyword for the LEARN built-in" -
X    /DUPLICATION=CONTEXT_DEPENDENT -
X    /SEPARATOR="" -
X    /TOPIC="" -
X    /TYPE=MENU
X
X    "EXACT"/DESCRIPTION=""
X    "NO_EXACT"/DESCRIPTION=""
X
XEND DEFINE
X
XDELETE PLACEHOLDER LEARN_VAR -
X    /LANGUAGE=VAXTPU
XDEFINE PLACEHOLDER LEARN_VAR -
X    /LANGUAGE=VAXTPU -
X    /NOAUTO_SUBSTITUTE -
X    /DESCRIPTION="A variable of learn data type" -
X    /DUPLICATION=CONTEXT_DEPENDENT -
X    /SEPARATOR="" -
X    /TOPIC="" -
X    /TYPE=TERMINAL
X
X    "Supply an entity of proper type"
X
XEND DEFINE
X
XDELETE PLACEHOLDER LOCAL_DECLARATION -
X    /LANGUAGE=VAXTPU
XDEFINE PLACEHOLDER LOCAL_DECLARATION -
X    /LANGUAGE=VAXTPU -
X    /NOAUTO_SUBSTITUTE -
X    /DESCRIPTION="" -
X    /DUPLICATION=CONTEXT_DEPENDENT -
X    /SEPARATOR="" -
X    /TOPIC="" -
X    /TYPE=NONTERMINAL
X
X    "LOCAL"
X    "    !{var_declaration}...;"
X
XEND DEFINE
X
XDELETE PLACEHOLDER LOOKUP_KEYWORD -
X    /LANGUAGE=VAXTPU
XDEFINE PLACEHOLDER LOOKUP_KEYWORD -
X    /LANGUAGE=VAXTPU -
X    /NOAUTO_SUBSTITUTE -
X    /DESCRIPTION="A keyword for LOOKUP_KEY" -
X    /DUPLICATION=CONTEXT_DEPENDENT -
X    /SEPARATOR="" -
X    /TOPIC="" -
X    /TYPE=MENU
X
X    "PROGRAM"/DESCRIPTION=""
X    "COMMENT"/DESCRIPTION=""
X    "KEY_MAP"/DESCRIPTION=""
X
XEND DEFINE
X
XDELETE PLACEHOLDER LOOP_FIRST_STATEMENT_CLAUSE -
X    /LANGUAGE=VAXTPU
XDEFINE PLACEHOLDER LOOP_FIRST_STATEMENT_CLAUSE -
X    /LANGUAGE=VAXTPU -
X    /NOAUTO_SUBSTITUTE -
X    /DESCRIPTION="The statements in a loop before EXITIF" -
X    /DUPLICATION=CONTEXT_DEPENDENT -
X    /SEPARATOR="" -
X    /TOPIC="" -
X    /TYPE=NONTERMINAL
X
X    "!{statement}...;"
X
XEND DEFINE
X
XDELETE PLACEHOLDER LOWER -
X    /LANGUAGE=VAXTPU
XDEFINE PLACEHOLDER LOWER -
X    /LANGUAGE=VAXTPU -
X    /NOAUTO_SUBSTITUTE -
X    /DESCRIPTION="Convert all uppercase characters to lower case" -
X    /DUPLICATION=CONTEXT_DEPENDENT -
X    /SEPARATOR="" -
X    /TOPIC="" -
X    /TYPE=NONTERMINAL
X
X    ", LOWER"
X
XEND DEFINE
X
XDELETE PLACEHOLDER MARKER -
X    /LANGUAGE=VAXTPU
XDEFINE PLACEHOLDER MARKER -
X    /LANGUAGE=VAXTPU -
X    /NOAUTO_SUBSTITUTE -
X    /DESCRIPTION="A value of marker data type" -
X    /DUPLICATION=CONTEXT_DEPENDENT -
X    /SEPARATOR="" -
X    /TOPIC="" -
X    /TYPE=TERMINAL
X
X    "Supply an entity of proper type"
X
XEND DEFINE
X
XDELETE PLACEHOLDER "MARKER := " -
X    /LANGUAGE=VAXTPU
XDEFINE PLACEHOLDER "MARKER := " -
X    /LANGUAGE=VAXTPU -
X    /NOAUTO_SUBSTITUTE -
X    /DESCRIPTION="A value of marker data type" -
X    /DUPLICATION=CONTEXT_DEPENDENT -
X    /SEPARATOR="" -
X    /TOPIC="" -
X    /TYPE=NONTERMINAL
X
X    "!{marker_var} := "
X
XEND DEFINE
X
XDELETE PLACEHOLDER MARKER_VAR -
X    /LANGUAGE=VAXTPU
XDEFINE PLACEHOLDER MARKER_VAR -
X    /LANGUAGE=VAXTPU -
X    /NOAUTO_SUBSTITUTE -
X    /DESCRIPTION="A variable of marker data type" -
X    /DUPLICATION=CONTEXT_DEPENDENT -
X    /SEPARATOR="" -
X    /TOPIC="" -
X    /TYPE=TERMINAL
X
X    "Supply an entity of proper type"
X
XEND DEFINE
X
XDELETE PLACEHOLDER MISCELLANEOUS -
X    /LANGUAGE=VAXTPU
XDEFINE PLACEHOLDER MISCELLANEOUS -
X    /LANGUAGE=VAXTPU -
X    /NOAUTO_SUBSTITUTE -
X    /DESCRIPTION="Miscellaneous built-ins" -
X    /DUPLICATION=CONTEXT_DEPENDENT -
X    /SEPARATOR="" -
X    /TOPIC="" -
X    /TYPE=MENU
X
X    "misc_1" /PLACEHOLDER/NOLIST/DESCRIPTION=""
X    "misc_2" /PLACEHOLDER/NOLIST/DESCRIPTION=""
X    "misc_3" /PLACEHOLDER/NOLIST/DESCRIPTION=""
X
XEND DEFINE
X
XDELETE PLACEHOLDER MISC_1 -
X    /LANGUAGE=VAXTPU
XDEFINE PLACEHOLDER MISC_1 -
X    /LANGUAGE=VAXTPU -
X    /NOAUTO_SUBSTITUTE -
X    /DESCRIPTION="ASCII,CALL_USER,DELETE,EXPAND_NAME,EXIT,FAO,HELP_TEXT" -
X    /DUPLICATION=CONTEXT_DEPENDENT -
X    /SEPARATOR="" -
X    /TOPIC="" -
X    /TYPE=MENU
X
X    "ASCII" /TOKEN/DESCRIPTION=""
X    "CALL_USER" /TOKEN/DESCRIPTION=""
X    "DELETE" /TOKEN/DESCRIPTION=""
X    "EXPAND_NAME" /TOKEN/DESCRIPTION=""
X    "EXIT" /TOKEN/DESCRIPTION=""
X    "FAO" /TOKEN/DESCRIPTION=""
X    "HELP_TEXT" /TOKEN/DESCRIPTION=""
X
XEND DEFINE
X
XDELETE PLACEHOLDER MISC_2 -
X    /LANGUAGE=VAXTPU
XDEFINE PLACEHOLDER MISC_2 -
X    /LANGUAGE=VAXTPU -
X    /NOAUTO_SUBSTITUTE -
V    /DESCRIPTION="INDEX,INT,JOURNAL_CLOSE,JOURNAL_OPEN,LEARN_BEGIN,LEARN_END"
X-
X    /DUPLICATION=CONTEXT_DEPENDENT -
X    /SEPARATOR="" -
X    /TOPIC="" -
X    /TYPE=MENU
X
X    "INDEX" /TOKEN/DESCRIPTION=""
X    "INT" /TOKEN/DESCRIPTION=""
X    "JOURNAL_CLOSE/TOK"/DESCRIPTION=""
X    "JOURNAL_OPEN" /TOKEN/DESCRIPTION=""
X    "LEARN_BEGIN" /TOKEN/DESCRIPTION=""
X    "LEARN_END" /TOKEN/DESCRIPTION=""
X
XEND DEFINE
X
XDELETE PLACEHOLDER MISC_3 -
X    /LANGUAGE=VAXTPU
XDEFINE PLACEHOLDER MISC_3 -
X    /LANGUAGE=VAXTPU -
X    /NOAUTO_SUBSTITUTE -
V    /DESCRIPTION="LENGTH,MESSAGE,QUIT,READ_CHAR,READ_KEY,READ_LINE,STR,SUBSTR"
X -
X    /DUPLICATION=CONTEXT_DEPENDENT -
X    /SEPARATOR="" -
X    /TOPIC="" -
X    /TYPE=MENU
X
X    "LENGTH" /TOKEN/DESCRIPTION=""
X    "MESSAGE" /TOKEN/DESCRIPTION=""
X    "QUIT" /TOKEN/DESCRIPTION=""
X    "READ_CHAR" /TOKEN/DESCRIPTION=""
X    "READ_KEY" /TOKEN/DESCRIPTION=""
X    "READ_LINE" /TOKEN/DESCRIPTION=""
X    "STR" /TOKEN/DESCRIPTION=""
X    "SUBSTR" /TOKEN/DESCRIPTION=""
X
XEND DEFINE
X
XDELETE PLACEHOLDER MODIFICATION_RECORD -
X    /LANGUAGE=VAXTPU
XDEFINE PLACEHOLDER MODIFICATION_RECORD -
X    /LANGUAGE=VAXTPU -
X    /NOAUTO_SUBSTITUTE -
X    /DESCRIPTION="A list of all modifications made by programmers" -
X    /DUPLICATION=CONTEXT_DEPENDENT -
X    /SEPARATOR="" -
X    /TOPIC="" -
X    /TYPE=NONTERMINAL
X
X    "!  Date    Author      Description"
X    "!---------------------------------"
X    "!"
X
XEND DEFINE
X
XDELETE PLACEHOLDER MULTIPLE_PROCESSING -
X    /LANGUAGE=VAXTPU
XDEFINE PLACEHOLDER MULTIPLE_PROCESSING -
X    /LANGUAGE=VAXTPU -
X    /NOAUTO_SUBSTITUTE -
X    /DESCRIPTION="ATTACH,CREATE_PROCESS,SEND,SEND_EOF,SPAWN" -
X    /DUPLICATION=CONTEXT_DEPENDENT -
X    /SEPARATOR="" -
X    /TOPIC="" -
X    /TYPE=MENU
X
X    "ATTACH" /TOKEN/DESCRIPTION=""
X    "CREATE_PROCESS" /TOKEN/DESCRIPTION=""
X    "SEND" /TOKEN/DESCRIPTION=""
X    "SEND_EOF" /TOKEN/DESCRIPTION=""
X    "SPAWN" /TOKEN/DESCRIPTION=""
X
XEND DEFINE
X
XDELETE PLACEHOLDER ON_ERROR_CLAUSE -
X    /LANGUAGE=VAXTPU
XDEFINE PLACEHOLDER ON_ERROR_CLAUSE -
X    /LANGUAGE=VAXTPU -
X    /NOAUTO_SUBSTITUTE -
X    /DESCRIPTION="Error handling part of procedure" -
X    /DUPLICATION=CONTEXT_DEPENDENT -
X    /SEPARATOR="" -
X    /TOPIC="" -
X    /TYPE=NONTERMINAL
X
X    "ON_ERROR"
X    "    !{statement}..."
X    "ENDON_ERROR"
X
XEND DEFINE
X
XDELETE PLACEHOLDER ON_OR_OFF -
X    /LANGUAGE=VAXTPU
XDEFINE PLACEHOLDER ON_OR_OFF -
X    /LANGUAGE=VAXTPU -
X    /NOAUTO_SUBSTITUTE -
X    /DESCRIPTION="Disable/enable option" -
X    /DUPLICATION=CONTEXT_DEPENDENT -
X    /SEPARATOR="" -
X    /TOPIC="" -
X    /TYPE=MENU
X
X    "ON"/DESCRIPTION=""
X    "OFF"/DESCRIPTION=""
X
XEND DEFINE
X
XDELETE PLACEHOLDER OUTRANGE_CLAUSE -
X    /LANGUAGE=VAXTPU
XDEFINE PLACEHOLDER OUTRANGE_CLAUSE -
X    /LANGUAGE=VAXTPU -
X    /NOAUTO_SUBSTITUTE -
X    /DESCRIPTION="" -
X    /DUPLICATION=CONTEXT_DEPENDENT -
X    /SEPARATOR="" -
X    /TOPIC="" -
X    /TYPE=NONTERMINAL
X
X    "[OUTRANGE] : !{statement}...;"
X
XEND DEFINE
X
XDELETE PLACEHOLDER PARAMETER -
X    /LANGUAGE=VAXTPU
XDEFINE PLACEHOLDER PARAMETER -
X    /LANGUAGE=VAXTPU -
X    /NOAUTO_SUBSTITUTE -
X    /DESCRIPTION="" -
X    /DUPLICATION=CONTEXT_DEPENDENT -
X    /SEPARATOR="," -
X    /TOPIC="" -
X    /TYPE=TERMINAL
X
X    "The name of a parameter"
X
XEND DEFINE
X
XDELETE PLACEHOLDER PARAMETER_LIST -
X    /LANGUAGE=VAXTPU
XDEFINE PLACEHOLDER PARAMETER_LIST -
X    /LANGUAGE=VAXTPU -
X    /NOAUTO_SUBSTITUTE -
X    /DESCRIPTION="" -
X    /DUPLICATION=CONTEXT_DEPENDENT -
X    /SEPARATOR="" -
X    /TOPIC="" -
X    /TYPE=NONTERMINAL
X
X    "(!{parameter}...)"
X
XEND DEFINE
X
XDELETE PLACEHOLDER PATTERN -
X    /LANGUAGE=VAXTPU
XDEFINE PLACEHOLDER PATTERN -
X    /LANGUAGE=VAXTPU -
X    /NOAUTO_SUBSTITUTE -
X    /DESCRIPTION="An expression of pattern data type" -
X    /DUPLICATION=CONTEXT_DEPENDENT -
X    /SEPARATOR="" -
X    /TOPIC="" -
X    /TYPE=TERMINAL
X
X    "Supply a pattern expression"
X
XEND DEFINE
X
XDELETE PLACEHOLDER "PATTERN := " -
X    /LANGUAGE=VAXTPU
XDEFINE PLACEHOLDER "PATTERN := " -
X    /LANGUAGE=VAXTPU -
X    /NOAUTO_SUBSTITUTE -
X    /DESCRIPTION="An assignment to the pattern data type" -
X    /DUPLICATION=CONTEXT_DEPENDENT -
X    /SEPARATOR="" -
X    /TOPIC="" -
X    /TYPE=NONTERMINAL
X
X    "!{pattern_var} := "
X
XEND DEFINE
X
XDELETE PLACEHOLDER PATTERN_MATCH -
X    /LANGUAGE=VAXTPU
XDEFINE PLACEHOLDER PATTERN_MATCH -
X    /LANGUAGE=VAXTPU -
X    /NOAUTO_SUBSTITUTE -
X    /DESCRIPTION="Routines for creating and matching patterns" -
X    /DUPLICATION=CONTEXT_DEPENDENT -
X    /SEPARATOR="" -
X    /TOPIC="" -
X    /TYPE=MENU
X
X    "patt_1" /PLACEHOLDER/NOLIST/DESCRIPTION=""
X    "patt_2" /PLACEHOLDER/NOLIST/DESCRIPTION=""
X
XEND DEFINE
X
XDELETE PLACEHOLDER PATTERN_VAR -
X    /LANGUAGE=VAXTPU
XDEFINE PLACEHOLDER PATTERN_VAR -
X    /LANGUAGE=VAXTPU -
X    /NOAUTO_SUBSTITUTE -
X    /DESCRIPTION="A variable of pattern data type" -
X    /DUPLICATION=CONTEXT_DEPENDENT -
X    /SEPARATOR="" -
X    /TOPIC="" -
X    /TYPE=TERMINAL
X
X    "Supply an entity of proper type"
X
XEND DEFINE
X
$ GoSub Convert_File
$ Goto Part7
