home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / scrmod.zip / WRITELIN < prev    next >
Text File  |  1991-08-28  |  521b  |  23 lines
  1. > watch(off)
  2. > openold('\config.sys',rhandle)
  3. > delete('\write.000')
  4. > opennew('\write.000',whandle)
  5. > count = 0
  6. > loop:
  7. > text = readline(rhandle)
  8. > if (getlength(text) == 1) && (chrtoval(text) == 26)
  9. >   close(rhandle)
  10. >   close(whandle)
  11. >   message('Write operation complete')
  12. >   message('Press any key to terminate script')
  13. >   timeout = 0
  14. >   watch(on)
  15. >   wait()
  16. >   end
  17. > endif
  18. > writeline(whandle,text)
  19. > count = count + 1
  20. > message ('Write record count = ' + valtostr(count))
  21. > goto loop
  22.  
  23.