4 C This function reads the direct access file and unpacks it.
5 C we put 6 13-character records into a single direct access record
6 C because OS/8 FORTRAN puts every record into a single block.
7 C Packing this saves one-sixth the space.
9 COMMON /TXTCOM/ RTEXT,LINES,ASCVAR,TXTLOC,DATA
10 INTEGER RTEXT(205),LINES(12),DATA(78),RECORD
15 IF (IREC .NE. OLDREC)READ(8'IREC)DATA
17 N = 13 * (MOD(RECORD-1,6)) + 1
20 10 LINES(I) = DATA(N+I)