anchor.diff:       &      WHIT,         97,         122,       FLSH,           IDEN,    a - z 
   *
        &      IDEN,         32,          32,       FLSH,           WHIT,     SPC  
  +     &      IDEN,         42,          42,       FLSH,            MUL,      *   
        &      IDEN,         48,          57,       PUSH,           IDEN,    0 - 9 
        &      IDEN,         65,          90,       PUSH,           IDEN,    A - Z 
  +     &      IDEN,         94,          94,       FLSH,            POW,      ^   
        &      IDEN,         95,          95,       PUSH,           IDEN,      _   
        &      IDEN,         97,         122,       PUSH,           IDEN,    a - z 
   *
        &      INTG,         32,          32,       FLSH,           WHIT,     SPC  
  +     &      INTG,         42,          42,       FLSH,            MUL,      *   
        &      INTG,         46,          46,       PUSH,           FLOT,      .   
        &      INTG,         48,          57,       PUSH,           INTG,    0 - 9 
  +     &      INTG,         94,          94,       FLSH,            POW,      ^   
        &      INTG,        101,         101,       PUSH,            SCI,      e   
   *
        &      FLOT,         32,          32,       FLSH,           WHIT,     SPC  
  +     &      FLOT,         42,          42,       FLSH,            MUL,      *   
        &      FLOT,         48,          57,       PUSH,           FLOT,    0 - 9 
        &      FLOT,         94,          94,       FLSH,            POW,      ^   
        &      FLOT,        101,         101,       PUSH,            SCI,      e   
  
positive.code:       IMPLICIT NONE
        CHARACTER INP*(*),C
        INTEGER I,J,LNGTH,STATE,ACTN,NXTST,IND
        INTEGER STRT,TKLN
  * ----------------------------------------------------------------------
        INTEGER    NCLS,     NRWS
        PARAMETER (NCLS=5,   NRWS=46)
  *
        INTEGER    UNKN,      WHIT,      IDEN      
        PARAMETER (UNKN=0,    WHIT=101,  IDEN=201)
  
negative.code:       PROGRAM EVAL
        IMPLICIT NONE
        CHARACTER*64 RAW
        PARAMETER (RAW='CALC A*.314**2*3')
        CALL SCAN(RAW)
   8999 GOTO 9999
   9999 STOP
  