<pre>on replace old,new  -- find and replace with prompting.  repeat    send "find string" & quote & old & quote to HyperCard    if the result is not empty then exit replace    answer "Remplacer celui-ci ?" with "Non" or "Oui"    if it is "Non" then next repeat    do "put new into" && the foundChunk  end repeatend replace</pre>