| 1 | C COPY FORTRAN RANDOM FILES\r |
| 2 | INTEGER B(85),I,REC7,REC9,B9,B7,BC,S9,S7\r |
| 3 | C\r |
| 4 | C\r |
| 5 | WRITE (4,1)\r |
| 6 | READ (4,2) B9\r |
| 7 | WRITE (4,3)\r |
| 8 | READ (4,2) B7\r |
| 9 | WRITE (4,4)\r |
| 10 | READ (4,2) S9\r |
| 11 | WRITE (4,6)\r |
| 12 | READ (4,2) S7\r |
| 13 | WRITE (4,5) \r |
| 14 | READ (4,2) BC\r |
| 15 | C\r |
| 16 | C\r |
| 17 | DEFINE FILE 9(B9,85,U,REC9)\r |
| 18 | DEFINE FILE 7(B7,85,U,REC7)\r |
| 19 | C\r |
| 20 | C\r |
| 21 | REC7=S7\r |
| 22 | REC9=S9\r |
| 23 | C\r |
| 24 | DO 30 I=1,BC\r |
| 25 | READ (9'REC9) B\r |
| 26 | II=REC9-1\r |
| 27 | WRITE (4,7) II\r |
| 28 | WRITE(7'REC7) B\r |
| 29 | 30 CONTINUE\r |
| 30 | WRITE (4,8)\r |
| 31 | STOP\r |
| 32 | 1 FORMAT (' INPUT UNIT 9: NUMBER OF BLOCKS ASSIGNED? ',$)\r |
| 33 | 3 FORMAT (' OUTPUT UNIT 7: "" "" "" " ',$)\r |
| 34 | 4 FORMAT (' NUMBER OF THE FIRST RECORD TO READ? ',$)\r |
| 35 | 6 FORMAT (' NUMBER OF THE FIRST RECORD TO WRITE? ',$)\r |
| 36 | 7 FORMAT (1H+,I6)\r |
| 37 | 8 FORMAT (' END HACOPY.')\r |
| 38 | 5 FORMAT (' NUMBER OF BLOCKS TO COPY? ',$)\r |
| 39 | 2 FORMAT (I4)\r |
| 40 | \1a\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0 |