.TITLE	RENAME
	.MCALL	.FETCH,.PRINT,.EXIT,.RENAME
START:	.FETCH	#HSPACE,#NAMBLK
	BCS	FERR
	.RENAME	#AREA,#0,#NAMBLK
	BCS	RNMERR
	.EXIT
FERR:	.PRINT	#FMSG
	.EXIT
RNMERR:	.PRINT	#RNMSG
	.EXIT
AREA:	.BLKW	5
NAMBLK:	.RAD50	/SY0FILE  OLD/
	.RAD50	/SY0ELIF  NEW/
FMSG:	.ASCIZ	/FETCH?/
RNMSG:	.ASCIZ	/RENAME?/
	.EVEN
HSPACE=.
	.END	START