set PsxPath to paragraphs of (do shell script \"mdfind -onlyin / 'kMDItemContentType == \\"com.apple.applescript.script\\"c'\")
(*
-- Or for HFS paths, convert:
set HFSPath to {}
repeat with F in PsxPath
    set HFSPath's end to POSIX file F as Unicode text
end repeat
*)

tell application \"FastScripts\"
    set s to script items where has keyboard shortcut is true
    set SL to {}
    repeat with k from 1 to count s
        if k < 10 then
            set m to \"0\" & k
        else
            set m to k as rich text
        end if
        tell item k of s to set SL's end to (m ¬
            & \"   \" & name & ¬
            \".......\" & shortcut string of keyboard shortcut)
    end repeat
    set C to choose from list SL
    if C is not false then
        set SF to script file of item ¬
            ((rich text 1 thru 2 of (C as string)) ¬
                as string as number) of s
    else
        return
    end if
end tell
run script alias SF

on main()
    set theCommand to \"\"
    repeat while theCommand is \"\"
        display dialog \"View man page for this command:\" default answer theCommand
        set theCommand to text returned of result
    end repeat
    activate
----
end main