home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / scrmod.zip / SKIP.SCR < prev    next >
Text File  |  1992-02-06  |  674b  |  26 lines
  1. > windowshow()
  2. > watch(off)
  3. > openold('\config.sys',handle)
  4. > text = readline(handle)
  5. > message('1st line of text = ' + text)
  6. > result = skip(handle, -getlength(text)-2)
  7. > message('skip result = ' + valtostr(result))
  8. > text = readline(handle)
  9. > message('1st line of text = ' + text)
  10. > result = skip(handle, -getlength(text)-2)
  11. > message('skip result = ' + valtostr(result))
  12. > result = skip(handle, getlength(text)+2)
  13. > message('skip result = ' + valtostr(result))
  14. > text = readline(handle)
  15. > message('2nd line of text = ' + text)
  16. > close(handle)
  17. > message('Press any key to terminate script')
  18. > watch(on)
  19. > timeout = 0
  20. > watch(on)
  21. > wait()
  22. > end
  23.  
  24.  
  25.  
  26.