September 2017 Update

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

@@ -1,15 +1,17 @@
-FUNCTION PBMAIN () AS LONG
-    DIM parseMe AS STRING
-    parseMe = "Hello,How,Are,You,Today"
-
-    REDIM parsed(PARSECOUNT(parseMe) - 1) AS STRING
-    PARSE parseMe, parsed()  'comma is default delimiter
-
-    DIM L0 AS LONG, outP AS STRING
-    outP = parsed(0)
-    FOR L0 = 1 TO UBOUND(parsed)  'could reuse parsecount instead of ubound
-        outP = outP & "." & parsed(L0)
-    NEXT
-
-    MSGBOX outP
-END FUNCTION
+10 REM TOKENIZE A STRING ... ROSETTACODE.ORG
+20 T$ = "HELLO,HOW,ARE,YOU,TODAY"
+30 GOSUB 200, TOKENIZE
+40 FOR I = 1 TO N
+50     PRINT A$(I) "." ;
+60 NEXT
+70 PRINT
+80 END
+200 IF N = 0 THEN DIM A$(256)
+210 N = 1
+220 A$(N) = ""
+230 FOR L = 1 TO LEN(T$)
+240     C$ = MID$(T$, L, 1)
+250     IF C$<>"," THEN A$(N) = A$(N) + C$: GOTO 270
+260     N = N + 1
+270 NEXT L
+280 RETURN