BLOCK DATA 
 
      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 
      DATA     ADRFLG   /2/ 
      DATA     DPVFLG   /3/ 
      DATA     VALFLG   /1/ 
      DATA     PI       /4/ 
      DATA     XBBL     /'  '/ 
      DATA     XA       /65/ 
      DATA     XF       /70/ 
      DATA     XZERO    /48/ 
      DATA     LOCSUP   /0/ 
      DATA     LC       /0/ 
      DATA     LCI      /1/ 
      DATA     LODLCI   /1/ 
      DATA     LODLCV   /0/ 
      DATA     LDLCVO   /0/ 
      DATA     MAXLCV   /0/ 
      DATA     OVCHN    /0/ 
      DATA     LO       /12/ 
      DATA     CI       /10/ 
      DATA     CO       /11/ 
      DATA     LOGICF   /0/ 
      DATA     J        /81/ 
      DATA     CRUCNT   /0/ 
      DATA     FLTCNT   /0/ 
      END