PROGRAM TCL101


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

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

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

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

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

	CALL CL1101(4,IER)			!SELECT LOW TAPE

1000	STOP
	END