OBJNAM	ANYKEY.SBR

	SEARCH	SYS
	SEARCH	SYSSYM
	SEARCH	TRM
	SEARCH	CRT

START:	PHDR	-1,0,PH$REE!PH$REU
	JOBIDX	A0
	MOV	JOBTRM(A0),A1
	ORW	#T$IMI!T$ECS,T.STS(A1)
	CURSOR	#24.,#1
	CLREOL
	TYPE	<-- Any Key to Continue --    >
	KBD
	ANDW	#^C<T$IMI!T$ECS>,T.STS(A1)
	RTN

	END

.