18 lines
370 B
Plaintext
18 lines
370 B
Plaintext
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
|