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