anchor.diff:        ENDIF
         LERR = 1
         RETURN
  -!
  +
    2000 CONTINUE
   !frs
   !frs      IF(LCHECK.EQ.1) THEN
  
positive.code:       IEQU = 1
        I = I + 1
        GOTO 100
  !
  !     SWITCH TO EQUAL, OPEN PARENTHESIS, SIGN, CONSTANT, FUNCTION OR VARIABLE
  !     ***********************************************************************
  !
   100  CONTINUE
        IF(A(I:I).EQ.'=') GOTO 50
        IF(A(I:I).EQ.'(') GOTO 110
  
negative.code:          ICCA = ICHAR('A')
           IDIF = ICCA - ICSA
        ENDIF
  
        DO 100 I=IA1,IA2
        ICI = ICHAR(A(I:I))
        IF(ICI.GE.ICSA.AND.ICI.LE.ICSZ) THEN
  