SEARCH	SYS
SEARCH	SYSSYM

IMP=A5

.OFINI
.OFDEF	MODULE,6
.OFSIZ	IMPSIZ

START:	PHDR	-1,0,PH$REE!PH$REU
	GETIMP	IMP,IMPSIZ
	BYP
	LIN
	BNE	10$
	TYPESP	_module name:
	KBD	EXIT
	BYP
10$:	FILNAM	MODULE(IMP),LIT
	SRCH	MODULE(IMP),A0
	BEQ	20$
	TYPECR	?module not found
	JMP	EXIT
20$:	CMPB	(A2)+,#',
	BEQ	30$
	TYPESP	_new module name:
	KBD	EXIT
30$:	FILNAM	-6(A0),LIT

EXIT:	CRLF
	EXIT

	END

.