PROGRAM TCK101


	CALL CM1101(4,IER)			!STOP
	IF(IER.NE.1) GO TO 1000

	DO 10 I=1,16
	CALL CK1101(4,I,IER)			!SET CHANNEL SELECTOR
	IF(IER.NE.1) GO TO 1000
	CALL MARK(4,10,1)			!WAIT A WHILE
	CALL WAITFR(4)
10	CONTINUE

	CALL CL1101(4,IER)			!SELECT LOW TAPE
	IF(IER.NE.1) GO TO 1000

	CALL CI3101(4,IER)			!INIT PREAMBLE
	IF(IER.NE.1) GO TO 1000

	CALL CK5101(4,IER)			!SET INT CAL
	IF(IER.NE.1) GO TO 1000
	CALL MARK(4,1,1)			!WAIT
	CALL WAITFR(4)

	CALL CK4101(4,IER)			!SET EXT CAL
	IF(IER.NE.1) GO TO 1000
	CALL MARK(4,1,1)			!WAIT
	CALL WAITFR(4)

 	CALL CK5101(4,IER)			!SET INT CAL


	DO 20 I=1,4
	CALL CK2101(4,I,IER)			!SET STIM GEN SWITCH POSITION
	IF(IER.NE.1) GO TO 1000
	CALL MARK(4,1,2)
	CALL WAITFR(4)
20	CONTINUE

	DO 30 I=1,3
	CALL CK3101(4,IER)			!REC/REPRO SELECTOR
	IF(IER.NE.1) GO TO 1000
	CALL MARK(4,1,1)
	CALL WAITFR(4)
30	CONTINUE


1000	STOP
	END