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

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