	FUNCTION LINYND (BPRMT,BDEF)
C	PRINT A PROMPT EXPECTING A Y OR N ANSWER.
C	RETURN TRUE FOR Y AND FALSE FOR N
C
C	BPRMPT		PROMPT PRINTED ON THE TERMINAL
C	BDEF		DEFAULT VALUE
C
	IMPLICIT BYTE (B), LOGICAL*1 (L)
	DIMENSION BPRMT(1)
	WRITE (5,100) (BPRMT(I),I=1,IBLEN(BPRMT))
     *		,' ','(','Y','/','N',')','[',BDEF,']',':',' '
100	FORMAT ('$',72A1)
	READ (5,200) IN,BCHAR
200	FORMAT (Q,A1)
	IF (IN .EQ. 0) BCHAR = BDEF
	LINYND = (BCHAR .EQ. 'Y') .OR. (BCHAR .EQ. 'y')
	RETURN
	END
