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

  RMCLRTABLE()                                              Color Function
 Purpose..: Remove the ClrTable() from the screen and memory
-------------------------------------------------------------------------------
 Syntax...: RmClrTable( <aClrTable> ) --> NIL

 Arguments: <aClrTable>   = color table object.

 Returns..: NIL

 Source...: CLRTABLE.PRG
-------------------------------------------------------------------------------
 Example..: The example uses the function to set up a color
            table and return a color string, cPicked and the
            previous one, cClr.

   local aClrTable , cPicked, cClr
   aClrTable := MkClrTable( 5, 5, R_SPIN )
   cClr := wSetColor( , cPicked := ClrTable( aClrTable, wSetColor() ), WC_ALL )
   RmClrTable( aClrTable )