PROGRAM TCT101


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

	CALL CS3101(4,IER)			!SET TAPE SPEED = 3.75
	IF(IER.NE.1) GO TO 1000

	CALL CB1101(4,IER)			!SELECT SHUTTLE MODE
	IF(IER.NE.1) GO TO 1000
	CALL CT2101(4,IER)			!SET REVERSE SHUTTLE POINT
	IF(IER.NE.1) GO TO 1000
	CALL CM3101(4,IER)			!TRANSPORT REVERSE
	IF(IER.NE.1) GO TO 1000

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

	CALL CM1101(4,IER)			!STOP
	IF(IER.NE.1) GO TO 1000
	CALL CT1101(4,IER)			!SET FORWARD SHUTTLE POINT
	IF(IER.NE.1) GO TO 1000
	CALL CM2101(4,IER)			!TRANSPORT FORWARD
	IF(IER.NE.1) GO TO 1000

	CALL MARK(4,20,2)			!SHUTTLE FOR 20 SECONDS
	CALL WAITFR(4)

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

	CALL CB2101(4,IER)			!DESELECT SHUTTLE MODE

1000	STOP
	END