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

' Tokenize a string
OPTION BASE 1

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