Depending on your needs, perhaps something like this:
sync on : sync rate 60
s$="Mary had a little lamb, it's fleece was white as snow, and every where that Mary went, "
s$ = s$ + "she made sure she had a bottle of mint sauce, a bag of potatoes and some vegetables!"
WordWrap(s$)
sync
wait key
end
function WordWrap(s$)
repeat
pos = 0
repeat
pos = pos + 1
until (text width(left$(s$,pos)) >= bitmap width()) or (pos = len(s$))
if pos < len(s$)
while mid$(s$,pos) <> " "
pos = pos - 1
endwhile
endif
print left$(s$,pos)
s$ = right$(s$,len(s$) - pos)
until s$ = ""
endfunction
Programming anything is an art, and you can't rush art.
Unless your name is Bob Ross, then you can do it in thirty minutes.