begin globals
short ndx : bool odd : cfstringref stream
end globals

local fn recursion
  cfstringref ch = mid( stream, ndx, 1 )
  if fn StringContainsString( @",;:. ", ch ) == no
    ndx++
    if odd  then  fn  recursion : print ch; ¬
    else          print ch; : fn recursion
  end if
end fn

local fn oddWordTask( s as cfstringref )
  ndx = 0 : odd = no : stream = s
  print : print, stream : print,
  while ndx < len( stream )
    fn recursion : print mid( stream, ndx, 1 );
    odd = yes - odd : ndx++
  wend
  print
end fn

window 1, @"Odd word task in FutureBasic", (0,0,310,155)
fn oddWordTask( @"what,is,the;meaning,of:life." )
fn oddWordTask( @"we,are;not,in,kansas;any,more." )
fn oddWordTask( @"This also works with normal spaces." )

HandleEvents