FUNCTION JA(DUMMY)
	BYTE BITEM
	REAL*8 AITEM
	COMMON/SCANBF/KEY,AITEM
	EQUIVALENCE (AITEM,BITEM)
10	CALL SCAN
	JA=0
	IF(BITEM .EQ. 1HN) RETURN
	JA=-1
	IF(BITEM .EQ. 1HY) RETURN
	CALL PROMPT(29HPLEASE ANSWER WITH YES OR NO:,29)
	GO TO 10
	END