function arrayFromText str
	put (the number of words of str)+1 into nws
	put nws &return
	put 1 into x
	repeat while x < nws
		put "creating entry" && x &return
		put word x of str into entry x of myArray
		put x+1 into x
	end repeat
	return myArray
end arrayFromText

on startUp
	put "Welcome to Joker, the HyperTalk interpreter from Uli Kusterer" &return& "With new features people have been asking for through recent years!" into myText
	put arrayFromText(myText) into theArray
	displayArray theArray
end startUp

on displayArray myArray
	put the keys of myArray into myKeys
	put (the number of lines of myKeys)+1 into nlr
	put nlr &return
	put 1 into x
	repeat while x < nlr
		put line x of myKeys into theKey
		put theKey & ": "
		put entry theKey of myArray &return
		put x+1 into x
	end repeat
end displayArray