anchor.diff:        PROGRAM EVAL
         IMPLICIT NONE
         CHARACTER*64 RAW
  -      PARAMETER (RAW='MAZOVE FWD')
  +      PARAMETER (RAW='STORE A .314 ** 2')
         CALL SCAN(RAW)
    8999 GOTO 9999
    9999 STOP
  
positive.code:       BLOCK DATA ASCTAB
        IMPLICIT NONE
  * ----------------------------------------------------------------------
        INTEGER    NRWS
        PARAMETER (NRWS=7)
        INTEGER    UNKN,     WHIT,      IDEN
        PARAMETER (UNKN=0,   WHIT=1001, IDEN=1002 )
        INTEGER     ERR,      NEW,      PUSH,      FLSH
        PARAMETER ( ERR=0,    NEW=1001, PUSH=1002, FLSH=1003 )
        INTEGER TABLE(5,NRWS)
        COMMON /CASTAB/ TABLE
  * ----------------------------------------------------------------------
        DATA TABLE /
  *****      STATE       START          END      ACTION       NEXTSTATE
       &      UNKN,         32,          32,        NEW,           WHIT, 
       &      UNKN,         65,          90,        NEW,           IDEN, 
       &      UNKN,         97,         122,        NEW,           IDEN, 
  *
       &      WHIT,         32,          32,       PUSH,           WHIT, 
       &      WHIT,         65,          90,       FLSH,           IDEN, 
       &      WHIT,         97,         122,       FLSH,           IDEN, 
  *
       &      IDEN,         32,          32,       FLSH,           WHIT, 
       &      IDEN,         65,          90,       PUSH,           IDEN, 
       &      IDEN,         97,         122,       PUSH,           IDEN, 
  *
       &     99999,      99999,       99999,        ERR,           UNKN /
        END BLOCK DATA ASCTAB
  ************************************************************************
  *               97 - 122  a - z
  *               65 -  80  A - Z
  ************************************************************************
  
negative.code: ************************************************************************
        SUBROUTINE SCAN(INP)
        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)
        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)
  *
        INTEGER TABLE(NCLS,NRWS)
        COMMON /CASTAB/ TABLE
  * ----------------------------------------------------------------------
        WRITE(6,9001) TRIM(INP)
  *
  ****  INIT
        LNGTH = LEN_TRIM(INP)
        TKLN = 0
        STATE = UNKN
        ACTN  = ERR
  *
  