home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / scrmod.zip / STRGET.SCR < prev    next >
Text File  |  1992-02-06  |  1KB  |  27 lines
  1. > windowshow()
  2. > watch(on)
  3. > textstring = 'abcdeabcdeabcdeabcde'
  4. > result1text = strget1(textstring,0,0)
  5. > result2text = strget1(textstring,0,2)
  6. > result3text = strget1(textstring,2,4)
  7. > result4text = strget1(textstring,2,6)
  8. > result5text = strget1(textstring,4,8)
  9. > result6text = strget1(textstring,4,10)
  10. > result7text = strget1(textstring,8,12)
  11. > result8text = strget1(textstring,8,14)
  12. > result9text = strget1(textstring,10,16)
  13. > watch(off)
  14. > message('1st strget1 result = [' + result1text + ']')
  15. > message('2nd strget1 result = [' + result2text + ']')
  16. > message('3rd strget1 result = [' + result3text + ']')
  17. > message('4th strget1 result = [' + result4text + ']')
  18. > message('5th strget1 result = [' + result5text + ']')
  19. > message('6th strget1 result = [' + result6text + ']')
  20. > message('7th strget1 result = [' + result7text + ']')
  21. > message('8th strget1 result = [' + result8text + ']')
  22. > message('9th strget1 result = [' + result9text + ']')
  23. > watch(on)
  24. > timeout = 0
  25. > wait()
  26. > end
  27.