Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-01 - 43,50212/left.f4
There are no other files named left.f4 in the archive.
      SUBROUTINE LEFT(N)
C  THIS PROGRAM SHIFTS N RECORDS TOWARDS THE BEGINNING OF THE FILE
C  THE PROGRAM COMPUTES THE NEW ADDRESS FOR THE CURRENTLY SCANNED RECORD
      DIMENSION IPARF(10), IFRMTF(1)
      COMMON IPARF,IFRMTF
      L=IPARF(6)-(IPARF(5)*N)
      IF(L-IPARF(2)) 1,2,2
1     IPARF(6)=IPARF(3)-IPARF(5)
      RETURN
    2 IPARF(6)=L
      RETURN
	END