INCLUDE HAEBUF.FI INTEGER I,RCRD1(85) WRITE (4,1) READ (4,2) MAXREC MAXREC=NCOND(MAXREC,MAXREC,720) DEFINE FILE 7(MAXREC,85,U,REC7) REC7=1 C 10 READ(7'REC7) (RCRD0(I),I=1,85) C IF (REDVAL.NE.6HDLWPD2)GOTO 30 REVSON=6.0 STRIGS=0 CALL MOVE(-15,0,FXPAND) WRITE (4,3) READ(4,4) PACK,PCKMAX 3 FORMAT(' PACK:',$) 4 FORMAT (7I1,I2) C REC7=REC7-1 WRITE(7'REC7)(RCRD0(I),I=1,85) REC7=LASREC+1 IF(REC7.LE.BLKCNT) GOTO 10 C 30 STOP C 1 FORMAT (' UNIT 7 NUMBER OF BLOCKS? ',$) 2 FORMAT (I4) END