<pre>function lookFor what,inField,fromWhere,fromData,action,langue  if langue is empty then put "Franais" into langue  if inField is "Nouveau" then    ajouter what,inField,fromWhere,fromData,action,langue    put true into found  else    put false into found    put false into Ok    repeat until Ok      if what is empty then put "?" into what      if langue is "English" then get "Type the name/address you're looking for..."      else get "Inscrire le nom recherche..."      ask it with line 1 of what      if the result is "Cancel" or it is empty then        retourner fromWhere,fromData,action,langue        put true into Ok      else        put it into what      end if      if what is "?" then        if "noEdit" is in action then next repeat        else          ajouter what,inField,fromWhere,fromData,action,langue          put true into Ok          put true into found        end if      else        if inField is empty then find what        else find what in field inField        if the result is not empty then          put inField          if langue is "English" then answer "Not found!  Abandon search?" with "Yes" or "No"          else answer "Rien trouve!  Abandonner la recherche?" with "Oui" or "Non"          if it is in "Yes Oui" then            retourner fromWhere,fromData,action,langue            put true into Ok          else            if "noEdit" is in action then next repeat            if langue is "English" then answer "Search another or Add new entry ?" with "Search" or "Add"            else answer "Chercher encore ou Ajouter ?" with "Chercher" or "Ajouter"            if it is in "Search Chercher" then next repeat            else              ajouter what,inField,fromWhere,fromData,action,langue              put true into found              put true into Ok            end if          end if        else          put false into done          repeat until done            if langue is "English" then answer "Is that the one you're looking for ?" with "Edit" or "No" or "Yes"            else answer "Est-ce l'adresse que vous cherchez ?" with "Editer" or "Non" or "Oui"            if it is in "Yes Oui" then              put true into done              put true into found              put true into Ok            else if it is in "Editer" then              put fromWhere into field "fromWhere"              exit to hypercard            else if it is in "Non" then              if "noEdit" is in action then                if langue is "English" then answer "Search another ?" with "Abandon" or "Search"                else answer "Chercher encore ?" with "Abandoner" or "Chercher"              else                if langue is "English" then answer "Search another or Add a new entry ?" with "Abandon" or "Search" or "Add"                else answer "Chercher encore ou Ajouter ?" with "Abandonner" or "Chercher" or "Ajouter"              end if              if it is in "Abandonner" then                retourner fromWhere,fromData,action,langue                put true into done                put true into Ok              else if it is in "Search Chercher" then                if inField is empty then                  find what                else                  find what in field inField                end if              else if it is in "Add Ajouter" then                ajouter what,inField,fromWhere,fromData,action,langue                put true into done                put true into found                put true into Ok              end if            end if          end repeat        end if      end if    end repeat  end if  return foundend lookFor</pre>