C COPY FORTRAN RANDOM FILES INTEGER B(85),I,REC7,REC9,B9,B7,BC,S9,S7 C C WRITE (4,1) READ (4,2) B9 WRITE (4,3) READ (4,2) B7 WRITE (4,4) READ (4,2) S9 WRITE (4,6) READ (4,2) S7 WRITE (4,5) READ (4,2) BC C C DEFINE FILE 9(B9,85,U,REC9) DEFINE FILE 7(B7,85,U,REC7) C C REC7=S7 REC9=S9 C DO 30 I=1,BC READ (9'REC9) B II=REC9-1 WRITE (4,7) II WRITE(7'REC7) B 30 CONTINUE WRITE (4,8) STOP 1 FORMAT (' INPUT UNIT 9: NUMBER OF BLOCKS ASSIGNED? ',$) 3 FORMAT (' OUTPUT UNIT 7: "" "" "" " ',$) 4 FORMAT (' NUMBER OF THE FIRST RECORD TO READ? ',$) 6 FORMAT (' NUMBER OF THE FIRST RECORD TO WRITE? ',$) 7 FORMAT (1H+,I6) 8 FORMAT (' END HACOPY.') 5 FORMAT (' NUMBER OF BLOCKS TO COPY? ',$) 2 FORMAT (I4)