Code Question - XANNI!

[Gossamer <gossamer@xxxxxxxxxxxxxx>]

Xanni, you've stumped me.  Can you translate this into 
simpler code?  My brain refuses to unravel the brackets
today!

sub view_reset($)
# Reset dimensions of given cursor
{
  my ($number) = @_;
  my $curs = &get_cursor($number);
  my $index = &get_nextcell($CURSOR_HOME, "+d.1"); # Dimension list

  $ZZ{$curs = $ZZ{"$curs+d.1"}} = "+$ZZ{$index}";
  $ZZ{$curs = $ZZ{"$curs+d.1"}} = "+" . $ZZ{$index = $ZZ{"$index+d.2"}};
  $ZZ{$curs = $ZZ{"$curs+d.1"}} = "+" . $ZZ{$index = $ZZ{"$index+d.2"}};

  $Window_Dirty[$number] = $TRUE;
}


bekj

-- 
: Gossamer     gossamer@xxxxxxxxxxxxxx  | Xanadoodler
: http://www.tertius.net.au/~gossamer/  | And proud of it :)
: It is because of your disillusionments that you fly ... Here then is
: the dragonfly with its four wings, full of confidence and joy, and I
: am at the double junction of the wings.  -- Esther Rochon/Henry Polard