'************************************************* 
 '    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