XProfan

 {$iq}
Declare x&,y&,z&
Cls
x&=37   Zahl 1
y&=26   Zahl 2

AsmStart Addieren

    Parameters x&,y&     Die beiden Parameter x& und y& (para1 und para2)
    Return z&            Und der Rückgabewert nach z&
    mov eax,para1        ;Assembler nimmt das Semikolon als Kommentarzeichen...
    add eax,para2

AsmEnd

Print z&             Als Ergebnis wird 63 ausgegeben, der letzte Wert im Register EAX
WaitInput
End

DECLARE XPIA_#,XPIA$,EXPIA&,X&,Y&,Z&
DIM XPIA_#,3076
CLEAR XPIA_#
LONG XPIA_#,0=9460301,3,4,65535,184,0,64,0,0,0,0,0,0,0,0,176,247078670,-855002112,1275181089,1750344141,1881174889,1919381362,1663069537,1869508193,1700929652,1853190688,544106784,542330692,1701080941,168627502,36,0,-642185571
LONG XPIA_#,132=-1965594663,-1965594663,-1965594663,-1966782683,-1965594664,-1966835625,-1965594660,1751345490,-1965594663,0,0,17744,262476,1127050297,0,0,554565856,201654539,512,1536,0,4096,4096,8192,268435456,4096,512,4,0,4
LONG XPIA_#,252=0,20480,1024,0,2,1048576,4096,1048576,4096,0,16,8224,73,8192,20,0,0,0,0,0,0,16384,44,0,0,0,0,0,0,0,0,0,0,0,0,8192,0,0,0,0,0,0,0,2019914798,116,156,4096,512,1024,0,0,0,-536870880,1633972782,24948,105,8192,512,1536
LONG XPIA_#,488=0,0,0,1073741888,1952539694,97,60,12288,512,2048,0,0,0,-1073741760,1818587694,25455,66,16384,512,2560,0,0,0,1107296320,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
LONG XPIA_#,764=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1192457387,1,836297,-1559738997,268447744,-1559476853,268447748,-1559214709,268447752
LONG XPIA_#,1060=-1558952565,268447756,-1558690421,268447760,-1558428277,268447764,-1558166133,268447768,-1557903989,268447772,-1557641845,268447776,-1557379701,268447780,-1557117557,268447784,-1556855413,268447788,-1556593269
LONG XPIA_#,1136=268447792,-1556331125,268447796,-1556068981,268447800,-326412861,-32792,805347839,84086784,268447748,574045,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
LONG XPIA_#,1380=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1919251317,1680749107,27756,0,1127050297,0,8274,1,1,1,8264,8268,8272,4229,8288,1952382976,1601467237,778595941,7105636,1768186945
LONG XPIA_#,1636=1852142181,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
LONG XPIA_#,2036=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
LONG XPIA_#,2452=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4096,44,806891536,807940128,808988720,810037312,811085904,812134496,813183088,814624896,12436,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
LONG XPIA_#,2724=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
XPIA$=$TEMPDIR+"/_test_enh.dll"
FILEMODE 1
ASSIGN #1,XPIA$
OPENRW #1
BLOCKWRITE #1,XPIA_#,0,3072
CLOSERW #1
DISPOSE XPIA_#
CLS
X&=37
Y&=26
Z&
PRINT Z&
WAITINPUT
FIN