RosettaCodeData/Task/Formatted-numeric-output/XBasic/formatted-numeric-output.basic

PROGRAM	"progname"
VERSION	"0.0000"

DECLARE FUNCTION  Entry ()

FUNCTION  Entry ()
    n! = 7.125
    PRINT FORMAT$("0000#.###", n!)
END FUNCTION
END PROGRAM