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$