instring$ = "Hello,How,Are,You,Today"

tokens$ = explode(instring$,",")
for i = 0 to tokens$[?]-1
	print tokens$[i]; ".";
next i
end