$regfile = "m328pdef.dat"
$crystal = 16000000

Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portb.1 , Rs = Portb.0
Cls
Cursor Off

Config I2cdelay = 10
Config Scl = Portc.5
Config Sda = Portc.4

Dim Napiecie As Long                                        'Long
Dim Pomiarh As Byte , Pomiarl As Byte
Dim Wynik As Long

Cls
Lcd "Start"
Wait 1
Cls

Do

      I2cstart
      I2cwbyte 108                                          '108    ' I2cwbyte &B01101100

      I2cstop
      I2cstop
      I2cstart
      I2cwbyte 109                                          ' 109   ' I2cwbyte &B01101101

      I2crbyte Pomiarh , Ack                                'Odczyt Pomiaru
      I2crbyte Pomiarl , Nack
      I2cstop                                               'Bit Stopu
      Waitms 1
      Napiecie = Makeint(pomiarl , Pomiarh)

      Wynik = Napiecie

      Locate 1 , 1
      Lcd Wynik ; "   "

   Wait 1

Loop