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