SUBROUTINE YESNO(FLAG)
	LOGICAL*1 FLAG
10002	CALL INCHR(ICHAR)
	IF (ICHAR.NE.0) GOTO 10003
	CALL WAITFR("15)
	GOTO 10002
10003	IF (ICHAR.NE."131.AND.ICHAR.NE."171
	1.AND.ICHAR.NE."116.AND.ICHAR.NE."156) GO TO 10010
	FLAG = .FALSE.
	IF (ICHAR.EQ."131.OR.ICHAR.EQ."171) FLAG = .TRUE.
	GO TO 10001
C
C     * INCORRECT RESPONSE
C
10010	CALL CURWRT(21,1,' ',1,5)
	WRITE (5,10013)
10013	FORMAT (' ** PLEASE ANSWER "Y" OR "N" **')
	WRITE (5,10014)
10014	FORMAT ('$       ANSWER? ')
	GO TO 10002
10001	RETURN
	END