*------------------------------------------------------------------
*  DBTBOX.PRG - BOX demonstration
*                (c) 1989 BERNATH COMPUTER
*                6:44:34  9/20/1989
*------------------------------------------------------------------

CALL DBTOOLS WITH "15,3"                         && store existing screen
CALL DBTOOLS WITH "7,0,15,2,0"                   && dithered background
CALL DBTOOLS WITH "3,1,5,6,55,14,1,1,0,1"        && draw box
CALL DBTOOLS WITH "1,2,15,14,1,0,B O X - function 3"   && title in box
SET COLOR TO W/B                                 && display box text
@ 3,8 SAY "BOX allows you to draw framed and shadowed"
@ 4,8 SAY "boxes lightning fast, for attractive screens."
CALL DBTOOLS WITH "10,5,13,14,1"                 && pause
CALL DBTOOLS WITH "3,4,7,16,74,15,3,2,0,1"      && overlay another box
SET COLOR TO +W/GB                               && display box text
@ 5,11 SAY "Syntax:"
mPARM="CALL DBTOOLS WITH "+CHR(34)+"3,ULR,ULC,LRR,LRC,FG,BG,frame,page,shadow"+CHR(34)
@ 6,11 SAY mPARM
SET COLOR TO B/BG
@ 8,11 SAY "Size and location of the box is defined by specifying the"
@ 9,11 SAY "coordinates of the four corners."
@ 11,11 say "Frame and box colors are defined by FG and BG."
@ 13,11 say "Six frame styles, 0-5"
@ 15,11 say "Optional shadow by specifying shadow = 1"

CALL DBTOOLS WITH "10,24,25,0,7"
CALL DBTOOLS WITH "3,8,10,12,75,12,4,1,0,1"
CALL DBTOOLS WITH "3,4,50,19,70,15,5,2,0,0"
CALL DBTOOLS WITH "1,5,51,15,5,0,dBTools dBTools dBT"
CALL DBTOOLS WITH "1,6,51,15,5,0,dBTools dBTools dBT"
CALL DBTOOLS WITH "1,7,51,15,5,0,dBTools dBTools dBT"
CALL DBTOOLS WITH "1,8,51,15,5,0,dBTools dBTools dBT"
CALL DBTOOLS WITH "1,9,51,15,5,0,dBTools dBTools dBT"
CALL DBTOOLS WITH "1,10,51,15,5,0,dBTools dBTools dBT"
CALL DBTOOLS WITH "1,11,51,15,5,0,dBTools dBTools dBT"
CALL DBTOOLS WITH "1,12,51,15,5,0,dBTools dBTools dBT"
CALL DBTOOLS WITH "1,13,51,15,5,0,dBTools dBTools dBT"
CALL DBTOOLS WITH "1,14,51,15,5,0,dBTools dBTools dBT"
CALL DBTOOLS WITH "1,15,51,15,5,0,dBTools dBTools dBT"
CALL DBTOOLS WITH "1,16,51,15,5,0,dBTools dBTools dBT"
CALL DBTOOLS WITH "1,17,51,15,5,0,dBTools dBTools dBT"
CALL DBTOOLS WITH "1,18,51,15,5,0,dBTools dBTools dBT"
CALL DBTOOLS WITH "3,19,20,22,45,10,1,0,0,1"
CALL DBTOOLS WITH "3,6,30,14,60,14,6,3,0,1"
CALL DBTOOLS WITH "3,5,18,8,55,15,7,4,0,1"
CALL DBTOOLS WITH "3,16,4,20,30,14,0,5,0,1"
CALL DBTOOLS WITH "1,18,6,14,0,0,fat fat fat fat fat fat"
CALL DBTOOLS WITH "3,18,40,20,48,12,4,5,0,1"
CALL DBTOOLS WITH "1,19,43,12,4,0,all"
CALL DBTOOLS WITH "3,18,50,20,58,9,1,5,0,1"
CALL DBTOOLS WITH "1,19,53,9,1,0,in"
CALL DBTOOLS WITH "3,18,60,20,68,11,3,5,0,1"
CALL DBTOOLS WITH "1,19,64,11,3,0,a"
CALL DBTOOLS WITH "3,18,70,20,78,8,0,5,0,0"
CALL DBTOOLS WITH "1,19,73,8,0,0,row!"
CALL DBTOOLS WITH "1,6,22,0,7,0,All kinds of shapes and sizes!!"
CALL DBTOOLS WITH "10,7,25,0,7"

CALL DBTOOLS WITH "7,0,0,3,0"
CALL DBTOOLS WITH "4,0,0"
CALL DBTOOLS WITH "1,S,1,30,15,4,0,FRAME Demonstration"
CALL DBTOOLS WITH "3,5,10,9,45,15,1,0,0,1"
CALL DBTOOLS WITH "1,6,15,15,1,0,No frame"
CALL DBTOOLS WITH "6,30"
CALL DBTOOLS WITH "3,7,15,11,50,12,4,1,0,1"
CALL DBTOOLS WITH "1,8,20,12,4,0,Single line frame"
CALL DBTOOLS WITH "6,30"
CALL DBTOOLS WITH "3,9,20,13,55,10,2,2,0,1"
CALL DBTOOLS WITH "1,10,25,10,2,0,Double line frame"
CALL DBTOOLS WITH "6,30"
CALL DBTOOLS WITH "3,11,25,15,60,1,7,3,0,1"
CALL DBTOOLS WITH "1,12,30,1,7,0,Single line on vertical"
CALL DBTOOLS WITH "1,13,30,1,7,0,Double line on horizontal"
CALL DBTOOLS WITH "6,30"
CALL DBTOOLS WITH "3,13,30,17,65,15,0,4,0,1"
CALL DBTOOLS WITH "1,14,35,15,0,0,Double line on vertical"
CALL DBTOOLS WITH "1,15,35,15,0,0,Single line on horizontal"
CALL DBTOOLS WITH "6,30"
CALL DBTOOLS WITH "3,15,35,19,70,14,6,5,0,1"
CALL DBTOOLS WITH "1,17,40,14,6,0,Thick line frame"
CALL DBTOOLS WITH "4,1,0"
CALL DBTOOLS WITH "10,24,25,0,3"
CALL DBTOOLS WITH "14,3,0"
RETURN