SUB BoxItUp (ULRow%, ULCol%, LRRow%, LRCol%, BoxColrFG%, BoxColrBG%, BoxStyle%, ClearBox%)

    ' +--------------------------------------------------------------------+
    ' |                     - S U B   B o x I t U p -                      |
    ' |                                                                    |
    ' |                     Public Domain -  FreeWare                      |
    ' +--------------------------------------------------------------------+
    ' |  Author: Donald B. "Don" Smith                                     |
    ' |  Email : smithdonb@earthlink.net                                   |
    ' |  Date: 05/01/2002                                                  |
    ' +--------------------------------------------------------------------+
    ' |                      - 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 BoxItUp---------------------------------+
    '| SUB written by Don Smith on May, 1 2002.   It is a much simplified  |
    '| version of BoxBoy; it doesn't have Title, Shadow, etc.   Declared   |
    '| Public Domain FreeWare.                                             |
    '|                                                                     |
    '|             Don's EMail: smithdonb@earthlink.net                    |
    '+-------------+-------------------------------------------------------+
    '| ULRow%      | The upper left row to place the box.                  |
    '|-------------+-------------------------------------------------------|
    '| ULCol%      | The upper left column to place the box.               |
    '|-------------+-------------------------------------------------------|
    '| LRRow%      | The lower right row to place the box.                 |
    '|-------------+-------------------------------------------------------|
    '| LRCol%      | The lower right column to place the box.              |
    '|-------------+-------------------------------------------------------|
    '| BoxColrFG%  | The box foreground color                              |
    '|-------------+-------------------------------------------------------|
    '| BoxColrBG%    The box back ground color                             |
    '|-------------+-------------------------------------------------------|
    '| BoxStyle%   | Style% equals 1 - Single line around box              |
    '|             | Style% equals 2 - Double line around box              |
    '|-------------+-------------------------------------------------------|
    '| ClearBox%   | ClearBox% = 1 then do not clear box                   |
    '|             | ClearBox% = 2 then YES clear box                      |
    '+-------------+-------------------------------------------------------+
    '
    '
make.da.box:
    IF BoxStyle% = 1 THEN           'Single Line
        ULCorner$ = CHR$(218)
        URCorner$ = CHR$(191)
        HorLine$ = CHR$(196)
        LeftSide$ = CHR$(195)
        RightSide$ = CHR$(180)
        VertLine$ = CHR$(179)
        LLCorner$ = CHR$(192)
        LRCorner$ = CHR$(217)
    ELSEIF BoxStyle% = 2 THEN      'Double Line
        ULCorner$ = CHR$(201)
        URCorner$ = CHR$(187)
        HorLine$ = CHR$(205)
        LeftSide$ = CHR$(199)
        RightSide$ = CHR$(182)
        VertLine$ = CHR$(186)
        LLCorner$ = CHR$(200)
        LRCorner$ = CHR$(188)
    END IF

    COLOR BoxColrFG%, BoxColrBG%
    'ÚÄÄÄ¿   or  ÉÍÍÍ»
    LOCATE ULRow%, ULCol%
    PRINT " " + ULCorner$ + STRING$(LRCol% - ULCol%, HorLine$) + URCorner$ + " ";

    '³   ³   or  º   º

    IF ClearBox% = 0 OR ClearBox% = 1 THEN
        FOR Print.Box = 1 TO (LRRow% - ULRow%) - 1
            LOCATE ULRow% + Print.Box%, ULCol%
            PRINT " " + VertLine$;
        NEXT
        FOR Print.Box = 1 TO (LRRow% - ULRow%) - 1
            LOCATE ULRow% + Print.Box%, LRCol% + 2
            PRINT VertLine$;
        NEXT
    ELSEIF ClearBox% = 2 THEN
        FOR Print.Box = 1 TO (LRRow% - ULRow%) - 1
            LOCATE ULRow% + Print.Box%, ULCol%
            PRINT " " + VertLine$ + SPACE$(LRCol% - ULCol%) + VertLine$ + " ";
        NEXT
    END IF

    'ÀÄÄÄÙ  or  ÈÍÍͼ
    LOCATE LRRow%, ULCol%
    PRINT " " + LLCorner$ + STRING$(LRCol% - ULCol%, HorLine$) + LRCorner$ + " ";

END SUB