| 1 | INCLUDE HAEBUF.FI\r |
| 2 | INTEGER I,RCRD1(85)\r |
| 3 | \f WRITE (4,1)\r |
| 4 | READ (4,2) MAXREC\r |
| 5 | MAXREC=NCOND(MAXREC,MAXREC,720)\r |
| 6 | DEFINE FILE 7(MAXREC,85,U,REC7)\r |
| 7 | REC7=1\r |
| 8 | C\r |
| 9 | 10 READ(7'REC7) (RCRD0(I),I=1,85)\r |
| 10 | C\r |
| 11 | IF (REDVAL.NE.6HDLWPD2)GOTO 30\r |
| 12 | REVSON=6.0\r |
| 13 | STRIGS=0\r |
| 14 | CALL MOVE(-15,0,FXPAND)\r |
| 15 | C\r |
| 16 | REC7=REC7-1\r |
| 17 | WRITE(7'REC7)(RCRD0(I),I=1,85)\r |
| 18 | REC7=LASREC+1\r |
| 19 | IF(REC7.LE.BLKCNT) GOTO 10\r |
| 20 | C\r |
| 21 | 30 STOP\r |
| 22 | C\r |
| 23 | 1 FORMAT (' UNIT 7 NUMBER OF BLOCKS? ',$)\r |
| 24 | 2 FORMAT (I4)\r |
| 25 | END\r |
| 26 | \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 |