SUB OneLine (LineRow%, LineCol%, LineFG%, LineBG%, Style%, LenStr%)

    ' +---------------------------------------------------------------------+
    ' |                    - S U B   O n e L i n e -                        |
    ' |                                                                     |
    ' |                    Public Domain -  FreeWare                        |
    ' +---------------------------------------------------------------------+
    ' |  Author: Donald B. "Don" Smith                                      |
    ' |  Email : smithdonb@earthlink.net                                    |
    ' |  Date: 03/25/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.                                   |
    ' +---------------------------------------------------------------------+
    ' +---------------------------------------------------------------------+
    ' |  Not counting REM (') lines, SUB OneLine has 12 lines.              |
    ' +---------------------------------------------------------------------+
    ' |  SUB OneLine will place one line on screen.  There are 4 types      |
    ' |  of lines to choose from.  See Style% below.                        |
    ' +---------------+-----------------------------------------------------+
    ' |  LineRow%     |   Row to place line.                                |
    ' +---------------+-----------------------------------------------------+
    ' |  LineCol%     |   Column to place line.                             |
    ' +---------------+-----------------------------------------------------+
    ' |  LineFG%      |   Foreground color of line.                         |
    ' +---------------+-----------------------------------------------------+
    ' |  LineBG%      |   Background color of line.                         |
    ' +---------------+-----------------------------------------------------+
    ' |  Style%       |  Style% = 1   |            |                        |
    ' |               |               |------------|                        |
    ' |               |               |            |                        |
    ' |               +-----------------------------------------------------+
    ' |               |  Style% = 2   |            |                        |
    ' |               |               |============|                        |
    ' |               |               |            |                        |
    ' |               +-----------------------------------------------------+
    ' |               |  Style% = 3   ||          ||                        |
    ' |               |               ||==========||                        |
    ' |               |               ||          ||                        |
    ' |               +-----------------------------------------------------+
    ' |               |  Style% = 4   ||          ||                        |
    ' |               |               ||----------||                        |
    ' |               |               ||          ||                        |
    ' +---------------+-----------------------------------------------------+
    ' |  LenStr%      |  Length of string (line).                           |
    ' +---------------------------------------------------------------------+

    IF Style% = 1 THEN         'Style 1
        SingLine$ = CHR$(195) + STRING$(LenStr%, CHR$(196)) + CHR$(180)
    ELSEIF Style% = 2 THEN     'Style 2
        SingLine$ = CHR$(198) + STRING$(LenStr%, CHR$(205)) + CHR$(181)
    ELSEIF Style% = 3 THEN     'Style 3
        SingLine$ = CHR$(204) + STRING$(LenStr%, CHR$(205)) + CHR$(185)
    ELSEIF Style% = 4 THEN     'Style 4
        SingLine$ = CHR$(199) + STRING$(LenStr%, CHR$(196)) + CHR$(182)
    END IF
    LOCATE LineRow%, LineCol%
    COLOR LineFG%, LineBG%
    PRINT SingLine$;
END SUB