anchor.diff:        INTEGER,PARAMETER :: DELM=600, COMA=601
         INTEGER,PARAMETER :: FUNC=700
         INTEGER,PARAMETER ::  ERR=0,    NEW=101, PUSH=102, FLSH=103
  -      INTEGER           ::  TABLE(NCLS,NRWS),NTOK,TOKLST(3,MTOK)
  +      INTEGER           ::  TABLE(NCLS,NRWS),NTOK
  +      TYPE(TYP_TOKEN) TOKLST(MTOK)
         DATA  TABLE /   &
   !                 STATE  START    END ACTION NXTSTATE                 
                     UNKN,    32,    32,   NEW,   WHIT,             &     !   SPC  
  
positive.code: ! TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
  ! SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  !------------------------------------------------------------------------------+
        MODULE MOD_VARIABLES
        INTEGER               :: VCNT
        INTEGER,PARAMETER     :: MAXVCNT=128, MAXNSZ=8, MAXVSZ=128
  
negative.code:         CASE (SUB)
            FVAL(1) = FVAL(1)  - FVAL(2)
          CASE DEFAULT
            WRITE(0,9001) STR(Q(I)%STRT:Q(I)%ENDT)
            GOTO 8999
          END SELECT
          S(NS)%STRT  = IVAL(1)
          S(NS)%ENDT  = IVAL(2)
  !
        CASE DEFAULT
          WRITE(0,9001) STR(Q(I)%STRT:Q(I)%ENDT)
          GOTO 8999
        END SElECT
   3001 CONTINUE
  !     WRITE(6,9031) NS
        IF (NS.EQ.1) THEN
          IVAL(1) = S(NS)%STRT
          IVAL(2) = S(NS)%ENDT
          CALL FMTDP(FVAL(1),SVAL,8)
          WRITE(6,9101) SVAL
        ELSE
  