PROGRAM TCB101


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

	CALL CB1101(4,IER)			!SELECT SHUTTLE MODE
	IF(IER.NE.1) GO TO 1000

	CALL MARK(4,2,2)			!WAIT
	CALL WAITFR(4)

	CALL CB2101(4,IER)			!DESELECT SHUTTLE MODE

1000	STOP
	END