SUBROUTINE PRNEWS 
    
      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  FCHRTS   
      INTEGER  SCFLAG   
      INTEGER  QMODE
      INTEGER  LBIAS
      INTEGER  SCOUNT   
      INTEGER  QINDEX   
      LOGICAL  NOTINQ   
      COMMON   /SRCEX/  FCHRTS  
      COMMON   /SRCEX/  SCFLAG  
      COMMON   /SRCEX/  QMODE   
      COMMON   /SRCEX/  LBIAS   
      COMMON   /SRCEX/  SCOUNT  
      COMMON   /SRCEX/  QINDEX  
      COMMON   /SRCEX/  NOTINQ  
      K = 1 
      CONTINUE  
13028 CONTINUE  
    
      CALL GETC (I,K)   
    1 SOURCE (J) = I
      IF (.NOT. (I .EQ. SLASH .AND. QMODE .EQ. 0))GO TO 13030   
    
      CALL GETC (I, K)  
      IF (.NOT. (I .NE. SLASH))GO TO 13032  
    
      J = J + 1 
      GO TO 1   
13032 CONTINUE  
    
      GO TO 13029   
    
13030 CONTINUE  
    
      IF (.NOT. (I .EQ. BLANK .AND. QMODE .EQ. 0))GO TO 13034   
    
      GO TO 13028   
    
13034 CONTINUE  
    
      IF (.NOT. (I .EQ. 34))GO TO 13036 
    
      QMODE = IEOR (QMODE, 1)   
13036 CONTINUE  
    
      IF (.NOT. (I .EQ. 0 .OR. I .EQ. 9 .OR. I .EQ. 12))GO TO 13038 
    
      GO TO 13028   
    
13038 CONTINUE  
    
      IF (.NOT.(I .NE. EOCC))GO TO 13029
    
      J = J + 1 
      GO TO 13028   
13029 CONTINUE  
    
      SOURCE (J) = 0
      RETURN
      END