home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / msdos / clipper / nannws35.arc / SPREAD.PRG < prev    next >
Encoding:
Text File  |  1989-03-01  |  905 b   |  35 lines
  1. * Program: Spread.prg
  2. * Author:  Greg Lief
  3. * Version: Clipper Summer '87
  4. *
  5. * Copyright (c) 1988-89 Greg Lief.
  6. * Placed into Public Domain.
  7. *
  8. * Syntax:  Spread(<message>, <row>, [<delay>, <midpoint>])
  9. *
  10.  
  11. FUNCTION Spread
  12. PARAM msg, row, delay, mid
  13. * Initialize delay and midpoint if parameters not passed.
  14. delay = IF(PCOUNT() < 3, 8, delay)
  15. mid = IF(PCOUNT() < 4, 40, mid)
  16. PRIVATE mlen, mloop, msg2, xx
  17. * initialize memvar to hold temporary version of string
  18. msg2 = ''
  19. mlen = LEN(msg)
  20. FOR mloop = 1 TO INT(mlen/2)
  21.    * Add characters to temp string from front and
  22.    * back of actual string.
  23.    msg2 = SUBSTR(msg, 1, mloop) + ;
  24.           SUBSTR(msg, mlen + 1 - mloop, mloop)
  25.    @ row, mid-mloop SAY msg2
  26.    FOR xx = 1 TO delay
  27.    NEXT
  28. NEXT
  29. * Must redraw string if length was not an even number.
  30. IF mlen%2 = 1
  31.    @ row, mid-mloop SAY msg
  32. ENDIF
  33. RETURN('')
  34. * EOF: Spread.prg
  35.