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