anchor.diff:        IMPLICIT NONE
         CHARACTER INP*(*),C
         INTEGER I,J,LNGTH,STATE,ACTN,NXTST,IND
  -      INTEGER STRT,TKLN
  +      INTEGER STRT,ENDT
   * ----------------------------------------------------------------------
         INTEGER    NCLS,     NRWS
  -      PARAMETER (NCLS=5,   NRWS=46)
  +      PARAMETER (NCLS=5,   NRWS=53)
   *
         INTEGER    UNKN,      WHIT,      IDEN      
         PARAMETER (UNKN=0,    WHIT=101,  IDEN=201)
  
positive.code:      &      WHIT,         97,         122,       FLSH,           IDEN,    a - z 
  *
       &      IDEN,         32,          32,       FLSH,           WHIT,     SPC  
       &      IDEN,         48,          57,       PUSH,           IDEN,    0 - 9 
       &      IDEN,         65,          90,       PUSH,           IDEN,    A - Z 
       &      IDEN,         95,          95,       PUSH,           IDEN,      _   
       &      IDEN,         97,         122,       PUSH,           IDEN,    a - z 
  *
       &      INTG,         32,          32,       FLSH,           WHIT,     SPC  
       &      INTG,         46,          46,       PUSH,           FLOT,      .   
       &      INTG,         48,          57,       PUSH,           INTG,    0 - 9 
       &      INTG,        101,         101,       PUSH,            SCI,      e   
  *
       &      FLOT,         32,          32,       FLSH,           WHIT,     SPC  
       &      FLOT,         48,          57,       PUSH,           FLOT,    0 - 9 
       &      FLOT,         94,          94,       FLSH,            POW,      ^   
       &      FLOT,        101,         101,       PUSH,            SCI,      e   
  
negative.code:       IMPLICIT NONE
  * ----------------------------------------------------------------------
        INTEGER    NCLS,     NRWS
        PARAMETER (NCLS=5,   NRWS=53)
  *
        INTEGER    UNKN,      WHIT,      IDEN      
        PARAMETER (UNKN=0,    WHIT=101,  IDEN=201)
  