<pre>function theISBN pPrompt,pDefault,pValidate,pLanguage  repeat    ask pPrompt with pDefault    put it into vISBN    if pValidate is true then      put testNo(vISBN) into vPassed      if vPassed is false then        if pLanguage is "Franais"        then answer "Ce numero ISBN n'est pas valide!" with "Abandonner" or "Recommencer" or "Tel quel"        else answer "This ISBN number is not valid!" with "Abandon" or "Try again" or "As is"        if it is in "Abandonner" then exit to hypercard        else if it is in "As is Tel quel" then exit repeat      end if    end if  end repeat  return vISBNend theISBN</pre>