Sorry your browser is not supported!

rem declared here so it shows in variable watcher
TtlBreaks=0
rem get some input
input "type a command: ",input$
parseInput(input$)
wait key
end
function parseInput(input$)
	cls
	print "Thankyou, counting words..."
	print ""
	Counter=0
	TtlBreaks=0
	remstart
	count the spaces in the string then +1 the total
	to get the number of words the string contains
	remend
	REPEAT
	   INC Counter
	   IF Mid$(input$,Counter)=" "
       INC TtlBreaks
	   ENDIF
	UNTIL Counter=LEN(input$)
	inc TtlBreaks
	rem dimension an array with the number of words.
	dim myarray$(TtlBreaks)
	print "the string contains ";
	print TtlBreaks; " words"
	print 
	print "splitting the string into chunks and the seperate words to the array"
	print "then printing them from the array :)"
	rem add the words to the array
	b$=first token$(input$," ")
	Ttlbreaks=0
	repeat
		myarray$(TtlBreaks)=b$
		print myarray$(TtlBreaks)
        b$=next token$(" ")
        inc TtlBreaks
	until b$=""
	rem save the array and print the array contents to the screen
	save array "input.arr",myarray$(TtlBreaks)
	print "printing again from array"
	for i=0 to TtlBreaks
	print myarray$(i)
	next i
	rem delete the array to ensure it is loaded again correctly
	empty array myarray$()
	
	compareArray()
	
endfunction

function compareArray()
rem this function is supposed to load the array. it does not.
	print "loading array...."
	load array "input.arr",myarray$(i)
	print array count(myarray$())
	t = array count(myarray$())
	for i=0 to t
	print myarray$(i)
	next i
endfunction

if keystate(2)=1
    krep=1
    typemode=2
    inc totalverbs
    clear entry buffer
    repeat
    verbupdate()    
    text 20,570,entry$(1)
    if returnkey()=1 and typemode=2 and verb=1
        verb$=entry$(1)
            
        for check=1 to len(verb$)
            if mid$(verb$,check)<>"" and numfound=0
                verbnum$=verbnum$+mid$(verb$,check)
            endif
            if mid$(verb$,check)<>"" and numfound=1
                verbname$=verbname$+mid$(verb$,check)
            endif
            if mid$(verb$,check)=" "
                numfound=1    
                verb(totalverbs)=val(verbnum$)
            endif
        NEXT check

        typemode=0
        verb$(totalverbs)=verbname$
        verb(totalverbs)=val(verbnum$)
        verbname$=""
        verbnum$=""
        numfound=0
    endif
    until typemode=0           
endif