.ENABLE SUBSTITUTION
	.DISABLE DISPLAY
	.ENABLE TIMEOUT
	.ENABLE CONTROL-Z
	.ENABLE ATTACH

	.ENABLE QUIET
	.WAIT	AT.
	.DELAY	2S
	SET	/TYPEAHEAD=TI:
	SET	/SERIAL=TI:
.020$:
	.DISABLE QUIET
; 
; #3#4 **   Active for 'P1'  ** 
.050$:
; #3#4 **  '<TIME>' '<DATE>'  ** 
; 
.ENABLE QUIET
DEV 'P1'
.DISABLE QUIET
; 
.ENABLE QUIET
ACT /TERM='P1'
.DISABLE QUIET
.; 
	.ENABLE QUIET
	.ASKS [:::2S] QUIT
	.IFT	<EOF>	.GOTO	200$
	.IF	QUIT EQ "R"	.GOTO	020$
	.DISABLE QUIET
	.GOTO	050$
.200$:
	.ENABLE	QUIET
	SET	/NOSERIAL=TI:
	.DISABLE QUIET
; 
; 
	.EXIT