'Data Player
func main()
  dim tch as integer


  'First Open the File
   if FileOpen(1,".LogData.txt",Open) = 0 then
      msgbox("File IO Error",0,"Open File")
      ComClose 1
   endif
   
Loop:
   if FileEOF(1) = 1 then
      FileClose 1
      end
   endif
      

   
   tch=FileRead(1)
   print Chr(tch);
   goto Loop
   
    

endfunc