1 C COPY FORTRAN RANDOM FILES
2 INTEGER B(85),I,REC7,REC9,B9,B7,BC,S9,S7
17 DEFINE FILE 9(B9,85,U,REC9)
18 DEFINE FILE 7(B7,85,U,REC7)
32 1 FORMAT (' INPUT UNIT 9: NUMBER OF BLOCKS ASSIGNED? ',$)
33 3 FORMAT (' OUTPUT UNIT 7: "" "" "" " ',$)
34 4 FORMAT (' NUMBER OF THE FIRST RECORD TO READ? ',$)
35 6 FORMAT (' NUMBER OF THE FIRST RECORD TO WRITE? ',$)
37 8 FORMAT (' END HACOPY.')
38 5 FORMAT (' NUMBER OF BLOCKS TO COPY? ',$)