September 2017 Update

Task/Tokenize-a-string/BASIC/tokenize-a-string-2.basic

@@ -1,8 +1,13 @@
-      INSTALL @lib$+"STRINGLIB"
+' Tokenize a string
+OPTION BASE 1
 
-      text$ = "Hello,How,Are,You,Today"
-      n% = FN_split(text$, ",", array$())
-      FOR i% = 0 TO n%-1
-        PRINT array$(i%) "." ;
-      NEXT
-      PRINT
+READ csv$
+DATA "Hello,How,Are,You,Today"
+
+SPLIT csv$ BY "," TO elements$ SIZE n
+
+FOR i = 1 TO n
+    PRINT elements$[i] FORMAT "%s"
+    IF i < n THEN PRINT "." FORMAT "%s"
+NEXT
+PRINT