"Methods" *rebustar

"
SELECT * FROM Methods
ORDER BY Verb;
"
*nethopen

_D.Methods Data.Records?

%
% stack: records-exist
%
{
 _D.Methods Data.MoveFirst
 {
  _D.Methods Data.EOF ?
  *methdsub
%
% stack: name-to-add
%
  __Verb *alphtree
  __Verb        "_Verb" \!

  __Type        "_Type" \!

  __Action      "_Action" \!


  _D.Methods Data.MoveNext
%
 } loop
} if
*nethshut

"_meth.tlt" ofbin Tree.Save pop

*rebuends