readfile.bmx 231 B

12345678910111213
  1. ' readfile.bmx
  2. ' the following prints the contents of this source file
  3. file=readfile("readfile.bmx")
  4. if not file runtimeerror "could not open file openfile.bmx"
  5. while not eof(file)
  6. print readline(file)
  7. wend
  8. closestream file