A large commit.

[pdp8.git] / sw / rescue / lab8e_goettingen / disk2_11 / rka / paroff / 5to6.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
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\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0