Sub Process_Globals
Public Serial1 As Serial
Private sd As SD
End Sub
Private Sub AppStart
Serial1.Initialize(115200)
Log("AppStart")
Log(sd.Initialize(4)) '4 is the CS pin when using the ethernet shield
For i = 1 To 100
ListFiles
Log("********************************** ", AvailableRAM)
Next
End Sub
Sub ListFiles
For Each f As File In sd.ListFiles("/")
Log(f.Name, TAB, Round(f.Size / 1024), "kb", TAB, f.IsDirectory)
Next
End Sub