anchor.diff:        SAVE BLANK
   *
         DATA ICALL / 0 /
  -      DATA ABC / 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' /
  +!      DATA ABC / 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' /
         IF(ICALL.EQ.0) THEN
            ICALL = 1
            DO 1 I=1,800
  
positive.code: *
        INTEGER NANA(LANA,5)
        CHARACTER B*(*),A*10000
        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 NUM  / '1234567890' /
        DATA LET  / 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' /
  
negative.code:       CHARACTER(len=100) :: fname_in
        CHARACTER(len=100) :: fname_out
  *
  !      IARI = 0
  *
        WRITE(6,*)' '
        WRITE(6,*)' '
  