PROGRAM TI101
C
C
	LOGICAL*1 STATUS(10)


	CALL IM0101(4,STATUS,NS,IER)
	WRITE(6,10) IER,(STATUS(I),I=1,NS),(STATUS(I),I=1,NS)
10	FORMAT(/' TRANSPORT:        ERROR = ',O6,'   STATUS: ',<NS>A1,
     $' -- ',10O5/)

	CALL IO0101(4,STATUS,NS,IER)
	WRITE(6,20) IER,(STATUS(I),I=1,NS),(STATUS(I),I=1,NS)
20	FORMAT(/' OPERATING MODE:   ERROR = ',O6,'   STATUS: ',<NS>A1,
     $' -- ',10O5/)

	CALL IS0101(4,STATUS,NS,IER)
	WRITE(6,30) IER,(STATUS(I),I=1,NS),(STATUS(I),I=1,NS)
30	FORMAT(/' TAPE SPEED:       ERROR = ',O6,'   STATUS: ',<NS>A1,
     $' -- ',10O5/)

	CALL IC0101(4,STATUS,NS,IER)
	WRITE(6,40) IER,(STATUS(I),I=1,NS),(STATUS(I),I=1,NS)
40	FORMAT(/' CHANNEL NUMBER:   ERROR = ',O6,'   STATUS: ',<NS>A1,
     $' -- ',10O5/)

	CALL IB0101(4,STATUS,NS,IER)
	WRITE(6,50) IER,(STATUS(I),I=1,NS),(STATUS(I),I=1,NS)
50	FORMAT(/' CALIBRATOR:       ERROR = ',O6,'   STATUS: ',<NS>A1,
     $' -- ',10O5/)

	CALL IN0101(4,STATUS,NS,IER)
	WRITE(6,60) IER,(STATUS(I),I=1,NS),(STATUS(I),I=1,NS)
60	FORMAT(/' REC/REPRO/MON:    ERROR = ',O6,'   STATUS: ',<NS>A1,
     $' -- ',10O5/)

	CALL IF0101(4,STATUS,NS,IER)
	WRITE(6,70) IER,(STATUS(I),I=1,NS),(STATUS(I),I=1,NS)
70	FORMAT(/' FOOTAGE COUNTER:  ERROR = ',O6,'   STATUS: ',<NS>A1,
     $' -- ',10O5/)

	CALL IL0101(4,STATUS,NS,IER)
	WRITE(6,80) IER,(STATUS(I),I=1,NS),(STATUS(I),I=1,NS)
80	FORMAT(/' PHASE LOCK:       ERROR = ',O6,'   STATUS: ',<NS>A1,
     $' -- ',10O5/)

	CALL IA0101(4,STATUS,NS,IER)
	WRITE(6,90) IER,(STATUS(I),I=1,NS),(STATUS(I),I=1,NS)
90	FORMAT(/' AUTO TEST:        ERROR = ',O6,'   STATUS: ',<NS>A1,
     $' -- ',10O5/)

1000	STOP
	END