*******************************************************************************
*
*	HELP.BOX.B - This widget allows the user to create a help message box
*                on the screen with on button.
*
*
*	Module	%M%	Version	%I% 	Date	%H%
*
*	(c) Copyright 1998 Ardent Software Inc. - All Rights Reserved
*	This is unpublished proprietary source code of Ardent Software Inc.
*	The copyright notice above does not evidence any actual or intended
*	publication of such source code.
*
*******************************************************************************
*
*	Maintenence log - insert most recent change descriptions at top
*
*	Date.... GTAR# WHO Description.........................................
*	10/14/98 23801 SAP Change copyrights. 
*	05/15/96 18330 LDG Changed LEN() function to LENDP() for NLS DBCS.
*	05/05/91 7673  DTM Correctly put in 6.2.1.4
*	03/14/91 7673  DTM Routine first created and admin'd.
*******************************************************************************

SUBROUTINE HELP.BOX.B(start.line, max.lines,width,textstr)

Button.array=""
Button.array<1>=1
Button.array<2>="Close"
selval=0
IF start.line=0 THEN start.line=5
IF width=0 THEN width=50
IF max.lines=0 THEN 
	count=LENDP(textstr)/width
	IF count > 8 THEN count = 8
	max.lines=count+3
END
CALL *CHOICE.BOX.B(start.line,max.lines,width,textstr, Button.array,selval,"")
RETURN

END