print SAVE <<END;
for (0..$#activity) {
    my ($legend,$time,$start,$end,$elapsed) = 
        @{%{$activity[$_]}}{qw(legend timstr start end elapsed)};

# Add up times of current activity
    my $tsecs = 0;
    for my $i (0..$#$end) {
        $tsecs += tv_interval($start->[$i],$end->[$i]);
    }
    $tsecs += $elapsed if $elapsed;
    $tsecs += tv_interval($start->[-1],[gettimeofday]) if defined($current) && ($_ == $current);
    print SAVE <<END2;
[Button $legend]
time=$time
elapsed=$tsecs
END2
}