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

 Output an elevator bar on screen
------------------------------------------------------------------------------

 Syntax

        GT_ElevBar( nTop , nBottom , nCol , cNorm , cCurrent , ;
                    cColor , nCurrent , nTotal )

 Arguments:

      nTop     - Top row of elevator bar
      nBottom  - Bottom row of elevator bar
      nCol     - Column for elevator bar
      cNorm    - Normal bar character
      cCurrent - Highlighted bar character
      cColor   - Colour of elevator bar
      nCurrent - Current value of bar position
      nTotal   - Maximum value of bar position

 Returns:

      NIL

 Description:

      Draws a bar from nCol , nTop to nCol , nBottom using the character
      cNorm, in the colour cColor.  Then draws character cCurrent at a
      position calculated as follows :

             ( ( nCurrent  )                                    )
      nTop + ( ( --------  ) * ( ( nBottom - 1 ) - ( nTop + 1 ) )
             ( ( nElements )                                    )

 Examples:



 Header File: GT_LIB.CH

 Source: ELEVBAR.PRG

 Author:  Martin Colloby