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

Received: from UWAVM.ACS.WASHINGTON.EDU by KL.SRI.COM with TCP; Tue 17 Nov 87 17:02:32-PST
P1-Message-Id: US**EDU;UWAVM.ACS.WASHINGTON.EDU:Lykpd3OK
Date:         Tue, 17 Nov 87 15:27-0800
X400-Trace:   US**EDU; arrival Tue, 17 Nov 87 15:27-0800 action Relayed
X400-Trace:   US**EDU; arrival Tue, 17 Nov 87 15:31-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:Lykpd3OK*>

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:26 PST
Received: From OREGON1(MAILER) by UWAV4 with RSCS id 1482          for
 8250480@UWAV4; Tue, 17 Nov 87 15:26 PST
Received: by OREGON1 (Mailer X1.25) id 1337; Tue, 17 Nov 87 15:09:16 PST
Date: Mon, 16 Nov 87 09:58 CDT
From: "Eric D. Engstrom - 'Murphy'" <SEENGS1@MACALSTR>
Subject: Part 2
Sender: INFO-VAX Discussion <INFO-VAX@VTVM2>
To: "(no name)" <8250480@UWAV4>
Reply-to: INFO-VAX@KL.SRI.COM

$Part2:
$ File_is="TPU_002.LSE"
$ Check_Sum_is=1818348478
$ Copy SYS$Input VMS_SHAR_DUMMY.DUMMY
X!TPU_002.LSE
X
X
XDELETE TOKEN ERASE_CHARACTER -
X    /LANGUAGE=VAXTPU
XDEFINE TOKEN ERASE_CHARACTER -
X    /LANGUAGE=VAXTPU -
X    /DESCRIPTION="Delete a specified number of characters" -
X    /TOPIC=""
X
X    "![string := ]ERASE_CHARACTER (!{integer})"
X
XEND DEFINE
X
XDELETE TOKEN ERASE_LINE -
X    /LANGUAGE=VAXTPU
XDEFINE TOKEN ERASE_LINE -
X    /LANGUAGE=VAXTPU -
X    /DESCRIPTION="Remove current line from the buffer" -
X    /TOPIC=""
X
X    "![string := ]ERASE_LINE"
X
XEND DEFINE
X
XDELETE TOKEN ERROR -
X    /LANGUAGE=VAXTPU
XDEFINE TOKEN ERROR -
X    /LANGUAGE=VAXTPU -
X    /DESCRIPTION="" -
X    /TOPIC="Keyword that specifies an error or warning status"
X
X    "ERROR"
X
XEND DEFINE
X
XDELETE TOKEN ERROR_LINE -
X    /LANGUAGE=VAXTPU
XDEFINE TOKEN ERROR_LINE -
X    /LANGUAGE=VAXTPU -
X    /DESCRIPTION="Line number at which an error or warning occurred" -
X    /TOPIC=""
X
X    "ERROR_LINE"
X
XEND DEFINE
X
XDELETE TOKEN EXECUTE -
X    /LANGUAGE=VAXTPU
XDEFINE TOKEN EXECUTE -
X    /LANGUAGE=VAXTPU -
X    /DESCRIPTION="Execute program or learn sequence" -
X    /TOPIC=""
X
X    "EXECUTE (!{program | buffer | range | string | learn})"
X
XEND DEFINE
X
XDELETE TOKEN EXIT -
X    /LANGUAGE=VAXTPU
XDEFINE TOKEN EXIT -
X    /LANGUAGE=VAXTPU -
V    /DESCRIPTION="Exit TPU editing session, and write modifies buffers to file
Xs" -
X    /TOPIC=""
X
X    "EXIT"
X
XEND DEFINE
X
XDELETE TOKEN EXPAND_NAME -
X    /LANGUAGE=VAXTPU
XDEFINE TOKEN EXPAND_NAME -
X    /LANGUAGE=VAXTPU -
X    /DESCRIPTION="Search variable names" -
X    /TOPIC=""
X
X    "![string := ]EXPAND_NAME (!{string}, !{expand_name_keyword})"
X
XEND DEFINE
X
XDELETE TOKEN FAO -
X    /LANGUAGE=VAXTPU
XDEFINE TOKEN FAO -
X    /LANGUAGE=VAXTPU -
X    /DESCRIPTION="Call $FAO system service" -
X    /TOPIC=""
X
X    "![string := ]FAO (!{string}, !{expression}...)"
X
XEND DEFINE
X
XDELETE TOKEN FILE_PARSE -
X    /LANGUAGE=VAXTPU
XDEFINE TOKEN FILE_PARSE -
X    /LANGUAGE=VAXTPU -
X    /DESCRIPTION="Parse file specification and return requested field" -
X    /TOPIC=""
X
V    "![string := ]FILE_PARSE (!{string}![, string![, string![, file_parse_keyw
Xord]]])"
X
XEND DEFINE
X
XDELETE TOKEN FILE_SEARCH -
X    /LANGUAGE=VAXTPU
XDEFINE TOKEN FILE_SEARCH -
X    /LANGUAGE=VAXTPU -
X    /DESCRIPTION="Search for a file and return the full filespecification" -
X    /TOPIC=""
X
X    "![string := ]FILE_SEARCH (!{string})"
X
XEND DEFINE
X
XDELETE TOKEN FILL -
X    /LANGUAGE=VAXTPU
XDEFINE TOKEN FILL -
X    /LANGUAGE=VAXTPU -
X    /DESCRIPTION="Fill text in a buffer of range, to equalize the lines" -
X    /TOPIC=""
X
X    "FILL (!{buffer | range}, !{string}![, integer![, integer]])"
X
XEND DEFINE
X
XDELETE TOKEN GET_INFO -
X    /LANGUAGE=VAXTPU
XDEFINE TOKEN GET_INFO -
X    /LANGUAGE=VAXTPU -
X    /DESCRIPTION="Get information of current status of editing context" -
X    /TOPIC=""
X
X    "![get_info_ret_val := ]GET_INFO (!{get_info_parameters})"
X
XEND DEFINE
X
XDELETE TOKEN HELP_TEXT -
X    /LANGUAGE=VAXTPU
XDEFINE TOKEN HELP_TEXT -
X    /LANGUAGE=VAXTPU -
X    /DESCRIPTION="Invoke VAX/VMS HELP utility" -
X    /TOPIC=""
X
X    "HELP_TEXT (!{string}, !{string}, !{on_or_off}, !{buffer})"
X
XEND DEFINE
X
XDELETE TOKEN IF -
X    /LANGUAGE=VAXTPU
XDEFINE TOKEN IF -
X    /LANGUAGE=VAXTPU -
X    /DESCRIPTION="A conditional statement" -
X    /TOPIC=""
X
X    "IF !{expression} THEN"
X    "    ![statement]..."
X    "![ELSE-clause]"
X    "ENDIF"
X
XEND DEFINE
X
XDELETE TOKEN INDEX -
X    /LANGUAGE=VAXTPU
XDEFINE TOKEN INDEX -
X    /LANGUAGE=VAXTPU -
X    /DESCRIPTION="Find substring of a string" -
X    /TOPIC=""
X
X    "![integer := ]INDEX (!{string}, !{string})"
X
XEND DEFINE
X
XDELETE TOKEN INT -
X    /LANGUAGE=VAXTPU
XDEFINE TOKEN INT -
X    /LANGUAGE=VAXTPU -
X    /DESCRIPTION="Convert string to integer" -
X    /TOPIC=""
X
X    "![integer := ]INT (!{string})"
X
XEND DEFINE
X
XDELETE TOKEN JOURNAL_CLOSE -
X    /LANGUAGE=VAXTPU
XDEFINE TOKEN JOURNAL_CLOSE -
X    /LANGUAGE=VAXTPU -
X    /DESCRIPTION="Close an open journal file and save it" -
X    /TOPIC=""
X
X    "JOURNAL_CLOSE"
X
XEND DEFINE
X
XDELETE TOKEN JOURNAL_OPEN -
X    /LANGUAGE=VAXTPU
XDEFINE TOKEN JOURNAL_OPEN -
X    /LANGUAGE=VAXTPU -
X    /DESCRIPTION="Open journal file with specified name" -
X    /TOPIC=""
X
X    "JOURNAL_OPEN (!{string})"
X
XEND DEFINE
X
XDELETE TOKEN KEY_NAME -
X    /LANGUAGE=VAXTPU
XDEFINE TOKEN KEY_NAME -
X    /LANGUAGE=VAXTPU -
X    /DESCRIPTION="Return VAXTPU keyword to name a key, or key combination" -
X    /TOPIC=""
X
X    "KEY_NAME (!{key_name}![, shift_key_name])"
X
XEND DEFINE
X
XDELETE TOKEN LAST_KEY -
X    /LANGUAGE=VAXTPU
XDEFINE TOKEN LAST_KEY -
X    /LANGUAGE=VAXTPU -
X    /DESCRIPTION="Return keyword for the last key typed in" -
X    /TOPIC=""
X
X    "![variable := ]LAST_KEY"
X
XEND DEFINE
X
XDELETE TOKEN LEARN_BEGIN -
X    /LANGUAGE=VAXTPU
XDEFINE TOKEN LEARN_BEGIN -
X    /LANGUAGE=VAXTPU -
V    /DESCRIPTION="Return a learn sequence containing all keystrokes from user"
X -
X    /TOPIC=""
X
X    "LEARN_BEGIN (!{learn_keyword});"
X    "![learn := ]LEARN_END"
X
XEND DEFINE
X
XDELETE TOKEN LENGTH -
X    /LANGUAGE=VAXTPU
XDEFINE TOKEN LENGTH -
X    /LANGUAGE=VAXTPU -
X    /DESCRIPTION="Return the length of a string or range" -
X    /TOPIC=""
X
X    "![integer := ]LENGTH (!{string | range})"
X
XEND DEFINE
X
XDELETE TOKEN LINE_BEGIN -
X    /LANGUAGE=VAXTPU
XDEFINE TOKEN LINE_BEGIN -
X    /LANGUAGE=VAXTPU -
X    /DESCRIPTION="Return pattern matching the beginning of line condition" -
X    /TOPIC=""
X
X    "![pattern := ]LINE_BEGIN"
X
XEND DEFINE
X
XDELETE TOKEN LINE_END -
X    /LANGUAGE=VAXTPU
XDEFINE TOKEN LINE_END -
X    /LANGUAGE=VAXTPU -
X    /DESCRIPTION="Return pattern matching the end of line condition" -
X    /TOPIC=""
X
X    "![pattern := ]LINE_END"
X
XEND DEFINE
X
XDELETE TOKEN LOOKUP_KEY -
X    /LANGUAGE=VAXTPU
XDEFINE TOKEN LOOKUP_KEY -
X    /LANGUAGE=VAXTPU -
X    /DESCRIPTION="Return the executable code for a key" -
X    /TOPIC=""
X
V    "![program | learn | integer | string := ]LOOKUP_KEY (!{key_name}, !{looku
Xp_keyword}![, keymap | keymaplist])"
X
XEND DEFINE
X
XDELETE TOKEN LOOP -
X    /LANGUAGE=VAXTPU
XDEFINE TOKEN LOOP -
X    /LANGUAGE=VAXTPU -
X    /DESCRIPTION="A LOOP-ENDLOOP statement" -
X    /TOPIC=""
X
X    "LOOP"
X    "    ![loop_first_statement_clause]"
X    "EXITIF !{expression};"
X    "    ![statement]..."
X    "ENDLOOP"
X
XEND DEFINE
X
XDELETE TOKEN MAP -
X    /LANGUAGE=VAXTPU
XDEFINE TOKEN MAP -
X    /LANGUAGE=VAXTPU -
X    /DESCRIPTION="Associate a buffer with a window and display it" -
X    /TOPIC=""
X
X    "MAP (!{window}, !{buffer})"
X
XEND DEFINE
X
XDELETE TOKEN MARK -
X    /LANGUAGE=VAXTPU
XDEFINE TOKEN MARK -
X    /LANGUAGE=VAXTPU -
X    /DESCRIPTION="Return a marker to the current position" -
X    /TOPIC=""
X
X    "![marker := ]MARK (!{video_rendition})"
X
XEND DEFINE
X
XDELETE TOKEN MATCH -
X    /LANGUAGE=VAXTPU
XDEFINE TOKEN MATCH -
X    /LANGUAGE=VAXTPU -
X    /DESCRIPTION="Return pattern matching sequenceof characters specified" -
X    /TOPIC=""
X
X    "![pattern := ]MATCH (!{string})"
X
XEND DEFINE
X
XDELETE TOKEN MESSAGE -
X    /LANGUAGE=VAXTPU
XDEFINE TOKEN MESSAGE -
X    /LANGUAGE=VAXTPU -
X    /DESCRIPTION="Put a message into the message buffer" -
X    /TOPIC=""
X
X    "MESSAGE (!{string | range})"
X
XEND DEFINE
X
XDELETE TOKEN MOVE_HORIZONTAL -
X    /LANGUAGE=VAXTPU
XDEFINE TOKEN MOVE_HORIZONTAL -
X    /LANGUAGE=VAXTPU -
X    /DESCRIPTION="Change character position by a number of characters" -
X    /TOPIC=""
X
X    "MOVE_HORIZONTAL (!{integer})"
X
XEND DEFINE
X
XDELETE TOKEN MOVE_TEXT -
X    /LANGUAGE=VAXTPU
XDEFINE TOKEN MOVE_TEXT -
X    /LANGUAGE=VAXTPU -
X    /DESCRIPTION="Move text from specification to current position" -
X    /TOPIC=""
X
X    "MOVE_TEXT (!{buffer | range | string})"
X
XEND DEFINE
X
XDELETE TOKEN MOVE_VERTICAL -
X    /LANGUAGE=VAXTPU
XDEFINE TOKEN MOVE_VERTICAL -
X    /LANGUAGE=VAXTPU -
X    /DESCRIPTION="Change character position by a number of lines" -
X    /TOPIC=""
X
X    "MOVE_VERTICAL (!{integer})"
X
XEND DEFINE
X
XDELETE TOKEN NOTANY -
X    /LANGUAGE=VAXTPU
XDEFINE TOKEN NOTANY -
X    /LANGUAGE=VAXTPU -
V    /DESCRIPTION="Return pattern matching any character not in specified strin
Xg" -
X    /TOPIC=""
X
X    "![pattern := ]NOTANY (!{string})"
X
XEND DEFINE
X
XDELETE TOKEN ON_ERROR -
X    /LANGUAGE=VAXTPU
XDEFINE TOKEN ON_ERROR -
X    /LANGUAGE=VAXTPU -
X    /DESCRIPTION="An ON_ERROR-ENDON_ERROR statement" -
X    /TOPIC=""
X
X    "ON_ERROR"
X    "    !{statement}..."
X    "ENDON_ERROR"
X
XEND DEFINE
X
XDELETE TOKEN POSITION -
X    /LANGUAGE=VAXTPU
XDEFINE TOKEN POSITION -
X    /LANGUAGE=VAXTPU -
X    /DESCRIPTION="Establish position to a buffer, marker, range or window" -
X    /TOPIC=""
X
X    "POSITION (!{buffer | marker | range | window})"
X
XEND DEFINE
X
XDELETE TOKEN PROCEDURE -
X    /LANGUAGE=VAXTPU
XDEFINE TOKEN PROCEDURE -
X    /LANGUAGE=VAXTPU -
X    /DESCRIPTION="A procedure declaration" -
X    /TOPIC=""
X
X    " "
X    "PROCEDURE !{procedure_name} ![parameter_list]"
X    "![procedure_level_comments]"
X    "    ![local_declaration]"
X    "    ![on_error_clause]"
X    "    ![statement]..."
X    "ENDPROCEDURE"
X
XEND DEFINE
X
XDELETE TOKEN QUIT -
X    /LANGUAGE=VAXTPU
XDEFINE TOKEN QUIT -
X    /LANGUAGE=VAXTPU -
X    /DESCRIPTION="Leave editor without creating outputfile(s)" -
X    /TOPIC=""
X
X    "QUIT"
X
XEND DEFINE
X
XDELETE TOKEN READ_CHAR -
X    /LANGUAGE=VAXTPU
XDEFINE TOKEN READ_CHAR -
X    /LANGUAGE=VAXTPU -
X    /DESCRIPTION="Read a character from the keyboard" -
X    /TOPIC=""
X
X    "![string := ]READ_CHAR"
X
XEND DEFINE
X
XDELETE TOKEN READ_FILE -
X    /LANGUAGE=VAXTPU
XDEFINE TOKEN READ_FILE -
X    /LANGUAGE=VAXTPU -
V    /DESCRIPTION="Read specified file into current buffer and return full name
X" -
X    /TOPIC=""
X
X    "![string := ]READ_FILE (!{string})"
X
XEND DEFINE
X
XDELETE TOKEN READ_KEY -
X    /LANGUAGE=VAXTPU
XDEFINE TOKEN READ_KEY -
X    /LANGUAGE=VAXTPU -
X    /DESCRIPTION="Read a key from the keyboard" -
X    /TOPIC=""
X
X    "![key_name := ]READ_KEY"
X
XEND DEFINE
X
XDELETE TOKEN READ_LINE -
X    /LANGUAGE=VAXTPU
XDEFINE TOKEN READ_LINE -
X    /LANGUAGE=VAXTPU -
X    /DESCRIPTION="Read a string after a prompt from the keyboard" -
X    /TOPIC=""
X
X    "![string := ]READ_LINE![read_line_parameters]"
X
XEND DEFINE
X
XDELETE TOKEN REFRESH -
X    /LANGUAGE=VAXTPU
XDEFINE TOKEN REFRESH -
X    /LANGUAGE=VAXTPU -
X    /DESCRIPTION="Repaint the screen" -
X    /TOPIC=""
X
X    "REFRESH"
X
XEND DEFINE
X
XDELETE TOKEN REMAIN -
X    /LANGUAGE=VAXTPU
XDEFINE TOKEN REMAIN -
X    /LANGUAGE=VAXTPU -
X    /DESCRIPTION="Return pattern matching current position to end of line" -
X    /TOPIC=""
X
X    "![pattern := ]REMAIN"
X
XEND DEFINE
X
XDELETE TOKEN REMOVE_KEYMAP -
X    /LANGUAGE=VAXTPU
XDEFINE TOKEN REMOVE_KEYMAP -
X    /LANGUAGE=VAXTPU -
X    /DESCRIPTION="Removes keymaps from key-map lists" -
X    /TOPIC=""
X
X    "REMOVE_KEY_MAP (!{keymaplist}, !{keymap}![, ALL])"
X
XEND DEFINE
X
XDELETE TOKEN RETURN -
X    /LANGUAGE=VAXTPU
XDEFINE TOKEN RETURN -
X    /LANGUAGE=VAXTPU -
X    /DESCRIPTION="A RETURN statement returns from the called procedure" -
X    /TOPIC=""
X
X    "RETURN ![return_argument]"
X
XEND DEFINE
X
XDELETE TOKEN SAVE -
X    /LANGUAGE=VAXTPU
XDEFINE TOKEN SAVE -
X    /LANGUAGE=VAXTPU -
V    /DESCRIPTION="Save all currently defined entities to a specified section f
Xile" -
X    /TOPIC=""
X
X    "SAVE (!{string})"
X
XEND DEFINE
X
XDELETE TOKEN SCAN -
X    /LANGUAGE=VAXTPU
XDEFINE TOKEN SCAN -
X    /LANGUAGE=VAXTPU -
X    /DESCRIPTION="Return pattern matching str. without any spec. character" -
X    /TOPIC=""
X
X    "![pattern := ]SCAN (!{string})"
X
XEND DEFINE
X
XDELETE TOKEN SCANL -
X    /LANGUAGE=VAXTPU
XDEFINE TOKEN SCANL -
X    /LANGUAGE=VAXTPU -
V    /DESCRIPTION="Return pat. match. str. without any spec. char. across lines
X" -
X    /TOPIC=""
X
X    "![pattern := ]SCANL (!{string})"
X
XEND DEFINE
X
XDELETE TOKEN SCROLL -
X    /LANGUAGE=VAXTPU
XDEFINE TOKEN SCROLL -
X    /LANGUAGE=VAXTPU -
X    /DESCRIPTION="Move the visible part of the buffer along the window" -
X    /TOPIC=""
X
X    "SCROLL (!{window}![, integer])"
X
XEND DEFINE
X
XDELETE TOKEN SEARCH -
X    /LANGUAGE=VAXTPU
XDEFINE TOKEN SEARCH -
X    /LANGUAGE=VAXTPU -
X    /DESCRIPTION="Search for a pattern or arrangement of characters" -
X    /TOPIC=""
X
V    "![range := ]SEARCH (!{string | pattern}!{, search_keyword_1}![, search_ke
Xyword_2])"
X
XEND DEFINE
X
XDELETE TOKEN SELECT -
X    /LANGUAGE=VAXTPU
XDEFINE TOKEN SELECT -
X    /LANGUAGE=VAXTPU -
X    /DESCRIPTION="Return a marker to start a select range" -
X    /TOPIC=""
X
X    "![marker := ]SELECT (!{video_rendition})"
X
XEND DEFINE
X
XDELETE TOKEN SELECT_RANGE -
X    /LANGUAGE=VAXTPU
XDEFINE TOKEN SELECT_RANGE -
X    /LANGUAGE=VAXTPU -
V    /DESCRIPTION="Return range from marker made with SELECT to current positio
Xn" -
X    /TOPIC=""
X
X    "![range := ]SELECT_RANGE"
X
XEND DEFINE
X
XDELETE TOKEN SEND -
X    /LANGUAGE=VAXTPU
XDEFINE TOKEN SEND -
X    /LANGUAGE=VAXTPU -
X    /DESCRIPTION="Send data to a subprocess" -
X    /TOPIC=""
X
X    "SEND (!{buffer | range | string}, !{process})"
X
XEND DEFINE
X
XDELETE TOKEN SEND_EOF -
X    /LANGUAGE=VAXTPU
XDEFINE TOKEN SEND_EOF -
X    /LANGUAGE=VAXTPU -
X    /DESCRIPTION="Write end-of-file message to subprocess" -
X    /TOPIC=""
X
X    "SEND_EOF (!{process})"
X
XEND DEFINE
X
XDELETE TOKEN SET -
X    /LANGUAGE=VAXTPU
XDEFINE TOKEN SET -
X    /LANGUAGE=VAXTPU -
X    /DESCRIPTION="Set VAXTPU features" -
X    /TOPIC=""
X
X    "SET (!{set_keyword_and_parameter(s)})"
X
XEND DEFINE
X
XDELETE TOKEN SHIFT -
X    /LANGUAGE=VAXTPU
XDEFINE TOKEN SHIFT -
X    /LANGUAGE=VAXTPU -
X    /DESCRIPTION="Shift text to the right or to the left" -
X    /TOPIC=""
X
X    "![integer := ]SHIFT (!{window}, !{integer})"
X
XEND DEFINE
X
XDELETE TOKEN SHOW -
X    /LANGUAGE=VAXTPU
XDEFINE TOKEN SHOW -
X    /LANGUAGE=VAXTPU -
X    /DESCRIPTION="Show information on data types and attributes" -
X    /TOPIC=""
X
X    "SHOW (!{show_keyword | variable})"
X
XEND DEFINE
X
XDELETE TOKEN SPAN -
X    /LANGUAGE=VAXTPU
XDEFINE TOKEN SPAN -
X    /LANGUAGE=VAXTPU -
V    /DESCRIPTION="Return pat. match. longest str. with only spec. characters"
X-
X    /TOPIC=""
X
X    "![pattern := ]SPAN (!{string})"
X
XEND DEFINE
X
XDELETE TOKEN SPANL -
X    /LANGUAGE=VAXTPU
XDEFINE TOKEN SPANL -
X    /LANGUAGE=VAXTPU -
V    /DESCRIPTION="Ret. pat. match. longest str. with only spec. char. across l
Xines" -
X    /TOPIC=""
X
X    "![pattern := ]SPANL (!{string})"
X
XEND DEFINE
X
XDELETE TOKEN SPAWN -
X    /LANGUAGE=VAXTPU
XDEFINE TOKEN SPAWN -
X    /LANGUAGE=VAXTPU -
X    /DESCRIPTION="Create subprocess and execute command" -
X    /TOPIC=""
X
X    "SPAWN (!{string})"
X
XEND DEFINE
X
XDELETE TOKEN SPLIT_LINE -
X    /LANGUAGE=VAXTPU
XDEFINE TOKEN SPLIT_LINE -
X    /LANGUAGE=VAXTPU -
V    /DESCRIPTION="Break current line before current character position in two"
X -
X    /TOPIC=""
X
X    "SPLIT_LINE"
X
XEND DEFINE
X
XDELETE TOKEN STR -
X    /LANGUAGE=VAXTPU
XDEFINE TOKEN STR -
X    /LANGUAGE=VAXTPU -
X    /DESCRIPTION="Convert an integer to a string" -
X    /TOPIC=""
X
X    "![string := ]STR (!{integer})"
X
XEND DEFINE
X
$ GoSub Convert_File
$ Goto Part3
