Subroutine MTF.ERASE.B(orientation, menu.x.orig, menu.y.orig, menu.width,
			menu.choices)

******************************************************************************
*
*	Erase MOTIF like menu
*
*	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/13/91 8345  DTM Changed print to tprint
*	06/28/90 7236  JWT New MOTIF like new capability
*
*******************************************************************************

*	This subroutine erases a MOTIF menu object on the terminal screen.
*	Arguments to the function are:
*		orientation - is the menu horizontal (menubar) or vertical
*
*		menu.x.orig - the x (horizontal) anchor point for the menu
*
*		menu.y.orig - the y (vertical) anchor point for the menu
*
*		menu.width - for vertical menus, the width of the menu;
*			for horizontal menus, a dynamic array of horizontal
*			start and end points.
*
*		menu.choices - number of menu elements
*
*	Routine generates a string called blanks which is a string of enough
*		space characters to blank out a line of the menu.  Then each
*		menu line is overprinted with the blanks string.

id = "%W%"

$include UNIVERSE.INCLUDE MTF.INCL.H

if orientation = HORIZONTAL
then
	blanks = str(' ',menu.width<menu.choices,2>-menu.width<1,1>+1)
	tprint @(menu.x.orig,menu.y.orig):blanks:
end
else
	blanks = str(' ',menu.width)

	*	loop goes from zero to number of lines + 1 so that we also
	*	erase the top and bottom border of the menu box
	for i = 0 to menu.choices+1
		tprint @(menu.x.orig,menu.y.orig+i):blanks:
	next i
end

return

end