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