Sorry your browser is not supported!

set window off

GLOBAL wordCount

Print pigLatinString("Hellow my name is james")

for x = 1 to 4
	print spaceArray(x)
next x

print wordCount

wait key
end

function pigLatinString(inString$)
	pigLatinStringLen = len(instring$)
	`Spaces need to be checked using SPACE(string) comand
	dim spaceArray(pigLatinStringLen)	
	spaceArray(0) = 1
	
	`by counting the spaces you can work out how many words are in the string
	for x = 1 to pigLatinStringLen
		if mid$(inString$,x) = " "
			wordCount = wordCount + 1
			spaceArray(wordCount) = x
		endif
	next x
	
	`there is always one more word than the number of spaces between them
	wordCount = wordCount + 1
	
	`produce each word backwars and then add ay
	for x = 1 to pigLatinStringLen
		if spaceArray(1) = x
			x = wordPos
			while wordPos => spaceArray(0)
				newLetter$ = mid$(inString$,wordPos)
				pigLatinString$ = pigLatinString$ + newLetter$
				dec wordPos
			endwhile
			pigLatinString$ = pigLatinString$ + "ay "
		endif
	next x
		
endfunction pigLatinString$

PRINT pigLatinString("Hellow my name is james")
WAIT KEY

function pigLatinString(inString AS STRING)
	LOCAL aWord AS STRING
	LOCAL outString AS STRING
	
	aWord=FIRST TOKEN$(inString," ")
	
	outString=""
	while aWord<>""
		outString=outString + reverseString(aWord) + "ay "
		aWord=next TOKEN$(" ")
	endwhile
	
endfunction outString

function reverseString(inString AS STRING)
	LOCAL lth AS INTEGER
	LOCAL lp AS INTEGER
	LOCAL outString AS STRING
	
	outString=""
	lth=LEN(inString)
	for lp=lth TO 1 STEP -1
		outString=outString + MID$(inString,lp)
	next lp
	
endfunction outString