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

 twScBarNew( sTop, sLeft, sBottom, sColor,;
             sInitPos, nDirection )
 ----------------------------------------------------------------------------
     Create a new scroll bar for a window. These are used in most TSDWIN
     browse functions.

       Arguments:

     sTop     - 'N' Screen coordinate for bar top.  Window access is
                    NOT done to allow use of these functions in other
                    areas.

     sLeft    - 'N' Screen column of bar.

     sBottom  - 'N' Screen row for bar bottom.

     sColor   - 'C' Bar color. Defaults to SETCOLOR().

     sInitPos - 'N' Initial element in the array or database record
                    POSITION.

     nDirection - 'N' Vertical or Horizontal

       Return:

                      Bar number.

       Example:

     nBar := twScBarNew( IIF( ";" $ ColHead, t + 4, t + 3 ),;
                                    r + 1, b - 1, "w/b" )

     Creates a scroll bar at top of a box + 4, if the display title is
     on two lines or + 3 if not.