*******************************************************************************
*
*	New System Admin - This routine draws a box on the screen. (This inter-
*		face should be generalized to allow for the same parameters
*		to different procedures to create the same box.)
*
*	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
*   03/13/91 7673  DTM Changed for performance
*	11/05/90 7393  DPB Routine first created and admin'd.
*******************************************************************************

SUBROUTINE DRAW.BOX.B(top, left, lines, width,clear)

$INCLUDE UNIVERSE.INCLUDE MTF.INCL.H


IF clear = 0 THEN GOTO clr:
TPRINT @(left,top):lu.corner:STR(h.line,width):ru.corner:
blank=STR(" ",width)
FOR I = 1 TO lines
    IF clear = 1 THEN
        TPRINT@(left,top+I):v.line:blank:v.line:
        END
    ELSE
        TPRINT@(left,top+I):v.line:@(left+width+1,top+I):v.line:
        END
NEXT I
TPRINT @(left,top+lines+1):ll.corner:STR(h.line,width):rl.corner:


RETURN

clr:

blank=STR(" ",width+2)
TPRINT @(left,top):blank:
FOR I = 1 TO lines
    TPRINT@(left,top+I):blank:
NEXT I
TPRINT @(left,top+lines+1):blank:


RETURN

END