!	FNANSCHK.B4S
	!
	DEF fn.ans$ (text$) = edit$ (left$ (text$, 1%), 32%)
	DEF fn.upper.case$ (text$) = edit$ (text$, 32%)
	!
	DEF fn.ans% (text$)
	IF	((edit$ (left$ (text$, 1%), 32%) = "Y") OR (text$ = "1")) &
	THEN	fn.ans% = -1%						&
	ELSE	fn.ans% =  0%
	FNEND