SUBROUTINE BAD (INT, VALID, LINE)
C
C	ROBERT WATSON
C	CISCO, INC.
C	(918)665-2110
C	4135 S. 100TH E. AVE.
C	TULSA OK 74145
C
C	THIS PROGRAM HAS BEEN DONATED TO THE PUBLIC DOMAIN
C	AND IS NOT TO BE COPYRIGHTED.
C
	INTEGER*4	INT
	BYTE		VALID,		LINE(78),	MSG(7)
	DATA	MSG/	'I','N','V','A','L','I','D'/
	VALID = .TRUE.
	IF (INT.GT."000006 .AND. INT.LT."000100) GO TO 100
	IF (INT.GT."000207 .AND. INT.LT."000230) GO TO 100
	IF (INT.EQ."000243) GO TO 100
	IF (INT.GT."000244 .AND. INT.LT."000250) GO TO 100
	IF (INT.GT."000250 .AND. INT.LT."000257) GO TO 100
	IF (INT.EQ."000260) GO TO 100
	IF (INT.EQ."000263) GO TO 100
	IF (INT.GT."000264 .AND. INT.LT."000270) GO TO 100
	IF (INT.GT."000270 .AND. INT.LT."000277) GO TO 100
	IF (INT.GT."006777 .AND. INT.LT."010000) GO TO 100
	IF (INT.GT."074777 .AND. INT.LT."077000) GO TO 100
	IF (INT.GT."106377 .AND. INT.LT."106500) GO TO 100
	IF (INT.GT."106677 .AND. INT.LT."110000) GO TO 100
	IF (INT.GE."170000) GO TO 100
	RETURN
100	DO 200 I=1,7
	LINE(I+41) = MSG(I)
200	CONTINUE
	VALID = .FALSE.
	RETURN
	END