eg. lookup eat ]]> -- find the word they want local word = "%<word>" if #word == 0 then word = utils.inputbox ("Word to lookup in Thesaurus?", "Thesaurus") end -- word not supplied -- nil if dialog cancelled if not word then return end -- cancelled dialog -- see if in index local pos = thes [word:lower ()] -- don't know that word? if not pos then utils.msgbox ("The word '" .. word .. "' is not in the Thesaurus", "Not Found") return end -- not found -- seek to it in the main file thes_file:seek ("set", pos) -- read that line local line = thes_file:read () -- convert into table local t = utils.split (line, ",") -- display in list box local choice = utils.listbox ( "Matching words for '" .. word .. "'\\n\\nClick OK to copy to the clipboard", -- message "Thesaurus: " .. word, -- title t) -- table of words if choice then SetClipboard (t [choice]) end -- if one chosen