anchor.diff:        PROGRAM EVAL
         IMPLICIT NONE
         CHARACTER*64 RAW
  -      PARAMETER (RAW=' .314*(1/12)* .040^3')
  +      PARAMETER (RAW=' .314+ 1.40*3/12')
         CALL SCAN(RAW)
         CALL PARSE(RAW)
    8999 GOTO 9999
    9999 STOP
         END PROGRAM EVAL
   ************************************************************************
  -      SUBROUTINE DOOPER(OPS,IDS,SZ,NOP,NID,STR)
  +      SUBROUTINE PARSE(STR)
         IMPLICIT NONE
  -      INTEGER SZ,NOP,NID,OPS(3,SZ),IDS(3,SZ)
  -      CHARACTER*(*) STR
  +      CHARACTER STR*(*)
   * ----------------------------------------------------------------------
         INTEGER    NCLS,     NRWS,       MTOK
         PARAMETER (NCLS=5,   NRWS=135,   MTOK=128)
  
positive.code:             S(3,NS) = TOKLST(3,I)
            ENDIF
          END IF
        CASE (GRP)
        CASE DEFAULT
          WRITE(0,9001) STR(TOKLST(2,I):TOKLST(3,I))
          GOTO 9999
  
negative.code: * D. Everhart
  * 05 JUN 2016
  ************************************************************************
  * So far, this only evaluates basic math operations (*,/,+,-).  It
  * doesn't really do anything impressive, yet.  You may ask, "Why did
  * you do it in FORTRAN 77?"  Well, that is a good question. I guess
  * if I can do it in F77, then the algorithm can be adapted to pretty
  