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