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$