SUBROUTINE  NOW   
    
      INTEGER  AREAID (15), BCARD (41)  
      INTEGER  RWORD1, RWORD2, RWORD3, RWORD (3)
      INTEGER  BTYPE
      INTEGER  EXTDX, ERRFLG
      INTEGER  NEWLCI   
      INTEGER  OFFSET, OW   
      INTEGER  RBITS, RCT   
      INTEGER  TWI  
      INTEGER  WF   
      COMMON   /OBJCOM/ AREAID, BCARD, RWORD
      COMMON   /OBJCOM/ BTYPE   
      COMMON   /OBJCOM/ EXTDX   
      COMMON   /OBJCOM/ OFFSET, OW  
      COMMON   /OBJCOM/ RBITS   
      COMMON   /OBJCOM/ TWI 
      COMMON   /OBJCOM/ WF  
      EQUIVALENCE (RWORD1, RWORD (1))   
      EQUIVALENCE (RWORD2, RWORD (2))   
      EQUIVALENCE (RWORD3, RWORD (3))   
    
      INTEGER     WOPTR,  WO (64), TLI,     TL (128)
      INTEGER     BO,     SS,      SS2,     NRFCH   
      COMMON      /SCR1/  WOPTR,   WO,      TLI,    TL  
      COMMON      /SCR1/  BO,      SS,      SS2,    NRFCH   
    
      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   
    
      INTEGER  LBUF (66)
      INTEGER  LCOUNT   
      INTEGER  PGECNT   
      INTEGER  UHEAD (15)   
      INTEGER  CHEAD (8)
      INTEGER ICLP09
      COMMON   /PRT/    LBUF
      COMMON   /PRT/    LCOUNT  
      COMMON   /PRT/    PGECNT  
      COMMON   /PRT/    UHEAD   
      COMMON   /PRT/    CHEAD   
      COMMON   /PRT/    ICLP09  
      CONTINUE  
13076 CONTINUE  
    
      IF (.NOT. (WOPTR .GE. 65))GO TO 13078 
    
      WOPTR = 1 
      CALL RDSEQ (SS2, WO, 128, ERRFLG) 
13078 CONTINUE  
    
      WF = WO (WOPTR)   
      OW = WO (WOPTR+1) 
      WOPTR = WOPTR + 2 
      IF (.NOT.(WF .LT. 1 .OR. WF .GT. 17))GO TO 13077  
    
      CALL OBJFLT (1)   
      GO TO 13076   
13077 CONTINUE  
    
      IF (.NOT. (DUMFLG .NE. 0))GO TO 13080 
    
      CALL EST ('NOW ', LBUF, 1, 4) 
      CALL ESP (WF, LBUF, 4, 8) 
      CALL EHX (OW, LBUF, 10, 13)   
      CALL SGLPRT   
13080 CONTINUE  
    
      RETURN
      END