home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / scrmod.zip / SETATTR < prev    next >
Text File  |  1991-09-27  |  1KB  |  33 lines

  1. > if exist('\openold.000') == TRUE
  2. >   result1 = rstattr('\openold.000','ahr')
  3. >   result1 = delete('\openold.000')
  4. > endif
  5. > result1 = copy('\config.sys','\openold.000',replace)
  6. > text1 = firstfile('\openold.000',handle)
  7. > message('   copy result = ' + valtostr(result1) + ', ' + text1)
  8. > result1 = setattr('\openold.000','xyzr')
  9. > text1 = firstfile('\openold.000',handle)
  10. > message('setattr result = ' + valtostr(result1) + ', ' + text1)
  11. > if text1 != ''
  12. >   close(handle)
  13. > endif
  14. > result1 = setattr('\openold.000','bcdh')
  15. > text1 = firstfile('\openold.000',handle)
  16. > message('setattr result = ' + valtostr(result1) + ', ' + text1)
  17. > if text1 != ''
  18. >   close(handle)
  19. > endif
  20. > result1 = setattr('\openold.000','abcd')
  21. > text1 = firstfile('\openold.000',handle)
  22. > message('setattr result = ' + valtostr(result1) + ', ' + text1)
  23. > if text1 != ''
  24. >   close(handle)
  25. > endif
  26. > delete('\openold.000')
  27. > message('Press any key to terminate script')
  28. > watch(on)
  29. > timeout = 0
  30. > watch(on)
  31. > wait()
  32. > end
  33.