tell application "Scriptable Text Editor" activate copy "ald" to knkn copy knkn & return to contents of window 1 copy (word 1 of window 1) end tell tell application "FileMaker Pro" activate Open the file "FullDict.FMP" —copy (Get Data (Field "update")) to SelFile —Get Data (Cell "symbol" of Record 1) Do Menu (Menu Item "Find" of Menu "Select") —Show searchVAR Paste Do Script "findSymbol" —copy (Get Data (Record 1)) to fset —copy (get every Record & return) to theList —copy (Get Data {Record nn, Cell 1}) to aRec copy 1 to N copy "" to theList copy (get number of records in Layout "Simple List") to numRec try repeat until Record N = "" copy (theList & (Get Data {Cell 1 of Record N})) to theList copy (theList & " " & (Get Data {Cell 2 of Record N})) to theList copy (theList & " " & (Get Data {Cell 3 of Record N})) to theList copy (theList & " " & (Get Data {Cell 4 of Record N})) to theList copy (theList & " " & (Get Data {Cell 5 of Record N}) & return) to theList copy N + 1 to N end repeat on error copy (theList & return) to theList end try end tell tell application "Scriptable Text Editor" activate copy theList as string to contents of window 1 end tell on gitRec(nn) copy "" to aRec copy (get data {record nn, cell}) to aRec —copy(aRec & " "&(get "Chr" of record nn)) to aRec —copy(aRec & " "&(get cell 3 of record nn)) to aRec —copy(aRec & " "&(get cell 4 of record nn)) to aRec —copy(aRec & " "&(get cell 5 of record nn)) to aRec return (aRec) end gitRec —Set Data (Cell "Symbol" of Record 1) To "kiko" —Set Data (Field "Symbol" of Database "FullDict.FMP") To searchVAR —Get Data (first Record whose Cell "Symbol" = "Aal") — get first Record whose Field "Symbol" starts with "Aal" —get Cell "Symbol" of Record 2 —Get Data (Cell "Locus_name" of Record whose Cell "Symbol" contains "Aal") —insert searchVAR as string —copy 1 to currRec —repeat until Cell "Symbol" of Record currRec = "" — if Cell "Symbol" starts with "aal" or Cell "Symbol" starts with "Aal" then — Get Data (Record currRec) — copy currRec + 1 to currRec — else — copy currRec + 1 to currRec — end if —end repeat —Set Data of Field "Symbol" To Field "update" —Do Menu Menu Item 1 of Menu "Window" —copy "flargo" to Cell "Symbol" —set Access of field "Symbol" to Write —put "flargo" in record "Symbol"