zz: "Sum above" function we just wrote

[Ted Nelson <ted@xxxxxxxxxx>]

#totalAbove
no integer;

my $index = $ZZ{"$cell-d.2"};
my $total = 0;

while (defined $index and ($index != $cell))
{
  $total += $ZZ{$index};
  $index = $ZZ{"$index-d.2"};
}

my $new = $ZZ{"n"}++;
$ZZ{$new} = $total;
&cell_insert($new, $cell, "+d.2");

____________________________________________________
Theodor Holm Nelson, Visiting Professor of Environmental Information
 Keio University, Shonan Fujisawa Campus, Fujisawa, Japan
 Home Fax from USA: 011-81-466-46-7368  (If in Japan, 0466-46-7368)
http://www.sfc.keio.ac.jp/~ted/  (Professorial page)
_____________________________________________________
Permanent: Project Xanadu, 3020 Bridgeway #295, Sausalito CA 94965
 Tel. 415/ 331-4422, fax 415/332-0136  
http://www.xanadu.net (see also Professorial page, above)
PERMANENT E-MAIL: ted@xxxxxxxxxx
_____________________________________________________
Quotation of the day, 99.01.20
"In order to reach the future we must survive the present."  TN99