anchor.diff:        IVAL(2) = IDS(3,NID)
   *
         SELECT CASE (OPS(1,NOP))
  +      CASE(POW)
  +        FVAL(1) = FVAL(1) ** FVAL(2)
         CASE(MUL)
           FVAL(1) = FVAL(1) * FVAL(2)
  +      CASE(DIV)
  +        FVAL(1) = FVAL(1) / FVAL(2)
         CASE(ADD)
           FVAL(1) = FVAL(1) + FVAL(2)
  +      CASE(SUB)
  +        FVAL(1) = FVAL(1) - FVAL(2)
         CASE DEFAULT
           WRITE(0,9901) STR(OPS(2,NOP):OPS(3,NOP))
           GOTO 9999
  
positive.code:       PARAMETER ( POW=401,   MUL=402,   DIV=403,  FDIV=404,  MODU=405)
        INTEGER     ADD,       SUB,      OPER
        PARAMETER ( ADD=406,   SUB=407,  OPER=400)
  *
        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=' .314*(1/12)* .040^3')
        CALL SCAN(RAW)
        CALL PARSE(RAW)
   8999 GOTO 9999
  