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