	.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
; [2J
; [03;06H[1m#3#4 **   Active for 'P1'  ** [22m
.050$:
; [06;06H[1m#3#4 **  '<TIME>' '<DATE>'  ** [22m
; [08;01H
.ENABLE QUIET
DEV 'P1'
.DISABLE QUIET
; [14;01H
.ENABLE QUIET
ACT /TERM='P1'
.DISABLE QUIET
.; [001;001H
	.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
; [001;001H
; [2J
	.EXIT
