SUBROUTINE LCVSET 
    
      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  
    
      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   
    
      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  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  TS   
      IF (.NOT. (LOCPRT .NE. 0 .AND. LOCSUP .LE. 0))GO TO 13026 
    
      TS = LC   
      IF (LCI .EQ. CODE) TS = TS + LBIAS
      CALL EHX (TS, LBUF, 14, 17)   
13026 CONTINUE  
    
      RETURN
      END