B4R Tutorial Some code to write into and read from EEPROM on ESP8266

          '**********************************************************
    'Variable Definitions for moving objects to and from EEPROM
    '**********************************************************
    Dim be(10) As Object 'used as a storage buffer for the serializator
    Dim ListOfObjectsToStore() As Object = Array("Hello", "World",1234, False, True, False)
    Dim ByteDataToStore() As Byte
    Dim bc As ByteConverter

    Dim ByteLengthOfDataInEEPROM() As Byte
    Dim ActualLengthOfDataInEEPROM As Int
    Dim ByteDataInEEPROM() As Byte
    Dim ObjectsInEEPROM() As Object
 
    'START OF CODE
    'Convert the array of objects into a sequence of bytes.
    ByteDataToStore = serializator.ConvertArrayToBytes(ListOfObjectsToStore)
 
    Log("Writing objects into the EEPROM...")
    'Store the length of the data being written into the EEPROM as an Integer taking up two bytes at Storage Location 700 in the EEPROM
    eeprom.WriteBytes(bc.IntsToBytes(Array As Int(ByteDataToStore.Length)), 700)
    'Now write out all the bytes into the EEPROM
    eeprom.WriteBytes(ByteDataToStore, 702)
 
 
 
    Log("Reading data from the EEPROM...")
    'Get two bytes out of the EEPROM from location 700
    ByteLengthOfDataInEEPROM = eeprom.ReadBytes(700, 2)
    'Convert these two bytes into an Integer - this is the number of bytes making up the objects that are stored in the EEPROM
    ActualLengthOfDataInEEPROM =  bc.IntsFromBytes(ByteLengthOfDataInEEPROM)(0)
     
    'Get all that byte data out of the EEPROM
    ByteDataInEEPROM = eeprom.ReadBytes(702, ActualLengthOfDataInEEPROM)

    'Convert those bytes back into an array of objects
    ObjectsInEEPROM = serializator.ConvertBytesToArray(ByteDataInEEPROM, be)

    'Now list all the objects
    For Each o As Object In ObjectsInEEPROM
        Log(o)
    Next