21 lines
383 B
Plaintext
21 lines
383 B
Plaintext
100 T$ = "HELLO,HOW,ARE,YOU,TODAY"
|
|
110 GOSUB 200"TOKENIZE
|
|
120 FOR I = 1 TO N
|
|
130 PRINT A$(I) "." ;
|
|
140 NEXT
|
|
150 PRINT
|
|
160 END
|
|
|
|
200 IF N = 0 THEN DIM A$(256)
|
|
210 N = 1
|
|
220 A$(N) = "
|
|
230 FOR TI = 1 TO LEN(T$)
|
|
240 C$ = MID$(T$, TI, 1)
|
|
250 T = C$ = ","
|
|
260 IF T THEN C$ = "
|
|
270 N = N + T
|
|
280 IF T THEN A$(N) = C$
|
|
290 A$(N) = A$(N) + C$
|
|
300 NEXT TI
|
|
310 RETURN
|