DIMENSION ARRAY(85) DEFINE FILE 5(160,85,U,I5) DEFINE FILE 6(730,85,U,I6) 10 WRITE(4,100) READ(4,110)MAN5,MAN6 IF(MAN5.LT.0)STOP I5=16*MAN5+1 I6=16*MAN6+1 WRITE(4,99)I5,I6 99 FORMAT(1H ,2I6) DO 20 I=1,16 READ(5'I5)ARRAY WRITE(6'I6)ARRAY 20 CONTINUE WRITE(4,120)I5,I6 GO TO 10 100 FORMAT(1H1,' INPUT MAN5,MAN6(I2,1X,I2)') 110 FORMAT( 2(I2,1X)) 120 FORMAT(1H ,2I6) END