	SUBROUTINE CS6101(LUN,IER)
C
C	TAPE SPEED = 30
C
	LOGICAL*1 SEN(4)
	DATA SEN/'S','3','0',13/

	CALL ENC101(LUN,IER)
	IF(IER.NE.1) GO TO 900

	CALL IO101(LUN,SEN,4,,0,IER)
	IF(IER.EQ.1) GO TO 1000

900	WRITE(6,905)
905	FORMAT(15X,'ERROR IN [CS6101]'/)

1000	RETURN
	END