$	set process/priority=4
$
$!
$!	Logicals
$!
$	ASSIGN BT$$EMT: CSDEV
$	ASSIGN BT$$EMT: MTDEV
$	ASSIGN BT$$EMT:[EMT.UTIL] EMT$UTIL
$	ASSIGN BT$$EMT:[EMT.UTIL]EDTINI.EDT EDTINI
$	ASSIGN "CDD$TOP.DTR$USERS.HARTIGAN" CDD$DEFAULT
$	ASSIGN BT$$EMT:[EMT.HARTIGAN.MEMO] MEMO$DIRECTORY
$	ASSIGN "M. Hartigan" MEMO$FROM
$       DEFINE TSS$HARDCOPY __TXB7:
$	ASSIGN TXB7 MEMO$QUEUE
$	ASSIGN BT$$EMT:[EMT.HARTIGAN.MEMO]MEMO.RNO MEMO$MASK
$	DEFINE ACC BT$$EMT:[EMT.HARTIGAN.COMMAND]ACC.COM
$!
$!	Useful symbols
$!
$	SD :==			@BT$$EMT:[EMT.UTIL]CHDIR
$	CD :==			@SYS$SYSDEVICE:[MTDEV.UTIL.COM]CHDIR
$	COOK:==			RUN BT$$UTIL:COOKIE
$	ED:==		        @BT$$EMT:[EMT.UTIL]EDT.COM
$	EN*ABLE:==		@BT$$EMT:[EMT.HARTIGAN.COMMAND]ENABLE.COM
$	DIS*A:==		@BT$$EMT:[EMT.HARTIGAN.COMMAND]DISABLE.COM
$	SAY==			"WRITE SYS$OUTPUT"
$	LO:==			@BT$$EMT:[EMT.COM]LOGOUT
$	MEMO:==			@BT$$EMT:[EMT.HARTIGAN.COMMAND]MEMO.COM
$	REP*EAT ==		"@BT$$EMT:[EMT.COM]REPEAT"
$	SYS ==			"RUN BT$$EMT:[EMT.UTIL]WHOSYS"
$ 	FDU ==			"$SYS$SYSTEM:FDU"
$ 	RDU ==			"$SYS$SYSTEM:RDU"
$ 	DMU ==			"$SYS$SYSTEM:DMU"
$ 	CDD ==			"$SYS$SYSTEM:CDDL"
$ !
$ !	assorted commands
$ !
$	SET PROTECTION=(SYSTEM:RWED,GROUP:RWED,OWNER:RWED,WORLD)/DEFAULT
$ !
$ !	now do mode specific processing
$ !
$ GOTO 'F$MODE() 
$ !
$ !	Batch processing
$ !
$ BATCH:
$ EXIT
$ !
$ !	Network processing
$ !
$ NETWORK:
$ EXIT
$ !
$ !	Interactive processing
$ !
$ INTERACTIVE:
$ !
$ !	Greetings
$ !
$ !	TYPE SYS$INPUT
$ !
$ !				Welcome to the
$ !#3 	SDR1 Development System
$ !#4 	SDR1 Development System
$ !	WRITE SYS$OUTPUT "			   ''F$TIME()'"
$!
$!	Set-up
$!
$	SET CONTROL=Y
$	SET CONTROL=T
$	SET TERMINAL/INQUIRE
$!
$!	End of the original ROOTLOGIN.COM
$!
$	ESC[0,8]== %D27
$	FF[0,8] == %D12
$	C == "''SAY' ESC,""[H"",ESC,""[J"""
$	TOC :== $TOC
$!
$!	Define the various spooling functions
$!
$	assign txd5: sys$print
$	P5 :== print /queue=TXD5/notify
$	P7 :== print /queue=TXB7/notify
$	D5 :== delete TXD5/entry=
$	D7 :== delete TXB7/entry=
$	TFF == "TYPE BT$$EMT:[EMT.HARTIGAN.COMMAND]FORMFEED.DAT , "
$!
$!	All done
$!
$	EXIT