DECLARE XPIA_#,XPIA$,EXPIA&,X&,Y&,Z&
DIM XPIA_#,1536
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,-564840227
LONG XPIA_#,132=-1925490279,-1925490279,-1925490279,-1926661787,-1925490280,-1926740457,-1925490273,1751345490,-1925490279,0,0,17744,131404,1130615166,0,0,554565856,201654539,512,512,0,4164,4096,8192,268435456,4096,512,4,0,4
LONG XPIA_#,252=0,12288,512,0,2,1048576,4096,1048576,4096,0,16,4432,80,4344,40,0,0,0,0,0,0,8192,44,0,0,0,0,0,0,0,0,0,0,0,0,4096,8,0,0,0,0,0,0,1297301837,12851,416,4096,512,512,0,0,0,-536870880,1818587694,25455,48,8192,512,1024
LONG XPIA_#,488=0,0,0,1107296320,0,0,4392,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1192457387,1,836297,-1679290518,-1962934272,144902213,-1961885680,212012101,-1961885680,279121989,-1961885680,346231877,-1961885680,413341765,-1961885680
LONG XPIA_#,640=480451653,-1961885680,547561541,-1961885680,614671429,-1961885680,681781317,-1961885680,748891205,-1961885680,816001093,-1961885680,883110981,-1961885680,950220869,-1961885680,1017330757,-1961885680,1084440645
LONG XPIA_#,716=-1022361584,-2081649835,1170734276,764,-9508864,144834559,51380240,1051653,146983184,637520896,268439552,4384,0,0,4406,4096,0,0,0,0,0,4392,0,1699152177,1937331060,1869377347,1937047666,842232421,1819042862,0,0
LONG XPIA_#,840=0,0,0,1130615166,0,4482,1,1,1,4472,4476,4480,4304,4498,1398734848,1701866857,1852137324,1818504808,1967521900,1769237358,1853058671,6647137,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,811806811,812855403
LONG XPIA_#,1040=813903995,814952587,816001179,817049771,818098363,820195531,821309673,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,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_#,1344=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,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+/_Simpel_enh.dll
FILEMODE 1
ASSIGN #1,XPIA$
OPENRW #1
BLOCKWRITE #1,XPIA_#,0,1536
CLOSERW #1
DISPOSE XPIA_#
X&=111
Y&=222
Z&=EXTERNAL(XPIA$,Funktionsname,X&,Y&)
CLS
PRINT Z&
WAITINPUT
FIN