dim s$(1)

n = token("Hello. How are you today?", s$(), ".? ")

for i = 1 to n
	print s$(i);
	if i < n print ".";
next
print