Declare Long GetProcessHeap in Win32API Declare Long HeapAlloc in Win32API Long, Long, Long Declare memcpy in NTDLL.Dll as memcpy_write Long, String@, Long Declare Long HeapFree in Win32API Long, Long, Long Declare Long HeapReAlloc in Win32API Long, Long, Long, Long nStart = Seconds() lnLoop = 1024*15 lnSize = 1024 lnBlockSize = 128*1024 lnAllocated = lnBlockSize lnAddress = HeapAlloc( GetProcessHeap(), 0, lnAllocated ) lnPointer = lnAddress For t=0 to lnLoop-1 If lnPointer+lnSize > lnAddress+lnAllocated lnAllocated = lnAllocated+lnBlockSize lnAddress = HeapReAlloc( GetProcessHeap(), 0, lnAddress, lnAllocated ) lnPointer = lnAddress + t*lnSize Endif memcpy_write( lnPointer, Replicate("A",lnSize), lnSize ) lnPointer = lnPointer + lnSize Endfor ? Seconds()-nStart lcString = Sys(2600, lnAddress, lnLoop*lnSize ) HeapFree( GetProcessHeap(), 0, lnAddress ) ? Seconds()-nStartChristof