readfile.bmx 273 B

1234567891011121314
  1. ' readfile.bmx
  2. ' the following prints the contents of this source file
  3. SuperStrict
  4. Local file:TStream = ReadFile("readfile.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