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