 |
BCX Console Demonstration Program S136.bas
|
'*************************************************
' USING$ demonstration by Kevin Diggins
'*************************************************
' This pretty much shows what you can expect
' from my implementation of the USING$ function.
' USING$ may be expanded in the future.
'*************************************************
CLS
DIM
A$
A$ =
USING$
(
"###,###,###.##"
, -
123456789.123456
)
: PRINT
A$
A$ =
USING$
(
"$###,###,###.###"
, -
123456789.123456
)
: PRINT
A$
A$ =
USING$
(
"$###,###,###.####"
, 123456789.123456
)
: PRINT
A$
A$ =
USING$
(
"$###,###,###.#####"
, 123456789.123456
)
: PRINT
A$
A$ =
USING$
(
"$###,###,###.#######"
, 123456789.123456
)
: PRINT
A$
A$ =
USING$
(
" ###,###,###.##"
, 123456789.123456
)
: PRINT
A$
A$ =
USING$
(
" $###,###,###.##"
, 123456789.123456
)
: PRINT
A$