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

	.ENABLE QUIET
	SET	/TYPEAHEAD=TI:
	SET	/SERIAL=TI:
.020$:
	.DISABLE QUIET
; 
; #3#4 **   Waiting for 'P1'  ** 
.050$:
; #3#4 **  '<TIME>' '<DATE>'  ** 
; 
.ENABLE QUIET
ATL 'P1'
.DISABLE QUIET
; 
	.IFNACT	'P1'	.GOTO	100$
	.ENABLE QUIET
	.ASKS [:::1S] QUIT
	.IFT	<EOF>	.GOTO	200$
	.IF	QUIT EQ "R"	.GOTO	020$
	.DISABLE QUIET
	.GOTO	050$
.100$:
; #3#4 **   'P1' IS DONE NOW  ** 
; #3#4 **  '<TIME>' '<DATE>'  ** 
; 
;                                                                              
;                                                                              
;                                                                              
;                                                                              
; 
	.EXIT
.200$:
	.ENABLE	QUIET
	SET	/NOSERIAL=TI:
	.DISABLE QUIET
; 
; 
	.EXIT