#include	<stdlib.h>
#include	<stdio.h>
#include	<lib$routines.h>
#include	<rmsdef.h>
#include	<hlpdef.h>
#include	<string.h>


#include	<descrip.h>


#define INIT_SDESC(dsc, len, ptr) {(dsc).dsc$b_dtype = DSC$K_DTYPE_T;\
	(dsc).dsc$b_class = DSC$K_CLASS_S; (dsc).dsc$w_length = (len);\
	(dsc).dsc$a_pointer = (ptr);}

void	main	(void)
{
long	status;
char	hlp_lib [ ] = "dkb300:[users.laishev.work.nntp]test_hlp.hlb";
char	hlp_kwd [ ] = "MMK";
struct	dsc$descriptor	hlp_lib_dsc,
			hlp_kwd_dsc;

long	hlp_flg = HLP$M_PROMPT | HLP$M_HELP;

	INIT_SDESC (hlp_lib_dsc,sizeof(hlp_lib)-1,&hlp_lib[0]);
	INIT_SDESC (hlp_kwd_dsc,sizeof(hlp_kwd)-1,&hlp_kwd[0]);
	
	do	
		{
		status = lbr$output_help (
					lib$put_output,
					0,
					&hlp_kwd_dsc,
					&hlp_lib_dsc,
					&hlp_flg,
					lib$get_input);
		lib$signal(status);

		} while (status != RMS$_EOF);
}