XProfan

CLS
set("AsmMode",0)
ASM "KREISFLAECHEa2e", 2
MOV EAX,par1
MOV EBX,par2
FLD QWORD PTR [EAX]
FLD ST
FMUL
FLDPI
FMUL
FSTP QWORD PTR [EBX]
MOV EAX,0//Erfolg
ENDASM
Programa:
set("decimals",17)
declarar Ergeb!
var R!=2.000000000000002
Imprimir " Fehlercode (0=Kein Fehler): ";KREISFLAECHEa2e(addr(R!),addr(Ergeb!))

if Ergeb!=2.000000000000002^2*Pi():imprimir "\n ERFOLG - Profanvariable direkt con Ergebnis geladen!\n"

    imprimir " R^2*Pi() con R=2.000000000000002 :";Ergeb!
    más:imprimir "  ERROR! LEIDER KEIN ERFOLG! "
    endif:waitinput:end