 |
BCX Console Demonstration Program S130.bas
|
' *****************************************************************
' Demonstrates OPTIONAL ARGUMENTS in User Defined FUNCTIONS/SUBS
' ALL OPTIONAL ARGUMENTS in BCX default to zero
' *****************************************************************
DIM
Z$
Z$ =
Concat$(
)
: PRINT
Z$
Z$ =
Concat$(
"111"
)
: PRINT
Z$
Z$ =
Concat$(
"111-"
, "222"
)
: PRINT
Z$
Z$ =
Concat$(
"111-"
, "222-"
, "333"
)
: PRINT
Z$
FUNCTION
Concat$ OPTIONAL
(
a$ =
""
, b$ =
""
, c$ =
""
)
STATIC A$, B$, C$, D$
A$ =
a$ &
""
B$ =
b$ &
""
C$ =
c$ &
""
D$ =
A$ &
B$ &
C$
REPLACE
"(null)"
WITH
""
IN
D$
IF
D$ =
""
THEN
FUNCTION
=
"No function arguments passed"
ELSE
FUNCTION
=
D$
END
IF
END
FUNCTION