Here is a fancier utility that finds the last symbol automatically. I also
created a revised version of the dumpsymbols utility. You can abort it by
clicking the mouse as it takes a long time to print out 1800+ symbols
on lastSymbol
emptySym = symbol(EMPTY)
repeat with x = 0 to the maxInteger
symbolName = DumpSymbol(x)
-- Returns # if no symbol
if symbolName = emptySym then
put "Last symbol found at" && x-1 & ":" && "#" & DumpSymbol(x-1)
exit repeat
end if
end repeat
return (x-1)
end lastSymbol
on dumpSymbols startIndex, endIndex
if voidP(startIndex) then
startIndex = 0
end if
if voidP(endIndex) then
endIndex = lastSymbol()
end if
repeat with x = startIndex to endIndex
put string(x) & ":" && "#" & DumpSymbol(x)
if the mouseDown then
put "abort"
exit repeat
end if
end repeat
put "done"
end dumpSymbols
Cheers,
Bruce
[To remove yourself from this list, or to change to digest mode, go to
http://www.penworks.com/LUJ/lingo-l.cgi To post messages to the list,
email [EMAIL PROTECTED] (Problems, email [EMAIL PROTECTED])
Lingo-L is for learning and helping with programming Lingo. Thanks!]
