choose_color

	status.i4.v = choose_color(top_row.i4.r, left_column.i4.r, color.i4.r
				   [,input_bkgd.i4.r])

	status.i4.v = choose_color_c(top_row.i4.v, left_column.i4.v, color.i4.r
				     [,input_bkgd.i4.v])
	
	This routine displays a pop-up menu of colors with the initial
	color highlighted.  The color selected by the user is returned
	in "color".

	top_row		top row of window (use WMNGR_CENTER for centering
			or WINDOW_xxx_COORD macros in macro for special
			positioning)
	left_column	left column of window (use WMNGR_CENTER for centering
			or WINDOW_xxx_COORD macros in macro for special
			positioning)
	color		color (if color = -1, no initial menu item selected)
	[input_bkgd]	input background color flag
			(TRUE -> input background color,
			 FALSE -> use BLACK as background color)

	This function returns status values as follows:

	OK			user made a valid menu selection
	CLIB_ABORT		user interrupted outside of menu

	This function requires the following include files:

	cnsparam_h, cbslib_h, macro_h

	Related functions:

	scroll_menu(_c), popup_menu(_c), window_tvm(_c)