*****************************************************************************t
*
*
*	New System Admin tools - this routine creates a Menubar structure
*	 	in a new, easier fashion
*
*	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. 
*	11/10/90 7673  DTM Initial programmin
*******************************************************************************
*   This routine will build the basic menu bar, and when used in conjunction
*   with DEF.SUB.B, can build the complete menu bar structure.
*   MB - Structure that holds all the Menu Bar information, used in DEF.MNU.B
*        DEF.SUB.B, DO.MNU.BAR.B, and MENU.BAR.PR.B
*   print.line - line to display menu bar, usually 1
*   sub.count  - number of main menu bar selections
*   label.array - array of main menu bar labels
*   help.array  - array of main menu bar help labels
*******************************************************************************

SUBROUTINE DEF.MNU.B(MB,print.line,sub.count,label.array,help.array)

MB<1,1>=sub.count
MB<1,2>=print.line
FOR i=1 TO MB<1,1>
    MB<i+1,1,1>=label.array<i>
    MB<i+1,1,2>=0
    MB<i+1,1,3>=help.array<i>
NEXT i