openfile.bmx 271 B

12345678910111213
  1. ' openfile.bmx
  2. SuperStrict
  3. ' the following prints the contents of this source file
  4. Local file:TStream = OpenFile("openfile.bmx")
  5. If Not file RuntimeError "could not open file openfile.bmx"
  6. While Not Eof(file)
  7. Print ReadLine(file)
  8. Wend
  9. CloseStream file