chann rs  dBm MCC MNC BCC  C1  C2
 122  39  -71 293  41   5  40  40
 112  34  -76 293  41   0  31  31
 116  34  -76 293  41   6  35  35
 118  33  -77 293  41   5  34  34
 113  32  -78 293  41   7  29  29
 663  31  -79 293  41   1  26  26

OK

Const Max_len = 10

Dim Mystr(10) As String * Max_len
Dim Char As Byte , Idx As Byte , Row As Byte
Dim Got_msg As Byte , Receiving As Byte , Err_flag As Byte

Open "COM1:" For Binary As #1

Enable Interrupts

Do

 If 0 < Ischarwaiting(#1) Then

   Char = Waitkey(#1)

   Select Case Char
    Case 32                                                 'space
     If Receiving = 0 Then                                  'first space
      Receiving = 1
      Row = 1 : Idx = 0
     Else                                                   'next space
      Incr Row
       If Row > 10 Then
        Err_flag = 1 : Row = 1                              'this is probably error because no enter after 10 msg`s
       End If
     End If
    Case 13                                                 'simply ignore, swallow enter
    Case 10                                                 'LF sign->Parse new data
      Got_msg = 1
    Case Else
     If Receiving = 1 Then                                  'wait for first space for synchro
      Mystr(row) = Mystr(row) + Chr(char)
       Incr Idx
         If Idx = Max_len Then
          Err_flag = 1 : Incr Row                           'error cause msg is too big
         End If
     End If
   End Select

   If Got_msg = 1 Then                                      'parse new msg

    If Err_flag = 0 Then

      'here you have array(row) of strings


    Else

      'there you can judge if you want to parse corrupted data

     Err_flag = 0
    End If
    Got_msg = 0 : Receiving = 0                             'we wait for new start after first space
   End If

 End If
Loop
End

Const Max_msg_len = 100    
Dim New_msg As String * Max_msg_len , Mystr(10) As String * 10
Dim Char As Byte , Idx As Byte , Got_msg As Byte , Tststr As String * 1

Do

 If 0 < Ischarwaiting(#1) Then

  Char = Waitkey(#1)

   Select Case Char
    Case 10 : Got_msg = 1
    Case 13                                                 'swallow/ignore
    Case Else
     New_msg = New_msg + Chr(char)
     Incr Idx : If Idx >= Max_msg_len Then Got_msg = 1      'force parsing or cancel msg. becaause it is too long
   End Select

    If Got_msg = 1 Then

      Tststr = Left(new_msg , 1)                            'take and check first character of the msg.

      Select Case Tststr

       Case " "                                             'space

         Idx = Split(new_msg , Mystr(1) , " ")              'split by spaces into the rows

       Case "+"

       Case "$"

       Case "*"

      End Select



     Got_msg = 0 : Idx = 0 : New_msg = "" 'prepare for new msg.
    End If
 End If


Loop
End