declare pfunction SwapIntArray returning integer ;
	in dll sample.dll
	

sIntArray = space(10)

for nX = 1 to 5
	putint(@sIntArray, toint(nX), nX)
next nX

? 'Before the call'

for nX = 1 to 5
	? getint(@sIntArray, nX)
next nX

SwapIntArray(@sIntArray)

? 'After the call'
for nX = 1 to 5
	? getint(@sIntArray, nX)
next nX

wait