anchor.diff:        NS = NS - 1
    2001 CONTINUE
   *
  +****  Evaluate Queue
         DO 3001 I=1,NQ
  - 3001 WRITE(6,9021) (Q(J,I),J=1,3),STR(Q(2,I):Q(3,I))
  +      WRITE(6,9021) (Q(J,I),J=1,3),STR(Q(2,I):Q(3,I))
  +**    WRITE(6,9031) NS
  +      SELECT CASE(100*(Q(1,I)/100))
  +      CASE(NUMB)
  +        READ(STR(Q(2,I):Q(3,I)),*)FVAL(1)
  +        NS = NS + 1
  +        S(1,NS) = Q(1,I)
  +        S(2,NS) = IVAL(1)
  +        S(3,NS) = IVAL(2)
  +      CASE(OPER)
  +        IVAL(3) = S(2,NS)
  +        IVAL(4) = S(3,NS)
  +        NS = NS -1
  +        IVAL(1) = S(2,NS)
  +        IVAL(2) = S(3,NS)
  +        SELECT CASE (Q(1,I))
  +        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,9001) STR(Q(2,I):Q(3,I))
  +          GOTO 9999
  +        END SELECT
  +        S(2,NS) = IVAL(1)
  +        S(3,NS) = IVAL(2)
  +      CASE DEFAULT
  +        WRITE(0,9001) STR(Q(2,I):Q(3,I))
  +        GOTO 9999
  +      END SElECT
  + 3001 CONTINUE
  +**    WRITE(6,9031) NS
  +      IF (NS.EQ.1) THEN
  +        IVAL(1) = S(2,NS)
  +        IVAL(2) = S(3,NS)
  +        WRITE(6,9101) FVAL(1)
  +      ELSE
  +        WRITE(0,'(A)')'ERROR EVALUATING STACK'
  +        GOTO 9999
  +      END IF
   *
    8999 RETURN
    9001 FORMAT('0*** ERROR TOKEN: -->',A,'<--')
    9021 FORMAT(3(2X,I4),2X,A)
  + 9031 FORMAT('0***   STACKSIZE: ',I4)
    9101 FORMAT('0***      RESULT: ',E12.6)
    9999 STOP 'ERROR IN PARSE'
         END SUBROUTINE PARSE
  
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
  