$regfile = "m8def.dat"
$crystal = 8000000
$hwstack = 40
$swstack = 16
$framesize = 32


Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portb.3 , E = Portc.1 , Rs = Portc.0
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Config Lcd = 16 * 2
Dim Temp As Single
Dim Wartosc As Integer
Config Portb.2 = Output

Cls
Do
Cls
  Wartosc = Getadc(5)
  Temp = Wartosc * 5
  Temp = Temp / 1024
  Temp = Temp - 0.5
  Temp = Temp / 0.01

Lcd Fusing(temp , "##.##")
Cursor Off Noblink
Wait 1


Loop
End