 |
BCX Console Demonstration Program S143.bas
|
CLS
DIM
A$ [
6
]
A$[
0
]
=
"zero"
A$[
1
]
=
"one"
A$[
2
]
=
"two"
A$[
3
]
=
"three"
A$[
4
]
=
"four"
A$[
5
]
=
"five"
CALL
Foo1(
A$, UBOUND
(
A$)
)
SUB
Foo1(
B$[
]
, size)
LOCAL
i
PRINT
".............[ Upper Bound On Strings ] ..........."
FOR
i =
0
TO
size
PRINT
B$[
i]
NEXT
END
SUB
DIM
B[
6
]
B[
0
]
=
0
B[
1
]
=
1
B[
2
]
=
2
B[
3
]
=
3
B[
4
]
=
4
B[
5
]
=
5
CALL
Foo2(
B, UBOUND
(
B)
)
SUB
Foo2(
B[
]
, size)
LOCAL
i
PRINT
".............[ Upper Bound On Numerics ] ..........."
FOR
i =
0
TO
size
PRINT
B[
i]
NEXT
END
SUB