anchor.diff:  *----------------------------------------------------------------------------! 5
         integer i,j
         character blanks*80
  -      character blank6*6
  +!      character blank6*6
         character blank8*8
   *
   *     OPER     : CONTAINS LOPER NAMES OF SUPPORTED BINARY OPERTORS
  
positive.code:       CHARACTER(len=100) :: fname_in
        CHARACTER(len=100) :: fname_out
  *
        IARI = 0
  *
        WRITE(6,*)' '
        WRITE(6,*)' '
  
negative.code: *----------------------------------------------------------------------------! 5
  *
        PARAMETER (LSCR=99)
        CHARACTER A*800,AL*808,AR*800,AS*800,AC*800,BLANK*800!,ABC*26
        INTEGER ISCRTY(LSCR),INDEX(7)
  *
        INTEGER ITS
  