INTEGER*2	IA(1024)
1	WRITE(5,1001)
	READ(5,*)K,I,J
	GO TO(10,20,30,40,50) I
10	CALL	MTGET(K,IA,2048,IERR,ICNT)
	IF(IERR.EQ.1) WRITE(5,1002) (IA(J),J=1,ICNT/2)
	GO TO 100
20	CALL	MTSPB(1,J,IERR,ICNT)
	GO TO 100
30	CALL	MTSPF(1,J,IERR,ICNT)
	GO TO 100
40	CALL	MTRWD(1,IERR,ICNT)
	GO TO 100
50	CALL	MTRWU(1,IERR,ICNT)
100	WRITE(5,1000) IERR,ICNT
	GO TO 1
1000	FORMAT(//O7,I7)
1001	FORMAT(' Enter UNIT,FUNC,COUNT(1=READ,2=SKB,3=SKF,4=RWD,5=RWU')
1002	FORMAT(1X,10O7)
	END