anchor.diff:        DATA AER  / '                                                  ' /
         DATA IFI  / 0 /
   *
  +      INTEGER IPRIO
   * Eric
         IB = 0
  -* Eric
  +*
  +      IPRIO = -4242
  +*
         IFUVA = 0
         IF(IFI.EQ.0) THEN
            IFI = 1
  
positive.code:          DO 1 I=1,800
    1      BLANK(I:I) = ' '
        ENDIF
  *
        ISOFF = 0
        ISOUT = 1
  
negative.code:  213  CONTINUE
        GOTO 219
   214  CONTINUE
        if (IPRIO.eq.-4242) then
           write (6,*) "ERROR in routine SYNTAX"
           write (6,*) "IPRIO not set."
           stop 17
        endif
        IANA = IANA + 1
        NANA(IANA,1) = INDEX(CANA,'O')
        NANA(IANA,2) = II
  