<pre>on verifierPolices  toComputer  put liste("polices obligatoires") into policesObligatoires  if policesObligatoires is empty then cantFindList "polices obligatoires"  set itemDelimiter to tab  repeat with x = 1 to the number of lines of policesObligatoires    put item 1 of line x of policesObligatoires into nomPolice    put item 2 of line x of policesObligatoires into dimPolice    if not fontExists(nomPolice,dimPolice)    then put line x of policesObligatoires & return after policesAbsentes  end repeat  if policesAbsentes is empty or policesAbsentes is "policesAbsentes"  then exit verifierPolices  beep 1  answer "Installer les polices suivantes:" & return & policesAbsentesend verifierPolices</pre>