!
	!	FNREPLY.B4S
	DEF Fn.reply% (ans$)
	ans1$ = edit$(left$(ans$,1%),32%)
	IF	ans1$ = "Y"						&
	THEN	fn.reply% = -1% 					&
	ELSE	fn.reply% = 0%
	FNEND