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