home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / scrmod.zip / FIXLNGTH < prev    next >
Text File  |  1991-08-16  |  376b  |  18 lines

  1. > watch(on)
  2. > text = 'Dave Debenham'
  3. > text1 = fixlength(text,0)
  4. > text2 = fixlength(text,4)
  5. > text3 = fixlength(text,13)
  6. > text4 = fixlength(text,20)
  7. > watch(off)
  8. > message ('text1 = [' + text1 + ']')
  9. > message ('text2 = [' + text2 + ']')
  10. > message ('text3 = [' + text3 + ']')
  11. > message ('text4 = [' + text4 + ']')
  12. > watch(on)
  13. > timeout = 0
  14. > wait()
  15. > end
  16.  
  17.  
  18.