![]() |
BCX Console Demonstration Program S87.bas |
DIM
Z$ Z$=
"1,2,3,4,5,666,777,88888,99999,101010101010101010"
Parse(
Z$)
SUB
Parse(
A$)
LOCAL
SepLOCAL
B$ Sep=
INSTR
(
A$,","
)
IF
Sep >0
THEN
B$=
LEFT$
(
A$, Sep-
1
)
=
MID$
(
A$, Sep+
1
,256
)
Parse(
A$)
' --- Recursive Call ---
ELSE
END
IF
END
SUB