anchor.diff:        INTEGER STRT,ENDT
   * ----------------------------------------------------------------------
         INTEGER    NCLS,     NRWS
  -      PARAMETER (NCLS=5,   NRWS=53)
  +      PARAMETER (NCLS=5,   NRWS=106)
   *
         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     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     ERR,       NEW,      PUSH,      FLSH
         PARAMETER ( ERR=0,     NEW=101,  PUSH=102,  FLSH=103)
  
positive.code:       PROGRAM EVAL
        IMPLICIT NONE
        CHARACTER*64 RAW
        PARAMETER (RAW='CALC A*.314**2*3')
        CALL SCAN(RAW)
   8999 GOTO 9999
   9999 STOP
  
negative.code:      &      UNKN,         97,         122,        NEW,           IDEN,    a - z 
  *
       &      WHIT,         32,          32,       PUSH,           WHIT,     SPC  
       &      WHIT,         37,          37,       FLSH,           MODU,      %   
       &      WHIT,         42,          42,       FLSH,            MUL,      *   
       &      WHIT,         43,          43,       FLSH,            ADD,      +   
       &      WHIT,         45,          45,       FLSH,            SUB,      -   
       &      WHIT,         46,          46,       FLSH,           FLOT,      .   
       &      WHIT,         47,          47,       FLSH,            DIV,      /   
       &      WHIT,         48,          57,       FLSH,           INTG,    0 - 9 
       &      WHIT,         65,          90,       FLSH,           IDEN,    A - Z 
       &      WHIT,         92,          92,       FLSH,           FDIV,      \   
       &      WHIT,         94,          94,       FLSH,            POW,      ^   
       &      WHIT,         95,          95,       FLSH,           IDEN,      _   
       &      WHIT,         97,         122,       FLSH,           IDEN,    a - z 
  *
       &      IDEN,         32,          32,       FLSH,           WHIT,     SPC  
       &      IDEN,         42,          42,       FLSH,            MUL,      *   
       &      IDEN,         43,          43,       FLSH,            ADD,      +   
       &      IDEN,         45,          45,       FLSH,            SUB,      -   
       &      IDEN,         47,          47,       FLSH,            DIV,      /   
       &      IDEN,         48,          57,       PUSH,           IDEN,    0 - 9 
       &      IDEN,         65,          90,       PUSH,           IDEN,    A - Z 
       &      IDEN,         94,          94,       FLSH,            POW,      ^   
  