home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / scrmod.zip / SETATTR.SCR < prev    next >
Text File  |  1992-02-06  |  1KB  |  34 lines
  1. > windowshow()
  2. > if exist('\openold.000') == TRUE
  3. >   result1 = rstattr('\openold.000','ahr')
  4. >   result1 = delete('\openold.000')
  5. > endif
  6. > result1 = copy('\config.sys','\openold.000',replace)
  7. > text1 = firstfile('\openold.000',handle)
  8. > message('   copy result = ' + valtostr(result1) + ', ' + text1)
  9. > result1 = setattr('\openold.000','xyzr')
  10. > text1 = firstfile('\openold.000',handle)
  11. > message('setattr result = ' + valtostr(result1) + ', ' + text1)
  12. > if text1 != ''
  13. >   close(handle)
  14. > endif
  15. > result1 = setattr('\openold.000','bcdh')
  16. > text1 = firstfile('\openold.000',handle)
  17. > message('setattr result = ' + valtostr(result1) + ', ' + text1)
  18. > if text1 != ''
  19. >   close(handle)
  20. > endif
  21. > result1 = setattr('\openold.000','abcd')
  22. > text1 = firstfile('\openold.000',handle)
  23. > message('setattr result = ' + valtostr(result1) + ', ' + text1)
  24. > if text1 != ''
  25. >   close(handle)
  26. > endif
  27. > delete('\openold.000')
  28. > message('Press any key to terminate script')
  29. > watch(on)
  30. > timeout = 0
  31. > watch(on)
  32. > wait()
  33. > end
  34.