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

10 lines
125 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
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