sw/rescue/lab8e_goettingen/disk2_11/rka/paroff/rep6.ft

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