XProfan

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

proc prt :parameters x!

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

endproc

proc prtln :parameters x!

    prt(x!):print

endproc