"Values" *rebustar

"Values" *walsopen

_D.Values Data.Records?

%
% stack: records-exist
%
{
 _D.Values Data.MoveFirst
 {
  _D.Values Data.EOF ?
  "Name" 	dup _D.Values Data.!Val
  "Value" 	dup _D.Values Data.!Val
%
% stack: name-to-add
%
  __Name *alphtree

  __Name        "_Name" \!

  __Value       "_Value" \!


  _D.Values Data.MoveNext
%
 } loop
} if
*walsshut

"_vals.tlt" ofbin Tree.Save pop

*rebuends