'IF SOF then start to read the bytes
 If A > Sof_low And A < Sof_high Then
  'Print "SOF!"
  Bitcounter = 0 : Mstring = ""
  Do
   Do
   'Wait for bit high
   Loop Until Pinf.0 = 1
   B = Timer1
   Timer1 = 0

   If B > Short_low And B < Short_high Then
 '   Print "0";
    Incr Bitcounter
    Mstring = Mstring + "0"
   End If
   If B > Wide_low And B < Wide_high Then
 '   Print "1";
    Incr Bitcounter
    Mstring = Mstring + "1"
   End If

   If Bitcounter = 8 Then
    Bitcounter = 0
  '  Print ""
    Incr Packetcount
    Strarray(packetcount) = Mstring
    Mstring = ""
   End If

   Do
   'Wait for bit low
   Loop Until Pinf.0 = 0
   A = Timer1
   Timer1 = 0

   If A > Short_low And A < Short_high Then
  '  Print "1";
    Incr Bitcounter
    Mstring = Mstring + "1"
   End If
   If A > Wide_low And A < Wide_high Then
'    Print "0";
    Incr Bitcounter
    Mstring = Mstring + "0"
   End If

   If Bitcounter = 8 Then
    Bitcounter = 0
    Incr Packetcount
    Strarray(packetcount) = Mstring
    Mstring = ""
   End If


   Timer3 = 0 : Start Timer3
   Do
   'Wait for bit high  <--- Detect EOF
    If Timer3 >= Sof_high Then                              'I handle SOF and EOF timings with the same value
     'too much time on low, EXIT!!
     Mstring = ""
     Bitcounter = 0
    ' Print "EOF!"

     For I = 1 To Packetcount
    '  Print Strarray(i) ; "  ";
      Tmpbyte = Binval(strarray(i))
      Print Hex(tmpbyte) ; " ";
     Next I

     Packetcount = 0
     Print ""
     Goto Startagain
    End If
   Loop Until Pinf.0 = 1
   Stop Timer3

  Loop