anchor.diff:        INTEGER     ERR,       NEW,      PUSH,      FLSH
         PARAMETER ( ERR=0,     NEW=101,  PUSH=102,  FLSH=103)
   *
  -      INTEGER TABLE(NCLS,NRWS)
  -      COMMON /CASTAB/ TABLE
  +      INTEGER TABLE(NCLS,NRWS),NTOK,TOKLST(NCLS-2,MTOK)
  +      COMMON /CASTAB/ TABLE,NTOK,TOKLST
   * ----------------------------------------------------------------------
         WRITE(6,9001) TRIM(INP)
         WRITE(6,9011)
  
positive.code:       INTEGER I,J,LNGTH,STATE,ACTN,NXTST,IND
        INTEGER STRT,ENDT
  * ----------------------------------------------------------------------
        INTEGER    NCLS,     NRWS
        PARAMETER (NCLS=5,   NRWS=106)
  *
        INTEGER    UNKN,      WHIT,      IDEN      
        PARAMETER (UNKN=0,    WHIT=101,  IDEN=201)
  
negative.code:       LNGTH =  LEN_TRIM(INP)
        STATE =  UNKN
        ACTN  =  ERR
        NTOK  =  0
  *
  ****  LOOP THROUGH CHARACTER ARRAY.
        DO 1001 I=1,LNGTH
  