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