Fungsi Wordwrap

********************
procedure word_wrap
********************

parameters words, margin
private str_len
private sent
private width
str_len = len(m->words)
i = "1"
do while m->str_len > 0
width = iif(m->str_len <= m->margin,m->str_len,m->margin)
do while m->str_len - m->width > 0 .and. substr(m->words,m->width,1) != " "
width = m->width - 1
enddo
SENT&I = substr(m->words,1,m->width)
words = iif(m->str_len - m->width > 0,substr(m->words,m->width + 1),"")
str_len = len(m->words)
do case
case i = "1"
i = "2"
case i = "2"
i = "3"
case i = "3"
i = "4"
case i = "4"
i = "5"
case i = "5"
i = "6"
case i = "6"
i = "7"
case i = "7"
i = "8"
endcase
enddo
return