59 lines
1.7 KiB
Plaintext
59 lines
1.7 KiB
Plaintext
|
*******************************************************************************
|
||
|
|
*
|
||
|
|
* 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
|