public Sub formatEepprom(startpoint As Int)
Private i As Int = 0
Private endPoint As Int
If startpoint + 40 < eeprom.Size Then
endPoint = startpoint+40
Else
endPoint= eeprom.Size
End If
Log("formating eeprom from", startpoint, " To ", endPoint)
Public Clear() As Byte = Array As Byte(0)
For i = startpoint To endPoint
eeprom.WriteBytes(Clear,i)
Next
Log("i=", i, " size ", eeprom.Size)
If i >= eeprom.Size Then
Main.restartUnit
Else
CallSubPlus("formatEepprom", 5000,endPoint)
End If
End Sub