	SUBROUTINE CHEDLG (BRSP)
C SET FLAG FOR PRINTING RSPACES
C
C	BRSP		FLAG=Y TO PRINT RSPACES
C
C	CALLED BY:	CHEM
C	CALLS:		NONE
C
	IMPLICIT BYTE (B), LOGICAL*1 (L), INTEGER*2 (I-K,M,N)
	WRITE (5,10)
10	FORMAT (' PRINT COMPOUND INFO. FROM TN0700.EXT FILE')
	WRITE (5,20)
20	FORMAT ('$PRINT RSPACES (Y/N): ')
	READ (5,30) BRSP
30	FORMAT (A1)
	RETURN
	END
