for i=1 to min(len(str1), len(str2)) c1=left(str1, i) c2=left(str2, i) if not c1==c2 ? "First",i,"characters are identical" ? substr(c1, i+1) ? substr(c2, i+1) exit endif endfor