for i = 1 to 10
    n = rnd(1) * 10 ^ (int(10 * rnd(1)) - 2)
    print "Raw number = "; n, "Using custom function = "; FormattedPrint$(n, 16, 5)
next i
end

function FormattedPrint$(n, length, decPlaces)
    format$ = "#."
    for i = 1 to decPlaces
        format$ = format$ + "#"
    next i

    n$ = using(format$, n)            '   remove leading spaces if less than 3 figs left of decimal
                                        '   add leading zeros
    for i = 1 to len(n$)
        c$ = mid$(n$, i, 1)
        if c$ = " " or c$ = "%" then nn$ = nn$ + "0" else nn$ = nn$ + c$
    next i
    FormattedPrint$ = right$( "000000000000" +nn$, length) '   chop to required length
end function