Commit | Line | Data |
---|---|---|
81e70d48 PH |
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 |