SUBROUTINE CK1101(LUN,ICHAN,IER)
C
C	SET CHANNEL SELECTOR
C
	LOGICAL*1 SEN(5)
	INTEGER BCHAN(32)
	DATA SEN/'K','U',0,0,13/
	DATA BCHAN/'01','02','03','04','05','06','07','08','09','10',
     $	'11','12','13','14','15','16','17','18','19','20','21','22',
     $	'23','24','25','26','27','28','29','30','31','32'/

	EQUIVALENCE (IC,SEN(3))

	IC=BCHAN(ICHAN)

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

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

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

1000	RETURN
	END