*******************************************************************************
*
*	New System Admin - This routine creates a box with a line of text, and
*		then prints two buttons. Yes and No.
*
*	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.
*	03/22/91 7673  DPB Fixed problem with button selection
*	03/14/91 7673  DTM Changed to call CHOICE.BOX.B
*	11/05/90 7393  DPB Routine first created and admin'd.
*******************************************************************************

SUBROUTINE YES.NO.BOX.B(start.line, text, flag)
$INCLUDE UNIVERSE.INCLUDE MTF.INCL.H
length = LENDP(text)+4
IF length < 10 THEN length = 10 ELSE IF length > 76 THEN length = 76
mess=UVREADMSG(073199,"")
B.array=""
B.array<1>=2
B.array<2>=mess<1>
B.array<3>=mess<2>
if flag = 0 THEN flag =2
CALL *CHOICE.BOX.B(start.line,3,length,text,B.array,flag,"")
IF flag=1 THEN flag = 0
ELSE IF flag=0 THEN flag = 1
RETURN
END