XProfan

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

proc prt :parámetros x!

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

ENDPROC

proc prtln :parámetros x!

    prt(x!):imprimir

ENDPROC