<pre>function ressource resType,resNom  toComputer  -----------------------------------------------------------  put liste("resTypes") into lesTypesRes  if resType is not in lesTypesRes  then return "Erreur:Type de ressource inconnu."  -----------------------------------------------------------  put liste("resType") into lesNomsRes  if resNom is not in lesNomsRes  then return "Erreur:Nom de ressource inconnu."  -----------------------------------------------------------  repeat with x = 1 to the number of lines of lesNomsRes    if item 1 of line x of lesNomsRes is resNom    then return line x of lesNomsRes  -- resDescriptionItems  end repeat  -----------------------------------------------------------end ressource</pre>