setfilemode.bmx 322 B

1234567891011121314
  1. ' setfilemode.bmx
  2. SuperStrict
  3. ' the following makes this source file readonly
  4. Local writebits:Int = %010010010
  5. ' read the file mode
  6. Local mode:Int = FileMode("setfilemode.bmx")
  7. 'mask out the write bits to make readonly
  8. mode = mode & ~writebits
  9. 'set the new file mode
  10. SetFileMode("setfilemode.bmx",mode)