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) (RCRD1(I),I=1,85) IF (RCRD1(15).NE.6HDLWPD2) GOTO 30 C REVSON=5.5 SAMRAT=RCRD1(1) SAMCNT=RCRD1(2) CHNLS=RCRD1(3) CALL MOVE (10,RCRD1(4),LABEL) LABCNT=RCRD1(14) REDVAL=RCRD1(15) LASREC=RCRD1(16) BLKCNT=RCRD1(17) COMP=RCRD1(18) SPEED=RCRD1(19) TOTSAM=SAMCNT*CHNLS CALL MOVE(-7,1,PACK) PCKMAX=1 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