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