*====================================================
* sbtherm.fpx
*
*         Title: Status Bar Thermometer
*
*    Written by: Timothy Grey
*              : DataFlex Consulting
* CompuServe ID: 72144,1101
*
* The Status Bar Thermometer displays a "thermometer"
* on the status bar in any FoxPro for Windows application.
* This 'newer' style thermometer does not interfere with
* the main screen, and resembles that implemented by
* Microsoft in some newer applications.
*
* To use sbtherm, simply call it as follows:
*
* DO sbtherm.fpx WITH prct
*
* where prct is a value between 0 and 100, representing
* the percentage your job is completed.
*
* A sample routine might be:
*
* DO sbtherm.fpx WITH 0
* ...do some work here
* DO sbtherm.fpx WITH 50
* ...halfway done...
* DO sbtherm.fpx WITH 100
* ...job done...clean up here
* DO sbtherm.fpx  &&This removes the thermometer display
*
* To remove the thermometer when the job is complete, 
* simply issue SET MESSAGE TO, with or without a message.
* Since the thermometer is displayed on the status bar,
* changing or removing a MESSAGE will clear the thermometer.
* You can also DO sbtherm.frx without a parameter, and
* the routine will clear the status bar.
*
* NOTE: Because sbtherm uses the status bar, you must have
* SET STATUS BAR ON for it to work.  Sbtherm will therefore
* automatically turn the status bar on if it is off.
* I personally prefer it on anyway, with SET CLOCK STATUS
* activated.
*
* If a non-numeric parameter is passed, nothing will happen.
* If a number less than 0 or greater than 100 is passed,
* 0 or 100 will be used, respectively.
*
* Any comments or suggestions would be greatly appreciated!
*
* Tim Grey, CompuServe ID: 72144,1101
*
*=============================================================