anchor.diff:  *     ARRAYS
   *     ******
   *
  +      if (ITS.eq.-4242) then
  +         write(6,*) "ERROR in ARIFOR - ITS not set"
  +         stop 16
  +      endif
  +      
         ELSEIF(ITY.EQ.4) THEN
            IF((ITS.EQ.1).OR.(ITS.EQ.2)) THEN
               A = AS(1:LS)//' = '//AR(1:LR)
  
positive.code:       CHARACTER A*800,AL*808,AR*800,AS*800,AC*800,BLANK*800,ABC*26
        INTEGER ISCRTY(LSCR),INDEX(7)
  *
        SAVE ICALL
        SAVE BLANK
  *
  
negative.code:       DATA AER  / '                                                  ' /
        DATA IFI  / 0 /
  *
        INTEGER IPRIO
  * Eric
        IB = 0
  *
        IPRIO = -4242
  *
        IFUVA = 0
        IF(IFI.EQ.0) THEN
           IFI = 1
  