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$
Result:
-123,456,789.12
-$123,456,789.123
$123,456,789.1235
$123,456,789.12346
$123,456,789.1234560
123,456,789.12
$123,456,789.12