theView = av.GetActiveDoc
found = false
p = theView.GetDisplay.ReturnUserPoint
for each t in theView.GetActiveThemes
  if ((t.HasAttributes) and (t.GetHotField <> nil)) then
    recs = t.FindByPoint(p)
    for each rec in recs
      theField = t.GetHotField
      found = true
      theVal = t.ReturnValueString(theField.GetName, rec)
      av.Run(t.GetHotScriptName,FileName.GetCWD.asstring+"\"+theVal)
      end
  end
end
if (not found) then
  System.Beep
end