<pre>function fichierOUimprimante fmt,sens  answer "Envoyer dans un fichier ou  l'imprimante?" with "Annuler" or "Fichier" or "Imprimante"  if it is "Annuler" then exit to hypercard  put it into sendTo  if sendTo is "Fichier" then    ask file "Sauver dans quel fichier?"    if the result is "Cancel" then exit to hypercard    put it into fileName  else    put empty into fileName    doSetup fmt,sens  end if  lockAll  return fileNameend fichierOUimprimante</pre>