anchor.diff:       &       MUL,         95,          95,       FLSH,           IDEN,      _   
        &       MUL,         97,         122,       FLSH,           IDEN,    a - z 
   *
  +     &       DIV,         32,          32,       FLSH,           WHIT,     SPC  
  +     &       DIV,         46,          46,       FLSH,           FLOT,      .   
  +     &       DIV,         48,          57,       FLSH,           INTG,    0 - 9 
  +     &       DIV,         65,          90,       FLSH,           IDEN,    A - Z 
  +     &       DIV,         95,          95,       FLSH,           IDEN,      _   
  +     &       DIV,         97,         122,       FLSH,           IDEN,    a - z 
  +*
  +     &      FDIV,         32,          32,       FLSH,           WHIT,     SPC  
  +     &      FDIV,         46,          46,       FLSH,           FLOT,      .   
  +     &      FDIV,         48,          57,       FLSH,           INTG,    0 - 9 
  +     &      FDIV,         65,          90,       FLSH,           IDEN,    A - Z 
  +     &      FDIV,         95,          95,       FLSH,           IDEN,      _   
  +     &      FDIV,         97,         122,       FLSH,           IDEN,    a - z 
  +*
  +     &      MODU,         32,          32,       FLSH,           WHIT,     SPC  
  +     &      MODU,         46,          46,       FLSH,           FLOT,      .   
  +     &      MODU,         48,          57,       FLSH,           INTG,    0 - 9 
  +     &      MODU,         65,          90,       FLSH,           IDEN,    A - Z 
  +     &      MODU,         95,          95,       FLSH,           IDEN,      _   
  +     &      MODU,         97,         122,       FLSH,           IDEN,    a - z 
  +*
  +     &       ADD,         32,          32,       FLSH,           WHIT,     SPC  
  +     &       ADD,         46,          46,       FLSH,           FLOT,      .   
  +     &       ADD,         48,          57,       FLSH,           INTG,    0 - 9 
  +     &       ADD,         65,          90,       FLSH,           IDEN,    A - Z 
  +     &       ADD,         95,          95,       FLSH,           IDEN,      _   
  +     &       ADD,         97,         122,       FLSH,           IDEN,    a - z 
  +*
  +     &       SUB,         32,          32,       FLSH,           WHIT,     SPC  
  +     &       SUB,         46,          46,       FLSH,           FLOT,      .   
  +     &       SUB,         48,          57,       FLSH,           INTG,    0 - 9 
  +     &       SUB,         65,          90,       FLSH,           IDEN,    A - Z 
  +     &       SUB,         95,          95,       FLSH,           IDEN,      _   
  +     &       SUB,         97,         122,       FLSH,           IDEN,    a - z 
  +*
        &     99999,      99999,       99999,        ERR,           UNKN /
         END BLOCK DATA ASCTAB
   ************************************************************************
  
positive.code:       INTEGER STRT,ENDT
  * ----------------------------------------------------------------------
        INTEGER    NCLS,     NRWS
        PARAMETER (NCLS=5,   NRWS=53)
  *
        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     POW,       MUL
        PARAMETER ( POW=401,   MUL=402)
  *
        INTEGER     ERR,       NEW,      PUSH,      FLSH
        PARAMETER ( ERR=0,     NEW=101,  PUSH=102,  FLSH=103)
  
negative.code:       PROGRAM EVAL
        IMPLICIT NONE
        CHARACTER*64 RAW
        PARAMETER (RAW='2e3-.314 - 4')
        CALL SCAN(RAW)
   8999 GOTO 9999
   9999 STOP
  