Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!utgpu!water!watmath!clyde!rutgers!rochester!ur-tut!sunybcs!boulder!hao!ames!ucbcad!ucbvax!vms.CIS.PITTSBURGH.EDU!Postmaster
From: Postmaster@vms.CIS.PITTSBURGH.EDU.UUCP
Newsgroups: comp.os.vms
Subject: Undeliverable mail
Message-ID: <8710280701.AA22334@ucbvax.Berkeley.EDU>
Date: Mon, 26-Oct-87 10:39:00 EST
Article-I.D.: ucbvax.8710280701.AA22334
Posted: Mon Oct 26 10:39:00 1987
Date-Received: Sat, 31-Oct-87 01:22:32 EST
Sender: daemon@ucbvax.BERKELEY.EDU
Organization: The ARPA Internet
Lines: 85

The message could not be delivered to:

Addressee: 000426
Reason: 
  %MAIL-E-NOSUCHUSR, no such user 10217_000426 at node CISVM2

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

Received: from JNET-DAEMON by vms.cis.pittsburgh.edu; Sat, 24 Oct 87 19:14 EDT
Received: From CMUCCVMA(MAILER) by PITTVMS with RSCS id 1044 for
 000426@PITTVMS; Sat, 24-OCT-1987 19:13 EDT
Received: by CMUCCVMA (Mailer X1.25) id 1042; Sat, 24 Oct 87 19:16:32 EDT
Date: 21 Oct 87 05:53:30 GMT
From: Gregg Wonderly <PBOX!OKSTATE!GREGG@RUTGERS.EDU>
Subject: VI in TPU part 14/14
Sender: INFO-VAX Discussion <MD4I@CMUCCVMA>
To: BETH DOE <000426@vms.cis.pittsburgh.edu>
Reply-to: INFO-VAX@KL.SRI.COM
Comments:     Warning -- original Sender: tag was info-vax-request@kl.sri.com
Comments: To: info-vax@kl.sri.com

$ check=755981510
$ on error then goto oops
$ on severe_error then goto oops
$ on warning then goto oops
$ if f$search("VI.4") .nes. "" then goto assem
$       write sys$output -
    "I can't find VI.4, have you executed the command files to extract"
$       write sys$output "each part of the VI.TPU source?"
$       exit
$ ASSEM:
$ if f$search("SRC.DIR") .nes. "" then goto assem_1
$   write sys$output -
    "I can't find the [.SRC] directory, have you extracted the other portions"
$   write sys$output "of the distribution yet?
$   exit
$ ASSEM_1:
$ write sys$output "Assembling complete VI.TPU source file..."
$ write sys$output "$ COPY VI.4 [.SRC]VI.TPU"
$ copy VI.4 [.SRC]VI.TPU
$ write sys$output "$ APPEND VI.5 [.SRC]VI.TPU"
$ append VI.5 [.SRC]VI.TPU
$ write sys$output "$ APPEND VI.6 [.SRC]VI.TPU"
$ append VI.6 [.SRC]VI.TPU
$ write sys$output "$ APPEND VI.7 [.SRC]VI.TPU"
$ append VI.7 [.SRC]VI.TPU
$ write sys$output "$ APPEND VI.8 [.SRC]VI.TPU"
$ append VI.8 [.SRC]VI.TPU
$ write sys$output "$ APPEND VI.9 [.SRC]VI.TPU"
$ append VI.9 [.SRC]VI.TPU
$ write sys$output "$ APPEND VI.10 [.SRC]VI.TPU"
$ append VI.10 [.SRC]VI.TPU
$ write sys$output "$ APPEND VI.11 [.SRC]VI.TPU"
$ append VI.11 [.SRC]VI.TPU
$ write sys$output "$ SET DEFAULT [.SRC]"
$ set default [.SRC]
$ write sys$output "VI source file assembled... Checking"
$ checksum VI.TPU
$ if checksum$checksum .ne. check then goto bad_check
$ write sys$output "Checksum OK..."
$ COMPILE:
$ if f$search ("make.com") .nes. "" then goto domake
$   write sys$output -
    "I can't find [.SRC]make.com, perhaps you haven't extracted it yet?"
$   set def [-]
$   exit
$ DOMAKE:
$ write sys$output "$ @MAKE VI"
$ @make VI
$ type sys$input
$ write sys$output -
    f$fao("!/*** The VI TPU section file has been succesfully built ***!/")
$ DEF = F$ENVIRONMENT ("DEFAULT")
$ TVI=="EDIT/TPU/SECTION=''DEF'VI.GBL"
$ WRITE SYS$OUTPUT "$ SET DEFAULT [-]"
$ SET DEF [-]
$ EXIT
$ bad_check:
$ write sys$output f$fao ("Checksum of file failed, it may be damaged!/")
$ write sys$output check," <> ",checksum$checksum
$ write sys$output -
    f$fao ("!/Proceeding with Compile, just in case it is not.!/")
$ goto compile
$ oops:
$  exit '$STATUS'