test$="THIS IS A TEST STRING- I AM MAKING IT WAY TOO LONG FOR A REASON"
stringlength#=len(test$)
halfway#=len(test$)/2
if len(test$)>20
cls
print left$(test$,halfway#)
print right$(test$,halfway#+1)
else 
print test$
endif

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

    rem --- read line from string
    repeat
      pos = pos + 1
    until (text width(left$(s$,pos)) >= bitmap width()) or (pos = len(s$))

    rem --- if word has wrapped then reduce line to last space
    if pos < len(s$)
      while mid$(s$,pos) <> " "
        pos = pos - 1
      endwhile
    endif

    rem --- display line and remove it from string
    print left$(s$,pos)
    s$ = right$(s$,len(s$) - pos)

  until s$ = ""
endfunction

dim wordlist$(0)

lastword = ReadWords("Take all but leave the key and then go west","",1)

for i = 0 to lastword
  print wordlist$(i)
next i

sync
wait key
end


function ReadWords(s$, filter$,changecase as byte)
  rem --- s$ = string to be processed
  rem --- filter$ = characters to be removed
  rem --- changecase = change case (1 = lower, 2 = upper, else no change)

  empty array wordlist$()

  ln = len(s$) : if ln = 0 then exitfunction 0
  lf = len(filter$)
  wrd$ = "" : pos = 0

  rem --- change case if requested
  if changecase = 1 then s$ = lower$(s$)
  if changecase = 2 then s$ = upper$(s$)

  repeat
    inc pos,1
    lett$ = mid$(s$,pos)

    if lett$ = " " or pos > ln
      if wrd$<>""
        array insert at bottom wordlist$()
        wordlist$(array count(wordlist$())) = wrd$
        wrd$=""
      endif
    else
      filt = 0
      for f = 1 to lf
        if mid$(filter$,f) = lett$ then filt = 1
      next f
      if filt = 0 then wrd$ = wrd$ + lett$
    endif

  until pos > ln

endfunction array count(wordlist$())

wordmax = 200
dim wordlist$(wordmax)

lastword = ReadWords("Take all but leave the key and then go west","")

for i = 0 to lastword
  print wordlist$(i)
next i

sync
wait key
end


function ReadWords(s$, filter$)
  rem --- s$ = string to be processed
  rem --- filter$ = characters to be removed

  for i = 0 to wordmax : wordlist$(i)="" : next i

  ln = len(s$) : if ln = 0 then exitfunction 0
  lf = len(filter$)
  wrd$ = "" : pos = 0

  index = -1
  repeat
    inc pos,1
    lett$ = mid$(s$,pos)

    if lett$ = " " or pos > ln
      if wrd$<>""
        index = index + 1
        wordlist$(index) = wrd$
        wrd$=""
      endif
    else
      filt = 0
      for f = 1 to lf
        if mid$(filter$,f) = lett$ then filt = 1
      next f
      if filt = 0 then wrd$ = wrd$ + lett$
    endif

  until pos > ln

endfunction index