anchor.diff:        ELSE
            NARI(IARI,4+IR) = NANA(JR,2)
         ENDIF
  -!
  +
         NANA(IA,5) = NANA(JR,5)
         NANA(NANA(JR,5),4) = IA
  -!
  +
         NANA(JR,1) = INDEX(CANA,'#')
         NANA(JR,2) = 0
         NANA(JR,3) = 0
         NANA(JR,4) = 0
         NANA(JR,5) = 0
  -!
  +
         JR = NANA(IA,5)
  -!
  +
    340  CONTINUE
  -!
  +
   !     REPLACING OPERATION JUST PROCESSED BY SCRATCH ADDRESS
   !     *****************************************************
  -!
  +
         NANA(IA,1) = INDEX(CANA,'S')
         NANA(IA,2) = -ISCR
         NANA(IA,3) = 0
  -!
  +
         GOTO 310
  -!
  +
    350  CONTINUE
  -!
  +
   !frs
   !frs      IF(LCHECK.EQ.1) THEN
   !frs         WRITE(OUTPUT_UNIT,'(79A)') ('-',J=1,79)
  
positive.code:       ELSE
           NARI(IARI,4) = NANA(JL,2)
        ENDIF
  !
        NANA(IA,4) = NANA(JL,4)
        NANA(NANA(JL,4),5) = IA
  !
        NANA(JL,1) = INDEX(CANA,'#')
        NANA(JL,2) = 0
        NANA(JL,3) = 0
        NANA(JL,4) = 0
        NANA(JL,5) = 0
  !
        JL = NANA(IA,4)
  !
   330  CONTINUE
  !
  !     FINDING RIGHT OPERANDS
  !     **********************
  !
        IF(CANA(ITYP:ITYP).EQ.'O') THEN
           NR = 1
        ELSEIF(CANA(ITYP:ITYP).EQ.'A') THEN
  
negative.code:       PARAMETER(MNAME=1000)
        COMMON / DADAL / NAMEDAL(MNAME),icount
  !----------------------------------------------------------------------------! 5
  
        CHARACTER(LEN=10000) A
        CHARACTER(LEN=2) CID
        CHARACTER(LEN=8) BLANK,DNAM
  