Private Sub Astream_NewData (Buffer() As Byte)
Log("startB=",Buffer,"=endB")
If bc.IndexOf(Buffer, "save?_nwk=") <> -1 Then
Dim init(10) As Object
Dim pt1,pt2 As Int
pt1 = bc.IndexOf(Buffer, "save?_nwk=")+10
pt2 = bc.IndexOf(Buffer, "&_key=")
init(0) = bc.substring2(Buffer,pt1,pt2)
pt2 = bc.IndexOf(Buffer, "&_ss1=")
init(1) =bc.substring2(Buffer,pt1,pt2)
init(1) = ReplaceString(init(1),"%2F","/")
init(1) = ReplaceString(init(1),"%25","%")
pt1 = pt2+6
pt2 = bc.IndexOf(Buffer, "&_ss2=")
init(2) =bc.substring2(Buffer,pt1,pt2)
pt1 = pt2+6
pt2 = bc.IndexOf(Buffer, "&_save=")
init(3) =bc.substring2(Buffer,pt1,pt2)
Main.SaveNetworkDetails(sr.ConvertArrayToBytes(init))
Else
If bc.IndexOf(Buffer, "/_abort?_abort=") <> -1 Then
Log("abort input")
Else
If bc.IndexOf(Buffer, "/_abort?_clear=") <> -1 Then
Log("clear eeprow")
Main.ClearStoredDataLength
End If
End If
End If
End Sub