'JD-code-modified


    ' {$STAMP BS2px}
    ' {$PBASIC 2.5}


    value   VAR Byte
    result  VAR Byte

    datpin CON 0

    value = 79

    GOSUB WriteEEPROM
    GOSUB ReadEEPROM
    GOSUB Display

    END

    WriteEEPROM:
    I2COUT datpin,$A0,0\0,[value]
    PAUSE 5
    RETURN

    ReadEEPROM:
    I2CIN datpin,$A1,0\0,[result]
    RETURN

    Display:
    DEBUG HOME, "EEPROM Value = ",DEC result,CLREOL,13
    RETURN