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
Programm:
set("decimals",17)
declare Ergeb!
var R!=2.000000000000002
Print " Fehlercode (0=Kein Fehler): ";KREISFLAECHEa2e(addr(R!),addr(Ergeb!))

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

    print " R^2*Pi() mit R=2.000000000000002 :";Ergeb!
    else:print "  ERROR! LEIDER KEIN ERFOLG! "
    endif:waitinput:end