.ENABLE SUBSTITUTION
	.ENABLE GLOBAL
	SET /UIC=[1,1]
.ASKTIM:
	.ASKS $TIME Please enter time and date 
	.IF <STRLEN> < 12 .GOTO ASKTIM
	TIME '$TIME'
	.IF <EXSTAT> <> 1 .GOTO ASKTIM
	SET /NOLOGON
	.SETN $CTIME 0
	.TESTFILE [1,2]BOOTDATE.CMD;1
	.IF <FILERR> NE 1 .GOTO M0
	@[1,2]BOOTDATE.CMD;1
.M0:	.PARSE <DATE> "-" DAY MON YEAR JUNK
	.SETS MONX "JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC"
	.SETN NMON 0
.M1:	.IF MON EQ MONX['NMON'*3+1:'NMON'*3+3] .GOTO M2
	.INC NMON
	.GOTO M1
.;
.M2:	.SETN CTIME ('YEAR'.-70.)*365.+('NMON'.*31.)+'DAY'.
	.IF CTIME GE $CTIME .GOTO M3
	;
	; Possible error in date/time input. 
	;
	.ASK TF Is entry correct? 
	.IFF TF .GOTO ASKTIM
.;
.M3:	.OPEN [1,2]BOOTDATE.CMD;1
	.DATA .ENABLE GLOBAL
	.DATA .; System boot time history file '<DATE>' '<TIME>'
	.DATA .; Value is nominally number of days since 1/1/70
	.DATA .;    Previous value:  '$CTIME'
	.DATA .SETN $CTIME 'CTIME'.
	.CLOSE
.;
	@LB:[1,2]SYSDEF
	.ASKS OPER Enter operator initials
	.ASK DTR Do you want to bring up DATATRIVE
	.OPENA [1,2]LASTBOOT.DAT;1
	.DATA '<DATE>' '<TIME>'	- 'OPER'	- 'DTR'
	.CLOSE
	ACS SY:/BLKS=5000.
	CON ONL NL:
	CON ONL VT:
	CON ONL CO:
	CON ONL RHB,MM0:,MM1:
	CON ONL DKA,DK0:,DK1:,DK2:,DK3:
	CON ONL CRA,CR0:
	CON ONL LPA,LP0:
	CON ONL MTA,MT0:,MT1:
	CON ONL YLB,TT1:
	CON ONL YLC,TT2:
	CON ONL YLD,TT3:
	CON ONL YLE,TT4:
	CON ONL YLF,TT5:
	CON ONL YLH,TT6:
	CON ONL YLJ,TT7:
CON ONL YZA
.IF <EXSTAT> EQ 1 CON ONL TT10:,TT11:,TT12:,TT13:,TT14:,TT15:,TT16:,TT17:
CON ONL YZB
.IF <EXSTAT> EQ 1 CON ONL TT20:,TT21:,TT22:,TT23:,TT24:,TT25:,TT26:,TT27:
CON ONL YZC
.IF <EXSTAT> EQ 1 CON ONL TT30:,TT31:,TT32:,TT33:,TT34:,TT35:,TT36:,TT37:
.;
	CON ONL DXA,DX0:,DX1:
	LOAD LV:
	CON ONL LVA,LV0:
	LOA VD:
	CON ONL PRA,PR0:
	CON ONL PPA,PP0:
	LOA LS:
	CON ONL LSA,LS0:
;
	RUN ERRLOG
.;
	@LB:[1,2]ACCOUNTUP.CMD
.; Set up resident libraries
	INS [1,1]FCSRES/RON=YES
	INS [1,1]FORRES/RON=YES
.; Utility tasks
	INS $CCL/TASK=...CA.
	INS $BASIC/INC=30000
	INS $DIARY
	INS $LISTRS
	INS $KED
	INS $K52
	INS $TCF
	INS $TIMIT
	INS $GAB
.; DECUS C programs
	INS $CC
	INS $AS
	INS $XRF
	INS $NM
	INS $OD
	INS $COOKIE
	INS $TODAY
	INS $UNIQ
	INS $GREP
	INS $SORTC
	INS $WC
.; Virtual disk utility routines
	INS $AVD
	INS $DVD
.; Versatec tasks
	INS $PLT
	INS $SPL
.; Kernighan & Plaugher Software Tools
	@LB:[1,2]TOOLS
.;
	@LB:[1,2]QMGSTART.CMD
	.IF <EXSTAT> = 1 .GOTO 10
	@LB:[1,2]QMGSTOP.CMD
.10:
	@[1,2]LAQUEUE
	.IFT DTR @[1,2]DTR
	.IFNINS BELLER INS [111,16]BELLER
	.IFNINS ...SND INS [111,16]SEND
	LOA CS:
	CON ONL CSA,CS:
	INS [310,1]SORTER
	INS [310,1]CSPLOT
;
	SET /LOGON
	BYE