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