Sorry your browser is not supported!

dim word$(999)

a$="I Hope I have worked it out for you :)"

a_len = len(a$)
wrds = 0

w$="" : pos = 0
repeat
  inc pos,1
  lett$ = mid$(a$,pos)

  if lett$ = " " or pos > a_len
    inc wrds,1
    word$(wrds) = w$
    w$=""
  else
    w$=w$ + lett$
  endif

until pos > a_len

for i = 1 to wrds
  print word$(i)
next i

sync
wait key
end

dim wordlist$(999)

wordcount = ReadWords("Th!!i?s I^?s       A T<e<st", "!?^<")

for i = 1 to wordcount
  print wordlist$(i)
next i

sync
wait key
end



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

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

    filt = 0
    for f = 1 to lf
      if mid$(filter$,f) = lett$ then filt = 1
    next f

    if lett$ = " " or pos > ln
      if wrd$<>""
        inc wc,1
        wordlist$(wc) = wrd$
        wrd$ = ""
      endif
    else
      if filt = 0 then wrd$ = wrd$ + lett$
    endif

  until pos > ln

endfunction wc

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

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

    if lett$ = " " or pos > ln
      if wrd$<>""
        inc wc,1
        wordlist$(wc) = 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 wc

DIM STASH$(MAXWORD)

LIKEWORDSNSTUFF$="Apple pot-pie ginger beans lufa sponge"

PARAMSpool(" ",LIKEWORDSNSTUFF$)

for i=0 to MAXWORDS
print STASH$(I);
next i

end

Function PARAMSpool(PARACHAR$,STRI$)
PTr=0:TEMP$=Stri$
while Instr(TEMP$,PARACHAR$)>0
STASH$(Ptr)$=Atrim$(CutLeft$(TEMP$,PARACHAR$))
TEMP$=Atrim$(CutRight$(TEMP$,PARACHAR$)):inc ptr,1
endwhile
endfunction

dim a(10)
a(0) = 5
a(3) = 10
a(7) = 20

rem --- need to initialise arrayend
arrayend = 10

print "old a() list"
for i = 0 to arrayend
  print a(i)
next i
print

gosub ResizeArray

if newarrayend = -1
  print "No content in a(). No action taken!"
else
  print "new a() list"
  for i = 0 to arrayend
    print a(i)
  next i
  print
endif


sync
wait key
end



ResizeArray:
  rem --- first count number of used items in array
  newarrayend = -1
  for i = 0 to arrayend
    if a(i) <> 0 then newarrayend = newarrayend + 1
  next i

  if newarrayend > -1
    rem --- make a temporay storage space
    dim temp(newarrayend)

    rem --- copy used items from array to storage
    t = -1
    for i = 0 to arrayend
      if a(i) <> 0
        t = t + 1
        temp(t) = a(i)
      endif
    next i

    rem --- remove original array
    undim a()

    rem --- restore original array to new size and copy form temp storage
    dim a(newarrayend)
    for i = 0 to newarrayend
      a(i) = temp(i)
    next i

    rem --- remove temp storage
    undim temp()
    arrayend = newarrayend
  endif
return