sw/rescue/lab8e_goettingen/disk2_11/rkb/paroff/4to5.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) (RCRD1(I),I=1,85)
  10         IF (RCRD1(15).NE.6HDLWPD2) GOTO 30
  11 C
  12         REVSON=5.5
  13         SAMRAT=RCRD1(1)
  14         SAMCNT=RCRD1(2)
  15         CHNLS=RCRD1(3)
  16         CALL MOVE (10,RCRD1(4),LABEL)
  17         LABCNT=RCRD1(14)
  18         REDVAL=RCRD1(15)
  19         LASREC=RCRD1(16)
  20         BLKCNT=RCRD1(17)
  21         COMP=RCRD1(18)
  22         SPEED=RCRD1(19)
  23         TOTSAM=SAMCNT*CHNLS
  24         CALL MOVE(-7,1,PACK)
  25         PCKMAX=1
  26         REC7=REC7-1
  27         WRITE(7'REC7)(RCRD0(I),I=1,85)
  28         REC7=LASREC+1
  29         IF(REC7.LE.BLKCNT) GOTO 10
  30 C
  31 30      STOP
  32 C
  33 1       FORMAT (' UNIT 7 NUMBER OF BLOCKS? ',$)
  34 2       FORMAT (I4)
  35         END
  36 \1a