PROGRAM TCM101
C
	LOGICAL*1 YN
C

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

	CALL CS3101(4,IER)			!SELECT TAPE SPEED = 3.75

	CALL CM2101(4,IER)			!TRANSPORT FORWARD
	IF(IER.NE.1) GO TO 1000
	CALL MARK(4,2,2)			!WAIT 2 SECONDS
	CALL WAITFR(4)

	CALL CM3101(4,IER)			!TRANSPORT REVERSE
	IF(IER.NE.1) GO TO 1000
	CALL MARK(4,2,2)
	CALL WAITFR(4)

	CALL CM4101(4,IER)			!FAST FORWARD
	IF(IER.NE.1) GO TO 1000
	CALL MARK(4,2,2)
	CALL WAITFR(4)

	CALL CM5101(4,IER)			!FAST REVERSE
	IF(IER.NE.1) GO TO 1000
	CALL MARK(4,6,2)
	CALL WAITFR(4)

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

	WRITE(6,10)
10	FORMAT(/'$TEST RECORDING FUNCTIONS AS WELL? [Y/N]: ')
	READ(5,20,END=1000) YN
20	FORMAT(A1)
	IF(YN.NE.'Y') GO TO 1000

	CALL CM6101(4,IER)			!RECORD FORWARD
	IF(IER.NE.1) GO TO 1000
	CALL MARK(4,2,2)
	CALL WAITFR(4)

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

	CALL CM7101(4,IER)			!RECORD REVERSE
	IF(IER.NE.1) GO TO 1000
	CALL MARK(4,2,2)
	CALL WAITFR(4)

	CALL CM1101(4,IER)			!STOP


1000	STOP
	END