anchor.diff:              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
  
positive.code:       PROGRAM EVAL
        IMPLICIT NONE
        CHARACTER*64 RAW
        PARAMETER (RAW=' .314*(1/12)* .040^3')
        CALL SCAN(RAW)
        CALL PARSE(RAW)
   8999 GOTO 9999
   9999 STOP
        END PROGRAM EVAL
  ************************************************************************
        SUBROUTINE DOOPER(OPS,IDS,SZ,NOP,NID,STR)
        IMPLICIT NONE
        INTEGER SZ,NOP,NID,OPS(3,SZ),IDS(3,SZ)
        CHARACTER*(*) STR
  * ----------------------------------------------------------------------
        INTEGER    NCLS,     NRWS,       MTOK
        PARAMETER (NCLS=5,   NRWS=135,   MTOK=128)
  
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
  