setfilemode.bmx 274 B

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