not much better ...

Code:
 
.
.
.
 
AD_AN1_VALUE VAR WORD
B0 VAR WORD
B1 VAR WORD
B2 VAR WORD
B3 VAR WORD
B3 = 100
TRISA  = %11111111     
.
.
.
 
PAUSE 4000
lp:
ADCIN 1, AD_AN1_VALUE
B0 = AD_AN1_VALUE*129   
B1 = B0 - 8143
B1 = B1 * B3                                      
B2 = Div32 319
PAUSE 100
B0 = B2 / 100   ' we get integer part of temp
B1 = B2 // 100  ' we get the decimal part x 100
 
LCDOUT $fe,1
LCDOUT #AD_AN1_VALUE
Lcdout $fe,$c0,"Temp.: ",DEC (B0 DIG 1),DEC (B0 DIG 0),"." ,DEC (B1 DIG 1),DEC (B1 DIG 0),"°C"
goto lp
But with whisles and Bells ...

Alain