Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-01 - 43,50212/right.f4
There are no other files named right.f4 in the archive.
C*****PLACES LSR POINTING TO N RECORDS BEYOND WHERE IT HAD BEEN WHILE
C*****TREATING THE FILE AS CIRCULAR*************************************
      SUBROUTINE RIGHT(N)
      DIMENSION IPARF(10), IFRMTF(1)
      COMMON IPARF,IFRMTF
      K=IPARF(6)+(IPARF(5)*N)
C*****IF NAVR IS LESS THAN K THEN LSR IS SET TO LFR
      IF(IPARF(3)-K) 1,1,2
1     IPARF(6)=IPARF(2)
      RETURN
    2 IPARF(6)=K
      RETURN
	END