Private Sub AppStart
Serial1.Initialize(115200)
Log("appstart")
Dim bb() As Byte = "abc"
RunNative("PassBytes", bb)
End Sub
#if C
void PassBytes(B4R::Object* o) {
B4R::Array* b = (B4R::Array*)B4R::Object::toPointer(o);
char* c = (char*)b->data;
::Serial.println(c);
}
#end if