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