*******************************************************************************
*
*	New System Admin - This routine prints the top line of a menu bar.
*
*	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/20/96 18330 LDG Changed LEN() function to LENDP() for NLS DBCS.
*   05/13/91 8345  DTM changed print to tprints
*	11/05/90 7393  DPB Routine first created and admin'd.
*******************************************************************************

SUBROUTINE MNU.BAR.PR.B(Menu.Bar, OffOn)

NumItems = Menu.Bar<1,1>
LineNo = Menu.Bar<1,2>
Offset = int(80/(NumItems+1))

FOR I = 1 TO NumItems
    TPRINT @((I*Offset)-int(LENDP(Menu.Bar<I+1,1,1>)/2),LineNo):
    IF OffOn = 1 THEN
        TPRINT Menu.Bar<I+1,1,1>:
        END
    ELSE
        TPRINT STR(" ",LENDP(Menu.Bar<I+1,1,1>)):
        END
NEXT I

RETURN
END