Here it is
982 words
Code:<font color="#008000">@__config _XT_OSC & _WDT_ON & _MCLRE_ON & _LVP_OFF & _CP_OFF </font><font color="#000080"><b>INCLUDE </b></font><font color="#008000"><b>"modedefs.bas" </b></font><font color="#000080"><b>DEFINE </b></font>OSC <font color="#FF0000"><b>4 </b></font>Uin <font color="#000080"><b>VAR WORD </b></font>B0 <font color="#000080"><b>VAR WORD </b><i>' Cnt is a word variable </i></font>InputData <font color="#000080"><b>VAR WORD </b><i>' variable to receive data into </i></font>RepNo <font color="#000080"><b>VAR BYTE </b><i>' START OF MAIN PROGRAM ' </i></font>CMCON = <font color="#FF0000"><b>7 </b></font><font color="#000080"><i>' RA0-RA3 are digital I/O </i></font>TRISA = <font color="#FF0000"><b>0 </b></font><font color="#000080"><i>' PORT A is output </i></font>TRISB = <font color="#FF0000"><b>1 </b></font><font color="#000080"><i>' RB0 is Input others output </i></font>Main: <font color="#000080"><b>SERIN </b></font>PORTB.<font color="#FF0000"><b>0</b></font>,N2400,B0 B0 = <font color="#FF0000"><b>100 </b></font>* B0 Uin = B0 / <font color="#FF0000"><b>207 </b></font><font color="#000080"><b>GOSUB </b></font>Bargraph <font color="#000080"><b>PAUSE </b></font><font color="#FF0000"><b>5 </b></font><font color="#000080"><b>GOTO </b></font>Main Bargraph: <font color="#000080"><b>LCDOUT </b></font><font color="#FF0000"><b>$fe</b></font>,<font color="#FF0000"><b>1 </b></font><font color="#000080"><i>'Valid for all cases. </i><b>SELECT CASE </b></font>Uin <font color="#000080"><b>CASE IS </b></font>< <font color="#FF0000"><b>10 </b></font><font color="#000080"><b>LCDOUT </b></font><font color="#008000"><b>"TOO LOW" </b></font><font color="#000080"><b>CASE IS </b></font>> <font color="#FF0000"><b>10 </b></font><font color="#000080"><b>AND IS </b></font><= <font color="#FF0000"><b>15 </b></font>RepNo = <font color="#FF0000"><b>1 </b></font><font color="#000080"><b>GOSUB </b></font>RepLCD <font color="#000080"><b>CASE IS </b></font>> <font color="#FF0000"><b>15 </b></font><font color="#000080"><b>AND IS </b></font><= <font color="#FF0000"><b>19 </b></font>RepNo = <font color="#FF0000"><b>2 </b></font><font color="#000080"><b>GOSUB </b></font>RepLCD <font color="#000080"><b>CASE IS </b></font>> <font color="#FF0000"><b>19 </b></font><font color="#000080"><b>AND IS </b></font><= <font color="#FF0000"><b>24 </b></font>RepNo = <font color="#FF0000"><b>3 </b></font><font color="#000080"><b>GOSUB </b></font>RepLCD <font color="#000080"><b>CASE IS </b></font>> <font color="#FF0000"><b>24 </b></font><font color="#000080"><b>AND IS </b></font><= <font color="#FF0000"><b>29 </b></font>RepNo = <font color="#FF0000"><b>4 </b></font><font color="#000080"><b>GOSUB </b></font>RepLCD <font color="#000080"><b>CASE IS </b></font>> <font color="#FF0000"><b>29 </b></font><font color="#000080"><b>AND IS </b></font><= <font color="#FF0000"><b>34 </b></font>RepNo = <font color="#FF0000"><b>5 </b></font><font color="#000080"><b>GOSUB </b></font>RepLCD <font color="#000080"><b>CASE IS </b></font>> <font color="#FF0000"><b>34 </b></font><font color="#000080"><b>AND IS </b></font><= <font color="#FF0000"><b>43 </b></font>RepNo = <font color="#FF0000"><b>6 </b></font><font color="#000080"><b>GOSUB </b></font>RepLCD <font color="#000080"><b>CASE IS </b></font>> <font color="#FF0000"><b>43 </b></font><font color="#000080"><b>AND IS </b></font><= <font color="#FF0000"><b>53 </b></font>RepNo = <font color="#FF0000"><b>7 </b></font><font color="#000080"><b>GOSUB </b></font>RepLCD <font color="#000080"><b>CASE IS </b></font>> <font color="#FF0000"><b>53 </b></font><font color="#000080"><b>AND IS </b></font><= <font color="#FF0000"><b>62 </b></font>RepNo = <font color="#FF0000"><b>8 </b></font><font color="#000080"><b>GOSUB </b></font>RepLCD <font color="#000080"><b>CASE IS </b></font>> <font color="#FF0000"><b>62 </b></font><font color="#000080"><b>AND IS </b></font><= <font color="#FF0000"><b>72 </b></font>RepNo = <font color="#FF0000"><b>8 </b></font><font color="#000080"><b>GOSUB </b></font>RepLCD <font color="#000080"><b>GOSUB </b></font>LCD2 RepNo = <font color="#FF0000"><b>1 </b></font><font color="#000080"><b>GOSUB </b></font>RepLCD <font color="#000080"><b>CASE IS </b></font>> <font color="#FF0000"><b>72 </b></font><font color="#000080"><b>AND IS </b></font><= <font color="#FF0000"><b>81 </b></font>RepNo = <font color="#FF0000"><b>8 </b></font><font color="#000080"><b>GOSUB </b></font>RepLCD <font color="#000080"><b>GOSUB </b></font>LCD2 RepNo = <font color="#FF0000"><b>2 </b></font><font color="#000080"><b>GOSUB </b></font>RepLCD <font color="#000080"><b>CASE IS </b></font>> <font color="#FF0000"><b>81 </b></font><font color="#000080"><b>AND IS </b></font><= <font color="#FF0000"><b>86 </b></font>RepNo = <font color="#FF0000"><b>8 </b></font><font color="#000080"><b>GOSUB </b></font>RepLCD <font color="#000080"><b>GOSUB </b></font>LCD2 RepNo = <font color="#FF0000"><b>3 </b></font><font color="#000080"><b>GOSUB </b></font>RepLCD <font color="#000080"><b>CASE IS </b></font>> <font color="#FF0000"><b>86 </b></font><font color="#000080"><b>AND IS </b></font><= <font color="#FF0000"><b>91 </b></font>RepNo = <font color="#FF0000"><b>8 </b></font><font color="#000080"><b>GOSUB </b></font>RepLCD <font color="#000080"><b>GOSUB </b></font>LCD2 RepNo = <font color="#FF0000"><b>4 </b></font><font color="#000080"><b>GOSUB </b></font>RepLCD <font color="#000080"><b>CASE IS </b></font>> <font color="#FF0000"><b>91 </b></font><font color="#000080"><b>AND IS </b></font><= <font color="#FF0000"><b>96 </b></font>RepNo = <font color="#FF0000"><b>8 </b></font><font color="#000080"><b>GOSUB </b></font>RepLCD <font color="#000080"><b>GOSUB </b></font>LCD2 RepNo = <font color="#FF0000"><b>5 </b></font><font color="#000080"><b>GOSUB </b></font>RepLCD <font color="#000080"><b>CASE IS </b></font>> <font color="#FF0000"><b>96 </b></font><font color="#000080"><b>AND IS </b></font><= <font color="#FF0000"><b>100 </b></font>RepNo = <font color="#FF0000"><b>8 </b></font><font color="#000080"><b>GOSUB </b></font>RepLCD <font color="#000080"><b>GOSUB </b></font>LCD2 RepNo = <font color="#FF0000"><b>6 </b></font><font color="#000080"><b>GOSUB </b></font>RepLCD <font color="#000080"><b>CASE IS </b></font>> <font color="#FF0000"><b>100 </b></font><font color="#000080"><b>AND IS </b></font><= <font color="#FF0000"><b>105 </b></font>RepNo = <font color="#FF0000"><b>8 </b></font><font color="#000080"><b>GOSUB </b></font>RepLCD <font color="#000080"><b>GOSUB </b></font>LCD2 RepNo = <font color="#FF0000"><b>7 </b></font><font color="#000080"><b>GOSUB </b></font>RepLCD <font color="#000080"><b>CASE IS </b></font>> <font color="#FF0000"><b>105 </b></font><font color="#000080"><b>AND IS </b></font><= <font color="#FF0000"><b>110 </b></font>RepNo = <font color="#FF0000"><b>8 </b></font><font color="#000080"><b>GOSUB </b></font>RepLCD <font color="#000080"><b>GOSUB </b></font>LCD2 RepNo = <font color="#FF0000"><b>8 </b></font><font color="#000080"><b>GOSUB </b></font>RepLCD <font color="#000080"><b>CASE ELSE LCDOUT </b></font><font color="#FF0000"><b>$FE</b></font>,<font color="#FF0000"><b>$C0</b></font>,<font color="#008000"><b>"TOO RICH" </b></font><font color="#000080"><b>END SELECT RETURN </b></font>RepLCD: <font color="#000080"><b>WHILE </b></font>RepNo > <font color="#FF0000"><b>0 </b></font><font color="#000080"><b>LCDOUT </b></font><font color="#FF0000"><b>255 </b></font>RepNo = RepNo - <font color="#FF0000"><b>1 </b></font><font color="#000080"><b>WEND </b></font><font color="#000080"><b>RETURN </b></font>LCD2: <font color="#000080"><b>LCDOUT </b></font><font color="#FF0000"><b>$FE</b></font>,<font color="#FF0000"><b>$C0 </b></font><font color="#000080"><b>RETURN </b></font>
Btw:
Select case produces 100 words more!
So, if you go with your IF..THENs, it will be approx. 882 words, but select case provides a clean look.




Bookmarks