.ENABLE SUBSTITUTION
.; ** .ENABLE QUIET
.;
.;	PREPARED BY F.HALLAHAN
.;	FOR USE AT  FORD AREOSPACE &COMMUNICATIONS CORP
.;		    3939 FABIAN WAY
.;		    PALO ALTO,	CA  94303
.;		PHONE	(415) 494-7400	EXT 5015
.;
.;	ALL QUESTIONS, COMMENTS OR CRITICISM ARE WELCOME AND
.;	SHOULD BE DIRECTED TO ME AT FORD.
;
.SETF BF
.SETT BM
.SETF BI
.SETF BY
;
.ASK DE DO YOU WANT TO DELETE LIST & MAP FILES
.ASK PU DO YOU WANT TO PURGE FILES
.ASK TR DO YOU WANT TO TRUNCATE FILES
.ASK VY DO YOU WANT TO VERIFY DISK
.ASK ER DO YOU WANT ERROR LOGGING
.ASK BR DO YOU WANT TO SAVE THE DISK ON TAPE
.IFT BR .ASK BF DO YOU WANT A FULL SAVE
.IFT BR .IFT BF .ASK BM DO YOU WANT A MOUNTED SAVE
.IFT BR .IFF BF .ASK BI IS THIS THE FIRST PARTIAL SAVE ON THIS TAPE
.IFT BR PIP TI:=BRGO.TXT
.ASK BY DO YOU WANT AUTOMATIC LOGOFF
.;
.;	LIST OF VARIABLES
.;
.;	DE  -	TRUE IF  ALL LIST AND MAP FILES ARE TO BE DELETED
.;	PU  -	 "   "	 ALL DIRECTORIES TO BE PURGED
.;	TR  -	 "   "	 ALL FILES TO BE TRUNCATED
.;		NOTE:  TRUNCATE CHANGES THE REVISION DATE OF
.;			ALL FILES. IF SAVING THE DISK WITH BRU
.;			ONLY USE A FULL SAVE, NOT A PARTIAL SAVE.
.;	VY  -	TRUE IF	 A VERIFY IS TO BE DONE ON THE DISK
.;	ER  -   TRUE IF	 ERROR LOG IS TO BE RUN
.;	BY  -	 "   "	 THE TERMINAL IS TO BE LOGGED OUT WHEN DONE.
.;		BUG:	THIS ABORTS BRU IF A SAVE IS DONE.
.;	BR  -	TRUE IF	 THE DISK IS TO BE BRUED
.;	BF  -	 "   "	 THE FULL DISK IS TO BE SAVED / OTHERWISE
.;			A PARTIAL SAVE BY FILE REVISION DATE IS DONE
.;	BM  -	 "   "	 THE DISK WILL BE MOUNTED DURING THE SAVE
.;	BI  -	 "   "	 THIS IS TO BE THE FIRST BACKUP SET ON THE TAPE
.;
.;	FILES
.;
.;	AUTOBRU.CMD	THIS FILE CLEAN UP THE DISK AND SAVE IT ON TAPE
.;	BRUDATE.DAT	FILE CONTAINING THE DATE OF THE LAST BRU SAVE
.;	BRU.HIS		HISTORY FILE OF ALL SAVES
.;	BR.CMD		FILE TO CONTAIN THE CURRENT BRU COMMAND
.;	ABBLD.CMD	FILE TO PREPARE A UIC TO RUN AUTOBRU
.;	AUTOBRU.TXT	DOCUMENTATION FILE FOR DECUS FALL 80
.IFT   DE   PIP   [*,*]*.LST;*,*.MAP;*/DE/NM
.IFT   PU   PIP   [*,*]*.*/PU/NM
.IFT   TR   PIP   [*,*]*.*/TR/CD
.IFT   VY   VFY   /LO
.IFT   ER   PSE =
.IFT   ER   SYE =
.IFT   ER   PIP EN.SYS/RE=ERROR.SYS
;
;
.IFF BR .GOTO 10:
.;	GENERATE REVISION DATE & SAVE CURRENT DATE
;
.OPENR #1  BRUDATE.DAT
.READ  #1  OLDDAT
.CLOSE #1
.OPEN  #1  BRUDATE.DAT
.DATA #1 '<DATE>' '<TIME>'
.CLOSE #1
;
.;	PREPARE SWITCHES NEEDED FOR BRU
.;
.SETS APP  ""
.IFF BI .SETS APP "/APP"
.SETS MOU ""
.IFT BM .SETS MOU "/MOU"
.SETS REV  " -"
.SETS EXU  " -"
.IFT BF .SETS APP ""
.IFF BF .SETS REV "/EXC/REVISED:AFT:("+OLDDAT+")-"
.IFF BF .SETS EXU "[2,2] -"
.PARSE <DATE> "-"  DAY MO YR
.SETS BKNAM DAY+MO+YR
.OPEN BR.CMD
.DATA 'APP''MOU'/REW/DE:1600/BAC:'BKNAM''REV'
.DATA DR:'EXU'
.DATA MM:
.CLOSE
PIP BRU.HIS/AP=BR.CMD
.;
.;	EXECUTE BRU
.;
.IFT BM BRU @BR
.;IFF BM @BRUNM
.IFT BM .GOTO 10:
;INS $BRU
.;
.;	NEXT SET OF COMMANDS HANDLES THE UNMOUNTED BRU
.;
;************************************************************
;
;	WHEN THIS COMMAND FILE EXITS RUN BRU WITH
;	THE FOLLOWING COMMAND STREAM.
;
;	   BRU
PIP TI:=BR.CMD
;************************************************************
;
DEV VD:
.ASK OK DISKS 1-3 DISMOUNTED AND ALL OTHER USERS LOGGED OFF
.IFF OK .PAUSE
ERF
ACS DR:/BLKS=0.
QUE /STOP:QMG
DMO VD:/DEV
DMO DR:/DEV
/

.;IFF BM .GOTO 210:
.10:
.IFT   BY   BYE
.210:
