anchor.diff:     30       CONTINUE
      35       CONTINUE
            ENDIF
  -!
  +
   !        CHECKING IF LINE IS END STATEMENT
   !        *********************************
  -!
  +
            CALL POSFRA(ALIN,IAMAX+1,IAMAX+67,' ',MA,200,IA)
            IF(IA.EQ.1) THEN
               IF(ALIN(MA(1):MA(1)+3).EQ.'END ') INAM = 0
            ENDIF
  -!
  +
   !        WRITING LINE TO OUTPUT
   !        **********************
  -!
  +
            ILL = ILAST(ALIN(IAMAX+1:IAMAX+67),2,67)
            IF(REST.NE.'        ') THEN
               WRITE(2,'(A6,A66,A)') PREC,ALIN(IAMAX+2:IAMAX+67), REST(1:ILAST(REST,1,8))
  
positive.code:          GOTO 1000
        ENDIF
        GOTO 100
  !
  !     CONSTANT
  !     ********
  !
   120  CONTINUE
        CVAL = ZERO
        IFRA = 0
  
negative.code:          ITEX = 0
        ELSEIF(CID.EQ.'ED') THEN
           WRITE(2,'(A)')      '*FOX{'
  
           DO 30 I=1,INAM
           IF(NPAR(I,1).NE.1) GOTO 30
           IF(NPAR(I,2).NE.4) GOTO 30
  