!	FNCHGEXT.B4S - change extension of a file name
	!
	DEF fn.change.file.ext$ (nam$, new.extn$)
	!
	posn.dot% = pos(nam$, ".", 1%)
	IF	posn.dot% = 0%						&
	THEN	newnam$ = nam$ + "." + new.extn$			&
	ELSE	newnam$ = seg$(nam$, 1%, posn.dot%) + new.extn$
	!
	fn.change.file.ext$ = newnam$
	!
	FNEND
	!