<pre>on printFile filePath  toComputer  if filePath is empty or filePath is "filePath" then    answer file "Nom du fichier  imprimer ?" of type TEXT    if it is empty or the result is "cancel" then exit printFile    put it into filePath  end if  print getFileName(filePath) & return & return & readFile(filePath)end printFile</pre>