RosettaCodeData/Task/Tokenize-a-string/Yabasic/tokenize-a-string.basic
2023-07-01 13:44:08 -04:00

9 lines
125 B
Text

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