 |
BCX Console Demonstration Program S117.bas
|
' ***************************************************
' Demonstrates how to modify arrays that have been
' passed to SUBS and FUNCTIONS as parameters
' ***************************************************
DIM
x![
3
]
DIM
y![
3
]
DIM
z![
3
]
x![
0
]
=
2.1
x![
1
]
=
3.2
x![
2
]
=
4.3
y![
0
]
=
3.1
y![
1
]
=
4.2
y![
2
]
=
5.3
Multp(
&
x![
0
]
, &
y![
0
]
, &
z![
0
]
, 3
)
DIM
i
FOR
i =
0
TO
2
? (
float)
z![
i]
NEXT
i
SUB
Multp(
a![
]
, b![
]
, C![
]
, count)
LOCAL
n
FOR
n =
0
TO
count-
1
C[
n]
=
a![
n]
*
b![
n]
NEXT
n
END
SUB