dim Soft_I2C_Scl               as sbit at RC3_bit
dim Soft_I2C_Sda               as sbit at RC4_bit
dim Soft_I2C_Scl_Direction as sbit at TRISC3_bit
dim Soft_I2C_Sda_Direction as sbit at TRISC4_bit

dim sec, min, hr, week_day, day, mn, year,set1,set2 as byte

sub procedure Read_Time(dim byref sec, min, hr, week_day, day, mn, year as short)

    Soft_I2C_Start()
    Soft_I2C_Write(0xD0)
    Soft_I2C_Write(0)
    Soft_I2C_Start()
    Soft_I2C_Write(0xD1)
    sec =Soft_I2C_Read(1)
    min =Soft_I2C_Read(1)
    hr =Soft_I2C_Read(1)
    week_day =Soft_I2C_Read(1)
    day =Soft_I2C_Read(1)
    mn =Soft_I2C_Read(1)
    year =Soft_I2C_Read(0)
    Soft_I2C_Stop()
end sub

sub procedure Write_Time(dim address1 as short,dim data_wr as short)
    Soft_I2C_Start()
    Soft_I2C_Write(0xD0)
    Soft_I2C_Write(address1)
    Soft_I2C_Write(data_wr)
    Soft_I2C_Stop()
    end sub

 Write_Time(0,7)

if Button(PORTC, 1, 1, 1) then
oldstate = 255
end if
if oldstate and Button(PORTC, 1, 1, 0) then
 set1=min+1
 if set1>59 then
  set1=0
  end if
  set1=Dec2Bcd16(set1)
  Write_Time(1,set1)
  oldstate = 0
 end if

if Button(PORTC, 2, 1, 1) then
oldstate1 = 255
end if
if oldstate1 and Button(PORTC, 2, 1, 0) then
 set1=hr+1
 if set1>23 then
  set1=0
  end if
  set1=Dec2Bcd16(set1)
  Write_Time(2,set1)
  oldstate1 = 0
 end if