REM $STATIC
SUB BigBox (RowUL%, ColUL%, RowLR%, ColLR%, ColrFG%, ColrBG%)
    ' +---------------------------------------------------------------------+
    ' |                    - S U B   B i g B o x -                          |
    ' |                                                                     |
    ' |                   Public Domain -  FreeWare                         |
    ' +---------------------------------------------------------------------+
    ' |  Author: Donald B. "Don" Smith                                      |
    ' |  Email : smithdonb@earthlink.net                                    |
    ' |  Date: 01/01/2003                                                   | 
    ' +---------------------------------------------------------------------+
    ' |                      - ABOUT THE AUTHOR -                           |
    ' +---------------------------------------------------------------------+
    ' |                                                                     |
    ' | Hello. My name is Don Smith and I am a thirty-year retired teacher  |
    ' | of Math/History/Spanish residing in Orange County, California. I    |
    ' | am also a former six-year Sergeant of Marines. Who-Rah! On certain  |
    ' | forums I am known as MarineDon. My email is: smithdonb@earthlink.net|
    ' |                                                                     |
    ' +---------------------------------------------------------------------+
    ' |                 - COPYING AND DISTIBUTING -                         |
    ' +---------------------------------------------------------------------+
    ' | Since this code is public domain and freeware, anyone may freely    |
    ' | copy and distribute it. If you use the QuickBasic code in one of    |
    ' | your own programs, you do not have to cite my name as the author,   |
    ' | and you may even change its name.                                   |
    ' +--------------------------[SUB BigBox]-------------------------------+
    ' |      This SUB makes a box, but doesn't clear the box it makes.      |
    ' |      Public Domain FreeWare by Don Smith.  Date: 01/01/2003.        |
    ' |                EMail: smithdonb@earthlink.net                       |
    ' +---------+-----------------------------------------------------------+
    ' | RowUL%  |  Upper left row to begin box.                             |
    ' +---------+-----------------------------------------------------------+
    ' | ColUL%  |  Upper left column to begin box.                          |
    ' +---------+-----------------------------------------------------------+
    ' | RowLR%  |  Lower right row to begin box.                            |
    ' +---------+-----------------------------------------------------------+
    ' | ColLR%  |  Lower right column to begin box.                         |
    ' +---------+-----------------------------------------------------------+
    ' | ColrFG% |  Foreground color of box.                                 |
    ' +---------+-----------------------------------------------------------+
    ' | ColrBG% |  Background color of box.                                 |
    ' +---------+-----------------------------------------------------------+

    COLOR ColrFG%, ColrBG%
    LOCATE RowUL%, ColUL%
    PRINT CHR$(201) + STRING$(ColLR% - ColUL% - 1, CHR$(205)) + CHR$(187);
    FOR All1% = (RowUL% + 1) TO (RowLR% - 1)
        LOCATE All1%, ColUL%
        PRINT CHR$(186);
    NEXT
    FOR All2% = (RowUL% + 1) TO (RowLR% - 1)
        LOCATE All2%, ColLR%
        PRINT CHR$(186);
    NEXT
    LOCATE RowLR%, ColUL%
    PRINT CHR$(200) + STRING$(ColLR% - ColUL% - 1, CHR$(205)) + CHR$(188);

END SUB