File: IO.LS of Disk: V50/Source/Source-Listing-FORTRAN-2

(Source file text) 

---

        FORTRAN IV  V50-A (A6)  24-JUL-20 

0002	        SUBROUTINE IO(RECORD)
	C
	C
	C       This function reads the direct access file and unpacks it.
	C       we put 6 13-character records into a single direct access record
	C       because OS/8 FORTRAN puts every record into a single block.
	C       Packing this saves one-sixth the space.
	C
0003	        COMMON /TXTCOM/ RTEXT,LINES,ASCVAR,TXTLOC,DATA
0004	        INTEGER RTEXT(205),LINES(12),DATA(78),RECORD
0005	        INTEGER OLDREC,TXTLOC
0006	        DATA	OLDREC/-1/
	
0007	        IREC = RECORD/6 + 1
0010	        IF (IREC .NE. OLDREC)READ(8'IREC)DATA
0011	        OLDREC = IREC
0012	        N = 13 * (MOD(RECORD-1,6)) + 1
0013	        TXTLOC = DATA(N)
0014	        DO 10 I = 1, 12
0015	10      LINES(I) = DATA(N+I)
0016	        RETURN
0017	        END

---