	SUBROUTINE MOVDAT
	INCLUDE 'SYSREP.PRM'
	DO 10 I = 1,20
	REC000(I,1) = REC000(I,2)
	REC401(I,1) = REC401(I,2)
	REC402(I,1) = REC402(I,2)
	REC403(I,1) = REC403(I,2)
	REC501(I,1) = REC501(I,2)
10	CONTINUE
	DO 20 I1=1,NUMDSK
	DO 30 I2 = 1,18
	REC601(I1,I2,1) = REC601(I1,I2,2)
30	CONTINUE
20	CONTINUE
	RETURN
	END

