anchor.diff:        ENDIF
         CC(ICC) = CVAL
         CTEX(ITEX)(1:I-IOLD) = A(IOLD:I-1)
  -      DO 123 J=I-IOLD+1,80
  - 123  CTEX(ITEX)(J:J) = ' '
  +      DO J=I-IOLD+1,80
  +        CTEX(ITEX)(J:J) = ' '
  +      END DO
         IANA = IANA + 1
         NANA(IANA,1) = INDEX(CANA,'C')
         IF(IN.EQ.1) NANA(IANA,2) = ICC
  
positive.code:          ENDIF
           ND = 0
        ELSE
           WRITE(6,'(1X,A)') '!!! ERROR, IA = 0 IN VNAM'
           WRITE(2,'(1X,A)') '!!! ERROR, IA = 0 IN VNAM'
        ENDIF
        if (ND .eq. -4242) then
           write(6,*) "!!! ERROR, ND was not initialized in VNAM"
           stop 15
        end if
        
  
negative.code:       PARAMETER(MNAME=1000)
        COMMON / DADAL / NAMEDAL(MNAME),icount
  !----------------------------------------------------------------------------! 8
  
        CHARACTER CMOD*6,PREC*6,REST*8,A*(*),ALIN*10000
  
        SAVE ALIN,IAMAX
        DATA IAMAX / 0 /
  
        IEND = 0
        IA   = 0
  
        DO I=1,NA
          A(I:I) = ' '
        END DO
  
    20  CONTINUE
        IF(IAMAX.NE.0) THEN
           IF(INDEX(ALIN(1:IAMAX),';').NE.0) GOTO 40
        ENDIF
  
        IF(IAMAX+80.GT.10000) THEN
           WRITE(ERROR_UNIT,'(1X,A)') '### ERROR, COMMAND TOO LONG'
           WRITE(2,'(1X,A)') '### ERROR, COMMAND TOO LONG'
           STOP 7
        ELSEIF(CMOD.EQ.'PRECOM') THEN
  