' ++++++++++++++++++++ BUTTON CLICKS ARE DIRECTED TO THE FOLLOWING CODE TO READ DATA FROM A FILE AND THEN OUTPUT OVER SERIAL BLUETOOTH++++++
Sub getcommand
Dim vararr(length) As Byte
raf.initialize(File.DirRootExternal,dirname,False)
count = raf.ReadBytes (arr,0,50,raf.CurrentPosition)
For j = offset To count
vararr(j-offset) = arr(j)
If arr(j)= 77 Then
j = count
End If
Next
AStreams.Initialize(Null,serial1.OutputStream,"AStreams")
AStreams.Write(vararr)
raf.flush
raf.close
End Sub