Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!uunet!husc6!hao!ames!ucbcad!ucbvax!CHPC.BRC.UTEXAS.EDU!tvc%utcsr.DECnet
From: tvc%utcsr.DECnet@CHPC.BRC.UTEXAS.EDU ("UTCSR::TVC")
Newsgroups: comp.os.vms
Subject: 2 HELPFUL DCL ROUTINES
Message-ID: <8710241845.AA29252@ucbvax.Berkeley.EDU>
Date: Fri, 23-Oct-87 12:09:00 EST
Article-I.D.: ucbvax.8710241845.AA29252
Posted: Fri Oct 23 12:09:00 1987
Date-Received: Mon, 26-Oct-87 02:42:39 EST
Sender: daemon@ucbvax.BERKELEY.EDU
Reply-To: "UTCSR::TVC" <tvc%utcsr.decnet@chpc.brc.utexas.edu>
Organization: The ARPA Internet
Lines: 34

HI VAX PEOPLE:
	I HAVE WRITTEN 2 COMMAND FILES THAT I THINK MAKE
THINGS EASIER FOR MY USERS.  I THOUGHT SOME OF YOU MIGHT
LIKE THEM FOR YOURSELVES OR YOUR SYSTEMS, SO HERE THEY ARE:
	1) old.com = mail file compress and delete old mail file
	2) q.com   = delete entry from any que
Also 2 questions:1) Does anyone have the source code to COOKIE and 
a sequential copy of the input file?  Cookie is a program that
when called, prints a short fortune cookie fortune.  
	2) How about the source code or executable for DECWAR?
This gem is a multi-terminal advanced star trek game that I know
runs on a DEC-10 under TOPS-10, but I want one to run under VMS.
--------------------------------CUT AT THIS LINE-------------------------------
$! old.com
$!   command file to compress current mail file and create a new compressed
$!   version.  Then, compare file sizes of mail.old and mail.mai
$!   after which the mail.old file(s) are erased.
$ mail
compress
exit
$ dir mail.old,.mai
$ del mail.old;*/noco/nolog
$ pur mail_comp.log/nolog 
--------------------------------CUT AT THIS LINE-------------------------------
$! q.com
$!   command file to delete an entry from any que
$!   set up as a foreign command (ex: qu:=="@sys$public:q")
$ SH QUE
$ INQUIRE NUM "ENTER ENTRY NUMBER FOR JOB TO KILL"
$ INQUIRE Q "ENTER QUE NAME"
$ DEL/ENTRY='NUM' 'Q'
$ SH QUE
$ EXIT
------