SUBROUTINE  WRC   
    
      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     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  
    
      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     WOPTR,  WO (64), TLI,     TL (128)
      INTEGER     BO,     SS,      SS2,     NRFCH   
      COMMON      /SCR1/  WOPTR,   WO,      TLI,    TL  
      COMMON      /SCR1/  BO,      SS,      SS2,    NRFCH   
      INTEGER     TS, WRCI, WRCS (20)   
      DATA        WRCS /2,0,0,2,4,4,5,5,3,0,0,0,0,0,0,0,0,4,0,0/
      TWI = TWI - 1 
      IF (.NOT. (DUMFLG .NE. 0))GO TO 13114 
    
      CALL EST ('WRC ', LBUF, 1, 4) 
      CALL EHX (LC, LBUF, 6, 9) 
      CALL EHX (BTYPE, LBUF, 11, 12)
      CALL ESP (RBITS, LBUF, 13, 15)
      TS = 17   
      DO  13116 WRCI = 2, TWI   
      CALL EHX (BCARD (WRCI), LBUF, TS, TS+3)   
      TS = TS + 5   
      IF (.NOT. (TS .GT. 115))GO TO 13118   
    
      CALL SGLPRT   
      TS = 17   
13118 CONTINUE  
    
13116 CONTINUE  
    
      CALL SGLPRT   
      WRCI = WRCS (BTYPE)   
      IF (.NOT. (WRCI .NE. 0))GO TO 13120   
    
      CALL EST ('ALPHA-', LBUF, 11, 16) 
      CALL EST (BCARD (WRCI), LBUF, 17, (TWI-WRCI)*2+18)
      CALL SGLPRT   
13120 CONTINUE  
    
      CALL SGLPRT   
13114 CONTINUE  
    
      CALL PCHAR (BCARD, 1, BTYPE)  
      CALL PCHAR (BCARD, 2, RBITS)  
      CALL WRSEQ (BO, BCARD, TWI+TWI)   
      CALL SET (0, BCARD, TWI)  
      TWI = 2   
      RETURN
      END