SUBROUTINE REPLY(ANSWER)
	INTEGER ANSWER
	DATA IALT /#764000/
C	THIS SUBROUTINE ASKS THE USER WITH TTY ASSIGNED TO .DAT 12
C	FOR A Y OR N REPLY AND RETURNS A 1=YES OR 2=NO IN THE
C	PARAMETER "ANSWER"
C	THE QUESTION IS REPEATED FOR BAD REPLYS
10	FORMAT(1X,'REPLY  Y OR N ?',5X,A1)
110	FORMAT(A1)
1	WRITE(10,10)IALT
	READ(11,110)RESULT
	ANSWER=3
	IF(RESULT.EQ.1HY)ANSWER=1
	IF(RESULT.EQ.1HN)ANSWER=2
	IF(ANSWER.EQ.3)GOTO 1
	RETURN
	END