RosettaCodeData/Task/Tokenize-a-string/BASIC/tokenize-a-string-10.basic

text$ = "Hello,How,Are,You,Today"
FOR i = 1 to 5
 textArray$(i) = word$(text$,i,",")
 print textArray$(i);" ";
NEXT
September 2017 Update 2017-09-23 10:01:46 +02:00			`text$ = "Hello,How,Are,You,Today"`
			`FOR i = 1 to 5`
			`textArray$(i) = word$(text$,i,",")`
			`print textArray$(i);" ";`
			`NEXT`