XProfan

cls:font 2:set("decimals",18)
var c!=val("-123456789012345678E+291")'pour XProfan 11.2a et -Free64
'var c!=val("-123456789012345678E+20")  'pour X2 et ältere FreeProfan32-Vers.
prtln(c!)
waitinput
end

proc prt :parameters x!

    imprimer format$(\
    "+#.#################E+000;-#.#################E+000,; 0.0###############0e0000"\
    ,c!);

endproc

proc prtln :parameters x!

    prt(x!):imprimer

endproc