home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / scrmod.zip / GETLNGTH.SCR < prev    next >
Text File  |  1992-02-06  |  542b  |  23 lines
  1. > windowshow()
  2. > watch(on)
  3. > timeout = 0
  4. > text = 'Softronics Inc.'
  5. > text1 = fixlength(text,0)
  6. > text2 = fixlength(text,4)
  7. > text3 = fixlength(text,13)
  8. > text4 = fixlength(text,20)
  9. > length1 = valtostr(getlength(text1))
  10. > length2 = valtostr(getlength(text2))
  11. > length3 = valtostr(getlength(text3))
  12. > length4 = valtostr(getlength(text4))
  13. > watch(off)
  14. > message ('length1 = ' + length1)
  15. > message ('length2 = ' + length2)
  16. > message ('length3 = ' + length3)
  17. > message ('length4 = ' + length4)
  18. > watch(on)
  19. > wait()
  20. > end
  21.  
  22.  
  23.