![]() |
BCX Console Demonstration Program S147.bas |
DIM
DYNAMIC
Buf$[
10
]
Buf$[
0
]
=
"Zero"
Buf$[
1
]
=
"One"
Buf$[
2
]
=
"Two"
Buf$[
5
]
=
"Five"
CALL
Foo(
Buf$)
SUB
Foo(
A$AS
STRARRAY
)
LOCAL
iWHILE
ISPTR
(
A$[
i]
)
IF
A$[
i]
>""
THEN
[
i]
INCR
iWEND
END
SUB