SUBROUTINE  CHEKCO (SYM, INDEX) 
 
      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     SYM, INDEX, FIRST (3), SECOND (3), COMPOS (3) 
      DATA  FIRST  /25, 21, 19/ 
      DATA  SECOND /62, 61, 61/ 
      DATA  COMPOS /23, 22, 20/ 
      DO  13012 K = 1, 3 
      IF (.NOT. (SYM .EQ. FIRST (K) .AND. SOURCE (INDEX) .EQ. SECOND (K)
     1 ))GO TO 13014 
 
      SYM = COMPOS (K) 
      INDEX = INDEX + 1 
      GO TO 13013 
 
13014 CONTINUE 
 
13012 CONTINUE 
13013 CONTINUE 
 
      RETURN 
      END