home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / scrmod.zip / SETEOF.SCR < prev    next >
Text File  |  1992-02-06  |  413b  |  20 lines

  1. > windowshow()
  2. > watch(off)
  3. > openold('\config.sys',handle)
  4. > text1 = readline(handle)
  5. > result = seteof(handle)
  6. > text2 = readline(handle)
  7. > close(handle)
  8. > message('seteof result = ' + valtostr(result))
  9. > message('Read before seteof = ' + text1)
  10. > message('Read  after seteof = ' + text2)
  11. > message('Press any key to terminate script')
  12. > watch(on)
  13. > timeout = 0
  14. > watch(on)
  15. > wait()
  16. > end
  17.  
  18.  
  19.  
  20.