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

NewList MyStrings.s()

For i=1 To 5
  AddElement(MyStrings())
  MyStrings()=StringField("Hello,How,Are,You,Today",i,",")
Next i

ForEach MyStrings()
  Print(MyStrings()+".")
Next
September 2017 Update 2017-09-23 10:01:46 +02:00			`NewList MyStrings.s()`
all tasks 2013-04-11 01:07:29 -07:00
September 2017 Update 2017-09-23 10:01:46 +02:00			`For i=1 To 5`
			`AddElement(MyStrings())`
			`MyStrings()=StringField("Hello,How,Are,You,Today",i,",")`
			`Next i`
all tasks 2013-04-11 01:07:29 -07:00
September 2017 Update 2017-09-23 10:01:46 +02:00			`ForEach MyStrings()`
			`Print(MyStrings()+".")`
			`Next`