[pdp8.git] / sw / rescue / lab8e_goettingen / disk2_11 / rka / paroff / acnt.ft

	INTEGER REC,REC5,I,J,JE,RECORD(14,6),RECPOS\r
	EXTERNAL NCOND\r
	INTEGER NCOND\r
C\r
C\r
	DEFINE FILE 5 (400,85,U,REC5)\r
C\r
	REC5=1\r
	READ (5'REC5) RECPOS,RECORD\r
	DO 10 REC=1,RECPOS/6+1\r
	REC5=REC\r
	READ (5'REC5) I,RECORD\r
	JE=NCOND(RECPOS.GT.REC*6,6,MOD(RECPOS,6)+1)\r
10	WRITE (4,1) ((RECORD(I,J),I=1,14),J=1,JE)\r
	STOP\r
1	FORMAT (1X,A2,1H/,A2,3H/19,A2,1X,10A6,A4)\r
	END\r
\1a\0\0\0\0\0\0\0\0\0\0\0\0\0
Commit	Line	Data
81e70d48 PH	1	INTEGER REC,REC5,I,J,JE,RECORD(14,6),RECPOS\r
	2	EXTERNAL NCOND\r
	3	INTEGER NCOND\r
	4	C\r
	5	C\r
	6	DEFINE FILE 5 (400,85,U,REC5)\r
	7	C\r
	8	REC5=1\r
	9	READ (5'REC5) RECPOS,RECORD\r
	10	DO 10 REC=1,RECPOS/6+1\r
	11	REC5=REC\r
	12	READ (5'REC5) I,RECORD\r
	13	JE=NCOND(RECPOS.GT.REC*6,6,MOD(RECPOS,6)+1)\r
	14	10 WRITE (4,1) ((RECORD(I,J),I=1,14),J=1,JE)\r
	15	STOP\r
	16	1 FORMAT (1X,A2,1H/,A2,3H/19,A2,1X,10A6,A4)\r
	17	END\r
	18	\1a\0\0\0\0\0\0\0\0\0\0\0\0\0