[comp.os.vms] 2 HELPFUL DCL ROUTINES

tvc%utcsr.DECnet@CHPC.BRC.UTEXAS.EDU ("UTCSR::TVC") (10/23/87)

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
------