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//success
ENDASM
Program:
set("decimals",17)
declare Ergeb!
var R!=2.000000000000002
Print " Error Code (0=Kein Error): ";KREISFLAECHEa2e(addr(R!),addr(Ergeb!))

if Ergeb!=2.000000000000002^2*Pi():print "\n ERFOLG - Profanvariable directly with Result loaded!\n"

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