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

si Ergeb!=2.000000000000002^2*Pi():imprimer "\n ERFOLG - Profanvariable direct avec Ergebnis geladen!\n"

    imprimer " R^2*Pi() avec R=2.000000000000002 :";Ergeb!
    d'autre:imprimer "  ERROR! LEIDER KEIN ERFOLG! "
    endif:waitinput:end