/* $VER: FunctionHelp.raz 1.3 (12.10.95)
 * Inspiré de FunctionHelp.ttx de Kenneth Yarnall distribué avec SAS C
 * Modifié par DBernard puis JM Forgeas
 */

OPTIONS RESULTS
'GetWord'; text = STRIP(RESULT)

IF (LENGTH(text) > 0) THEN guideopt = 'DOC' text || '()'
ELSE guideopt = ''

IF (EXISTS("SYS:Utilities/Amigaguide")) THEN
    "ExeDOSCmd SCREEN ASYNC CMD SYS:Utilities/Amigaguide sc:help/sc_lib.guide" guideopt
ELSE IF (EXISTS("SYS:Utilities/MultiView")) THEN
    "ExeDOSCmd SCREEN ASYNC CMD SYS:Utilities/MultiView sc:help/sc_lib.guide"
ELSE DO
    'File2NewWin READONLY sc:help/sc_lib.guide'
    IF (LENGTH(text) > 0) THEN DO
        ADDRESS VALUE RESULT
        "Search RESET CASE ACCENT TEXT '@Node" text"()'"
    END
END