<pre>on newNote  -- make a note fld.  toComputer  set editBkgnd to false  doMenu "New Field"  set style of last cd fld to scrolling  set textSize of last cd fld to 10  choose browse tool  unlock screen  select text of last cd fld  get readFile(disk() & ":Fichiers:Procedures:scriptNoteField")  set script of last cd fld to itend newNote</pre>