<pre>on openFile  toComputer  answer file "File to open ..." of type TEXT  if it is not empty and the result is not "cancel" then    put it into filePath    go to stack pile("Fichiers") in a new window    put readFile(filePath) into fld "Text"    put getFilename(filePath) into fld "Header"  end ifend openFile</pre>