;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1/27/2002
;;;>		   EDITED: 04-03-2005
;;;
(DEFUN browser_help (hfnam )
    (IF (SETQ help_file (FINDFILE (strcat hfnam "_help.htm")))
      nil
      (PROGN
        (ALERT
          (STRCAT "Unable to find the help file!\n"
                  "Please browse to the folder\n"
                  "containing "
                  (STRCASE hfnam)
                  " and select the file."
          ) ;_ end of strcat
        ) ;_ end of alert
        (SETQ help_file (GETFILED (STRCAT "Open " (STRCASE hfnam) " help file")
                                  (STRCAT hfnam "_help.htm")
                                  "htm"
                                  4
                        ) ;_ end of getfiled
        ) ;_ end of setq
      ) ;_ end of progn
    ) ;_ end of if
  (COND
    ((AND
       (FINDFILE "c:/program files/internet explorer/iexplore.exe")
       help_file
     ) ;_ end of and
     (STARTAPP
       (STRCAT "c:/program files/internet explorer/iexplore.exe "
               help_file
       ) ;_ end of strcat
     ) ;_ end of startapp
    )
    ((AND
       (FINDFILE
         "c:/program files/netscape/communicator/program/netscape.exe"
       ) ;_ end of findfile
       help_file
     ) ;_ end of and
     (STARTAPP
       (STRCAT
         "c:/program files/netscape/communicator/program/netscape.exe "
         help_file
       ) ;_ end of strcat
     ) ;_ end of startapp
    )
    (help_file
     (ALERT
       (STRCAT "Unable to determine your browser!\n"
               "Please find its location and\n"
               "select your browser program file."
       ) ;_ end of strcat
     ) ;_ end of alert
     (SETQ the_brwsr (GETFILED "Select internet browser program"
                               "C:"
                               "exe"
                               4
                     ) ;_ end of getfiled
     ) ;_ end of setq
     (IF the_brwsr
       (STARTAPP (STRCAT the_brwsr " " help_file))
       (ALERT
         (STRCAT "Unable to display help file!\n"
                 "No browser found!"
         ) ;_ end of strcat
       ) ;_ end of alert
     ) ;_ end of if
    )
  ) ;_ end of cond
  (PRINC)
) ;_ end of defun