Directory of image this file is from
This file as a plain text file

	SUBROUTINE IO(RECORD)
C
C
C	USED TO READ THE DATA FROM THE PACKED DIRECT
C	ACCESS FILE AND UNPACK IT INTO THE TEXT ARRAY
C	FOR PRINTING.
C
C
	COMMON /TXTCOM/ IRTEXT,LINES,IASCVR,LOC,DATA
	INTEGER IRTEXT(205),LINES(12),DATA(52),RECORD
	INTEGER OLDREC
	DATA OLDREC/-1/
	IREC=RECORD/4+1
	IF(IREC.NE.OLDREC)READ(2'IREC)DATA
	OLDREC=IREC
	N=13*(MOD(RECORD-1,4))+1
	LOC=DATA(N)
	DO 10 I=1,12
10	LINES(I)=DATA(N+I)
	RETURN
	END