	SUBROUTINE BAD (INT, VALID, LINE)
C
C	FOR FURTHER INFORMATION CONTACT:
C
C	ROBERT WATSON
C	CISCO, INC.
C	4135 S. 100 E. AVE.
C	TULSA OK 74145
C
	INTEGER*4	INT,		PC
	INTEGER*2	BLK(256),	SEGTAB(3,50)
	BYTE		VALID,		LINE(78),	MSG(7)
	BYTE		SNAM(25)
	COMMON	/TSKCOM/  BLK, IREC, ISUB, PC, SEGTAB, IZRWRD, SNAM
	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
