<pre>function compare A,B  toComputer  put stripEmptyLines(varA) into A  put stripEmptyLines(varB) into B  put max(the number of lines in A,the number of lines in B) into limit  repeat with x = 1 to limit    if line x of A is not line x of B then return x  -- ie.different  end repeat  return 0 -- ie.sameend compare</pre>