anchor.diff:       &       SCI,         48,          57,       PUSH,           SCIS,    0 - 9 
   *
        &      SCIS,         32,          32,       FLSH,           WHIT,     SPC  
  +     &      SCIS,         37,          37,       FLSH,           MODU,      %   
        &      SCIS,         42,          42,       FLSH,            MUL,      *   
  +     &      SCIS,         43,          43,       FLSH,            ADD,      +   
  +     &      SCIS,         45,          45,       FLSH,            SUB,      -   
  +     &      SCIS,         47,          47,       FLSH,            DIV,      /   
        &      SCIS,         48,          57,       PUSH,           SCIS,    0 - 9 
  +     &      SCIS,         92,          92,       FLSH,           FDIV,      \   
        &      SCIS,         94,          94,       FLSH,            POW,      ^   
   *
        &       POW,         32,          32,       FLSH,           WHIT,     SPC  
  
positive.code:       IMPLICIT NONE
  * ----------------------------------------------------------------------
        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:      &      IDEN,         97,         122,       PUSH,           IDEN,    a - z 
  *
       &      INTG,         32,          32,       FLSH,           WHIT,     SPC  
       &      INTG,         37,          37,       FLSH,           MODU,      %   
       &      INTG,         42,          42,       FLSH,            MUL,      *   
       &      INTG,         43,          43,       FLSH,            ADD,      +   
       &      INTG,         45,          45,       FLSH,            SUB,      -   
       &      INTG,         47,          47,       FLSH,            DIV,      /   
       &      INTG,         46,          46,       PUSH,           FLOT,      .   
       &      INTG,         48,          57,       PUSH,           INTG,    0 - 9 
       &      INTG,         92,          92,       FLSH,           FDIV,      \   
       &      INTG,         94,          94,       FLSH,            POW,      ^   
       &      INTG,        101,         101,       PUSH,            SCI,      e   
  *
       &      FLOT,         32,          32,       FLSH,           WHIT,     SPC  
       &      FLOT,         37,          37,       FLSH,           MODU,      %   
       &      FLOT,         42,          42,       FLSH,            MUL,      *   
       &      FLOT,         43,          43,       FLSH,            ADD,      +   
       &      FLOT,         45,          45,       FLSH,            SUB,      -   
       &      FLOT,         47,          47,       FLSH,            DIV,      /   
       &      FLOT,         48,          57,       PUSH,           FLOT,    0 - 9 
       &      FLOT,         92,          92,       FLSH,           FDIV,      \   
       &      FLOT,         94,          94,       FLSH,            POW,      ^   
       &      FLOT,        101,         101,       PUSH,            SCI,      e   
  *
  