home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a044 / 3.ddi / MISC / DLLTEST.PRG < prev    next >
Encoding:
Text File  |  1993-08-31  |  351 b   |  24 lines
  1. declare pfunction SwapIntArray returning integer ;
  2.     in dll sample.dll
  3.     
  4.  
  5. sIntArray = space(10)
  6.  
  7. for nX = 1 to 5
  8.     putint(@sIntArray, toint(nX), nX)
  9. next nX
  10.  
  11. ? 'Before the call'
  12.  
  13. for nX = 1 to 5
  14.     ? getint(@sIntArray, nX)
  15. next nX
  16.  
  17. SwapIntArray(@sIntArray)
  18.  
  19. ? 'After the call'
  20. for nX = 1 to 5
  21.     ? getint(@sIntArray, nX)
  22. next nX
  23.  
  24. wait