# It has an error Explode? (Documentation Bugs and Problems)

Hi, Jim:

It has an error "Explode"?

Watch this:

#::::::::::::::::::::::::::::::::::::::::::::::::::::

#>>> your "Explode", the test !!!

cls

cp = 0

ce = 0

graphvisible false

z$ = " while AZUCAR for next AGUA VINO$ and input"

print

print z$

print "long = " + string ( length (z$))

w$ = explode(upper (z$)," ")

print "words in w$ = " + w$[?]

print "ERROR !!!, there is = " + w$[?]

print

for n= 0 to w$[?]- 1

print w$[n]

next n

print ":::::::::::::::::::::::::::::::::::::::::::"

print

#:::::::::::::::::::::::::::::::

#>>> My "Explode", my test !!!

l = length (z$)

p = 0

r = 0

y$ = ""

for n = 1 to l

x$ = mid(z$,n,1)

if n = 1 and x$ <> " " then y$ = x$

if n = 1 and x$ = " " then r = 1

if n > 1 and x$ <> " " then r = 0

if n > 1 and x$ <> " " and r = 0 then

y$ = y$ + x$

end if

if n > 1 and x$ = " " and r = 0 then

y$ = y$ + " "

r = 1

end if

next n

#::::::::::::::::::::::::::::::::::::::

print

print "This is Ok!"

print

print y$

print "long = " + string ( length (y$))

w$ = explode(upper (y$)," ")

print "words in w$ = " + w$[?]

print

for n= 0 to w$[?]- 1

print w$[n]

next n

end

end