anchor.diff:        do 100 i = 1,limit
            string2(i:i) = string1(i:i) 
    100  continue
  -      string2(i:i) = char(0)
  +      string2(limit+1:limit+1) = char(0)
   
         return
         end
  
positive.code:       limit = limit + 1
        goto 10
  	
   20   string2 = stringbuf(1:limit-1)
  
        return
        end
  
negative.code:          endif
   100  continue
  	   
  C      If string is blank or length 0, return length 0
        islen = 0
        return
        end
  