home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / scrmod.zip / READLINE < prev    next >
Text File  |  1991-09-27  |  404b  |  20 lines
  1. > watch(off)
  2. > delete('\openold.000')
  3. > copy('\config.sys','\openold.000',replace)
  4. > openold('\openold.000',handle)
  5. > read:
  6. > text = readline(handle)
  7. > if (getlength(text) == 1) && (chrtoval(text) == 26)
  8. >   message('Press any key to terminate script')
  9. >   timeout = 0
  10. >   watch(on)
  11. >   wait()
  12. >   close(handle)
  13. >   delete('\openold.000')
  14. >   end
  15. > endif
  16. > message(text)
  17. > goto read
  18.  
  19.  
  20.