Private Sub AppStart
Serial1.Initialize(115200)
Log("AppStart")
Dim bc As ByteConverter
Dim b(2) As Byte
Dim raf As RandomAccessFile
raf.Initialize(b, False) 'big endian
raf.WriteInt16(1, 0)
Log(bc.HexFromBytes(b))
raf.WriteInt16(20, 0)
Log(bc.HexFromBytes(b))
raf.WriteInt16(1234, 0)
Log(bc.HexFromBytes(b))
End Sub