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

 curcolorvert()      Draw a vertical bar
------------------------------------------------------------------------------
 Declaration
   screen.hdr

 Syntax
   proc curcolorvert extern
   param value int iRow, ;
         value int iCol, ;
         value int iColor, ;
         value int iHeight

 Arguments
   iRow is the starting row position for the display.

   iCol is the column position for the display.

   iColor is the bar color.

   iHeight is the number of rows the bar extends to.

 Return
   None.

 Description
   The curcolorvert() procedure paints a vertical bar, starting at the
   given screen coordinates, and extending vertically downwards to the
   specified number of rows. The bar does not erase the information on
   the screen, just changes the color attributes.

 Example
   #define EXAMPLE_SCREEN
   #include example.hdr

   proc Test_curcolorvert
   curcolorvert( 0, 10, GREEN_YELLOW, 20 )
   endproc

   proc main
   Test_curcolorvert()
   endproc