Dim bc As ByteConverter
Dim nr1() As Byte = bc.HexFromBytes(bc.IntsToBytes(Array As Int(1)))
Dim nr2() As Byte = bc.HexFromBytes(bc.IntsToBytes(Array As Int(20)))
Dim nr3() As Byte = bc.HexFromBytes(bc.IntsToBytes(Array As Int(1234)))
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