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