sub leftthrottle {

$button33 = $rows[$rzero]->Button(-text=>'L-FWD', -width   => '3', -height  => "$h")->pack(-expand  => 1, -fill => 'both', -padx => 2, -pady => 2, -side => 'left', -ipadx => 5, -ipady => 5);
$button33->configure(-background => "gray", -foreground => "black");
$balloon->attach($button33, -balloonmsg  => "Left Forward Speed");
$button33->bind('<ButtonPress>', \&leftfwdspeedone);
$button34 = $rows[$rzero]->Button(-text=>'L-REV', -width   => '3', -height  => "$h")->pack(-expand  => 1, -fill => 'both', -padx => 2, -pady => 2, -side => 'left', -ipadx => 5, -ipady => 5);
$button34->configure(-background => "gray", -foreground => "black");
$balloon->attach($button34, -balloonmsg  => "Left Reverse Speed");
$button34->bind('<ButtonPress>', \&leftrevspeedone);
}

sub leftfwdspeedone {

$button34->configure(-text=>'L REV 0', -background => "gray", -foreground => "black");
$balloon->attach($button34, -balloonmsg  => "Left Reverse Speed 0");
$button33->configure(-text=>'L FWD 0', -background => "gray", -foreground => "black");
$balloon->attach($button33, -balloonmsg  => "Left Forward Speed 0");
$button33->bind('<ButtonPress>', \&leftfwdspeedtwo);
} # END SUB

sub leftfwdspeedtwo {

$button34->configure(-text=>'L REV 0', -background => "gray", -foreground => "black");
$balloon->attach($button34, -balloonmsg  => "Left Reverse Speed 0");
$button33->configure(-text=>'L FWD 10', -background => "gray", -foreground => "black");
$balloon->attach($button33, -balloonmsg  => "Left Forward Speed 10");
$button33->bind('<ButtonPress>', \&leftfwdspeedthree);
}

sub leftrevspeedone {

$button33->configure(-text=>'L FWD 0', -background => "gray", -foreground => "black");
$balloon->attach($button33, -balloonmsg  => "Left Reverse Speed 0");
$button34->configure(-text=>'L REV 0', -background => "gray", -foreground => "black");
$balloon->attach($button34, -balloonmsg  => "Left Reverse Speed 0");
$button34->bind('<ButtonPress>', \&leftrevspeedtwo);
} # END SUB

sub leftrevspeedtwo {

$button33->configure(-text=>'L FWD 0', -background => "gray", -foreground => "black");
$balloon->attach($button33, -balloonmsg  => "Left Reverse Speed 0");
$button34->configure(-text=>'L REV 10', -background => "gray", -foreground => "black");
$balloon->attach($button34, -balloonmsg  => "Left Reverse Speed 10");
$button34->bind('<ButtonPress>', \&leftrevspeedthree);
} # END SUB

sub leftrevspeedthree {

$button33->configure(-text=>'L FWD 0', -background => "gray", -foreground => "black");
$balloon->attach($button33, -balloonmsg  => "Left Reverse Speed 0");
$button34->configure(-text=>'L REV 20', -background => "gray", -foreground => "black");
$balloon->attach($button34, -balloonmsg  => "Left Reverse Speed 20");
$button34->bind('<ButtonPress>', \&leftrevspeedfour);
} # END SUB