anchor.diff:  *
         INTEGER    UNKN,      WHIT,      IDEN      
         PARAMETER (UNKN=0,    WHIT=101,  IDEN=201)
  -      INTEGER    INTG,      FLOT,       SCI,      SCIS
  -      PARAMETER (INTG=301,  FLOT=302,   SCI=303,  SCIS=304)
  +      INTEGER    INTG,      FLOT,       SCI,      SCIS,      NUMB
  +      PARAMETER (INTG=301,  FLOT=302,   SCI=303,  SCIS=304,  NUMB=300)
         INTEGER     POW,       MUL,       DIV,      FDIV,      MODU
         PARAMETER ( POW=401,   MUL=402,   DIV=403,  FDIV=404,  MODU=405)
  -      INTEGER     ADD,       SUB
  -      PARAMETER ( ADD=406,   SUB=407)
  +      INTEGER     ADD,       SUB,      OPER
  +      PARAMETER ( ADD=406,   SUB=407,  OPER=400)
   *
         INTEGER     ERR,       NEW,      PUSH,      FLSH
         PARAMETER ( ERR=0,     NEW=101,  PUSH=102,  FLSH=103)
   *
  -      INTEGER TABLE(NCLS,NRWS),NTOK,TOKLST(NCLS-2,MTOK)
  +      INTEGER TABLE(NCLS,NRWS),NTOK,TOKLST(3,MTOK)
         COMMON /CASTAB/ TABLE,NTOK,TOKLST
   * ----------------------------------------------------------------------
         WRITE(6,9001) TRIM(INP)
  
positive.code:       PROGRAM EVAL
        IMPLICIT NONE
        CHARACTER*64 RAW
        PARAMETER (RAW='2e3-.314 - 4')
        CALL SCAN(RAW)
   8999 GOTO 9999
   9999 STOP
        END PROGRAM EVAL
  ************************************************************************
        SUBROUTINE SCAN(INP)
        IMPLICIT NONE
        CHARACTER INP*(*),C
  
negative.code: *
        INTEGER    UNKN,      WHIT,      IDEN      
        PARAMETER (UNKN=0,    WHIT=101,  IDEN=201)
        INTEGER    INTG,      FLOT,       SCI,      SCIS,      NUMB
        PARAMETER (INTG=301,  FLOT=302,   SCI=303,  SCIS=304,  NUMB=300)
        INTEGER     POW,       MUL,       DIV,      FDIV,      MODU
        PARAMETER ( POW=401,   MUL=402,   DIV=403,  FDIV=404,  MODU=405)
        INTEGER     ADD,       SUB,      OPER
        PARAMETER ( ADD=406,   SUB=407,  OPER=400)
  *
        INTEGER     ERR,       NEW,      PUSH,      FLSH
        PARAMETER ( ERR=0,     NEW=101,  PUSH=102,  FLSH=103)
  *
        INTEGER TABLE(NCLS,NRWS),NTOK,TOKLST(3,MTOK)
        COMMON /CASTAB/ TABLE,NTOK,TOKLST
  * ----------------------------------------------------------------------
        DATA TABLE /
  