Click above to get retro games delivered to your door ever month!

  DRAWIBAR()                                                 Screen Function
 Purpose..: Draw a vertical crossbar
-------------------------------------------------------------------------------
 Syntax...: DrawIBar( <nCol>, <nTRow>, <nBRow>, [<nChrBar>],
                    [<nChrEnd1>], [<nChrEnd2>] ) --> NIL

 Arguments: <nCol>        = Column to start "I-bar".

            <nTRow>       = Top row position.
            <nBRow>       = Bottom row position.

            [<nChrBar>]   = Cross bar piece (default is 1).
            [<nChrEnd1>]  = Top row end piece (default is 1).
            [<nChrEnd2>]  = Bottom row end piece (default is 1).

                       Cross Bar & Column End
                       -------------------------
                       Value  Description
                       -------------------------
                       1      Single line.
                       2      Double line.
                       3|5    Thick single line.
                       -------------------------

 Returns..: NIL

 Remark...: Draw an "I" type bar on screen between nTRow and nBRow at
            column, nCol.

 Source...: DRAWIBAR.PRG
-------------------------------------------------------------------------------
 Example..: The following function calls would draw:
                            -
                            |
                            |
                            |
                            -

               @ 0, 22, 5, 42 box "+-+|+-+|"
               DrawIBar( 11, 1, 5, 1, 2, 2 )

            The code will draw the following box:

               +----------------------------+
               |             |              |
               |             |              |
               |             |              |
               +----------------------------+

 Note.....: The function can used be anytime. It is
            not window dependant.