5 MAXREC=NCOND(MAXREC,MAXREC,720)
6 DEFINE FILE 7(MAXREC,85,U,REC7)
9 10 READ(7'REC7) (RCRD1(I),I=1,85)
10 IF (RCRD1(15).NE.6HDLWPD2) GOTO 30
16 CALL MOVE (10,RCRD1(4),LABEL)
27 WRITE(7'REC7)(RCRD0(I),I=1,85)
29 IF(REC7.LE.BLKCNT) GOTO 10
33 1 FORMAT (' UNIT 7 NUMBER OF BLOCKS? ',$)