home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / scrmod.zip / STRPUT.SCR < prev    next >
Text File  |  1992-02-06  |  675b  |  21 lines
  1. > windowshow()
  2. > watch(on)
  3. > source = 'Softronics Inc'
  4. > replacement = '"A Product"'
  5. > result1text = strput('','',1)
  6. > result2text = strput(source,'',1)
  7. > result3text = strput('',replacement,1)
  8. > result4text = strput(source,'-',5)
  9. > result5text = strput(source,replacement,6)
  10. > watch(off)
  11. > message('    original text = [' + source + ']')
  12. > message('1st strput result = [' + result1text + ']')
  13. > message('2nd strput result = [' + result2text + ']')
  14. > message('3rd strput result = [' + result3text + ']')
  15. > message('4th strput result = [' + result4text + ']')
  16. > message('5th strput result = [' + result5text + ']')
  17. > watch(on)
  18. > timeout = 0
  19. > wait()
  20. > end
  21.