Add README.md

[pdp8.git] / sw / rescue / lab8e_goettingen / disk2_11 / rka / paroff / rep6.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) (RCRD0(I),I=1,85)\r
C\r
	IF (REDVAL.NE.6HDLWPD2)GOTO 30\r
	REVSON=6.0\r
	STRIGS=0\r
	CALL MOVE(-15,0,FXPAND)\r
	WRITE (4,3)\r
	READ(4,4) PACK,PCKMAX\r
3	FORMAT(' PACK:',$)\r
4	FORMAT (7I1,I2)\r
C\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\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\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