SUBROUTINE CK2101(LUN,MOD,IER)
C
C	SET STIMULUS GENERATOR SWITCH POSITION
C
	LOGICAL*1 SEN(5)
	INTEGER M(4)
	DATA SEN/'K','S',0,0,13/
	DATA M/'LF','.1','.8','BE'/

	EQUIVALENCE (MM,SEN(3))

	MM=M(MOD)

	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 [CK2101]'/)

1000	RETURN
	END