empty

%%% "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 0x09 char & &
  __Value
  cr " " replall 0x0A char " " replall 0x0D char " " replall 0x09 char " " replall
  &
  catcr

%%%  __Name *alphtree

%%%  __Name        "_Name" \!

%%%  __Value       "_Value" \!


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

"_vals.csv" ofbin write

%%% *rebuends