SUBROUTINE GETREL(N,FLAG,LOW,HIGH)
	REAL N,LOW,HIGH
	LOGICAL*1 FLAG,PERIOD
	BYTE STRING(100)
C
C
	CALL ERRSET(64,.TRUE.,.FALSE.,.TRUE.,.FALSE.)
	FLAG = .FALSE.
10000	NCHAR = 15
	IMASK=2
	CALL RDLINE (STRING,NCHAR,IMASK)
	IF (NCHAR.EQ.0) GO TO 10035
	CALL ERRSNS(IERR)
	DECODE (NCHAR,10025,STRING) N
10025	FORMAT (F15.4)
	CALL ERRSNS(IERR)
	IF (IERR.NE.0) GOTO 10000
	IF (N.GE.LOW.AND.N.LE.HIGH) GO TO 10030
	CALL CURWRT(21,1,' ',1,5)
	WRITE (5,10026) LOW,HIGH
10026	FORMAT (' NUMBER MUST BE BETWEEN ',F15.4,' AND ',F15.4)
	GO TO 10000
10030	FLAG = .TRUE.
10035	RETURN
	END