PROGRAM TCI101

	LOGICAL*1 YN

	CALL CM1101(4,IER)			!STOP
	IF(IER.NE.1) GO TO 1000
	CALL CI1101(4,IER)			!INIT AUTO TEST
	IF(IER.NE.1) GO TO 1000
	CALL MARK(4,5,2)			!WAIT 5 SECONDS
	CALL WAITFR(4)
	CALL CI5101(4,IER)			!STOP AUTO TEST
	IF(IER.NE.1) GO TO 1000
	CALL MARK(1,5,2)			!WAIT 1 SECOND
	CALL WAITFR(4)
	CALL CI6101(4,IER)			!CLEAR CALIBRATE
	IF(IER.NE.1) GO TO 1000

	CALL CI3101(4,IER)			!INIT PREAMBLE
	IF(IER.NE.1) GO TO 1000
	CALL MARK(1,5,2)			!WAIT 1 SECOND
	CALL WAITFR(4)
	CALL CI4101(4,IER)			!CLEAR PREAMBLE
	IF(IER.NE.1) GO TO 1000

	CALL CI2101(4,IER)			!INIT CALIBRATE
	IF(IER.NE.1) GO TO 1000
	CALL MARK(1,5,2)			!WAIT 1 SECOND
	CALL WAITFR(4)
	CALL CI6101(4,IER)			!CLEAR CALIBRATE
	IF(IER.NE.1) GO TO 1000

	CALL CI7101(4,IER)			!SELECT TAPE MODE
	IF(IER.NE.1) GO TO 1000
	CALL MARK(1,5,2)			!WAIT 1 SECOND
	CALL WAITFR(4)
	CALL CI8101(4,IER)			!SELECT TACH MODE
	IF(IER.NE.1) GO TO 1000

	CALL CI9101(4,IER)			!INIT TRACK SEQUENCE
	IF(IER.NE.1) GO TO 1000

	WRITE(6,10)
10	FORMAT(/'$RESET FOOTAGE COUNTER? [Y/N]: ')
	READ(5,20,END=1000) YN
20	FORMAT(A1)
	IF(YN.EQ.'Y')	CALL CIA101(4,IER)	!RESET COUNTER IF WANTED


1000	STOP
	END