[pdp8.git] / sw / rescue / lab8e_goettingen / disk2_11 / rkb / paroff / 4to5.ft

	INCLUDE HAEBUF.FI\r
	INTEGER I,RCRD1(85)\r
\f	WRITE (4,1)\r
	READ (4,2) MAXREC\r
	MAXREC=NCOND(MAXREC,MAXREC,720)\r
	DEFINE FILE 7(MAXREC,85,U,REC7)\r
	REC7=1\r
C\r
10	READ(7'REC7) (RCRD1(I),I=1,85)\r
	IF (RCRD1(15).NE.6HDLWPD2) GOTO 30\r
C\r
	REVSON=5.5\r
	SAMRAT=RCRD1(1)\r
	SAMCNT=RCRD1(2)\r
	CHNLS=RCRD1(3)\r
	CALL MOVE (10,RCRD1(4),LABEL)\r
	LABCNT=RCRD1(14)\r
	REDVAL=RCRD1(15)\r
	LASREC=RCRD1(16)\r
	BLKCNT=RCRD1(17)\r
	COMP=RCRD1(18)\r
	SPEED=RCRD1(19)\r
	TOTSAM=SAMCNT*CHNLS\r
	CALL MOVE(-7,1,PACK)\r
	PCKMAX=1\r
	REC7=REC7-1\r
	WRITE(7'REC7)(RCRD0(I),I=1,85)\r
	REC7=LASREC+1\r
	IF(REC7.LE.BLKCNT) GOTO 10\r
C\r
30	STOP\r
C\r
1	FORMAT (' UNIT 7 NUMBER OF BLOCKS? ',$)\r
2	FORMAT (I4)\r
	END\r
\1a\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0
Commit	Line	Data
81e70d48 PH	1	INCLUDE HAEBUF.FI\r
	2	INTEGER I,RCRD1(85)\r
	3	\f WRITE (4,1)\r
	4	READ (4,2) MAXREC\r
	5	MAXREC=NCOND(MAXREC,MAXREC,720)\r
	6	DEFINE FILE 7(MAXREC,85,U,REC7)\r
	7	REC7=1\r
	8	C\r
	9	10 READ(7'REC7) (RCRD1(I),I=1,85)\r
	10	IF (RCRD1(15).NE.6HDLWPD2) GOTO 30\r
	11	C\r
	12	REVSON=5.5\r
	13	SAMRAT=RCRD1(1)\r
	14	SAMCNT=RCRD1(2)\r
	15	CHNLS=RCRD1(3)\r
	16	CALL MOVE (10,RCRD1(4),LABEL)\r
	17	LABCNT=RCRD1(14)\r
	18	REDVAL=RCRD1(15)\r
	19	LASREC=RCRD1(16)\r
	20	BLKCNT=RCRD1(17)\r
	21	COMP=RCRD1(18)\r
	22	SPEED=RCRD1(19)\r
	23	TOTSAM=SAMCNT*CHNLS\r
	24	CALL MOVE(-7,1,PACK)\r
	25	PCKMAX=1\r
	26	REC7=REC7-1\r
	27	WRITE(7'REC7)(RCRD0(I),I=1,85)\r
	28	REC7=LASREC+1\r
	29	IF(REC7.LE.BLKCNT) GOTO 10\r
	30	C\r
	31	30 STOP\r
	32	C\r
	33	1 FORMAT (' UNIT 7 NUMBER OF BLOCKS? ',$)\r
	34	2 FORMAT (I4)\r
	35	END\r
	36	\1a\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0