Run the following code from a program (.prg) file:
Local lniFor lni = 1 to 10 local array laTest =alines(laTest, '') _Calcmem = lni && store counter to survive clear all Clear all ?SYS(1011), int(_calcmem) Local lni lni = _calcmemEndforRETURN
After the code runs, two numbers appear. The first column indicates the memory handles as reported by SYS(1011). The second number indicates the iteration of the loop. Note that Visual FoxPro adds one handle per iteration.