SUBROUTINE PSRENT 
      EXTERNAL OLLDS
    
      INTEGER  QUOTEX   
      INTEGER  CONTF
      INTEGER  CONTRL   
      INTEGER  HEAD 
      INTEGER  EJECT
      INTEGER  BLANK
      INTEGER  SLASH
      INTEGER  CARDC
      INTEGER  FLINCT (8)   
      INTEGER  EOCC 
      INTEGER  ENDCRD (3)   
      INTEGER  RECORD (66)  
      INTEGER  RECPTR   
      INTEGER  SOURCE (150) 
      INTEGER  SRCEND   
      INTEGER  SLEN 
      INTEGER  TF (3)   
      COMMON   /SRCE/   QUOTEX  
      COMMON   /SRCE/   CONTF   
      COMMON   /SRCE/   CONTRL  
      COMMON   /SRCE/   HEAD
      COMMON   /SRCE/   EJECT   
      COMMON   /SRCE/   BLANK   
      COMMON   /SRCE/   SLASH   
      COMMON   /SRCE/   CARDC   
      COMMON   /SRCE/   FLINCT  
      COMMON   /SRCE/   EOCC
      COMMON   /SRCE/   ENDCRD  
      COMMON   /SRCE/   RECORD  
      COMMON   /SRCE/   RECPTR  
      COMMON   /SRCE/   SOURCE  
      COMMON   /SRCE/   SRCEND  
      COMMON   /SRCE/   SLEN
      COMMON   /SRCE/   TF  
    
      INTEGER     ADDR,   ADRFLG, CUROP,  NEXTOP, CFLAG 
      INTEGER     PI,     XBBL,   XA,     XF,     XZERO,  DPVFLG
      INTEGER     LC,     LCI,    LODLCI, LODLCV, LDLCVO, MAXLCV
      INTEGER     NEXT,   NUMBER, I,      IOTYPE
      INTEGER     J,      K,      L,      LABNLX, M,      N 
      INTEGER     PSYMB,  SYMBOL, TOP,    VALFLG, QVALUE
      INTEGER     OPTOPX, OPNXTX, TOPX,   NEXTX 
      INTEGER     DUMMY,  OVCHN,  PEEKS 
      INTEGER     LO,     CI,     CO,     LOGICF, LOCSUP
      INTEGER     VAREF,  INPUTJ, LCTS,   CRUCNT, FLTCNT
      INTEGER ICLP05
      LOGICAL     ENDOK,CONEND  
      COMMON   /LOGOS/  ADDR,   ADRFLG, CUROP,  NEXTOP, CFLAG   
      COMMON   /LOGOS/  PI,     XBBL,   XA,     XF,     XZERO,  DPVFLG  
      COMMON   /LOGOS/  LC,     LCI,    LODLCI, LODLCV, LDLCVO, MAXLCV  
      COMMON   /LOGOS/  NEXT,   NUMBER, I,      IOTYPE  
      COMMON   /LOGOS/  J,      K,      L,      LABNLX, M,      N   
      COMMON   /LOGOS/  PSYMB,  SYMBOL, TOP,    VALFLG, QVALUE  
      COMMON   /LOGOS/  OPTOPX, OPNXTX, TOPX,   NEXTX   
      COMMON   /LOGOS/  DUMMY,  OVCHN,  PEEKS   
      COMMON   /LOGOS/  LO,     CI,     CO,     LOGICF, LOCSUP  
      COMMON   /LOGOS/  VAREF,  INPUTJ, LCTS,   CRUCNT, FLTCNT  
      COMMON   /LOGOS/  ICLP05  
      COMMON   /LOGOS/  ENDOK,CONEND
    
      INTEGER     LISTF,  SNLPRT, SUMPRT, SYMFLG
      INTEGER     PRINTF, SKIP,   COMPFL (2)
      INTEGER     LOCPRT, USFLGS, NEGFLG, SKNAME (8)
      INTEGER     ORGFLG, CTLUSE, CTLERR, TTL (8)   
      INTEGER     DUMFLG
      INTEGER ICLP01
      COMMON      /CTLCOM/    LISTF,  SNLPRT, SUMPRT, SYMFLG
      COMMON      /CTLCOM/    PRINTF, SKIP,   COMPFL
      COMMON      /CTLCOM/    LOCPRT, USFLGS, NEGFLG, SKNAME
      COMMON      /CTLCOM/    ORGFLG, CTLUSE, CTLERR, TTL   
      COMMON      /CTLCOM/    DUMFLG
      COMMON      /CTLCOM/ ICLP01   
      INPUTJ = J
      CONTINUE  
13042 CONTINUE  
    
      CALL LDSRCE   
      K = 0 
      IF (.NOT. (SKIP .LT. 0 .AND. CONTF .NE. CONTRL))GO TO 13044   
    
      GO TO 13042   
    
13044 CONTINUE  
    
      CALL PRNEWS   
      SRCEND = J
      IF (.NOT.(J .EQ. INPUTJ))GO TO 13043  
    
      GO TO 13042   
13043 CONTINUE  
    
      J = INPUTJ
      RETURN
      END