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

      INSTALL @lib$+"STRINGLIB"

      text$ = "Hello,How,Are,You,Today"
      n% = FN_split(text$, ",", array$())
      FOR i% = 0 TO n%-1
        PRINT array$(i%) "." ;
      NEXT
      PRINT
September 2017 Update 2017-09-23 10:01:46 +02:00			`INSTALL @lib$+"STRINGLIB"`
Time for an 2014 update… 2014-01-17 05:32:22 +00:00
September 2017 Update 2017-09-23 10:01:46 +02:00			`text$ = "Hello,How,Are,You,Today"`
			`n% = FN_split(text$, ",", array$())`
			`FOR i% = 0 TO n%-1`
			`PRINT array$(i%) "." ;`
			`NEXT`
			`PRINT`