ni kan testa med den

Option Explicit

Function RX
Dim x
Sc.Delay(250)
x = Sc.BytesInBuffer
Sc.Read(x)
End Function

Sub Main()
Sc.Write("CA A4 04 00 03")
RX
Sc.Write("FF F5 02")
RX
Sc.Write("CA 18 02 02 14")
RX
Sc.Write("A0 01 20")
Sc.Write("A1 03 FF F5 00")
Sc.Write("DF 00")
Sc.Write("F0 08 80 09 59 2B 38 39 7F E2")
RX

End Sub