EQUIVALENCE (MTBUFF(1),DATA(1))
	LOGICAL*1 MTBUFF(15000),IOST(4)
	INTEGER IPRM(6),IDS,IOTS(2),CNT,BLOCK,DATA(5120)
	DATA IORWD/"2400/,IORLB/"1000/,IPRM(2)/13200/
C
	CALL ASNLUN(1,'MT',0)
	CALL GETADR(IPRM, MTBUFF)
	CALL WTQIO (IORWD,1,1,,IOST,,IDS)
      OPEN (UNIT=3, NAME='MAGROL.ROL;1',STATUS='NEW',
     1FORM='UNFORMATTED',ASSOCIATEVARIABLE=BLOCK,RECL=128,
     2ACCESS='DIRECT')		
	CALL WTQIO (IORLB,1,1,,IOST,IPRM,IDS)	! READ PAST MAG TAPE LABEL
	CALL WTQIO (IORLB,1,1,,IOST,IPRM,IDS)	! THIS IS FOR REAL
	BLOCK=1
	WRITE (3' BLOCK) (MTBUFF(IO), IO=1,512)
C
	CALL WTQIO (IORLB,1,1,,IOST,IPRM,IDS)
	CNT=0
C
	DO 15, IO=1, 20
	WRITE (3' BLOCK) (MTBUFF(IOO), IOO=1+CNT, 512+CNT)
	CNT=CNT+512
15	CONTINUE
	CALL WTQIO (IORLB,1,1,,IOST,IPRM,IDS)
	WRITE (3' BLOCK) (MTBUFF(IO), IO=1, 512)
C
	TYPE *, 'WELL THATS IT'
	CALL EXIT
	END