anchor.diff:  !         because the parenthesis states are 500 while operator states
   !         are 400.
             IF (S%TOKENS(S%COUNT)%STATE.LE.INFIX%TOKENS(I)%STATE) THEN
  -            CALL POP_TOKEN(T,S)                    ! POP OP FROM STACK
  -            CALL PUSH_TOKEN(T,Q)                   !     ONTO QUEUE
  +            CALL POP_TOKEN(T,S)                   ! POP OP FROM STACK
  +            CALL PUSH_TOKEN(T,Q)                  !     ONTO QUEUE
               CALL PUSH_TOKEN(INFIX%TOKENS(I),S)    ! PUSH NEXT OP TO STACK
             ELSE
               CALL PUSH_TOKEN(INFIX%TOKENS(I),S)    ! PUSH OP TO STACK
  
positive.code:       TOKLST%COUNT = TOKLST%COUNT - 1
        END SUBROUTINE POP_TOKEN
  !------------------------------------------------------------------------------+
        SUBROUTINE SCAN(INP)
        IMPLICIT NONE
        CHARACTER INP*(*),C
        CHARACTER(LEN=80) :: BUFF
        INTEGER I,J,LNGTH,ACTN,NXTST,IND
        TYPE(TYP_TOKEN) CUR
        WRITE(6,9001) TRIM(INP)
        WRITE(6,9011)
  !
  
negative.code:  3001 CONTINUE
  !     WRITE(6,9031) S%COUNT
        IF (S%COUNT.EQ.1) THEN
          CALL TOKEN_GETVALUE(S%TOKENS(1),VAL)
        ELSE
          WRITE(0,'(A)')'ERROR EVALUATING STACK'
          GOTO 8999
  