home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a013 / 1.ddi / SOURCE.EXE / F_STREXP.PRG < prev    next >
Encoding:
Text File  |  1991-01-25  |  535 b   |  20 lines
  1. *****************************************************************
  2. FUNCTION STREXPAND (string)
  3. *****************************************************************
  4.  
  5. * Expands a sting with a space after each character
  6.  
  7. * Copyright(c) 1991 -- James Occhiogrosso
  8.  
  9. LOCAL string_len := LEN(string), counter := 0, ret_string := ''
  10.  
  11. * Expand string with spaces
  12. FOR counter = 1 TO string_len
  13.    ret_string = ret_string + SUBSTR(string,counter,1) + ' '
  14. NEXT
  15.  
  16. * Return string with trailing space trimmed
  17. RETURN TRIM(ret_string)
  18.  
  19.  
  20.