c	test_help.f
c	test program to see how to use help-paul-unx.c from ask library
c	without using the rest of ASK.
	implicit none
	character*80 HLP_PATH, HLP_FIL, KEY_WD
	


c	In *.hlp file, spurion is currently only 1 level available.
c	So use key word to skip to it.
c	If have libraries (like ASK, DOPLOT, MINUIT, etc.)
c	then they should all be level 1 and key_wd = ''

c  With empty path, use logical MSRHELP to determine where the help file is.
c	On VMS, "assign <helpdir> MSRHELP:"
c	On Unix,"setenv MSRHELP <helpdir>"
c	On Unix, "export MSRHELP='<helpdir>'"
 
	HLP_PATH = ''		!! 
	HLP_FIL = 'spurion'
cLater	KEY_WD = ''		!! If more than 1 top level
	KEY_WD = 'spurion'		!! Only 1 Top Level for now
	CALL HELP(HLP_PATH, HLP_FIL, KEY_WD)

c...	 Works when spurion is 1 level
c	HLP_PATH = './'		!! *.hlp file must be in currentl directory.
c	HLP_FIL = 'spurion'
c	KEY_WD = 'spurion'
c	CALL HELP(HLP_PATH, HLP_FIL, KEY_WD)

	end
