I can not see the use, but you can use something like:
Warning!!! Very ugly code following! I am not responsible for any brain damage it can cause, look at it under your own risk :)
set safety off
list memory to file c:\memory.txt noconsole
local laMemory(1), lnPCount, lnLines, lnLine, lcName, lnPar, lcScope, laDef(1), lnDef, lnDefs
set library to foxtools
lnPar = 0
lnPCount = Pcount()
lnLines = Alines(laMemory, Filetostr('c:\memory.txt'),1+8,Chr(13)+Chr(10))
for lnLine = 1 to lnLines
lcMemory = reduce(Chrtran(laMemory[lnLine], Chr(9), ' '))
lnDefs = Alines(laDef, lcMemory,1+8, ' ')
if lnDefs >= 5
lcName = 'm.' + Alltrim(laDef[1])
lcScope = Upper(laDef[2])
if Inlist(lcScope, 'PRIV', 'LOCAL') and Upper(laDef[lnDefs]) = Program()
lnPar = lnPar + 1
if lnPar <= lnPCount
? lcName, Evaluate(lcName)
else
exit
endif
endif
endif
endfor
"The five senses obstruct or deform the apprehension of reality."
Jorge L. Borges?
"Premature optimization is the root of all evil in programming."
Donald Knuth, repeating C. A. R. Hoare
"To die for a religion is easier than to live it absolutely"
Jorge L. Borges
