RosettaCodeData/Task/Tokenize-a-string/PureBasic/tokenize-a-string-1.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