PROGRAM TCS101


	CALL CM1101(4,IER)			!STOP
	IF(IER.NE.1) GO TO 900
	CALL CS1101(4,IER)			!TAPE SPEED = .937
	IF(IER.NE.1) GO TO 900
	CALL CM2101(4,IER)			!SET TRANSPORT FORWARD
	IF(IER.NE.1) GO TO 900
	CALL MARK(4,2,2)			!WAIT 2 SECONDS
	CALL WAITFR(4)

	CALL CS2101(4,IER)			!SPEED=1.87
	IF(IER.NE.1) GO TO 900
	CALL MARK(4,2,2)
	CALL WAITFR(4)

	CALL CS3101(4,IER)			!SPEED=3.75
	IF(IER.NE.1) GO TO 900
	CALL MARK(4,2,2)
	CALL WAITFR(4)

	CALL CS4101(4,IER)			!SPEED=7.5
	IF(IER.NE.1) GO TO 900
	CALL MARK(4,2,2)
	CALL WAITFR(4)

	CALL CS5101(4,IER)			!SPEED=15
	IF(IER.NE.1) GO TO 900
	CALL MARK(4,2,2)
	CALL WAITFR(4)

	CALL CS6101(4,IER)			!SPEED=30
	IF(IER.NE.1) GO TO 900
	CALL MARK(4,2,2)
	CALL WAITFR(4)

	CALL CS7101(4,IER)			!SPEED=60
	IF(IER.NE.1) GO TO 900
	CALL MARK(4,2,2)
	CALL WAITFR(4)

	CALL CS8101(4,IER)			!SPEED=120
	IF(IER.NE.1) GO TO 900
	CALL MARK(4,2,2)
	CALL WAITFR(4)

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

900	STOP 'ERROR'
1000	STOP
	END