anchor.diff:  *
         INTEGER NANA(LANA,5)
         CHARACTER B*(*),A*10000
  -      CHARACTER OPS*6,CANA*10,CTYP*7!,CCNA*1
  +      CHARACTER OPS*6,CANA*10!,CTYP*7!,CCNA*1
         CHARACTER BLANK*8,NUM*10,LET*26,SEARCH*8,AER*50
         DOUBLE PRECISION CDEC(0:LDEC)
         SAVE IFI, CDEC
   *
         DATA OPS  / '+-*/^#' /
         DATA CANA / '=OFAVSC#,;' /
  -      DATA CTYP / 'RICDGPB' /
  +!      DATA CTYP / 'RICDGPB' /
   *
         DATA NUM  / '1234567890' /
         DATA LET  / 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' /
  
positive.code:       do i=1,80
          blanks(i:i)=' '     
        enddo
        blank6='      '
        blank8='        '
  *
        do i=1,lnam
  
negative.code:       CHARACTER(len=100) :: fname_in
        CHARACTER(len=100) :: fname_out
  *
  !      IARI = 0
  *
        WRITE(6,*)' '
        WRITE(6,*)' '
  