ident Explode Function

method main
	*Set Variables
	var explode_char ,
	var explode_string cool,story,brah

	*Explode String
	exec explode

	*Write Array
	array.length array_length $explode_array
	var i 1
	while $i ! $array_length
		array.get tmp_var explode_array $i
		io.write tmp_var
		math.calc i $i + 1
	endwhile
end

method explode
	var explode_string2 $explode_string && $explode_char
	array.create explode_array
	string.length string_length $explode_string2
	var i 1
	while $i ! $string_length
		string.char tmp_char $i $explode_string2
		var tmp_string
		if $tmp_char ! $explode_char
			var tmp_string $tmp_string && $tmp_char
		endif
		if $tmp_char = $explode_char
			array.add explode_array $tmp_string
			var tmp_string
		endif
		math.calc i $i + 1
	endwhile
end