home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / scrmod.zip / FINELINE.SCR < prev    next >
Text File  |  1992-01-03  |  666b  |  28 lines
  1. > windowshow()
  2. > watch(off)
  3. > delete('\openold.000')
  4. > copy('\config.sys','\openold.000',replace)
  5. > openold('\openold.000',handle)
  6. > findtext1 = 'xyz'
  7. > findtext2 = 'vga'
  8. > result1 = findline(handle,findtext1)
  9. > if result1 == TRUE
  10. > line1 = readline(handle)
  11. > message('text xyz found in line = ' + line1)
  12. > else
  13. > message('text djd NOT found')
  14. > endif
  15. > setbof(handle)
  16. > result2 = findline(handle,findtext2)
  17. > if result2 == TRUE
  18. > line2 = readline(handle)
  19. > message('text vga found in line = ' + line2)
  20. > else
  21. > message('text vga NOT found')
  22. > endif
  23. > message('Press any key to terminate script')
  24. > timeout = 0
  25. > watch(on)
  26. > wait()
  27. > end
  28.