RosettaCodeData/Task/Tokenize-a-string/Yabasic/tokenize-a-string.basic

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