#Region Project Attributes
#AutoFlushLogs: True
#CheckArrayBounds: True
#StackBufferSize: 300
#End Region
Sub Process_Globals
Public Serial1 As Serial
Type pay_st(value(120) As Byte)
Private store(30) As pay_st
End Sub
Private Sub AppStart
Serial1.Initialize(115200)
Log("AppStart")
For ii=0 To store.Length-1
filltheStore(ii)
Next
End Sub
Private Sub filltheStore(i As Int)
store(i).value=NumberFormat(i,50 ,0)
Log(store(i).value," AR=",AvailableRAM,TAB,"SBU:",StackBufferUsage)
End Sub