C
C COPYRIGHT (C) 1975
C DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
C
C THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY
C ON A SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH
C THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE.  THIS
C SOFTWARE, OR ANY OTHER COPIES THEREOF, MAY NOT BE PRO-
C VIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON
C EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO
C THESE LICENSE TERMS.  TITLE TO AND OWNERSHIP OF THE
C SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC.
C
C THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE
C WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A COM-
C MITMENT BY DIGITAL EQUIPMENT CORPORATION.
C
C DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY
C OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY
C DEC.
C
C
C EDIT #1	M. HEBENSTREIT		12/15/75
C
	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
