SUBROUTINE  SETDI (LC, AREA)  
    
      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     CODE  
      INTEGER     NOUNLC
      INTEGER     DATALC
      INTEGER     COMLOC
      INTEGER     FBLOCK
      INTEGER     ZREL  
      INTEGER     ABSLC 
      INTEGER     CBTAB (15)
      INTEGER     CBX   
      INTEGER     LCTAB (15)
      COMMON      /LCFUNC/ CODE 
      COMMON      /LCFUNC/ NOUNLC   
      COMMON      /LCFUNC/ DATALC   
      COMMON      /LCFUNC/ COMLOC   
      COMMON      /LCFUNC/ FBLOCK   
      COMMON      /LCFUNC/ ZREL 
      COMMON      /LCFUNC/ ABSLC
      COMMON      /LCFUNC/ CBTAB
      COMMON      /LCFUNC/ CBX  
      COMMON      /LCFUNC/ LCTAB
      INTEGER     LC, AREA  
      INTEGER     ANAMES (40)   
      DATA  ANAMES   / '.A','BS','OL','UT','E.','  ','  ','  ', '.N','OU
     1','NS','. ','  ','  ','  ','  ', '.D','AT','A.','  ','  ','  ','  
     1','  ', '.Z','RE','L.','  ','  ','  ','  ','  ', '.C','OD','E.',' 
     1 ','  ','  ','  ','  '/   
      BTYPE = 5 
      RBITS = AREA  
      AREAID (LC) = EXTDX   
      BCARD  ( 2) = EXTDX   
      BCARD  ( 3) = LCTAB (LC)  
      EXTDX = EXTDX + 1 
      CALL MOVE (ANAMES (8*AREA+1), BCARD (4), 8)   
      TWI = 12  
      CALL WRC  
      RETURN
      END